search

SwissClinicalTrialOrganisation / pkg_validation

R Package Validation trial repo
https://swissclinicaltrialorganisation.github.io/pkg_validation/
0 stars 1 forks source link

Read cranberries RSS #4

Closed aghaynes closed 8 months ago

aghaynes commented 8 months ago

Might be useful?

library(tidyRSS)

today <- Sys.Date()

last7days <- today - 7

lapply(last7days:today, 
       function(x){
         day <- as.character(format(as.Date(x, origin = "1970-01-01"), format = "%Y/%m/%d"))
         feed <- glue::glue("dirk.eddelbuettel.com/cranberries/{day}/index.rss")
         print(feed)
         tidyfeed(feed)
       }) |> do.call("rbind", args = _) |> View()

tidyfeed("dirk.eddelbuettel.com/cranberries/2023/08/index.rss") |> nrow()