Skip to content

Commit

Permalink
Merge pull request #2 from stats4sd/main
Browse files Browse the repository at this point in the history 
2023 update
  • Loading branch information
@alex-thomson222
alex-thomson222 authored Nov 6, 2023
2 parents 2c324ec + f5d1968 commit 523b6ed
Show file tree
Hide file tree
Showing 2 changed files with 34 additions and 35 deletions.
15 changes: 7 additions & 8 deletions .github/workflows/shiny-deployment.yml → .github/workflows/shiny-deployment.yaml
View file
Original file line number Diff line number Diff line change
@@ -1,21 +1,20 @@
# Script that sends POST request to a server. Use this for any project that you want to have automatically deployed to our Stats4SD Shiny server

# This is setup to automatically publish the default branch to the **staging** environment, and any new releases to the **live** environment
# Script that sends POST request to a server. Use this for any project that you want to have automatically deployed to our Stats4SD Shiny server

#####
# How to customise this
# How to customise this
# If you want to customise this for your own projects, make sure you set your own deployment key and url in your repo or organisation's secrets.
#####

name: Auto Deployment

# Controls when the action will run. Triggers the workflow on push or pull request
# events but only for the main branch
# events for "main" and any release branch
on:
push:
branches: [ main ]
release:
types: [ published ]
branches:
- "main"
- "release/**"

# A workflow run is made up of one or more jobs that can run sequentially or in parallel
jobs:
Expand All @@ -32,6 +31,6 @@ jobs:
uses: jasongitmail/fast-webhook@v1.1.4
with:
# The webhook URL to send the request to.
url: ${{ secrets.SHINYSERVERURL }}
url: ${{ secrets.SHINYDEPLOYURL }}
# The stringified JSON body to be sent, if any.
json: '{"secret": "${{ secrets.SHINYDEPLOYSECRET }}", "repo": "${{ github.repository }}", "ref": "${{ github.ref }}"}'
54 changes: 27 additions & 27 deletions index.html
View file
Original file line number Diff line number Diff line change
Expand Up @@ -174,7 +174,7 @@ <h2>Exercises</h2>
<p><strong>Exercise 2: Download the file below that contains the imdb
dataset and the Module 3 exercises in RMD format.</strong></p>
<p><a
href="https://github.com/stats4sd/r2020_04Quiz/raw/main/Module-3-Exercises.zip">Module-3-Exercises.zip</a></p>
href="https://github.com/stats4sd/r2020_04Quiz/raw/main/Module%203%20Exercises.zip">Module-3-Exercises.zip</a></p>
<p>Create a new project in RStudio and unzip the files into your new
project folder.</p>
<p>Then open the workbook, and load in the libraries and the dataset.
Expand Down Expand Up @@ -364,22 +364,22 @@ <h2>Appendix: Useful reference links</h2>

