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

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(
selector = ns("connect"),
status = "success",
make_success_alert(
include_data_alert(
dataIdName = "see_data",
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
@ -306,7 +306,7 @@ m_redcap_readServer <- function(id) {
#' @importFrom htmltools tagList tags
#' @importFrom shiny icon getDefaultReactiveDomain
make_success_alert <- function(dataIdName = "see_data",
include_data_alert <- function(dataIdName = "see_data",
btn_show_data,
see_data_text = "Click to see data",
extra = NULL,

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

@ -10,7 +10,7 @@
#### 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(
selector = ns("connect"),
status = "success",
make_success_alert(
include_data_alert(
dataIdName = "see_data",
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
@ -2650,7 +2650,7 @@ m_redcap_readServer <- function(id) {
#' @importFrom htmltools tagList tags
#' @importFrom shiny icon getDefaultReactiveDomain
make_success_alert <- function(dataIdName = "see_data",
include_data_alert <- function(dataIdName = "see_data",
btn_show_data,
see_data_text = "Click to see data",
extra = NULL,
@ -5063,7 +5063,7 @@ ui_elements <- list(
label = NULL,
min = 0,
max = 100,
step = 10,
step = 5,
value = 70,
format = shinyWidgets::wNumbFormat(decimals = 0),
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
hostUrl: https://api.shinyapps.io/v1
appId: 13611288
bundleId: 9861005
bundleId: 9864963
url: https://agdamsbo.shinyapps.io/freesearcheR/
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}**")))
})
# 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(
{
# shiny::req(rv$list$regression$plot)