|
...
|
...
|
@@ -70,6 +70,9 @@ getLindelScores <- function(sequences, fork=FALSE){
|
|
70
|
70
|
stringsAsFactors=FALSE)
|
|
71
|
71
|
good <- !grepl("N", sequences)
|
|
72
|
72
|
sequences.valid <- sequences[good]
|
|
|
73
|
+ env <- basilisk::obtainEnvironmentPath(env_lindel)
|
|
|
74
|
+ envls <- basilisk.utils::activateEnvironment(env)
|
|
|
75
|
+ on.exit(basilisk.utils::deactivateEnvironment(envls))
|
|
73
|
76
|
if (length(sequences.valid)>0){
|
|
74
|
77
|
scores <- rep(NA_real_, length(sequences.valid))
|
|
75
|
78
|
for (i in seq_along(sequences.valid)){
|
|
...
|
...
|
@@ -78,6 +81,7 @@ getLindelScores <- function(sequences, fork=FALSE){
|
|
78
|
81
|
file.full <- file.path(dir, file)
|
|
79
|
82
|
seq <- sequences.valid[i]
|
|
80
|
83
|
|
|
|
84
|
+
|
|
81
|
85
|
pyBinary <- basilisk.utils:::getPythonBinary(env)
|
|
82
|
86
|
|
|
83
|
87
|
|
