Browse code

Changed to exported obtainEnvironmentPath

fortinj2 authored on 18/07/2022 19:37:21
Showing 6 changed files

... ...
@@ -1,6 +1,6 @@
1 1
 Package: crisprScore
2
-Version: 1.1.7
3
-Date: 2022-06-30
2
+Version: 1.1.8
3
+Date: 2022-07-18
4 4
 Title: On-Target and Off-Target Scoring Algorithms for CRISPR gRNAs
5 5
 Authors@R: c(
6 6
     person("Jean-Philippe", "Fortin", email = "[email protected]", role = c("aut", "cre", "cph")),
... ...
@@ -33,6 +33,7 @@ importFrom(basilisk,BasiliskEnvironment)
33 33
 importFrom(basilisk,basiliskRun)
34 34
 importFrom(basilisk,basiliskStart)
35 35
 importFrom(basilisk,basiliskStop)
36
+importFrom(basilisk,obtainEnvironmentPath)
36 37
 importFrom(basilisk,setBasiliskFork)
37 38
 importFrom(methods,is)
38 39
 importFrom(randomForest,randomForest)
... ...
@@ -39,6 +39,7 @@
39 39
 #' 
40 40
 #' @export
41 41
 #' @importFrom basilisk basiliskStart basiliskStop basiliskRun
42
+#' @importFrom basilisk obtainEnvironmentPath
42 43
 getAzimuthScores <- function(sequences, fork=FALSE){
43 44
     sequences <- .checkSequenceInputs(sequences)
44 45
     if (unique(nchar(sequences))!=30){
... ...
@@ -64,7 +65,7 @@ getAzimuthScores <- function(sequences, fork=FALSE){
64 65
     outputfile <- file.path(dir, "output.txt")
65 66
 
66 67
       # Ready to get the scores
67
-    env <- basilisk:::.obtainEnvironmentPath(env_azimuth)
68
+    env <- basilisk::obtainEnvironmentPath(env_azimuth)
68 69
     basilisk.utils::activateEnvironment(env)
69 70
     programFile <- system.file("python",
70 71
                                "azimuth/getAzimuth.py",
... ...
@@ -73,7 +73,7 @@ getDeepCpf1Scores <- function(sequences,
73 73
     outputfile <- file.path(dir, "output.txt")
74 74
    
75 75
     # Ready to get the scores
76
-    env <- basilisk:::.obtainEnvironmentPath(env_deepcpf1)
76
+    env <- basilisk::obtainEnvironmentPath(env_deepcpf1)
77 77
     basilisk.utils::activateEnvironment(env)
78 78
     programFile <- system.file("python",
79 79
                                "deepcpf1/getDeepCpf1.py",
... ...
@@ -71,7 +71,7 @@ getDeepSpCas9Scores <- function(sequences,
71 71
     outputfile <- file.path(dir, "output.txt")
72 72
    
73 73
     # Ready to get the scores
74
-    env <- basilisk:::.obtainEnvironmentPath(env_deepspcas9)
74
+    env <- basilisk::obtainEnvironmentPath(env_deepspcas9)
75 75
     basilisk.utils::activateEnvironment(env)
76 76
     programFile <- system.file("python",
77 77
                                "deepspcas9/getDeepSpCas9Scores.py",
... ...
@@ -85,7 +85,7 @@ getRuleSet3Scores <- function(sequences,
85 85
     outputfile <- file.path(dir, "output.txt")
86 86
     
87 87
     # Ready to get the scores
88
-    env <- basilisk:::.obtainEnvironmentPath(env_rs3)
88
+    env <- basilisk::obtainEnvironmentPath(env_rs3)
89 89
     basilisk.utils::activateEnvironment(env)
90 90
     programFile <- system.file("python",
91 91
                                "rs3/getRuleSet3ScoresSequence.py",