data-raw/update_data.R

In hamilton-institute/hamiltonCovid19: Hamilton Covid-19 Dashboard

# Update and deploy app

args <- commandArgs(trailingOnly = TRUE)

deploy_app <- TRUE

# Update global_data
source("data-raw/global_data_JH.R")

# Update irish_data
source("data-raw/irish_data.R")

# Update irish hospitalization data
source("data-raw/irish_hosp_data.R")

# Update irish ICU data
source("data-raw/irish_icu_data.R")

# Update irish_county_data
source("data-raw/irish_county_data.R")

# Update interventions_data
source("data-raw/interventions_data.R")

if (deploy_app) {

  remotes::install_deps(
    dependencies = TRUE,
    upgrade = "never",
    repos = "https://packagemanager.rstudio.com/all/__linux__/bionic/latest"
  )

  rsconnect::setAccountInfo(
    name = 'apmuhamilton',
    token = args[1],
    secret= args[2]
  )

  files <- list.files('.')
  files <- files[files != 'data-raw']

  rsconnect::deployApp(
    appFiles = files,
    appName = 'hamiltonCovid19Dashboard',
    forceUpdate = TRUE,
    account = 'apmuhamilton'
  )

} else {
  message("Nothing to deploy.")
}