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)
|
date <- lubridate::interval(date, date)
|
||||||
}
|
}
|
||||||
|
|
||||||
# browser()
|
|
||||||
if (pub_date %within% date) {
|
if (pub_date %within% date) {
|
||||||
if (grepl("updated", title)) {
|
if (grepl("updated", title)) {
|
||||||
package_info <- strsplit(title, " ")[[1]]
|
package_info <- strsplit(title, " ")[[1]]
|
||||||
|
|
|
||||||
|
|
@ -21,8 +21,8 @@ process_cran_updates <- function(
|
||||||
region = "eu-central-003",
|
region = "eu-central-003",
|
||||||
bucket = "devxy-arm64-r-binaries") {
|
bucket = "devxy-arm64-r-binaries") {
|
||||||
# Get list of updated and new packages for a specific day
|
# Get list of updated and new packages for a specific day
|
||||||
updated_pkgs <- get_updated_cran_packages()
|
updated_pkgs <- get_updated_cran_packages(interval)
|
||||||
new_pkgs <- get_new_cran_packages()
|
new_pkgs <- get_new_cran_packages(interval)
|
||||||
|
|
||||||
all_pkgs <- dplyr::bind_rows(updated_pkgs, new_pkgs)
|
all_pkgs <- dplyr::bind_rows(updated_pkgs, new_pkgs)
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Reference in a new issue