Added .exportOutput method

ElySeraidarian · Jun 25, 2024 · d346615 · d346615
1 parent 4ca1239
commit d346615
Show file tree

Hide file tree

Showing 4 changed files with 60 additions and 0 deletions.
diff --git a/R/class-AbundanceDensityPlot.R b/R/class-AbundanceDensityPlot.R
@@ -236,6 +236,21 @@ setMethod(".renderOutput", "AbundanceDensityPlot",
     callNextMethod()
 })
 
+#' @export
+#' @importFrom grDevices pdf dev.off
+setMethod(".exportOutput", "AbundanceDensityPlot",
+    function(x, se, all_memory, all_contents) {
+
+    contents <- .generateOutput(x, se, all_memory=all_memory, all_contents=all_contents)
+    newpath <- paste0(.getEncodedName(x), ".pdf")
+
+    pdf(newpath, width=slot(x, .organizationHeight)/75, height=slot(x, .organizationWidth)*2)
+    print(contents$plot)
+    dev.off()
+
+    newpath
+})
+
 #' @importFrom methods callNextMethod
 setMethod(".hideInterface", "AbundanceDensityPlot", function(x, field) {
 

diff --git a/R/class-AbundancePlot.R b/R/class-AbundancePlot.R
@@ -204,6 +204,21 @@ setMethod(".renderOutput", "AbundancePlot",
     callNextMethod()
 })
 
+#' @export
+#' @importFrom grDevices pdf dev.off
+setMethod(".exportOutput", "AbundancePlot",
+    function(x, se, all_memory, all_contents) {
+
+    contents <- .generateOutput(x, se, all_memory=all_memory, all_contents=all_contents)
+    newpath <- paste0(.getEncodedName(x), ".pdf")
+
+    pdf(newpath, width=slot(x, .organizationHeight)/75, height=slot(x, .organizationWidth)*2)
+    print(contents$plot)
+    dev.off()
+
+    newpath
+})
+
 #' @importFrom methods callNextMethod
 setMethod(".hideInterface", "AbundancePlot", function(x, field) {
     if( field %in% c("SelectionHistory", "RowSelectionRestrict",

diff --git a/R/class-RDAPlot.R b/R/class-RDAPlot.R
@@ -264,6 +264,21 @@ setMethod(".renderOutput", "RDAPlot",
     callNextMethod()
 })
 
+#' @export
+#' @importFrom grDevices pdf dev.off
+setMethod(".exportOutput", "RDAPlot",
+    function(x, se, all_memory, all_contents) {
+
+    contents <- .generateOutput(x, se, all_memory=all_memory, all_contents=all_contents)
+    newpath <- paste0(.getEncodedName(x), ".pdf")
+
+    pdf(newpath, width=slot(x, .organizationHeight)/75, height=slot(x, .organizationWidth)*2)
+    print(contents$plot)
+    dev.off()
+
+    newpath
+})
+
 #' @importFrom methods callNextMethod
 setMethod(".hideInterface", "RDAPlot", function(x, field) {
 

diff --git a/R/class-RowTreePlot.R b/R/class-RowTreePlot.R
@@ -232,6 +232,21 @@ setMethod(".renderOutput", "RowTreePlot",
     callNextMethod()
 })
 
+#' @export
+#' @importFrom grDevices pdf dev.off
+setMethod(".exportOutput", "RowTreePlot",
+    function(x, se, all_memory, all_contents) {
+
+    contents <- .generateOutput(x, se, all_memory=all_memory, all_contents=all_contents)
+    newpath <- paste0(.getEncodedName(x), ".pdf")
+
+    pdf(newpath, width=slot(x, .organizationHeight)/75, height=slot(x, .organizationWidth)*2)
+    print(contents$plot)
+    dev.off()
+
+    newpath
+})
+
 #' @importFrom methods callNextMethod
 setMethod(".hideInterface", "RowTreePlot", function(x, field) {