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