Merge pull request #608 from jhudsl/swirlactivity

Convert DataQuest activity to a swirl lesson for Homework 1
jhudsl · Jun 25, 2024 · eddcd4b · eddcd4b
2 parents 2da1a91 + 2863d02
commit eddcd4b
Show file tree

Hide file tree

Showing 24 changed files with 343 additions and 17 deletions.
diff --git a/docs/_schedule_table.Rmd b/docs/_schedule_table.Rmd
@@ -1,13 +1,13 @@
 | **Day**                                | **Module**                  | **Slides**                                                                                                                                                                                                                               | **Code**                                                                                                                                           | **Resource**                                                                                                                                                                                                                                                             | **Cheatsheets/Guides**                                                             |
 | :------------------------------------: | :-------------------------: | :--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------: | :------------------------------------------------------------------------------------------------------------------------------------------------: | :----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------: | :--------------------------------------------------------------------------------: |
-| [Day 0](docs/module_details/day0.html) | Homework 1                  |                                                                                                                                                                                                                                          | [Dataquest](https://app.dataquest.io/login?target-url=%2Fm%2F499%2Fintroduction-to-programming-in-r)                                               |                                                                                                                                                                                                                                                                          |                                                                                    |
+| [Day 0](docs/module_details/day0.html) | Homework 1                  |                                                                                                                                                                                                                                          | [HTML](modules/HW/homework1.html)                                                                                                                  |                                                                                                                                                                                                                                                                          |                                                                                    |
 |                                        |                             |                                                                                                                                                                                                                                          |                                                                                                                                                    |                                                                                                                                                                                                                                                                          |                                                                                    |
 | [Day 1](docs/module_details/day1.html) | Intro                       | [HTML](modules/Intro/Intro.html), [PDF](modules/Intro/Intro.pdf)                                                                                                                                                                         | [Rmd](modules/Intro/Intro.Rmd)                                                                                                                     |                                                                                                                                                                                                                                                                          | [Day 1 Cheatsheet](modules/cheatsheets/Day-1.pdf)                                  |
 |                                        | RStudio                     | [HTML](modules/RStudio/RStudio.html), [PDF](modules/RStudio/RStudio.pdf)                                                                                                                                                                 | [Rmd](modules/RStudio/RStudio.Rmd)                                                                                                                 | [Lab](modules/RStudio/lab/RStudio_Lab.Rmd), [Key](modules/RStudio/lab/RStudio_Lab_Key.Rmd), [Key HTML](modules/RStudio/lab/RStudio_Lab_Key.html)                                                                                                                         |                                                                                    |
 |                                        | Basic R                     | [HTML](modules/Basic_R/Basic_R.html), [PDF](modules/Basic_R/Basic_R.pdf)                                                                                                                                                                 | [Rmd](modules/Basic_R/Basic_R.Rmd)                                                                                                                 | [Lab](modules/Basic_R/lab/Basic_R_Lab.Rmd), [Key](modules/Basic_R/lab/Basic_R_Lab_Key.Rmd), [Key HTML](modules/Basic_R/lab/Basic_R_Lab_Key.html)                                                                                                                         |                                                                                    |
 |                                        |                             |                                                                                                                                                                                                                                          |                                                                                                                                                    |                                                                                                                                                                                                                                                                          |                                                                                    |
 | [Day 2](docs/module_details/day2.html) | Basic R (cont.)             | [HTML](modules/Basic_R/Basic_R.html), [PDF](modules/Basic_R/Basic_R.pdf)                                                                                                                                                                 | [Rmd](modules/Basic_R/Basic_R.Rmd)                                                                                                                 | [Lab](modules/Basic_R/lab/Basic_R_Lab.Rmd), [Key](modules/Basic_R/lab/Basic_R_Lab_Key.Rmd), [Key HTML](modules/Basic_R/lab/Basic_R_Lab_Key.html)                                                                                                                         | [Day 2 Cheatsheet](modules/cheatsheets/Day-2.pdf)                                  |
-|                                        | Reproducibility             | [HTML](modules/Reproducibility/Reproducibility.html), [PDF](modules/Reproducibility/Reproducibility.pdf)                                                                                                                                  | [Rmd](modules/Reproducibility/Reproducibility.Rmd)                                                                                                 | [Lab](modules/Reproducibility/lab/Reproducibility_Lab.Rmd), [Key](modules/Reproducibility/lab/Reproducibility_Lab_Key.Rmd), [Key HTML](modules/Reproducibility/lab/Reproducibility_Lab_Key.html)                                                                                                                         | [Good scientific coding practices](resources/good-scientific-coding-practices.pdf) |
+|                                        | Reproducibility             | [HTML](modules/Reproducibility/Reproducibility.html), [PDF](modules/Reproducibility/Reproducibility.pdf)                                                                                                                                  | [Rmd](modules/Reproducibility/Reproducibility.Rmd)                                                                                                | [Lab](modules/Reproducibility/lab/Reproducibility_Lab.Rmd), [Key](modules/Reproducibility/lab/Reproducibility_Lab_Key.Rmd), [Key HTML](modules/Reproducibility/lab/Reproducibility_Lab_Key.html)                                                                                                                         | [Good scientific coding practices](resources/good-scientific-coding-practices.pdf) |
 |                                        | Data Input                  | [HTML](modules/Data_Input/Data_Input.html), [PDF](modules/Data_Input/Data_Input.pdf)                                                                                                                                                     | [Rmd](modules/Data_Input/Data_Input.Rmd)                                                                                                           | [Lab](modules/Data_Input/lab/Data_Input_Lab.Rmd), [Key](modules/Data_Input/lab/Data_Input_Lab_Key.Rmd), [Key HTML](modules/Data_Input/lab/Data_Input_Lab_Key.html)                                                                                                       | [Debugging tips guide](resources/debugging_guide.pdf)                              |
 |                                        |                             |                                                                                                                                                                                                                                          |                                                                                                                                                    |                                                                                                                                                                                                                                                                          |                                                                                    |
 | [Day 3](docs/module_details/day3.html) | Subsetting Data in R        | [HTML](modules/Subsetting_Data_in_R/Subsetting_Data_in_R.html), [PDF](modules/Subsetting_Data_in_R/Subsetting_Data_in_R.pdf)                                                                                                             | [Rmd](modules/Subsetting_Data_in_R/Subsetting_Data_in_R.Rmd)                                                                                       | [Lab](modules/Subsetting_Data_in_R/lab/Subsetting_Data_in_R_Lab.Rmd), [Key](modules/Subsetting_Data_in_R/lab/Subsetting_Data_in_R_Lab_Key.Rmd), [Key HTML](modules/Subsetting_Data_in_R/lab/Subsetting_Data_in_R_Lab_Key.html)                                           | [Day 3 Cheatsheet](modules/cheatsheets/Day-3.pdf)                                  |

diff --git a/docs/images/course_installed_success.png b/docs/images/course_installed_success.png
diff --git a/docs/images/install_swirl.png b/docs/images/install_swirl.png
diff --git a/docs/images/launch_swirl.png b/docs/images/launch_swirl.png
diff --git a/docs/images/select_swc.png b/docs/images/select_swc.png
diff --git a/docs/images/swirl_success.png b/docs/images/swirl_success.png
diff --git a/docs/module_details/day0.Rmd b/docs/module_details/day0.Rmd
@@ -86,13 +86,13 @@ You should see some messages in the console, ending with `* DONE (jhur)` if the
 
 **(Due `r config::get("final_due_date")` - but we strongly suggest you complete it before the course starts)**:
 
--   Complete the *FREE* lessons for Introduction to R on Dataquest.
+-   Complete Homework 1
 
--   Upload a screenshot of the completion page to the Drop Box link below.
+-   Upload a screenshot of the final question to the Drop Box link below.
 
 ## Homework
 
-`r emo::ji("pencil")` **HOMEWORK 1**: [Dataquest](https://app.dataquest.io/login?target-url=%2Fm%2F499%2Fintroduction-to-programming-in-r)
+`r emo::ji("pencil")` **HOMEWORK 1**: [Questions (HTML)](../../modules/HW/homework1.html)
 
 ## Drop Boxes
 

diff --git a/docs/module_details/day1.Rmd b/docs/module_details/day1.Rmd
@@ -49,7 +49,7 @@ pander::pandoc.table(
 
 `r emo::ji("rotating_light")` **SURVEYS**: [Best times for Office Hours and first impressions feedback](`r config::get("courseplus_surveys")`)
 
-`r emo::ji("pencil")` **HOMEWORK 1**: [Dataquest](https://app.dataquest.io/login?target-url=%2Fm%2F499%2Fintroduction-to-programming-in-r) 
+`r emo::ji("pencil")` **HOMEWORK 1**: [Questions (HTML)](../../modules/HW/homework1.html)
 
 
 ## Drop Boxes

diff --git a/docs/module_details/day2.Rmd b/docs/module_details/day2.Rmd
@@ -49,8 +49,7 @@ pander::pandoc.table(
 
 `r emo::ji("rotating_light")` **SURVEY**: [Day 2 check-in](`r config::get("courseplus_surveys")`) 
 
-`r emo::ji("pencil")` **HOMEWORK 1**: [Dataquest](https://app.dataquest.io/login?target-url=%2Fm%2F499%2Fintroduction-to-programming-in-r) 
-
+`r emo::ji("pencil")` **HOMEWORK 1**: [Questions (HTML)](../../modules/HW/homework1.html)
 
 ## Drop Boxes
 

diff --git a/docs/module_details/day3.Rmd b/docs/module_details/day3.Rmd
@@ -48,7 +48,7 @@ pander::pandoc.table(
 
 `r emo::ji("rotating_light")` **SURVEY**: [Day 3 check-in](`r config::get("courseplus_surveys")`)
 
-`r emo::ji("pencil")` **HOMEWORK 1**: [Dataquest](https://app.dataquest.io/login?target-url=%2Fm%2F499%2Fintroduction-to-programming-in-r) 
+`r emo::ji("pencil")` **HOMEWORK 1**: [Questions (HTML)](../../modules/HW/homework1.html)
 
 `r emo::ji("pencil")` **HOMEWORK 2**: [Questions (Rmd)](../../modules/HW/homework2.Rmd), [Questions (HTML)](../../modules/HW/homework2.html)
 

diff --git a/docs/module_details/day4.Rmd b/docs/module_details/day4.Rmd
@@ -49,7 +49,7 @@ pander::pandoc.table(
 
 `r emo::ji("rotating_light")` **SURVEY**: [Day 4 check-in](`r config::get("courseplus_surveys")`)
 
-`r emo::ji("pencil")` **HOMEWORK 1**: [Dataquest](https://app.dataquest.io/login?target-url=%2Fm%2F499%2Fintroduction-to-programming-in-r) 
+`r emo::ji("pencil")` **HOMEWORK 1**: [Questions (HTML)](../../modules/HW/homework1.html)
 
 `r emo::ji("pencil")` **HOMEWORK 2**: [Questions (Rmd)](../../modules/HW/homework2.Rmd), [Questions (HTML)](../../modules/HW/homework2.html)
 

diff --git a/docs/module_details/day5.Rmd b/docs/module_details/day5.Rmd
@@ -47,7 +47,7 @@ pander::pandoc.table(
 
 `r emo::ji("rotating_light")` **SURVEY**: [Day 5 check-in](`r config::get("courseplus_surveys")`)
 
-`r emo::ji("pencil")` **HOMEWORK 1**: [Dataquest](https://app.dataquest.io/login?target-url=%2Fm%2F499%2Fintroduction-to-programming-in-r) 
+`r emo::ji("pencil")` **HOMEWORK 1**: [Questions (HTML)](../../modules/HW/homework1.html)
 
 `r emo::ji("pencil")` **HOMEWORK 2**: [Questions (Rmd)](../../modules/HW/homework2.Rmd), [Questions (HTML)](../../modules/HW/homework2.html)
 

diff --git a/docs/module_details/day6.Rmd b/docs/module_details/day6.Rmd
@@ -48,7 +48,7 @@ pander::pandoc.table(
 
 `r emo::ji("rotating_light")` **SURVEY**: [Day 6 check-in](`r config::get("courseplus_surveys")`)
 
-`r emo::ji("pencil")` **HOMEWORK 1**: [Dataquest](https://app.dataquest.io/login?target-url=%2Fm%2F499%2Fintroduction-to-programming-in-r) 
+`r emo::ji("pencil")` **HOMEWORK 1**: [Questions (HTML)](../../modules/HW/homework1.html)
 
 `r emo::ji("pencil")` **HOMEWORK 2**: [Questions (Rmd)](../../modules/HW/homework2.Rmd), [Questions (HTML)](../../modules/HW/homework2.html)
 

diff --git a/docs/module_details/day7.Rmd b/docs/module_details/day7.Rmd
@@ -47,7 +47,7 @@ pander::pandoc.table(
 
 `r emo::ji("rotating_light")` **SURVEY**: [Day 7 check-in](`r config::get("courseplus_surveys")`)
 
-`r emo::ji("pencil")` **HOMEWORK 1**: [Dataquest](https://app.dataquest.io/login?target-url=%2Fm%2F499%2Fintroduction-to-programming-in-r) 
+`r emo::ji("pencil")` **HOMEWORK 1**: [Questions (HTML)](../../modules/HW/homework1.html)
 
 `r emo::ji("pencil")` **HOMEWORK 2**: [Questions (Rmd)](../../modules/HW/homework2.Rmd), [Questions (HTML)](../../modules/HW/homework2.html)
 

diff --git a/docs/module_details/day8.Rmd b/docs/module_details/day8.Rmd
@@ -48,7 +48,7 @@ pander::pandoc.table(
 
 `r emo::ji("rotating_light")` **SURVEY**: [Day 8 check-in](`r config::get("courseplus_surveys")`)
 
-`r emo::ji("pencil")` **HOMEWORK 1**: [Dataquest](https://app.dataquest.io/login?target-url=%2Fm%2F499%2Fintroduction-to-programming-in-r) 
+`r emo::ji("pencil")` **HOMEWORK 1**: [Questions (HTML)](../../modules/HW/homework1.html)
 
 `r emo::ji("pencil")` **HOMEWORK 2**: [Questions (Rmd)](../../modules/HW/homework2.Rmd), [Questions (HTML)](../../modules/HW/homework2.html)
 

diff --git a/docs/module_details/day9.Rmd b/docs/module_details/day9.Rmd
@@ -47,7 +47,7 @@ pander::pandoc.table(
 
 `r emo::ji("rotating_light")` **SURVEY**: [Day 9 check-in and final thoughts](`r config::get("courseplus_surveys")`)
 
-`r emo::ji("pencil")` **HOMEWORK 1**: [Dataquest](https://app.dataquest.io/login?target-url=%2Fm%2F499%2Fintroduction-to-programming-in-r) 
+`r emo::ji("pencil")` **HOMEWORK 1**: [Questions (HTML)](../../modules/HW/homework1.html)
 
 `r emo::ji("pencil")` **HOMEWORK 2**: [Questions (Rmd)](../../modules/HW/homework2.Rmd), [Questions (HTML)](../../modules/HW/homework2.html)
 

diff --git a/materials_schedule.Rmd b/materials_schedule.Rmd
@@ -4,7 +4,7 @@ output:
   html_document
 ---
 
-`r config::get("holiday")` There is an assignment due before class to [install software](modules/Setup/Setup.html) and we recommend completing HW 1 (uploading a screenshot showing that you finished the Dataquest module indicated below) before class, but all other assignments will be due `r config::get("final_due_date")`. You are welcome to turn assignments in earlier if you wish.
+`r config::get("holiday")` There is an assignment due before class to [install software](modules/Setup/Setup.html) and we recommend completing HW 1 (uploading a screenshot showing that you finished the Swirl module indicated below) before class, but all other assignments will be due `r config::get("final_due_date")`. You are welcome to turn assignments in earlier if you wish.
 
 <br>
 

diff --git a/modules/HW/Intro_to_R_Course.swc b/modules/HW/Intro_to_R_Course.swc
diff --git a/modules/HW/Intro_to_R_Course/Intro_Lesson/customTests.R b/modules/HW/Intro_to_R_Course/Intro_Lesson/customTests.R
@@ -0,0 +1,12 @@
+# Put custom tests in this file.
+
+      # Uncommenting the following line of code will disable
+      # auto-detection of new variables and thus prevent swirl from
+      # executing every command twice, which can slow things down.
+
+      # AUTO_DETECT_NEWVAR <- FALSE
+
+      # However, this means that you should detect user-created
+      # variables when appropriate. The answer test, creates_new_var()
+      # can be used for for the purpose, but it also re-evaluates the
+      # expression which the user entered, so care must be taken.
diff --git a/modules/HW/Intro_to_R_Course/Intro_Lesson/dependson.txt b/modules/HW/Intro_to_R_Course/Intro_Lesson/dependson.txt
diff --git a/modules/HW/Intro_to_R_Course/Intro_Lesson/initLesson.R b/modules/HW/Intro_to_R_Course/Intro_Lesson/initLesson.R
@@ -0,0 +1,4 @@
+# Code placed in this file fill be executed every time the
+      # lesson is started. Any variables created here will show up in
+      # the user's working directory and thus be accessible to them
+      # throughout the lesson.