vienna rna: fix try catch

matdoering · Jan 17, 2024 · 0b7b80e · 0b7b80e
1 parent 4346b8f
commit 0b7b80e
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/.Rbuildignore b/.Rbuildignore
@@ -2,3 +2,5 @@
 ^NEWS\.md$          # A news file written in Markdown
 ^\.travis\.yml$     # Used for continuous integration testing with travis
 ^data-raw$          # Ignore raw data: not needed for the pkg itself
+^doc$
+^Meta$
diff --git a/R/zzz.R b/R/zzz.R
@@ -96,7 +96,7 @@ check.tool.function <- function(frontend = FALSE) {
         # need to require a specific version (2.4.1) of viennaRNA for support of the used commands
 	version <- NULL
     	try (version <- system2("RNAfold", "--version", stdout = TRUE, stderr = TRUE))
-        if (length(attr(version, "status")) == 0) {
+        if (!is(version, "try-error")) {
             # the command worked -> check the version string
             v <- strsplit(version, " ")[[1]]
             if (length(v) >= 2) {