") 
glimpse(tx_names) 
```
````

Other options:

+ `highlight.output = TRUE`
+ `highlight.output = c(1, 3)`
]

.pull-right[


```r
library(babynames)
library(tidyverse)
tx_names &lt;- babynames %&gt;%
  filter(name == "Dallas" | 
         name == "Austin") %&gt;%
  filter(sex == "F") 
glimpse(tx_names) 
```

```
## Observations: 167
## Variables: 5
*## $ year &lt;dbl&gt; 1892, 1894, 1896, 1899, 1900, 1903, 1904, 1905, 1906, 1907,‚Ä¶
*## $ sex  &lt;chr&gt; "F", "F", "F", "F", "F", "F", "F", "F", "F", "F"