From 9ddbfca4a467ef5309eed98d0ab0631d4c5e30c1 Mon Sep 17 00:00:00 2001 From: pat-s Date: Wed, 28 Aug 2024 11:24:29 +0200 Subject: [PATCH] pass down `interval` --- R/get_updated_packages.R | 1 - R/process_cran_updates.R | 4 ++-- 2 files changed, 2 insertions(+), 3 deletions(-) diff --git a/R/get_updated_packages.R b/R/get_updated_packages.R index 8dc0f60..c64ea37 100644 --- a/R/get_updated_packages.R +++ b/R/get_updated_packages.R @@ -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]] diff --git a/R/process_cran_updates.R b/R/process_cran_updates.R index b389c69..205ecfa 100644 --- a/R/process_cran_updates.R +++ b/R/process_cran_updates.R @@ -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)