diff --git a/R/youtube_links.R b/R/youtube_links.R index 4e77f3b..78244ac 100644 --- a/R/youtube_links.R +++ b/R/youtube_links.R @@ -5,4 +5,4 @@ path_to_submissions <- "~/Downloads/submissions/" files <- list.files(path_to_submissions) a <- map(paste0(path_to_submissions, files), read_html) links <- map_chr(a, ~.x |> html_element("a") |> html_attr("href")) -writeLines(links, "MonWedLinks.txt") +writeLines(links, "notes/MonWedLinks.txt")