add deployment action

.github/workflows/deploy.yml

@@ -0,0 +1,20 @@
+name: append daily CI data
+
+on: push
+jobs:
+  run_container:
+    runs-on: ubuntu-latest
+    container:
+      image: kasiatemp/ng-update:shiny
+    env:
+      SHINY_ACC_NAME=${{secrets.SHINY_ACC_NAME}} 
+      TOKEN=${{secrets.TOKEN}}
+      SECRET=${{secrets.SECRET}}
+    steps:
+      - name: Checkout repo
+        uses: actions/checkout@v2
+        with: 
+          ref: 'main'
+      - name: Deploy app
+        run: |
+          bash Rscript deploy.R

.gitignore

@@ -5,3 +5,4 @@
 carbon-intensity-app.Rproj
 rsconnect/
 .DS_Store
+.Renviron

deploy.R

@@ -0,0 +1,20 @@
+library(rsconnect)
+# a function to stop the script when one of the variables cannot be found. and to strip quotation marks from the secrets when you supplied them. (maybe it is just easier to never use them)
+error_on_missing_name <- function(name) {
+  var <- Sys.getenv(name, unset = NA)
+  if (is.na(var)) {
+    stop(paste0("cannot find ", name, " !"), call. = FALSE)
+  }
+  gsub("\"", '', var)
+}
+
+# Authenticate
+setAccountInfo(
+  name   = error_on_missing_name("SHINY_ACC_NAME"),
+  token  = error_on_missing_name("TOKEN"),
+  secret = error_on_missing_name("SECRET")
+)
+
+# Deploy the application.
+deployApp(appName = "carbon-intensity-app",
+          appTitle = "Carbon Intensity App")