andreas/FreesearchR
1
0
Fork 0
mirror of https://github.com/agdamsbo/FreesearchR.git synced 2025-09-12 18:09:39 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

prepared for better dimensions input

Browse source
This commit is contained in:
Andreas Gammelgaard Damsbo 2025-05-05 14:43:41 +02:00
parent ee4ecb1a94
commit 0b8102d25f
No known key found for this signature in database
1 changed files with 29 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

35
R/data_plots.R
View file

@ -45,15 +45,23 @@ data_visuals_ui <- function(id, tab_title = "Plots", ...) {
title = "Download", title = "Download",
icon = bsicons::bs_icon("download"), icon = bsicons::bs_icon("download"),
shinyWidgets::noUiSliderInput( shinyWidgets::noUiSliderInput(
inputId = ns("height"), inputId = ns("height_slide"),
label = "Plot height (mm)", label = "Plot height (mm)",
min = 50, min = 50,
max = 300, max = 300,
value = 100, value = 100,
step = 1, step = 1,
format = shinyWidgets::wNumbFormat(decimals = 0), format = shinyWidgets::wNumbFormat(decimals = 0),
color = datamods:::get_primary_color() color = datamods:::get_primary_color(),
inline = TRUE
), ),
# shiny::numericInput(
# inputId = ns("height_numeric"),
# label = "Plot height (mm)",
# min = 50,
# max = 300,
# value = 100
# ),
shinyWidgets::noUiSliderInput( shinyWidgets::noUiSliderInput(
inputId = ns("width"), inputId = ns("width"),
label = "Plot width (mm)", label = "Plot width (mm)",
@ -372,17 +380,32 @@ data_visuals_server <- function(id,
} }
}) })
# shiny::observeEvent(input$height_numeric, {
# shinyWidgets::updateNoUiSliderInput(session, ns("height_slide"), value = input$height_numeric)
# }, ignoreInit = TRUE)
# shiny::observeEvent(input$height_slide, {
# shiny::updateNumericInput(session, ns("height_numeric"), value = input$height_slide)
# }, ignoreInit = TRUE)
output$download_plot <- shiny::downloadHandler( output$download_plot <- shiny::downloadHandler(
filename = shiny::reactive({ filename = shiny::reactive({
paste0("plot.", input$plot_type) paste0("plot.", input$plot_type)
}), }),
content = function(file) { content = function(file) {
if (inherits(rv$plot,"patchwork")){
plot <- rv$plot
} else {
plot <- rv$plot[[1]]
}
# browser()
shiny::withProgress(message = "Drawing the plot. Hold on for a moment..", { shiny::withProgress(message = "Drawing the plot. Hold on for a moment..", {
ggplot2::ggsave( ggplot2::ggsave(
filename = file, filename = file,
plot = rv$plot, plot = plot,
width = input$width, width = input$width,
height = input$height, height = input$height_slide,
dpi = 300, dpi = 300,
units = "mm", scale = 2 units = "mm", scale = 2
) )
@ -517,8 +540,8 @@ supported_plots <- function() {
fun = "plot_euler", fun = "plot_euler",
descr = "Euler diagram", descr = "Euler diagram",
note = "Generate area-proportional Euler diagrams to display set relationships", note = "Generate area-proportional Euler diagrams to display set relationships",
primary.type = "dichotomous", primary.type = c("dichotomous", "categorical"),
secondary.type = "dichotomous", secondary.type = c("dichotomous", "categorical"),
secondary.multi = TRUE, secondary.multi = TRUE,
secondary.max = 4, secondary.max = 4,
tertiary.type = c("dichotomous", "categorical"), tertiary.type = c("dichotomous", "categorical"),