andreas/FreesearchR
1
0
Fork 0
mirror of https://github.com/agdamsbo/FreesearchR.git synced 2026-06-19 12:37:30 +02:00
Code Issues Projects Releases Packages Wiki Activity

updated docs
Some checks failed
pkgdown.yaml / pkgdown (push) Has been cancelled
Details

Browse source
This commit is contained in:
Andreas Gammelgaard Damsbo 2025-03-31 14:37:28 +02:00
commit f73af16ae1
No known key found for this signature in database
10 changed files with 69 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

23
inst/apps/FreesearchR/app.R
View file

@ -10,7 +10,7 @@
#### Current file: R//app_version.R
########
app_version <- function()'250326_1206'
app_version <- function()'250331_1248'
########
@ -289,6 +289,15 @@ sentence_paste <- function(data, and.str = "and") {
}
#' Correlations plot demo app
#'
#' @returns
#' @export
#'
#' @examples
#' \dontrun{
#' cor_demo_app()
#' }
cor_demo_app <- function() {
ui <- shiny::fluidPage(
shiny::sliderInput(
@ -308,7 +317,6 @@ cor_demo_app <- function() {
shiny::shinyApp(ui, server)
}
cor_demo_app()
########
@ -5417,7 +5425,7 @@ merge_long <- function(list, model.names) {
setNames(d, gsub("_[0-9]{,}$", "", names(d)))
}) |>
dplyr::bind_rows() |>
dplyr::mutate(model = as_factor(model))
dplyr::mutate(model = REDCapCAST::as_factor(model))
l_merged$table_body <- df_body_long
@ -5781,8 +5789,7 @@ gg_theme_shiny <- function(){
legend.title = ggplot2::element_text(size = 18),
legend.text = ggplot2::element_text(size = 14),
plot.title = ggplot2::element_text(size = 24),
plot.subtitle = ggplot2::element_text(size = 18),
legend.position = "none"
plot.subtitle = ggplot2::element_text(size = 18)
)
}
@ -8541,9 +8548,9 @@ server <- function(input, output, session) {
alt = "Regression coefficient plot"
)
shiny::conditionalPanel(
condition = "output.uploaded == 'yes'",
)
# shiny::conditionalPanel(
# condition = "output.uploaded == 'yes'",
# )
##############################################################################
#########

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

6
inst/apps/FreesearchR/server.R
View file

@ -844,9 +844,9 @@ server <- function(input, output, session) {
alt = "Regression coefficient plot"
)
shiny::conditionalPanel(
condition = "output.uploaded == 'yes'",
)
# shiny::conditionalPanel(
# condition = "output.uploaded == 'yes'",
# )
##############################################################################
#########