... | ... |
@@ -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", |