Fixed line plot download in patternPanel

elliecwilliams · elliecwilliams · commit dfb19f8693dd · 2021-12-21T15:29:02.000Z
diff --git a/R/patternPanel.R b/R/patternPanel.R
@@ -171,7 +171,7 @@ patternPanelServer <- function(id, expression.matrix, metadata, anno){
       filename = function() { input[['plotLineFileName']] },
       content = function(file) {
         device <- function(..., width, height) grDevices::png(..., width = width, height = height, res = 300, units = "in")
-        ggsave(file, plot = pca.plot(), device = device)
+        ggsave(file, plot = line.plot(), device = device)
       }
     )
     

Original file line number	Diff line number	Diff line change
`@@ -171,7 +171,7 @@ patternPanelServer <- function(id, expression.matrix, metadata, anno){`
`171`	`171`	`filename = function() { input[['plotLineFileName']] },`
`172`	`172`	`content = function(file) {`
`173`	`173`	`device <- function(..., width, height) grDevices::png(..., width = width, height = height, res = 300, units = "in")`
`174`		`- ggsave(file, plot = pca.plot(), device = device)`
	`174`	`+ ggsave(file, plot = line.plot(), device = device)`
`175`	`175`	`}`
`176`	`176`	`)`
`177`	`177`