deploy to shinyapps as hotfix for #24 also #7 closes #19

.Rbuildignore

@@ -16,3 +16,4 @@ Dockerfile
 ^\.github$
 .vscode
 oauni_10_18.code-workspace
+^app\.R$

.github/workflows/main.yaml

@@ -69,10 +69,20 @@ jobs:
         uses: azure/[email protected]
         with:
           creds: ${{ secrets.AZURE_CREDENTIALS }}
+      - name: Deploy Shiny Application to shinyapps.io ref
+        env:
+          SHINYAPPS_TOKEN: ${{ secrets.SHINYAPPS_TOKEN }}
+          SHINYAPPS_SECRET: ${{ secrets.SHINYAPPS_SECRET }}
+          GITHUB_REF: ${{ github.ref }}
+        if: github.event_name != 'pull_request'
+        run: |
+          remotes::install_github(repo = "subugoe/hoad", ref = "master", force = TRUE, dependencies = TRUE)
+          rsconnect::setAccountInfo(name = 'subugoe', token = Sys.getenv('SHINYAPPS_TOKEN'), secret = Sys.getenv('SHINYAPPS_SECRET'))
+          app_name <- paste0("oadash-", gsub("/", "-", Sys.getenv('GITHUB_REF')))
+          rsconnect::deployApp(appName = app_name)
+        shell: Rscript {0}
       - name: Deploy to GitHub Pages
         if: github.ref == 'refs/heads/master'
         uses: maxheld83/ghpages@github-token
         env:
           BUILD_DIR: docs
-      - name: Sleep to let GITHUB_TOKEN persist
-        run: Sys.sleep(240)

.gitignore

@@ -5,3 +5,4 @@
 data-raw/pubs_cat.csv
 docs/
 .rstudio/
+rsconnect/

R/app_ui.R

@@ -11,6 +11,7 @@ app_ui <- function(request) {
     golem_add_external_resources(),
     # List the first level UI elements here
     dashboardPage(
+      skin = "black",
       dashboardHeader(title = "Open Access in Germany 2010-18",
                       titleWidth = 270),
       dashboardSidebar(sidebarMenu(

vignettes/interactive.Rmd

@@ -3,5 +3,5 @@ title: "Interactive Dashboard"
 ---
 
 ```{r echo=FALSE}
-shinycaas::include_app2("https://oadash.azurewebsites.net")
+shinycaas::include_app2("https://subugoe.shinyapps.io/oauni_10_18/")
 ```