## ### Exercise 2
## 
## Start your code with `cces`. Use the pipe operator `|>` to add the
## function `filter()`, selecting the  rows where `state` is equal to
## "Massachusetts". To set something equal to a value in `filter()`
## use two equal signs: `==`.
## 
## ```{r filter-2, exercise = TRUE}
## ```
## 
## ```{r filter-2-hint-1, eval = FALSE}
## cces |>
##   filter(state == "...")
## ```
## 
## ```{r filter-2-test, include = FALSE}
## cces |>
##   filter(state == "Massachusetts")
## ```
## ###
## 
## `==` is used because it is **checking** whether the value of the
## variable on the left is equal to the value on the left. See
## [here](https://stat.ethz.ch/R-manual/R-devel/library/base/html/Comparison.html)
## for discussion of other relational operators in R.
## A single equation symbol, `=`, is used to set something equal to
## something else.

## ```{r ex-1-hint-1, eval = FALSE}
## This is an example hint. Normally sentences like these
## would cause an error in R because it is not proper code.
## However, since we include eval = FALSE in the r-chunk,
## R ignores all errors!
## ```

## ```{r ex-1-hint-2, eval = FALSE}
## ... |>
##   filter(year = ...) |>
##   ...(flights)
## ```

## ### Exercise 6
## 
## Explain potential outcomes in about two sentences.
## 
## ```{r definitions-6}
## question_text(NULL,
##     message = "This is where we place the correct answer. It will appear only after
##     students have submitted their own answers. Note that we do not need to wrap the
##     answer text by hand.",
##     answer(NULL,
##            correct = TRUE),
##     allow_retry = FALSE,
##     incorrect = NULL,
##     rows = 6)
## ```

## ### Exercise 7
## 
## From the Console, run `list.files()`. CP/CR.
## 
## ```{r file-creation-7}
##   question_text(NULL,
##     answer(NULL, correct = TRUE),
##     allow_retry = TRUE,
##     try_again_button = "Edit Answer",
##     incorrect = NULL,
##     rows = 3)
## ```

## In the Console, run:
## 
## ```
## tutorial.helpers::show_file("_quarto.yml")
## ```
## 
## CP/CR.

## ----eval = FALSE-------------------------------------------------------------
# x <- read_csv("data/myfile.csv")


## ```{r}
## include_graphics("images/example.png")
## ```

## ----eval = FALSE-------------------------------------------------------------
# rmarkdown::render("inst/tutorials/02-terminal/tutorial.Rmd")