From bb866d6125869013cfb03b02c79633276087d441 Mon Sep 17 00:00:00 2001
From: Andreas Gammelgaard Damsbo <andreas@gdamsbo.dk>
Date: Thu, 8 May 2025 10:12:49 +0200
Subject: [PATCH] a little ui spacing

---
 inst/apps/FreesearchR/app.R | 16 +++++++++++-----
 1 file changed, 11 insertions(+), 5 deletions(-)

diff --git a/inst/apps/FreesearchR/app.R b/inst/apps/FreesearchR/app.R
index 5951a04..5e7a78c 100644
--- a/inst/apps/FreesearchR/app.R
+++ b/inst/apps/FreesearchR/app.R
@@ -10,7 +10,7 @@
 #### Current file: /Users/au301842/FreesearchR/R//app_version.R 
 ########
 
-app_version <- function()'25.5.1'
+app_version <- function()'25.5.2'
 
 
 ########
@@ -1969,7 +1969,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]]
 
           }
@@ -1995,7 +1997,6 @@ data_visuals_server <- function(id,
   )
 }
 
-
 #' Select all from vector but
 #'
 #' @param data vector
@@ -3954,7 +3955,7 @@ is_identical_to_previous <- function(data, no.name = TRUE) {
 #### Current file: /Users/au301842/FreesearchR/R//hosted_version.R 
 ########
 
-hosted_version <- function()'v25.5.1-250507'
+hosted_version <- function()'v25.5.2-250508'
 
 
 ########
@@ -9397,7 +9398,12 @@ ui_elements <- list(
           fluidRow(
             shiny::column(
               width = 9,
-              data_summary_ui(id = "data_summary")
+              data_summary_ui(id = "data_summary"),
+              shiny::br(),
+              shiny::br(),
+              shiny::br(),
+              shiny::br(),
+              shiny::br()
             ),
             shiny::column(
               width = 3,