Mine Cetinkaya-Rundel mine-cetinkaya-rundel

## code-highlighting-example.qmd
---
format: revealjs
execute:
  echo: true
  engine: knitr
---

# Option 1: `code-line-numbers`

## RStudio Projects

## multiple-chunks-highlight-revealjs.qmd
---
format:
  revealjs:
    highlight-style: a11y-dark
execute:
  echo: true
---

```{r}
#| code-line-numbers: "|1|2"

## tidypumpkin.R
# 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)

## lms-bs.R
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,

## learnr-dark.css
body {
	font-size: 16px;
}
.topicsList .topic {
    font-size: 18px;
}
p.caption {
   font-size: 0.6em;
}

## the-one-with-the-most-words.R
# 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")

## you-guys.R
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

## learnr-hint-mixed.Rmd
---
output: learnr::tutorial
runtime: shiny_prerendered
---

```{r setup, include=FALSE}
library(learnr)
```

## Exercise with Hint

## yesterday-tweets.R
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")):

## learnr-hint.Rmd
---
output: learnr::tutorial
runtime: shiny_prerendered
---

```{r setup, include=FALSE}
library(learnr)
```

## Exercise with Hint
	---
	format: revealjs
	execute:
	echo: true
	engine: knitr
	---

	# Option 1: `code-line-numbers`

	## RStudio Projects
	---
	format:
	revealjs:
	highlight-style: a11y-dark
	execute:
	echo: true
	---

	```{r}
	#\| code-line-numbers: "\|1\|2"
	# 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)
	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,
	body {
	font-size: 16px;
	}
	.topicsList .topic {
	font-size: 18px;
	}
	p.caption {
	font-size: 0.6em;
	}
	# 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")
	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
	---
	output: learnr::tutorial
	runtime: shiny_prerendered
	---

	```{r setup, include=FALSE}
	library(learnr)
	```

	## Exercise with Hint
	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")):