pagelinklists <- NULL
for(i in (2:144)){
page <- qq("https://forum.federalsoup.com/default.aspx?g=topics&f=4&p=@{i}")
pagenumber <- LinkExtractor(page)
pagelinklists <- c(pagelinklists, pagenumber$InternalLinks)
}
pagelinklists <- gsub("amp;", "", pagelinklists)
pagelinklists <- pagelinklists [str_detect(pagelinklists, "g\\=posts\\&t\\=\\d+$")]
pagelinklists <- unique(c(URLlist, pagelinklists))
for(i in (pagelinklists)){
pages <- LinkExtractor(i)
subpages <- c(subpages, pages$InternalLinks)
subpages <- gsub("amp;", "", subpages)
subpages <- subpages [str_detect(subpages, "g=posts\\&t=\\d+\\&p=\\d+$")]
}
Я ввел вышеупомянутые строки, которые должны выплевывать переменную списков URL, которые я ищу. Однако есть Ошибка:: '' не существует в текущем рабочем каталоге. Я не уверен, что делать сейчас