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

updated shiny app

Browse source
This commit is contained in:
Andreas Gammelgaard Damsbo 2024-03-14 09:26:22 +01:00
commit f787621f1b
6 changed files with 169 additions and 86 deletions
Download patch file Download diff file Expand all files Collapse all files

21
R/shiny_cast.R
View file

@ -34,23 +34,32 @@ shiny_cast <- function() {
)
}
#' Deploy the Shiny app with rsconnect
#' Deploy the Shiny app with rsconnect to shinyapps.io
#'
#' @description
#' This is really just a simple wrapper
#'
#' @param path app folder path
#' @param name.app name of deployed app
#' @param name.token stored name of token
#' @param name.secret stored name of secret
#'
#' @return deploy
#' @export
#'
#' @examples
#' # deploy_shiny
#' # deploy_shiny()
#'
deploy_shiny <- function(path = here::here("app/"), name.app = "shiny_cast") {
deploy_shiny <- function(path = here::here("app/"),
account.name,
name.app = "shiny_cast",
name.token,
name.secret) {
# Connecting
rsconnect::setAccountInfo(
name = "cognitiveindex",
token = keyring::key_get(service = "rsconnect_cognitiveindex_token"),
secret = keyring::key_get(service = "rsconnect_cognitiveindex_secret")
name = account.name,
token = keyring::key_get(service = name.token),
secret = keyring::key_get(service = name.secret)
)
# Deploying