Creation of output field in getPlotSpecs()

michaelgruenstaeudl · Feb 20, 2024 · 0863972 · 0863972
1 parent cdcbbea
commit 0863972
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/R/visualizeWithRCircos.R b/R/visualizeWithRCircos.R
@@ -208,3 +208,11 @@ getLegendParams <- function(coverage,
 
   return(legendParams)
 }
+
+getOutput <- function(output) {
+  if (is.character(output) && grepl("\\.pdf$", output, ignore.case = TRUE)) {
+    return(output)
+  } else {
+    return(NULL)
+  }
+}