Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

2023 update #2

Merged
merged 3 commits into from
Nov 6, 2023
Merged

2023 update #2

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
3 commits
Select commit Hold shift + click to select a range
9ab593c
link update 2
alex-thomson222 Nov 6, 2023
1b48bc7
removing old action workflows;
Nov 6, 2023
f5d1968
Add Github workflow to deploy to Shiny Server
Nov 6, 2023
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
15 changes: 7 additions & 8 deletions .github/workflows/shiny-deployment.yml → .github/workflows/shiny-deployment.yaml
View file
Open in desktop
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
Open in desktop
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
Loading