html_text -> html_text2

2023-08-30 22:05:52 -03:00 · 2023-08-30 22:05:52 -03:00 · 4c72dc6e12
parent ba0c41ba3d
commit 4c72dc6e12
1 changed files with 1 additions and 1 deletions
--- a/scripts/4chan
+++ b/scripts/4chan
@ -102,7 +102,7 @@ df_links$txt <- paste("https://boards.4chan.org/pol/", df_links$txt, sep = "")
 # to each row in the data frame
 threads <- lapply(df_links$txt, function(x) {
  read_html(x) %>%
-    html_text()})
+    html_text2()})

 # Turn "threads" into a tibble so tidytex can manipulate it
 threads_tibble <- tibble(txt = threads)