pass down interval

This commit is contained in:
Patrick Schratz 2024-08-28 11:24:29 +02:00
commit 9ddbfca4a4
Signed by: pat-s
GPG key ID: 3C6318841EF78925
2 changed files with 2 additions and 3 deletions

View file

@ -80,7 +80,6 @@ process_cranberries_rss <- function(feed, date = lubridate::today()) {
date <- lubridate::interval(date, date)
}
# browser()
if (pub_date %within% date) {
if (grepl("updated", title)) {
package_info <- strsplit(title, " ")[[1]]

View file

@ -21,8 +21,8 @@ process_cran_updates <- function(
region = "eu-central-003",
bucket = "devxy-arm64-r-binaries") {
# Get list of updated and new packages for a specific day
updated_pkgs <- get_updated_cran_packages()
new_pkgs <- get_new_cran_packages()
updated_pkgs <- get_updated_cran_packages(interval)
new_pkgs <- get_new_cran_packages(interval)
all_pkgs <- dplyr::bind_rows(updated_pkgs, new_pkgs)