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

regression module reactively hides/shows p-values

Browse source
This commit is contained in:
Andreas Gammelgaard Damsbo 2025-05-13 08:16:10 +02:00
commit 07797b2adf
No known key found for this signature in database
5 changed files with 45 additions and 28 deletions
Download patch file Download diff file Expand all files Collapse all files

24
R/regression-module.R
View file

@ -486,7 +486,7 @@ regression_server <- function(id,
tryCatch(
{
parameters <- list(
add_p = input$add_regression_p == "no"
p.values = input$add_regression_p == "no"
)
out <- lapply(rv$list$regression$models, \(.x){
@ -499,16 +499,6 @@ regression_server <- function(id,
)
})
# if (input$add_regression_p == "no") {
# out <- out |>
# lapply(\(.x){
# .x |>
# gtsummary::modify_column_hide(
# column = "p.value"
# )
# })
# }
rv$list$regression$models |>
purrr::imap(\(.x, .i){
rv$list$regression$models[[.i]][["code_table"]] <- paste(
@ -532,11 +522,19 @@ regression_server <- function(id,
}
)
output$table2 <- gt::render_gt({
## Print checks if a regression table is present
if (!is.null(rv$list$regression$tables)) {
rv$list$regression$tables |>
tbl_merge() |>
out <- rv$list$regression$tables |>
tbl_merge()
if (input$add_regression_p == "no") {
out <- out |>
gtsummary::modify_column_hide(column = dplyr::starts_with("p.value"))
}
out |>
gtsummary::as_gt() |>
gt::tab_header(gt::md(glue::glue("**Table 2: {rv$list$regression$params$descr}**")))
} else {