deploy

#!/usr/bin/Rscript

if (FALSE) {
  devtools::install_github('rstudio/shiny')
  devtools::install_github('rstudio/shinyapps')
}

# first, sync shiny examples
if (file_test('-d', '../shiny/inst/examples')) {
  for (app in list.dirs('../shiny/inst/examples', recursive = FALSE)) {
    dir.create(app1 <- sub('^(\\d\\d)_', '0\\1-', basename(app)), showWarnings = FALSE)
    file.copy(list.files(app, full.names = TRUE), app1, recursive = TRUE)
  }
}

# then deploy all apps
library(methods)
library(shinyapps)
# ./deploy 001-hello 002-text ...
apps = commandArgs(TRUE)
# if not specified, use all the directories here
if (length(apps) == 0) {
  apps = list.dirs(full.names = FALSE, recursive = FALSE)
  apps = grep('^[0-9]{3,}', apps, value = TRUE)
}
# print the apps that were not successfully deployed
print(apps[unlist(lapply(apps, function(app) {
  if (inherits(try(deployApp(app, account = 'demo')), 'try-error')) return(1)
  system(paste(
    '../shiny-dev-center/_scripts/import.R',
    app,
    sprintf('http://demo.shinyapps.io/%s', app),
    sprintf('https://github.com/rstudio/shiny-examples/tree/master/%s', app)
  ))
})) != 0])