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

connects with progres

Browse source
This commit is contained in:
Andreas Gammelgaard Damsbo 2025-05-05 14:44:18 +02:00
parent 1204487836
commit 0a0d69312a
No known key found for this signature in database
1 changed files with 8 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
R/redcap_read_shiny_module.R
View file

@ -112,7 +112,7 @@ m_redcap_readUI <- function(id, title = TRUE, url = NULL) {
tags$p(phosphoricons::ph("info", weight = "bold"), "Please specify data to download, then press 'Import'.") tags$p(phosphoricons::ph("info", weight = "bold"), "Please specify data to download, then press 'Import'.")
), ),
dismissible = TRUE dismissible = TRUE
)#, ) # ,
## TODO: Use busy indicator like on download to have button activate/deactivate ## TODO: Use busy indicator like on download to have button activate/deactivate
# bslib::input_task_button( # bslib::input_task_button(
# id = ns("data_import"), # id = ns("data_import"),
@ -200,7 +200,9 @@ m_redcap_readServer <- function(id) {
) )
# browser() # browser()
imported <- try(rlang::exec(REDCapR::redcap_metadata_read, !!!parameters), silent = TRUE) shiny::withProgress({
imported <- try(rlang::exec(REDCapR::redcap_metadata_read, !!!parameters), silent = TRUE)
},message = paste("Connecting to",data_rv$uri))
## TODO: Simplify error messages ## TODO: Simplify error messages
if (inherits(imported, "try-error") || NROW(imported) < 1 || ifelse(is.list(imported), !isTRUE(imported$success), FALSE)) { if (inherits(imported, "try-error") || NROW(imported) < 1 || ifelse(is.list(imported), !isTRUE(imported$success), FALSE)) {
@ -227,8 +229,10 @@ m_redcap_readServer <- function(id) {
include_data_alert( include_data_alert(
see_data_text = "Click to see data dictionary", see_data_text = "Click to see data dictionary",
dataIdName = "see_data", dataIdName = "see_data",
extra = tags$p(tags$b(phosphoricons::ph("check", weight = "bold"), "Connected to server!"), extra = tags$p(
glue::glue("The {data_rv$info$project_title} project is loaded.")), tags$b(phosphoricons::ph("check", weight = "bold"), "Connected to server!"),
glue::glue("The {data_rv$info$project_title} project is loaded.")
),
btn_show_data = TRUE btn_show_data = TRUE
) )
) )