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

include regression p-value by default

Browse source
This commit is contained in:
Andreas Gammelgaard Damsbo 2025-01-24 11:26:14 +01:00
parent e0ce910393
commit b47a8bb1c0
No known key found for this signature in database
3 changed files with 8 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
inst/apps/data_analysis_modules/app.R
View file

@ -2470,7 +2470,7 @@ regression_table_create <- function(x, ..., args.list = NULL, fun = "gtsummary::
if (any(c(length(class(x)) != 1, class(x) != "lm"))) { if (any(c(length(class(x)) != 1, class(x) != "lm"))) {
if (!"exponentiate" %in% names(args.list)) { if (!"exponentiate" %in% names(args.list)) {
args.list <- c(args.list, list(exponentiate = TRUE)) args.list <- c(args.list, list(exponentiate = TRUE, p.values = TRUE))
} }
} }
@ -4078,7 +4078,9 @@ server <- function(input, output, session) {
############################################################################## ##############################################################################
shiny::observeEvent(rv$data_original, { shiny::observeEvent(rv$data_original, {
rv$data <- rv$data_original |> default_parsing() rv$data <- rv$data_original |>
default_parsing() |>
janitor::clean_names()
}) })
shiny::observeEvent(input$data_reset, { shiny::observeEvent(input$data_reset, {
@ -4459,8 +4461,8 @@ server <- function(input, output, session) {
} }
})() })()
gtsummary::as_kable(rv$list$table1) |> # gtsummary::as_kable(rv$list$table1) |>
readr::write_lines(file="./www/_table1.md") # readr::write_lines(file="./www/_table1.md")
} }
) )

2
inst/apps/data_analysis_modules/rsconnect/shinyapps.io/agdamsbo/freesearcheR.dcf
View file

@ -5,6 +5,6 @@ account: agdamsbo
server: shinyapps.io server: shinyapps.io
hostUrl: https://api.shinyapps.io/v1 hostUrl: https://api.shinyapps.io/v1
appId: 13611288 appId: 13611288
bundleId: 9687629 bundleId: 9693816
url: https://agdamsbo.shinyapps.io/freesearcheR/ url: https://agdamsbo.shinyapps.io/freesearcheR/
version: 1 version: 1

2
inst/apps/data_analysis_modules/ui.R
View file

@ -351,7 +351,7 @@ ui_elements <- list(
inputId = "add_regression_p", inputId = "add_regression_p",
label = "Add p-value", label = "Add p-value",
inline = TRUE, inline = TRUE,
selected = "no", selected = "yes",
choices = list( choices = list(
"Yes" = "yes", "Yes" = "yes",
"No" = "no" "No" = "no"