Enhanced handling for output parameter

michaelgruenstaeudl · Feb 22, 2024 · b7035c8 · b7035c8
1 parent 3c1bd38
commit b7035c8
Showing 1 changed file with 5 additions and 4 deletions.
diff --git a/R/visualizeWithRCircos.R b/R/visualizeWithRCircos.R
@@ -213,15 +213,16 @@ getOutputFields <- function(output) {
   outputTypes <- paste(getOutputTypes(), collapse = "|")
   outputPattern <- sprintf("^(?:.+\\.)(%s)$", outputTypes)
   outputMatch <- regexec(outputPattern, output, ignore.case = TRUE)
-  outputVec <- regmatches(output, outputMatch)[[1]]
+  outputVec <- regmatches(output, outputMatch)
 
-  if (length(outputVec) == 0) {
+  # non-char `output` or non-match for char `output`
+  if ((length(outputVec) == 0) || (length(outputVec[[1]]) == 0)) {
     output <- NULL
     outputType <- NULL
     isOutput <- FALSE
   } else {
-    output <- outputVec[1]
-    outputType <- tolower(outputVec[2])
+    output <- outputVec[[1]][1]
+    outputType <- tolower(outputVec[[1]][2])
     isOutput <- TRUE
   }