diff --git a/DESCRIPTION b/DESCRIPTION index e200cc1..f02bd9e 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -16,7 +16,7 @@ LazyData: true Imports: shiny, data.table, ggplot2, - plotly, + plotly (> 4.8.0), scales, shinydashboard, DT (>= 0.3), diff --git a/R/function.R b/R/function.R index 10b16c3..6648f67 100644 --- a/R/function.R +++ b/R/function.R @@ -1246,8 +1246,8 @@ download <- function(file, filename, plot, width, height, ppi = 72, save_plot = wd <- getwd() on.exit(setwd(wd)) # make sure working directory will be restored setwd(tempdir()) - plotly::export(p = plot, file = plot_file_pdf) - plotly::export(p = plot, file = plot_file_png) + plotly::orca(p = plot, file = plot_file_pdf) + plotly::orca(p = plot, file = plot_file_png) setwd(wd) } else if (class(plot) == "Heatmap") { # TODO: find better way to check for complexHeatmap object # complexHeatmap