a little ui spacing

This commit is contained in:
Andreas Gammelgaard Damsbo 2025-05-08 10:12:49 +02:00
parent ab22a3a7e5
commit bb866d6125
No known key found for this signature in database

View file

@ -10,7 +10,7 @@
#### Current file: /Users/au301842/FreesearchR/R//app_version.R #### Current file: /Users/au301842/FreesearchR/R//app_version.R
######## ########
app_version <- function()'25.5.1' app_version <- function()'25.5.2'
######## ########
@ -1969,6 +1969,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]]
@ -1995,7 +1997,6 @@ data_visuals_server <- function(id,
) )
} }
#' Select all from vector but #' Select all from vector but
#' #'
#' @param data vector #' @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 #### 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( fluidRow(
shiny::column( shiny::column(
width = 9, 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( shiny::column(
width = 3, width = 3,