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