Mine Cetinkaya-Rundel mine-cetinkaya-rundel
mine-cetinkaya-rundel
/ shinydashboard-dynamic-sidebar-menu-items.R
Last active
April 19, 2020 15:39
Dynamic sidebar menu items in Shiny dashboard
mine-cetinkaya-rundel
/ in-utero-average.R
Created
June 24, 2020 09:02
Calculating average measurement in utero (inspired by a question on RLadies Slack)
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(tidyverse) | |
| packageVersion("dplyr") | |
| library(lubridate) | |
| library(glue) | |
| set.seed(1234) | |
| children <- tribble( |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| --- | |
| output: learnr::tutorial | |
| runtime: shiny_prerendered | |
| --- | |
| ```{r setup, include=FALSE} | |
| library(learnr) | |
| ``` | |
| ## Exercise with Hint |
mine-cetinkaya-rundel
/ yesterday-tweets.R
Last active
August 13, 2020 21:30
Solve the puzzle: https://twitter.com/JeffisTallguy/status/1293909763953057795?s=20
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(tidyverse) | |
| library(rtweet) | |
| library(glue) | |
| tml <- get_timelines("JeffisTallguy", n = 200) | |
| yesterday <- tml %>% | |
| filter(is.na(reply_to_screen_name)) %>% | |
| slice( | |
| which(str_detect(text, "Yesterday by the Beatles is a pretty solid song")): |
mine-cetinkaya-rundel
/ learnr-hint-mixed.Rmd
Created
August 13, 2020 22:06
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| --- | |
| output: learnr::tutorial | |
| runtime: shiny_prerendered | |
| --- | |
| ```{r setup, include=FALSE} | |
| library(learnr) | |
| ``` | |
| ## Exercise with Hint |
mine-cetinkaya-rundel
/ you-guys.R
Created
August 31, 2020 13:51
Number of utterances of "you guys" from the Friends cast
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(friends) # devtools::install_github("EmilHvitfeldt/friends") | |
| library(tidyverse) | |
| you_guys <- friends %>% | |
| mutate(text = tolower(text)) %>% | |
| filter(str_detect(text, "you guys")) %>% | |
| count(speaker, sort = TRUE) | |
| you_guys | |
| #> # A tibble: 70 x 2 |
mine-cetinkaya-rundel
/ the-one-with-the-most-words.R
Created
September 5, 2020 22:50
The one with the most words
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| # Load packages ---------------------------------------------------------------- | |
| library(tidytext) | |
| library(friends) | |
| library(tidyverse) | |
| # The six friends -------------------------------------------------------------- | |
| six_friends <- c("Phoebe Buffay", "Chandler Bing", "Rachel Green", "Monica Geller", "Joey Tribbiani", "Ross Geller") |
mine-cetinkaya-rundel
/ learnr-dark.css
Created
October 26, 2020 10:16
Sample (in no way perfect!) CSS for learnr tutorials with dark background
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| body { | |
| font-size: 16px; | |
| } | |
| .topicsList .topic { | |
| font-size: 18px; | |
| } | |
| p.caption { | |
| font-size: 0.6em; | |
| } |
mine-cetinkaya-rundel
/ lms-bs.R
Last active
November 13, 2020 15:24
Merging assignment scores into a format your LMS requires
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(tidyverse) | |
| lms_export <- tribble( | |
| ~Name, ~`Student ID`, ~`HW 01 [Total Pts: 100 Score] |so many more characters`, ~`and many more columns`, | |
| "Dorianne Grey", 12345, NA, NA, | |
| "Krista Rose", 67890, NA, NA | |
| ) | |
| hw_scores <- tribble( | |
| ~student_id, ~score, |
mine-cetinkaya-rundel
/ tidypumpkin.R
Last active
August 27, 2023 20:50
Code developed during the "Break it, fix it, trash it, change it, plot, update it" webinar
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| # Find on RStudio Cloud: https://bit.ly/tidypumpkin | |
| # inspirations ----------------------------------------------------------------- | |
| # https://twitter.com/alyssastweeting/status/1450270826347913220 | |
| # https://twitter.com/Emma_McHuge/status/1450434288319537162 | |
| # load packages ---------------------------------------------------------------- | |
| library(tidyverse) |