_02_yourturn_answers.qmd

---
title: "Your Turn"
---

```{r}
library(tidyverse)
library(rvest)
```


Gather the HTML for

http://www.vondel.humanities.uva.nl/ecartico/persons/37598


```{r}
mypage <- read_html("http://www.vondel.humanities.uva.nl/ecartico/persons/37598")
mypage
```


Display all the href attributes for the anchor text on the collected page

```{r}
mypage %>% 
  html_nodes("a") %>% 
  html_attr("href")
```

Practice using selector gadget and gather only the text from the list items in the sections: Marriages, Occupation(s), and Occupational address(es).


```{r}
mypage %>% 
  html_nodes("h2+ ul a") %>% 
  html_text()
```


What are the main subject headings on the page?

```{r}
mypage %>% 
  html_nodes("h2") %>% 
  html_text()
```