mirror of
https://github.com/agdamsbo/REDCapCAST.git
synced 2024-10-30 03:21:53 +01:00
59 lines
1.1 KiB
R
59 lines
1.1 KiB
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,)
|
|
}
|