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

minor fixes

Browse source
This commit is contained in:
Andreas Gammelgaard Damsbo 2025-03-03 08:44:46 +01:00
parent 984f383171
commit e5b702a183
No known key found for this signature in database
5 changed files with 8 additions and 35 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
R/app_version.R
View file

@ -1 +1 @@
app_version <- function()'250227_1333' app_version <- function()'250227_1342'

4
R/redcap_read_shiny_module.R
View file

@ -187,7 +187,7 @@ m_redcap_readServer <- function(id) {
datamods:::insert_alert( datamods:::insert_alert(
selector = ns("connect"), selector = ns("connect"),
status = "success", status = "success",
make_success_alert( include_data_alert(
dataIdName = "see_data", dataIdName = "see_data",
extra = tags$p(tags$b(phosphoricons::ph("check", weight = "bold"), "Connected to server!"), tags$p(paste0(data_rv$project_name, " loaded."))), extra = tags$p(tags$b(phosphoricons::ph("check", weight = "bold"), "Connected to server!"), tags$p(paste0(data_rv$project_name, " loaded."))),
btn_show_data = TRUE btn_show_data = TRUE
@ -306,7 +306,7 @@ m_redcap_readServer <- function(id) {
#' @importFrom htmltools tagList tags #' @importFrom htmltools tagList tags
#' @importFrom shiny icon getDefaultReactiveDomain #' @importFrom shiny icon getDefaultReactiveDomain
make_success_alert <- function(dataIdName = "see_data", include_data_alert <- function(dataIdName = "see_data",
btn_show_data, btn_show_data,
see_data_text = "Click to see data", see_data_text = "Click to see data",
extra = NULL, extra = NULL,

8
inst/apps/freesearcheR/app.R
View file

@ -10,7 +10,7 @@
#### Current file: R//app_version.R #### Current file: R//app_version.R
######## ########
app_version <- function()'250227_1333' app_version <- function()'250227_1342'
######## ########
@ -2531,7 +2531,7 @@ m_redcap_readServer <- function(id) {
datamods:::insert_alert( datamods:::insert_alert(
selector = ns("connect"), selector = ns("connect"),
status = "success", status = "success",
make_success_alert( include_data_alert(
dataIdName = "see_data", dataIdName = "see_data",
extra = tags$p(tags$b(phosphoricons::ph("check", weight = "bold"), "Connected to server!"), tags$p(paste0(data_rv$project_name, " loaded."))), extra = tags$p(tags$b(phosphoricons::ph("check", weight = "bold"), "Connected to server!"), tags$p(paste0(data_rv$project_name, " loaded."))),
btn_show_data = TRUE btn_show_data = TRUE
@ -2650,7 +2650,7 @@ m_redcap_readServer <- function(id) {
#' @importFrom htmltools tagList tags #' @importFrom htmltools tagList tags
#' @importFrom shiny icon getDefaultReactiveDomain #' @importFrom shiny icon getDefaultReactiveDomain
make_success_alert <- function(dataIdName = "see_data", include_data_alert <- function(dataIdName = "see_data",
btn_show_data, btn_show_data,
see_data_text = "Click to see data", see_data_text = "Click to see data",
extra = NULL, extra = NULL,
@ -5063,7 +5063,7 @@ ui_elements <- list(
label = NULL, label = NULL,
min = 0, min = 0,
max = 100, max = 100,
step = 10, step = 5,
value = 70, value = 70,
format = shinyWidgets::wNumbFormat(decimals = 0), format = shinyWidgets::wNumbFormat(decimals = 0),
color = datamods:::get_primary_color() color = datamods:::get_primary_color()

2
inst/apps/freesearcheR/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: 9861005 bundleId: 9864963
url: https://agdamsbo.shinyapps.io/freesearcheR/ url: https://agdamsbo.shinyapps.io/freesearcheR/
version: 1 version: 1

27
inst/apps/freesearcheR/server.R
View file

@ -821,33 +821,6 @@ server <- function(input, output, session) {
gt::tab_header(gt::md(glue::glue("**Table 2: {rv$list$regression$params$descr}**"))) gt::tab_header(gt::md(glue::glue("**Table 2: {rv$list$regression$params$descr}**")))
}) })
# shiny::observe(
# # list(
# # input$plot_model
# # ),
# {
# shiny::req(rv$list$regression$tables)
# shiny::req(input$plot_model)
# tryCatch(
# {
# out <- merge_long(rv$list$regression, input$plot_model) |>
# plot.tbl_regression(
# colour = "variable",
# facet_col = "model"
# )
#
# rv$list$regression$plot <- out
# },
# warning = function(warn) {
# showNotification(paste0(warn), type = "warning")
# },
# error = function(err) {
# showNotification(paste0("Plotting failed with the following error: ", err), type = "err")
# }
# )
# }
# )
output$regression_plot <- shiny::renderPlot( output$regression_plot <- shiny::renderPlot(
{ {
# shiny::req(rv$list$regression$plot) # shiny::req(rv$list$regression$plot)