Присвойте номера строкам, которые похожи на номера циклов в R - PullRequest
Новая
       15

Присвойте номера строкам, которые похожи на номера циклов в R

0 голосов
/ 26 июня 2019

Я очищаю сайт в R (пакет rvest) и хочу создать в каждом проанализированном CSV-файле новый столбец и 1) назначить номера, похожие на номера моих циклов, или 2) создать новый столбец и назначить специальное значение (который я получил, используя узлы rvest). Я могу присвоить эти номера, если я выброшу только одну страницу, но это не то, что мне нужно. И цикл for работает плавно.

Вот мой код для цикла 

registered <- for (n in c(11:12)){     
  url_2019 <- 
paste0("https://www.cvk.gov.ua/pls/vnd2019/wp033pt001f01=919pf7331=", n 
,".html")
  results_2019 <- read_html(url_2019)%>% html_table(fill = TRUE)

results_2019[[6]]%>%as.data.frame

  #dir.create("registered_major_2019")
  file <- paste0("registered_major_2019/dist_", n, ".csv")
  if (!file.exists(file)) write.csv(results_2019[[6]], file, fileEncoding 
= "Windows-1251") 

Sys.sleep(0.5)
}

И я знаю, чтобы сделать это отдельно 

url_2019 <- 

paste0("https://www.cvk.gov.ua/pls/vnd2019/wp033pt001f01=919pf7331=11
.html")

results_2019 <- read_html(url_2019)%>% html_table(fill = TRUE)
pfont <-  read_html(url_2019)%>% html_node("font")%>%html_text()
# This is actually what I need
results_2019a <- data.frame(results_2019[[6]], pfont)

Но не могу понять, как это сделать для (). Я пробовал это, но это не работает: 

registered <- for (n in c(11:12)){     
  url_2019 <- 
paste0("https://www.cvk.gov.ua/pls/vnd2019/wp033pt001f01=919pf7331=", n 
,".html")

results_2019 <- read_html(url_2019)%>% html_table(fill = TRUE)%>%data.frame()

pfont <-  read_html(url_2019)%>% html_node("font")%>%html_text()

  df <- data.frame(results_2019[[6]], pfont)

 #dir.create("registered_major_2019")
     file <- paste0("registered_major_2019/dist_", n, ".csv")
    if (!file.exists(file)) write.csv(df, file, fileEncoding = "Windows- 
 1251") 

  Sys.sleep(0.5)
 }
...