makefile.R

In renejuan/DERTtools: Collection of utilities to support DERT work

# Get some metadata
account <- "eta6" # RStudio Connect account
pkg_name <- basename(getwd()) # Get package or project name

# Select branch you want to deploy
selected_branch <- menu(c("master", "dev"))
if(selected_branch==1) selected_branch <- "master"
if(selected_branch==2) selected_branch <- "dev"

# Checkout selected branch
git2r::checkout(branch = selected_branch)

# Install package for current branch
remotes::install_gitlab(
  repo = paste0("hss/DERTtools@", selected_branch),
  host = "https://git.biotech.cdc.gov/"
)

# Render website and deploy to RS Connect
pkgdown::build_site()
rsconnect::deployApp(
  "public",
  appName = strtrim(paste(pkg_name,"pkgdown", selected_branch, sep = "_"), 64),
  account = account,
  forceUpdate = T
)

# Deploy Shiny app to RS Connect
rsconnect::deployApp(
  "inst/app",
  appName = strtrim(paste(pkg_name,"shiny", selected_branch, sep = "_"), 64),
  account = account,
  forceUpdate = T
)