...
|
...
|
@@ -17,10 +17,10 @@
|
17
|
17
|
#' @importFrom testthat expect_equal
|
18
|
18
|
#' @importFrom stringr str_remove
|
19
|
19
|
|
20
|
|
-tmhmm_fix_path <- function(fasta_filename, tmhmm_folder_name) {
|
21
|
|
- bin_path <- normalizePath(file.path(tmhmm_folder_name, "bin", "decodeanhmm.linux"))
|
22
|
|
- options_path <- file.path(tmhmm_folder_name, "lib","TMHMM2.0.options")
|
23
|
|
- model_path <- file.path(tmhmm_folder_name, "lib","TMHMM2.0.model")
|
|
20
|
+tmhmm_fix_path <- function(fasta_filename, folder_name) {
|
|
21
|
+ bin_path <- normalizePath(file.path(folder_name, "bin", "decodeanhmm.linux"))
|
|
22
|
+ options_path <- file.path(folder_name, "lib","TMHMM2.0.options")
|
|
23
|
+ model_path <- file.path(folder_name, "lib","TMHMM2.0.model")
|
24
|
24
|
cmds <- c("-f", options_path, "-modelfile", model_path)
|
25
|
25
|
text <- NA
|
26
|
26
|
suppressWarnings(text <- system2(
|