Add a github action step to publish uj-dashboard to shinyapps.io

.github/workflows/quarto-publish.yml

@@ -55,3 +55,17 @@ jobs:
           target: gh-pages
         env:
           GITHUB_TOKEN: ${{ secrets.GITHUB_TOKEN }} # this secret is always available for github actions
+
+      - name: Publish dashboard to shinyapps.io
+        env:
+          RSCONNECT_USER: ${{ secrets.RSCONNECT_USER }}
+          RSCONNECT_TOKEN: ${{ secrets.RSCONNECT_TOKEN }}
+          RSCONNECT_SECRET: ${{ secrets.RSCONNECT_SECRET }}
+        run: |
+          rsconnect::setAccountInfo(name = Sys.getenv("RSCONNECT_USER"), 
+                                    token = Sys.getenv("RSCONNECT_TOKEN"),
+                                    secret = Sys.getenv("RSCONNECT_SECRET"))
+          quarto::quarto_publish_app(input = "shinyapp/dashboard", 
+                                     account = "unjournal", 
+                                     server = "shinyapps.io")
+        shell: Rscript {0}

shinyapp/dashboard/uj-dashboard.qmd

@@ -87,7 +87,8 @@ plotOutput("plot_ratings")
 
 Below we show the distribution of evaluators' answers to detailed, quantitative
 questions about different aspects of the research. For more information
-on these questions, see [here](https://globalimpact.gitbook.io/the-unjournal-project-and-communication-space/policies-projects-evaluation-workflow/evaluation/guidelines-for-evaluators).
+on these questions, see 
+[here](https://globalimpact.gitbook.io/the-unjournal-project-and-communication-space/policies-projects-evaluation-workflow/evaluation/guidelines-for-evaluators).
 
 
 ```{r}
@@ -318,8 +319,5 @@ output$plot_questions <- renderPlot({
         x = NULL,
         y = NULL
       )
-      
-    
-    
 })
 ```