From ab22a3a7e5a14f70bba95bb674378b73813e1eef Mon Sep 17 00:00:00 2001
From: Andreas Gammelgaard Damsbo <andreas@gdamsbo.dk>
Date: Thu, 8 May 2025 10:12:36 +0200
Subject: [PATCH] bug on plot export

---
 R/data_plots.R | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/R/data_plots.R b/R/data_plots.R
index 9ccdd98..8401bf8 100644
--- a/R/data_plots.R
+++ b/R/data_plots.R
@@ -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