REDCapCAST/R/shiny_cast.R

#' Shiny server factory
#'
#' @return shiny server
#' @export
server_factory <- function() {
  source(here::here("app/server.R"))
  server
}

#' UI factory for shiny app
#'
#' @return shiny ui
#' @export
ui_factory <- function() {
  # require(ggplot2)
source(here::here("app/ui.R"))

}

#' Launch the included Shiny-app for database casting and upload
#'
#' @return shiny app
#' @export
#'
#' @examples
#' # shiny_cast()
#'
shiny_cast <- function() {
  # shiny::runApp(appDir = here::here("app/"), launch.browser = TRUE)

  shiny::shinyApp(
    ui_factory(),
    server_factory()
  )
}

#' Deploy the Shiny app with rsconnect
#'
#' @return deploy
#' @export
#'
#' @examples
#' # deploy_shiny
#'
deploy_shiny <- function(path=here::here("app/"), name.app="shiny_cast"){
  # Ensure to install latest package version
  renv::install("agdamsbo/REDCapCAST")

  # Connecting
  rsconnect::setAccountInfo(
    name = "cognitiveindex",
    token = keyring::key_get(service = "rsconnect_cognitiveindex_token"),
    secret = keyring::key_get(service = "rsconnect_cognitiveindex_secret")
  )

  # Deploying
  rsconnect::deployApp(appDir = path,lint = TRUE,appName = name.app,)
}