diff --git a/inst/apps/data_analysis_modules/app.R b/inst/apps/data_analysis_modules/app.R index 345b4d8..c8b1700 100644 --- a/inst/apps/data_analysis_modules/app.R +++ b/inst/apps/data_analysis_modules/app.R @@ -3621,12 +3621,13 @@ ui_elements <- list( # fillable = TRUE, sidebar = bslib::sidebar( shiny::sliderInput(inputId = "complete_cutoff", - label = "Cut-off for column completeness", + label = "Cut-off for column completeness (%)", min = 0, - max = 1, - step = 0.1, - value = 0.5), - shiny::helpText("To improve speed, columns are removed before analysing data"), + max = 100, + step = 10, + value = 50, + ticks = FALSE), + shiny::helpText("To improve speed, columns are removed before analysing data, if copleteness is below above value."), shiny::radioButtons( inputId = "all", label = "Specify covariables", @@ -4152,7 +4153,9 @@ server <- function(input, output, session) { (\(.x){ .x[base_vars()] })() |> - janitor::remove_empty(which = "cols",cutoff = input$complete_cutoff) + janitor::remove_empty( + which = "cols", + cutoff = input$complete_cutoff/100) } ) diff --git a/inst/apps/data_analysis_modules/rsconnect/shinyapps.io/agdamsbo/freesearcheR.dcf b/inst/apps/data_analysis_modules/rsconnect/shinyapps.io/agdamsbo/freesearcheR.dcf index 0cf0126..c0774e0 100644 --- a/inst/apps/data_analysis_modules/rsconnect/shinyapps.io/agdamsbo/freesearcheR.dcf +++ b/inst/apps/data_analysis_modules/rsconnect/shinyapps.io/agdamsbo/freesearcheR.dcf @@ -5,6 +5,6 @@ account: agdamsbo server: shinyapps.io hostUrl: https://api.shinyapps.io/v1 appId: 13611288 -bundleId: 9672132 +bundleId: 9672388 url: https://agdamsbo.shinyapps.io/freesearcheR/ version: 1 diff --git a/inst/apps/data_analysis_modules/server.R b/inst/apps/data_analysis_modules/server.R index 9f4cefe..7324980 100644 --- a/inst/apps/data_analysis_modules/server.R +++ b/inst/apps/data_analysis_modules/server.R @@ -288,7 +288,9 @@ server <- function(input, output, session) { (\(.x){ .x[base_vars()] })() |> - janitor::remove_empty(which = "cols",cutoff = input$complete_cutoff) + janitor::remove_empty( + which = "cols", + cutoff = input$complete_cutoff/100) } ) diff --git a/inst/apps/data_analysis_modules/ui.R b/inst/apps/data_analysis_modules/ui.R index 7badd02..a22021f 100644 --- a/inst/apps/data_analysis_modules/ui.R +++ b/inst/apps/data_analysis_modules/ui.R @@ -279,12 +279,13 @@ ui_elements <- list( # fillable = TRUE, sidebar = bslib::sidebar( shiny::sliderInput(inputId = "complete_cutoff", - label = "Cut-off for column completeness", + label = "Cut-off for column completeness (%)", min = 0, - max = 1, - step = 0.1, - value = 0.5), - shiny::helpText("To improve speed, columns are removed before analysing data"), + max = 100, + step = 10, + value = 70, + ticks = FALSE), + shiny::helpText("To improve speed, columns are removed before analysing data, if copleteness is below above value."), shiny::radioButtons( inputId = "all", label = "Specify covariables", diff --git a/renv.lock b/renv.lock index 553b150..52263e5 100644 --- a/renv.lock +++ b/renv.lock @@ -1690,6 +1690,28 @@ ], "Hash": "8954069286b4b2b0d023d1b288dce978" }, + "janitor": { + "Package": "janitor", + "Version": "2.2.1", + "Source": "Repository", + "Repository": "CRAN", + "Requirements": [ + "R", + "dplyr", + "hms", + "lifecycle", + "lubridate", + "magrittr", + "purrr", + "rlang", + "snakecase", + "stringi", + "stringr", + "tidyr", + "tidyselect" + ], + "Hash": "64f308bf1fbf5f856cdf4b4c7c0ce51b" + }, "jquerylib": { "Package": "jquerylib", "Version": "0.1.4", @@ -2977,6 +2999,18 @@ ], "Hash": "fe6e75a1c1722b2d23cb4d4dbe1006df" }, + "snakecase": { + "Package": "snakecase", + "Version": "0.11.1", + "Source": "Repository", + "Repository": "CRAN", + "Requirements": [ + "R", + "stringi", + "stringr" + ], + "Hash": "58767e44739b76965332e8a4fe3f91f1" + }, "sodium": { "Package": "sodium", "Version": "1.4.0",