From 0863972ca6702978f035062e1b5b9832efd4c3ea Mon Sep 17 00:00:00 2001
From: Greg Smith <gregorymichaelsmith@protonmail.com>
Date: Tue, 20 Feb 2024 15:35:29 -0800
Subject: [PATCH] Creation of `output` field in `getPlotSpecs()`

---
 R/visualizeWithRCircos.R | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/R/visualizeWithRCircos.R b/R/visualizeWithRCircos.R
index 931e2c94..df772548 100644
--- 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)
+  }
+}