andreas/FreesearchR
1
0
Fork 0
mirror of https://github.com/agdamsbo/FreesearchR.git synced 2026-06-19 12:37:30 +02:00
Code Issues Projects Releases Packages Wiki Activity

translations

Browse source
This commit is contained in:
Andreas Gammelgaard Damsbo 2025-09-23 12:24:43 +02:00
commit f957923514
No known key found for this signature in database
6 changed files with 94 additions and 39 deletions
Download patch file Download diff file Expand all files Collapse all files

12
R/data_plots.R
View file

@ -15,9 +15,11 @@ data_visuals_ui <- function(id, tab_title = "Plots", ...) {
bslib::layout_sidebar(
sidebar = bslib::sidebar(
bslib::accordion(
id = "acc_plot",
multiple = FALSE,
bslib::accordion_panel(
title = "Creating plot",
value = "acc_pan_plot",
title = "Create plot",
icon = bsicons::bs_icon("graph-up"),
shiny::uiOutput(outputId = ns("primary")),
shiny::helpText(i18n$t('Only non-text variables are available for plotting. Go the "Data" to reclass data to plot.')),
@ -36,6 +38,7 @@ data_visuals_ui <- function(id, tab_title = "Plots", ...) {
shiny::helpText(i18n$t('Adjust settings, then press "Plot".'))
),
bslib::accordion_panel(
value = "acc_pan_download",
title = "Download",
icon = bsicons::bs_icon("download"),
shinyWidgets::noUiSliderInput(
@ -125,6 +128,11 @@ data_visuals_server <- function(id,
code = NULL
)
shiny::observe({
bslib::accordion_panel_update(id = "acc_plot", target = "acc_pan_plot",title = i18n$t("Create plot"))
bslib::accordion_panel_update(id = "acc_plot", target = "acc_pan_download",title = i18n$t("Download"))
})
# ## --- New attempt
#
# rv$plot.params <- shiny::reactive({
@ -407,7 +415,7 @@ data_visuals_server <- function(id,
plot <- rv$plot[[1]]
}
# browser()
shiny::withProgress(message = i18n$t("Drawing the plot. Hold on for a moment.."), {
shiny::withProgress(message = i18n$t("Drawing the plot. Hold tight for a moment.."), {
ggplot2::ggsave(
filename = file,
plot = plot,