Scraped表返回空数据框

Question

我正试图刮掉两件事。我想使用以下代码从页面上的每个学校中提取链接：

scraped_links <- read_html("https://www.scholenopdekaart.nl/middelbare-scholen/zoeken/") %>%
  html_nodes("a.school-naam") %>%
  html_attr("href") %>%
  html_table() %>%
  as.data.frame() %>%
  as.tbl()

然后我想刮掉这些页面上的表格：

scraped_tables <- read_html("https://www.scholenopdekaart.nl/Middelbare-scholen/146/1086/Almere-College/Slaagpercentage") %>%
  html_nodes(xpath = "/html/body/div[3]/div[3]/div[1]/div[3]/div[3]/div[3]") %>%
  html_table() %>%
  as.data.frame() %>%
  as.tbl()

它们都返回空数据帧。我尝试过css选择器，多个xpath，但我无法让它工作......希望有人可以帮助我。