andreas/FreesearchR
1
0
Fork 0
mirror of https://github.com/agdamsbo/FreesearchR.git synced 2026-06-19 04:27: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

21
R/regression-module.R
View file

@ -51,10 +51,11 @@ regression_ui <- function(id, ...) {
sidebar = bslib::sidebar(
shiny::uiOutput(outputId = ns("data_info"), inline = TRUE),
bslib::accordion(
id = "acc_reg",
open = "acc_reg",
multiple = FALSE,
bslib::accordion_panel(
value = "acc_reg",
value = "acc_pan_reg",
title = "Regression",
icon = bsicons::bs_icon("calculator"),
shiny::uiOutput(outputId = ns("outcome_var")),
@ -133,14 +134,15 @@ regression_ui <- function(id, ...) {
bslib::layout_sidebar(
sidebar = bslib::sidebar(
bslib::accordion(
open = "acc_reg",
id = "acc_coef_plot",
open = "acc_pan_coef_plot",
multiple = FALSE,
do.call(
bslib::accordion_panel,
c(
list(
value = "acc_plot",
title = "Coefficient plot",
value = "acc_pan_coef_plot",
title = "Coefficients plot",
icon = bsicons::bs_icon("bar-chart-steps"),
shiny::tags$br(),
shiny::uiOutput(outputId = ns("plot_model"))
@ -199,10 +201,11 @@ regression_ui <- function(id, ...) {
bslib::layout_sidebar(
sidebar = bslib::sidebar(
bslib::accordion(
open = "acc_reg",
id = "acc_checks",
open = "acc_pan_checks",
multiple = FALSE,
bslib::accordion_panel(
value = "acc_checks",
value = "acc_pan_checks",
title = "Checks",
icon = bsicons::bs_icon("clipboard-check"),
shiny::uiOutput(outputId = ns("plot_checks"))
@ -239,6 +242,12 @@ regression_server <- function(id,
}
})
shiny::observe({
bslib::accordion_panel_update(id = "acc_reg", target = "acc_pan_reg", title = i18n$t("Regression"))
bslib::accordion_panel_update(id = "acc_coef_plot", target = "acc_pan_coef_plot", title = i18n$t("Coefficients plot"))
bslib::accordion_panel_update(id = "acc_checks", target = "acc_pan_checks", title = i18n$t("Checks"))
})
output$data_info <- shiny::renderUI({
shiny::req(regression_vars())
shiny::req(data_r())