r（ループあり）のウェブスクレイピング

Question

this linkのデータをスクレイプし、csvのテーブルを保存する必要があります。私が今持っているもの：しかし、私はループを実行する方法を見つけ出すことはできません

library(rvest) 
webpage <- read_html("https://bra.areacodebase.com/number_type/M?page=0") 
data <- webpage %>% 
    html_nodes("table") %>% 
    .[[1]] %>% 
    html_table() 
url<- "https://bra.areacodebase.com/number_type/M?page=0" 
webpage2<- html_session(url) %>% follow_link(css = ".pager-next a") 
data2 <- webpage %>% 
html_nodes("table") %>% 
.[[1]] %>% 
    html_table() 
data_all <- rbind(data, data2) 
write.table(data_all, "df_data.csv", sep = ";", na = "", quote = FALSE, row.names = FALSE) 

#result<- lapply(webpage, %>% follow_link(css = ".pager-next a")) 
#data_all <- rbind(data:data2) 

： 私は、最初のページ、2ページ目をrvest使ってスクラップして、このコードを使用して、これらのテーブルを保存することができます。

Answer 1

あなたは、直接URLを介してfollow_linkで次のリンクに行くか、ページを取得することができ、次のいずれか

webpage <- "https://bra.areacodebase.com/number_type/M?page=0" 

for(i in 2:5089) { 
    data <- read_html(webpage) %>% 
    html_nodes("table") %>% 
    .[[1]] %>% 
    html_table() 

    webpage <- html_session(webpage) %>% follow_link(css = ".pager-next a") %>% .[["url"]] 
} 

か、直接URLを持つ：

for(i in 0:5089) { 
    webpage <- read_html(paste0("https://bra.areacodebase.com/number_type/M?page=", i)) 
    data <- webpage %>% 
    html_nodes("table") %>% 
    .[[1]] %>% 
    html_table() 
}