bug on plot export

This commit is contained in:
Andreas Gammelgaard Damsbo 2025-05-08 10:12:36 +02:00
parent 93dabe4f1d
commit ab22a3a7e5
No known key found for this signature in database

View file

@ -395,6 +395,8 @@ data_visuals_server <- function(id,
content = function(file) { content = function(file) {
if (inherits(rv$plot,"patchwork")){ if (inherits(rv$plot,"patchwork")){
plot <- rv$plot plot <- rv$plot
} else if (inherits(rv$plot,"ggplot")){
plot <- rv$plot
}else { }else {
plot <- rv$plot[[1]] plot <- rv$plot[[1]]
@ -421,7 +423,6 @@ data_visuals_server <- function(id,
) )
} }
#' Select all from vector but #' Select all from vector but
#' #'
#' @param data vector #' @param data vector