Mine Cetinkaya-Rundel mine-cetinkaya-rundel
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 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")): |
This file contains 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
/ 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 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( |
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
/ nyt-first-said.R
Created
April 13, 2020 08:13
NYT First Said counts, labelling highest
This file contains 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(rtweet) | |
| library(tidyverse) | |
| library(glue) | |
| rt <- get_timeline( | |
| user = "@NYT_first_said", | |
| n = 18000 | |
| ) | |
| rt <- rt %>% |
mine-cetinkaya-rundel
/ theming_rprofile.R
Last active
May 15, 2024 15:41
Add to your .Rprofile to change RStudio theme based on hour of the day (dark mode 8pm-6am, light mode 7am-7pm)
This file contains 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
| # theme options based on hour of day ------------------------------------------- | |
| # based on https://github.com/rstudio/rstudio/issues/1579 | |
| setHook("rstudio.sessionInit", function(chooseTheme) { | |
| if (chooseTheme) { | |
| if (as.numeric(format(as.POSIXct(Sys.time(), format = "%H:%M:%S"), "%H")) %in% c(0:5, 21:23)) { | |
| if (rstudioapi::getThemeInfo()$editor != "Solarized Dark") rstudioapi::applyTheme("Solarized Dark") | |
| } else { | |
| if (rstudioapi::getThemeInfo()$editor != "Solarized Light") rstudioapi::applyTheme("Solarized Light") | |
| } | |
| } |
This file contains 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
| # data source ------------------------------------------------------------------ | |
| # Are federal laws on gun ownership too strict? Not strict enough? Or just about right? | |
| # http://www.surveyusa.com/client/PollReport.aspx?g=e2893631-b41f-40e1-a049-86e0849670ce | |
| # load packages ---------------------------------------------------------------- | |
| library(tidyverse) | |
| # frequency table -------------------------------------------------------------- | |
| freq_table <- tribble( |
mine-cetinkaya-rundel
/ shiny-intro.R
Last active
July 31, 2020 10:47
Intro walkthrough in Shiny app
This file contains 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(shiny) | |
| library(rintrojs) | |
| ui <- fluidPage( | |
| introjsUI(), # Must include UI | |
| titlePanel("Hello Shiny!"), | |
| sidebarLayout( | |
| sidebarPanel( | |
| sliderInput(inputId = "bins", |
mine-cetinkaya-rundel
/ door.R
Last active
September 21, 2019 22:50
Needed to put my name on my door, naturally I used #rstats for it
This file contains 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(tidyverse) | |
| library(patchwork) | |
| # m ---------------------------------------------------------------------------- | |
| m_df <- tribble( | |
| ~column, ~height, | |
| "h1", 50, |
mine-cetinkaya-rundel
/ unnest_with_nulls.R
Last active
July 3, 2019 12:38
This file contains 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(tidyr) | |
| library(dplyr, warn.conflicts = FALSE) | |
| library(purrr) | |
| x <- tibble( | |
| v1 = list(NULL), | |
| v2 = list("something"), | |
| v3 = list(NULL) | |
| ) |