我正在嘗試抓取 2017-2021 年的失業率表。但在我刮桌子之前，我想先弄清楚如何導航到每個頁面。這是我到目前為止所擁有的
library(RSelenium)
library(rvest)
library(tidyverse)
library(netstat)
# start server
remote_driver <- rsDriver(browser = 'chrome',
chromever = '99.0.4844.51',
verbose = F,
port = free_port())
#create client object
rd <- remote_driver$client
# open browser
rd$open()
# maximize window
rd$maxWindowSize()
# navigate to page
rd$navigate('https://www.bls.gov/lau/tables.htm')
years <- c(2017:2021)
for (i in years) {
rd$findElement(using = 'link text', years)$clickElement()
Sys.sleep(3)
rd$goBack
}
但它給出了錯誤
Selenium message:java.util.ArrayList cannot be cast to java.lang.String
Error: Summary: UnknownError
Detail: An unknown server-side error occurred while processing the command.
Further Details: run errorDetails method
我原本打算使用rvest，但我不知道如何制作頁面序列，因為鏈接都以.htm 結尾。不僅如此，主鏈接是/tables，其他鏈接是/lastrk。堅持使用硒似乎更容易。
那么，有什么建議嗎？
uj5u.com熱心網友回復：
獲取2016 年至 2020 年大都市地區的失業率表。
鏈接遵循類似的模式，因此可以由我們制作。
library(rvest)
library(dplyr)
df = lapply(c(16:20), function(x) {
link = paste0('https://www.bls.gov/lau/lamtrk', x, '.htm')
df1 =link %>% read_html() %>% html_nodes('.regular') %>%
html_table()
df = df1[[1]]
return(df)
}
)
轉載請註明出處，本文鏈接：https://www.uj5u.com/qita/447415.html