shinyapps-deploy-script.R

# Use this script -- or some tweaked version of it -- to push the code
# to shinyapps.io. Comment out the deployApp() call that you do NOT 
# want to run. This script requires having rsconnect installed, as well
# as having authenticated with a shinyapps.io 

library(rsconnect)

# Deploy the apps. It's a bit clunky, in that we seem to need
# to manually set the working directory to be the directory where the Shiny app and
# supporting files exist before deploying. Because this R project has multiple 
# Shiny apps, and the app file name has to be app.R, each app is in its own directory.

# Time-Normalized Pageviews
setwd("time-normalized-pageviews")
deployApp(appFiles = c("app.R", "ga-web-client.json", "gtm.js"),
          appName = "time-normalized",
          appTitle = "Google Analytics - Time-Normalized Pageviews",
          forceUpdate = TRUE)
setwd("..")

# Page Analysis with Two Metrics
setwd("page-analysis-two-metrics")
deployApp(appFiles = c("app.R", "ga-web-client.json", "gtm.js"),
          appName = "page-analysis",
          appTitle = "Google Analytics - Page Analysis with Two Metrics",
          forceUpdate = TRUE)
setwd("..")

# Site Search Analysis
setwd("site-search-analysis")
deployApp(appFiles = c("app.R", "ga-web-client.json", "gtm.js"),
          appName = "site-search",
          appTitle = "Google Analytics - Site Search Analysis",
          forceUpdate = TRUE)
setwd("..")

# Regression
setwd("regression")
deployApp(appFiles = c("app.R", "ga-web-client.json", "gtm.js"),
          appName = "regression",
          appTitle = "Google Analytics - Regression Exploration",
          forceUpdate = TRUE)
setwd("..")

# Forecasting / Anomaly Detection
setwd("forecasting")
deployApp(appFiles = c("app.R", "ga-web-client.json", "gtm.js"),
          appName = "forecasting",
          appTitle = "Google Analytics - Anomaly Detection with Holt-Winters Forecasting",
          forceUpdate = TRUE)
setwd("..")