mirror of
https://github.com/agdamsbo/FreesearchR.git
synced 2025-09-12 01:49:39 +02:00
bug on plot export
This commit is contained in:
parent
93dabe4f1d
commit
ab22a3a7e5
1 changed files with 3 additions and 2 deletions
|
@ -395,6 +395,8 @@ data_visuals_server <- function(id,
|
|||
content = function(file) {
|
||||
if (inherits(rv$plot,"patchwork")){
|
||||
plot <- rv$plot
|
||||
} 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
|
||||
|
|
Loading…
Add table
Reference in a new issue