mirror of
https://github.com/agdamsbo/FreesearchR.git
synced 2025-09-12 18:09: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) {
|
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
|
||||||
|
|
Loading…
Add table
Reference in a new issue