Merge pull request #39 from shinydevseries/ep28

Add episode 28 post with Kate Saunders!

R/timestamps_play.R

@@ -2,24 +2,16 @@ library(dplyr)
 library(lubridate)
 library(clock)
 
-youtube_id <- "8crXv5SBDLE"
+youtube_id <- "XqLx233W97U"
 
 df <- tibble::tribble(
  ~timestamp, ~recalc_flag, ~description,
  "00:00:00", FALSE, "Episode Introduction",
- "00:01:00", FALSE, "The vueR package and introductory examples",
- "00:06:55", FALSE, "Live coding example with vuetify",
- "00:13:55", FALSE, "vueR example, adding a calendar date selector and other mint-ui elements to your Shiny app",
- "00:21:00", FALSE, "htmlwidget leaflet map example",
- "00:24:10", FALSE, "Example of a sunburst plot",
- "00:33:15", FALSE, "Example of a checkbox selector for hierarchical element trees",
- "00:36:00", FALSE, "JavaScript build steps with Vue CLI",
- "00:59:30", FALSE, "vite vue 3 build example",
- "01:09:30", FALSE, "A call to the community to help with vueR development goals",
- "01:10:30", FALSE, "Integrating crosstalk",
- "01:14:30", FALSE, "Using vuex as a store of state. Time travel through the state of your Shiny app",
- "01:20:24", FALSE, "Example of valtio",
- "01:27:08", FALSE, "Episode wrapup"
+ "00:04:45", FALSE, "Inspiration behind CoronaSweeper",
+ "00:08:15", FALSE, "Demo of Coronasweeper",
+ "00:14:35", FALSE, "Code walkthrough",
+ "00:43:10", FALSE, "Shiny for teaching?",
+ "00:50:20", FALSE, "Episode wrapup"
 )
 
 df2 <- df %>%

content/authors/ksaunders/_index.md

@@ -0,0 +1,63 @@
++++
+# Display name
+name = "Kate Saunders"
+
+# Username (this should match the folder name)
+authors = ["ksaunders"]
+
+# Is this the primary user of the site?
+superuser = false
+
+# Role/position
+role = "Lecturer"
+
+# Organizations/Affiliations
+# Separate multiple entries with a comma, using the form: `[ {name="Org1", url=""}, {name="Org2", url=""} ]`.
+organizations = [ { name = "Queensland University of Technology", url = "https://www.qut.edu.au" } ]
+
+# Short bio (displayed in user profile at end of posts)
+#bio = "Creator and host of the Shiny Developer Series"
+
+# Enter email to display Gravatar (if Gravatar enabled in Config)
+email = "kate.r.saunders@qut.edu.au"
+
+# List (academic) interests or hobbies
+interests = [
+ "Shiny",
+ "Teaching",
+ "The R Community"
+]
+
+# Organizational groups that you belong to (for People widget)
+# Set this to `[]` or comment out if you are not using People widget.
+user_groups = []
+
+# List qualifications (such as academic degrees)
+
+# Social/Academic Networking
+# For available icons, see: https://sourcethemes.com/academic/docs/widgets/#icons
+# For an email link, use "fas" icon pack, "envelope" icon, and a link in the
+# form "mailto:your-email@example.com" or "#contact" for contact widget.
+
+[[social]]
+ icon = "github"
+ icon_pack = "fab"
+ link = "https://github.com/katerobsau"
+
+[[social]]
+ icon = "twitter"
+ icon_pack = "fab"
+ link = "https://twitter.com/katerobsau"
+
+[[social]]
+ icon = "linkedin"
+ icon_pack = "fab"
+ link = "https://www.linkedin.com/in/kate-saunders-08a31493"
+
+# Link to a PDF of your resume/CV from the About widget.
+# To enable, copy your resume/CV to `static/files/cv.pdf` and uncomment the lines below.
+
+
++++
+
+Dr. Kate Saunders is a lecturer in mathematics and statistics at the Queensland University of Technology, Brisbane. Her core research interests are problems in statistical climatology, with a specific interest in climate extremes and extreme value theory. Prior to this she worked a a postdoc at the Techical University of Delft and Royal Netherlands Institute of Meteorology (KNMI) on projects in statistical post-processing. Her PhD studies were in applications of extreme value theory for modelling rainfall extremes in Australia at the University of Melbourne and under the supervision of Prof. Peter Taylor.

content/post/2022-01-17-episode-28-coronasweeper.md

@@ -0,0 +1,32 @@
+---
+title: 'Episode 28: The transformative effects of Shiny with the coronaSweeper app'
+authors: ['ksaunders', 'admin', 'ckephart']
+date: '2022-01-17'
+slug: episode-28-coronasweeper
+aliases: /ep28
+youtube: 'XqLx233W97U' 
+summary: "A unique perspective on the spread of COVID-19 brought to life with Kate Saunder's coronaSweeper Shiny app."
+description: "The Shiny Developer Series spotlight on the 2021 Shiny Contest continues with episode 28! Eric is joined by statistics lecturer Dr. Kate Saunders to share her unique coronaSweeper Shiny application which merges a well-known mini-game in the Windows world with modelling the spread of COVID19. On the surface it might seem straight-forward, but Kate walks us through her extensive design ideas of the algorithms and user experience of the application frontend. This was a very inspiring conversation that demonstrates the ways Shiny can be transformative to teaching real principles in mathematics, statistics, and beyond!"
+categories:
+ - episode
+tags: []
+image:
+ caption: ''
+ focal_point: ''
+---
+
+## Resources mentioned in the episode
+
+* coronaSweeper App - [katerobsau.shinyapps.io/Corona_Sweeper](https://katerobsau.shinyapps.io/Corona_Sweeper)
+* coronaSweeper Code - [github.com/katerobsau/coronaSweeper](https://github.com/katerobsau/coronaSweeper)
+* Kate's contest submission post: [community.rstudio.com/t/coronasweeper-shiny-contest-submission/104767](https://community.rstudio.com/t/coronasweeper-shiny-contest-submission/104767)
+* Follow Kate on Twitter - [@katerobsau](https://twitter.com/katerobsau)
+
+## Episode Timestamps
+
+[00:00:00](https://youtube.com/watch?v=XqLx233W97U&t=0s) Episode Introduction <br> 
+[00:04:45](https://youtube.com/watch?v=XqLx233W97U&t=285s) Inspiration behind coronaSweeper <br> 
+[00:08:15](https://youtube.com/watch?v=XqLx233W97U&t=495s) Demo of coronaSweeper <br> 
+[00:14:35](https://youtube.com/watch?v=XqLx233W97U&t=875s) Code walkthrough <br> 
+[00:43:10](https://youtube.com/watch?v=XqLx233W97U&t=2590s) Shiny for teaching? <br> 
+[00:50:20](https://youtube.com/watch?v=XqLx233W97U&t=3020s) Episode wrapup <br>