pass down interval
This commit is contained in:
parent
3f3414e49e
commit
9ddbfca4a4
2 changed files with 2 additions and 3 deletions
|
|
@ -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]]
|
||||
|
|
|
|||
|
|
@ -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)
|
||||
|
||||
|
|
|
|||
Loading…
Reference in a new issue