加载包&获取html

Code

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

Code

```{r}
html <- read_html("https://admission.sysu.edu.cn/zsw/lnfs.html")
html
```

{html_document}
<html>
[1] <head>\n<title>历年分数</title>\n<meta http-equiv="Content-Type" content="tex ...
[2] <body>\r\n\t<!-- cemyun -->\r\n\t<script id="eda_bar_script" src="https:/ ...

Code

```{r}
html |> html_elements("#sszygradeListPlace")|> html_table()
```

[[1]]
# A tibble: 0 × 0

References

Wickham, Hadley. 2024. Rvest: Easily Harvest (Scrape) Web Pages. https://rvest.tidyverse.org/.