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

tuning completeness filter

Browse source
This commit is contained in:
Andreas Gammelgaard Damsbo 2025-01-20 12:51:51 +01:00
commit 96227d5006
No known key found for this signature in database
5 changed files with 53 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -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)
}
)

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

@ -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

4
inst/apps/data_analysis_modules/server.R
View file

@ -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)
}
)

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

@ -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",