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, # fillable = TRUE,
sidebar = bslib::sidebar( sidebar = bslib::sidebar(
shiny::sliderInput(inputId = "complete_cutoff", shiny::sliderInput(inputId = "complete_cutoff",
label = "Cut-off for column completeness", label = "Cut-off for column completeness (%)",
min = 0, min = 0,
max = 1, max = 100,
step = 0.1, step = 10,
value = 0.5), value = 50,
shiny::helpText("To improve speed, columns are removed before analysing data"), ticks = FALSE),
shiny::helpText("To improve speed, columns are removed before analysing data, if copleteness is below above value."),
shiny::radioButtons( shiny::radioButtons(
inputId = "all", inputId = "all",
label = "Specify covariables", label = "Specify covariables",
@ -4152,7 +4153,9 @@ server <- function(input, output, session) {
(\(.x){ (\(.x){
.x[base_vars()] .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 server: shinyapps.io
hostUrl: https://api.shinyapps.io/v1 hostUrl: https://api.shinyapps.io/v1
appId: 13611288 appId: 13611288
bundleId: 9672132 bundleId: 9672388
url: https://agdamsbo.shinyapps.io/freesearcheR/ url: https://agdamsbo.shinyapps.io/freesearcheR/
version: 1 version: 1

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

@ -288,7 +288,9 @@ server <- function(input, output, session) {
(\(.x){ (\(.x){
.x[base_vars()] .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, # fillable = TRUE,
sidebar = bslib::sidebar( sidebar = bslib::sidebar(
shiny::sliderInput(inputId = "complete_cutoff", shiny::sliderInput(inputId = "complete_cutoff",
label = "Cut-off for column completeness", label = "Cut-off for column completeness (%)",
min = 0, min = 0,
max = 1, max = 100,
step = 0.1, step = 10,
value = 0.5), value = 70,
shiny::helpText("To improve speed, columns are removed before analysing data"), ticks = FALSE),
shiny::helpText("To improve speed, columns are removed before analysing data, if copleteness is below above value."),
shiny::radioButtons( shiny::radioButtons(
inputId = "all", inputId = "all",
label = "Specify covariables", label = "Specify covariables",

34
renv.lock
View file

@ -1690,6 +1690,28 @@
], ],
"Hash": "8954069286b4b2b0d023d1b288dce978" "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": { "jquerylib": {
"Package": "jquerylib", "Package": "jquerylib",
"Version": "0.1.4", "Version": "0.1.4",
@ -2977,6 +2999,18 @@
], ],
"Hash": "fe6e75a1c1722b2d23cb4d4dbe1006df" "Hash": "fe6e75a1c1722b2d23cb4d4dbe1006df"
}, },
"snakecase": {
"Package": "snakecase",
"Version": "0.11.1",
"Source": "Repository",
"Repository": "CRAN",
"Requirements": [
"R",
"stringi",
"stringr"
],
"Hash": "58767e44739b76965332e8a4fe3f91f1"
},
"sodium": { "sodium": {
"Package": "sodium", "Package": "sodium",
"Version": "1.4.0", "Version": "1.4.0",