Я хочу прочитать файл html и преобразовать его в текст. Я использовал list.files для вывода списка всех файлов в папке.
htmlfile <- list.files("filings/",recursive = TRUE)
htmltext <- data.frame()
for (i in 1:length(htmlfile)) {
this_file <- htmlfile[i]
this_text <- read_html(paste0("filings/",this_file)) %>%
html_text()
htmltext <- bind_rows(htmltext,this_text)
}