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

tuning completeness filter

Browse source
This commit is contained in:
Andreas Gammelgaard Damsbo 2025-01-20 12:51:51 +01:00
parent 27175d9655
commit 96227d5006
No known key found for this signature in database
5 changed files with 53 additions and 13 deletions
Show stats 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",

34
renv.lock
View file

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