<script type="application/shiny-prerendered" data-context="server">
learnr:::question_prerendered_chunk(structure(list(type = "learnr_radio", label = "Q1", question = structure("Which of these statements is true?", html = TRUE, class = c("html",
"character")), answers = list(structure(list(id = "lnr_ans_e31360f",
"character")), answers = list(structure(list(id = "lnr_ans_39f2698",
option = "RStudio is useless without R", value = "RStudio is useless without R",
label = structure("RStudio is useless without R", html = TRUE, class = c("html",
"character")), correct = TRUE, message = NULL, type = "literal"), class = c("tutorial_question_answer",
"tutorial_quiz_answer")), structure(list(id = "lnr_ans_6ef95b6",
"tutorial_quiz_answer")), structure(list(id = "lnr_ans_d19ff2f",
option = "R is a powerful Interactive Development Environment",
value = "R is a powerful Interactive Development Environment",
label = structure("R is a powerful Interactive Development Environment", html = TRUE, class = c("html",
"character")), correct = FALSE, message = structure("No, RStudio is the IDE", html = TRUE, class = c("html",
"character")), type = "literal"), class = c("tutorial_question_answer",
"tutorial_quiz_answer")), structure(list(id = "lnr_ans_cf12dd8",
"tutorial_quiz_answer")), structure(list(id = "lnr_ans_d9fff3a",
option = "Without RStudio, you cannot use R", value = "Without RStudio, you cannot use R",
label = structure("Without RStudio, you cannot use R", html = TRUE, class = c("html",
"character")), correct = FALSE, message = structure("R can work very well without RStudio. It’s just not that user friendly", html = TRUE, class = c("html",
"character")), type = "literal"), class = c("tutorial_question_answer",
"tutorial_quiz_answer")), structure(list(id = "lnr_ans_70dbf6a",
"tutorial_quiz_answer")), structure(list(id = "lnr_ans_feb3329",
option = "You need to install RStudio first, then you can install R",
value = "You need to install RStudio first, then you can install R",
label = structure("You need to install RStudio first, then you can install R", html = TRUE, class = c("html",
Expand All @@ -392,55 +392,55 @@ <h2>Appendix: Useful reference links</h2>
"character")), incorrect = structure("Incorrect", html = TRUE, class = c("html",
"character")), message = NULL, post_message = NULL), ids = list(
answer = "Q1-answer", question = "Q1"), loading = NULL, random_answer_order = TRUE,
allow_retry = TRUE, seed = 1267730936.40967, options = list()), class = c("learnr_radio",
allow_retry = TRUE, seed = 1468672435.3161, options = list()), class = c("learnr_radio",
"tutorial_question")), session = session)
</script>


<script type="application/shiny-prerendered" data-context="server">
learnr:::question_prerendered_chunk(structure(list(type = "learnr_radio", label = "Q2", question = structure("Why is R giving an error in the above screenshot?", html = TRUE, class = c("html",
"character")), answers = list(structure(list(id = "lnr_ans_8de63a9",
"character")), answers = list(structure(list(id = "lnr_ans_6653521",
option = "The command for reading the data is missing", value = "The command for reading the data is missing",
label = structure("The command for reading the data is missing", html = TRUE, class = c("html",
"character")), correct = FALSE, message = structure("No, it is present at the top of the file: Pulse &lt;- read.csv(‘Pulse.csv’)", html = TRUE, class = c("html",
"character")), type = "literal"), class = c("tutorial_question_answer",
"tutorial_quiz_answer")), structure(list(id = "lnr_ans_b935f30",
"tutorial_quiz_answer")), structure(list(id = "lnr_ans_3bc7494",
option = "The command library(ggplot2) is missing", value = "The command library(ggplot2) is missing",
label = structure("The command library(ggplot2) is missing", html = TRUE, class = c("html",
"character")), correct = FALSE, message = structure("It is missing, but we don’t need it, since we are not plotting anything", html = TRUE, class = c("html",
"character")), type = "literal"), class = c("tutorial_question_answer",
"tutorial_quiz_answer")), structure(list(id = "lnr_ans_c550f6a",
"tutorial_quiz_answer")), structure(list(id = "lnr_ans_736ddf7",
option = "We did not specify the name of our summary statistic",
value = "We did not specify the name of our summary statistic",
label = structure("We did not specify the name of our summary statistic", html = TRUE, class = c("html",
"character")), correct = FALSE, message = structure("It’s good practice to name our summary statistics indeed, but ommiting the name is not an ‘error’", html = TRUE, class = c("html",
"character")), type = "literal"), class = c("tutorial_question_answer",
"tutorial_quiz_answer")), structure(list(id = "lnr_ans_da9f7f4",
"tutorial_quiz_answer")), structure(list(id = "lnr_ans_73eede7",
option = "The column names are incorrect", value = "The column names are incorrect",
label = structure("The column names are incorrect", html = TRUE, class = c("html",
"character")), correct = FALSE, message = structure("No, the column names are correct", html = TRUE, class = c("html",
"character")), type = "literal"), class = c("tutorial_question_answer",
"tutorial_quiz_answer")), structure(list(id = "lnr_ans_63f6dc7",
"tutorial_quiz_answer")), structure(list(id = "lnr_ans_5632b26",
option = "Pipes don't work within R chunks", value = "Pipes don't work within R chunks",
label = structure("Pipes don’t work within R chunks", html = TRUE, class = c("html",
"character")), correct = FALSE, message = structure("pipes work very well within R chunks", html = TRUE, class = c("html",
"character")), type = "literal"), class = c("tutorial_question_answer",
"tutorial_quiz_answer")), structure(list(id = "lnr_ans_709f096",
"tutorial_quiz_answer")), structure(list(id = "lnr_ans_10c1882",
option = "The project file was not created", value = "The project file was not created",
label = structure("The project file was not created", html = TRUE, class = c("html",
"character")), correct = FALSE, message = structure("We can’t tell from this screenshot whether a project file was created or not. We can say that it cannot be responsible for the error though.", html = TRUE, class = c("html",
"character")), type = "literal"), class = c("tutorial_question_answer",
"tutorial_quiz_answer")), structure(list(id = "lnr_ans_cca3ae1",
"tutorial_quiz_answer")), structure(list(id = "lnr_ans_4e688d7",
option = "The command library(dplyr) is missing", value = "The command library(dplyr) is missing",
label = structure("The command library(dplyr) is missing", html = TRUE, class = c("html",
"character")), correct = TRUE, message = NULL, type = "literal"), class = c("tutorial_question_answer",
"tutorial_quiz_answer")), structure(list(id = "lnr_ans_319bdd0",
"tutorial_quiz_answer")), structure(list(id = "lnr_ans_977fbe7",
option = "The symbol used for the pipe operator is wrong",
value = "The symbol used for the pipe operator is wrong",
label = structure("The symbol used for the pipe operator is wrong", html = TRUE, class = c("html",
"character")), correct = FALSE, message = structure("%&gt;% is the right symbol for the pipe operator", html = TRUE, class = c("html",
"character")), type = "literal"), class = c("tutorial_question_answer",
"tutorial_quiz_answer")), structure(list(id = "lnr_ans_5d8f388",
"tutorial_quiz_answer")), structure(list(id = "lnr_ans_3d0ee33",
option = "We are using pipes, but the data argument of each function is missing",
value = "We are using pipes, but the data argument of each function is missing",
label = structure("We are using pipes, but the data argument of each function is missing", html = TRUE, class = c("html",
Expand All @@ -453,30 +453,30 @@ <h2>Appendix: Useful reference links</h2>
"character")), incorrect = structure("Incorrect", html = TRUE, class = c("html",
"character")), message = NULL, post_message = NULL), ids = list(
answer = "Q2-answer", question = "Q2"), loading = NULL, random_answer_order = TRUE,
allow_retry = TRUE, seed = 9533034.99556083, options = list()), class = c("learnr_radio",
allow_retry = TRUE, seed = 1908256421.1114, options = list()), class = c("learnr_radio",
"tutorial_question")), session = session)
</script>

<script type="application/shiny-prerendered" data-context="server">
learnr:::question_prerendered_chunk(structure(list(type = "learnr_radio", label = "Q3", question = structure("The above R Markdown file runs fine, but is missing the point of using R Markdown. Why?", html = TRUE, class = c("html",
"character")), answers = list(structure(list(id = "lnr_ans_d6ead4",
"character")), answers = list(structure(list(id = "lnr_ans_8449718",
option = "The comments should be part of the text outside the R chunks. That way, an R Markdown document can become a proper report",
value = "The comments should be part of the text outside the R chunks. That way, an R Markdown document can become a proper report",
label = structure("The comments should be part of the text outside the R chunks. That way, an R Markdown document can become a proper report", html = TRUE, class = c("html",
"character")), correct = TRUE, message = NULL, type = "literal"), class = c("tutorial_question_answer",
"tutorial_quiz_answer")), structure(list(id = "lnr_ans_617a359",
"tutorial_quiz_answer")), structure(list(id = "lnr_ans_cdc45d2",
option = "With R Markdown, all the libraries are already preloaded, so there's no need to have commands that load libraries!",
value = "With R Markdown, all the libraries are already preloaded, so there's no need to have commands that load libraries!",
label = structure("With R Markdown, all the libraries are already preloaded, so there’s no need to have commands that load libraries!", html = TRUE, class = c("html",
"character")), correct = FALSE, message = structure("No, you still need to load libraries in an R Markdown file", html = TRUE, class = c("html",
"character")), type = "literal"), class = c("tutorial_question_answer",
"tutorial_quiz_answer")), structure(list(id = "lnr_ans_1852efd",
"tutorial_quiz_answer")), structure(list(id = "lnr_ans_2a06a0a",
option = "R Markdown is made for writing R code. Ideally, we shouldn't have any text or comment in such document, so that it is reproducible",
value = "R Markdown is made for writing R code. Ideally, we shouldn't have any text or comment in such document, so that it is reproducible",
label = structure("R Markdown is made for writing R code. Ideally, we shouldn’t have any text or comment in such document, so that it is reproducible", html = TRUE, class = c("html",
"character")), correct = FALSE, message = structure("No, the advantage of R Markdown is that it is great for writing reproducible reports. So it should contain text", html = TRUE, class = c("html",
"character")), type = "literal"), class = c("tutorial_question_answer",
"tutorial_quiz_answer")), structure(list(id = "lnr_ans_bb78ea9",
"tutorial_quiz_answer")), structure(list(id = "lnr_ans_6593090",
option = "The commands should all be included in the same R chunk, so that they can be run altogether. That's the beauty of R Markdown!",
value = "The commands should all be included in the same R chunk, so that they can be run altogether. That's the beauty of R Markdown!",
label = structure("The commands should all be included in the same R chunk, so that they can be run altogether. That’s the beauty of R Markdown!", html = TRUE, class = c("html",
Expand All @@ -489,33 +489,33 @@ <h2>Appendix: Useful reference links</h2>
"character")), incorrect = structure("Incorrect", html = TRUE, class = c("html",
"character")), message = NULL, post_message = NULL), ids = list(
answer = "Q3-answer", question = "Q3"), loading = NULL, random_answer_order = TRUE,
allow_retry = TRUE, seed = 1950861044.09156, options = list()), class = c("learnr_radio",
allow_retry = TRUE, seed = 68550497.9680787, options = list()), class = c("learnr_radio",
"tutorial_question")), session = session)
</script>


<script type="application/shiny-prerendered" data-context="server">
learnr:::question_prerendered_chunk(structure(list(type = "learnr_checkbox", label = "Q4", question = structure("What is important for your data if you want to import it into R? (select all that apply)", html = TRUE, class = c("html",
"character")), answers = list(structure(list(id = "lnr_ans_8376a8d",
"character")), answers = list(structure(list(id = "lnr_ans_8b5b744",
option = "It should be made of one single rectangle of data",
value = "It should be made of one single rectangle of data",
label = structure("It should be made of one single rectangle of data", html = TRUE, class = c("html",
"character")), correct = TRUE, message = NULL, type = "literal"), class = c("tutorial_question_answer",
"tutorial_quiz_answer")), structure(list(id = "lnr_ans_171ece",
"tutorial_quiz_answer")), structure(list(id = "lnr_ans_bafde46",
option = "The column names should lie in one row only", value = "The column names should lie in one row only",
label = structure("The column names should lie in one row only", html = TRUE, class = c("html",
"character")), correct = TRUE, message = NULL, type = "literal"), class = c("tutorial_question_answer",
"tutorial_quiz_answer")), structure(list(id = "lnr_ans_68de65",
"tutorial_quiz_answer")), structure(list(id = "lnr_ans_53f0e14",
option = "There shouldn't be any gap between rows or columns",
value = "There shouldn't be any gap between rows or columns",
label = structure("There shouldn’t be any gap between rows or columns", html = TRUE, class = c("html",
"character")), correct = TRUE, message = NULL, type = "literal"), class = c("tutorial_question_answer",
"tutorial_quiz_answer")), structure(list(id = "lnr_ans_318a2dd",
"tutorial_quiz_answer")), structure(list(id = "lnr_ans_2aa8d62",
option = "All the columns should have the same length, and the same for the rows",
value = "All the columns should have the same length, and the same for the rows",
label = structure("All the columns should have the same length, and the same for the rows", html = TRUE, class = c("html",
"character")), correct = TRUE, message = NULL, type = "literal"), class = c("tutorial_question_answer",
"tutorial_quiz_answer")), structure(list(id = "lnr_ans_43f4c50",
"tutorial_quiz_answer")), structure(list(id = "lnr_ans_a4e48cb",
option = "It shouldn't contain any merged cells", value = "It shouldn't contain any merged cells",
label = structure("It shouldn’t contain any merged cells", html = TRUE, class = c("html",
"character")), correct = TRUE, message = NULL, type = "literal"), class = c("tutorial_question_answer",
Expand All @@ -526,7 +526,7 @@ <h2>Appendix: Useful reference links</h2>
"character")), incorrect = structure("Incorrect", html = TRUE, class = c("html",
"character")), message = NULL, post_message = NULL), ids = list(
answer = "Q4-answer", question = "Q4"), loading = NULL, random_answer_order = TRUE,
allow_retry = TRUE, seed = 2042771085.04876, options = list()), class = c("learnr_checkbox",
allow_retry = TRUE, seed = 1833733690.6461, options = list()), class = c("learnr_checkbox",
"tutorial_question")), session = session)
</script>
</p>
Expand Down

0 comments on commit 523b6ed

Please sign in to comment.