Browse code

reverse basilisk.utils to basilisk. add on.exit()

Qian Liu authored on 04/02/2023 03:48:13
Showing 3 changed files

... ...
@@ -33,7 +33,7 @@ Imports:
33 33
     methods,
34 34
     jsonlite,
35 35
     yaml,
36
-    basilisk.utils,
36
+    basilisk,
37 37
     reticulate
38 38
 Suggests: 
39 39
     knitr,
... ...
@@ -39,8 +39,8 @@ importFrom(Rcwl,runCWL)
39 39
 importFrom(S4Vectors,get_showHeadLines)
40 40
 importFrom(S4Vectors,get_showTailLines)
41 41
 importFrom(S4Vectors,mcols)
42
-importFrom(basilisk.utils,activateEnvironment)
43
-importFrom(basilisk.utils,deactivateEnvironment)
42
+importFrom(basilisk,basiliskStart)
43
+importFrom(basilisk,basiliskStop)
44 44
 importFrom(jsonlite,toJSON)
45 45
 importFrom(reticulate,py_install)
46 46
 importFrom(stats,setNames)
... ...
@@ -22,7 +22,7 @@
22 22
 #'     generated data files.
23 23
 #' @importFrom Rcwl runCWL
24 24
 #' @importFrom tools md5sum
25
-#' @importFrom basilisk.utils activateEnvironment deactivateEnvironment
25
+#' @importFrom basilisk basiliskStart basiliskStop
26 26
 #' @importFrom reticulate py_install
27 27
 #' @importFrom Rcwl env_Rcwl
28 28
 #' @export
... ...
@@ -80,8 +80,8 @@ getData <- function(rcp, outdir, prefix = NULL, notes = c(), conda = FALSE,
80 80
         cwlver <- system2("cwltool", "--version", stdout = TRUE)
81 81
         cwlver <- as.numeric(sub("\\.[0-9]*$", "", sub(".* ", "", cwlver)))
82 82
         if(cwlver < 3.1){
83
-            cl <- activateEnvironment(env_Rcwl)
84
-            on.exit(deactivateEnvironment(env_Rcwl))
83
+            cl <- basiliskStart(env_Rcwl)
84
+            on.exit(basiliskStop(cl))
85 85
             cwlver <- system2("cwltool", "--version", stdout = TRUE)
86 86
             cwlver <- as.numeric(sub("\\.[0-9]*$", "", sub(".* ", "", cwlver)))
87 87
             if(cwlver < 3.1){