diff --git a/.woodpecker/process_cran_updates.yaml b/.woodpecker/process_cran_updates.yaml index 6c740ce..29e363b 100644 --- a/.woodpecker/process_cran_updates.yaml +++ b/.woodpecker/process_cran_updates.yaml @@ -47,7 +47,7 @@ steps: ### PROD resources: requests: - memory: 13Gi + memory: 10Gi cpu: 1000m limits: memory: 13Gi diff --git a/NAMESPACE b/NAMESPACE index 4933f12..350fd4b 100644 --- a/NAMESPACE +++ b/NAMESPACE @@ -4,9 +4,14 @@ export(add_to_package_index) export(build_binary_package) export(build_single_tag) export(dbcon) +export(get_cranberries_feed) +export(get_new_cran_packages) +export(get_removed_cran_packages) +export(get_updated_cran_packages) export(install_package_system_dependencies) export(list_metadata_tables) export(process_cran_updates) +export(process_cranberries_rss) export(query_metadata_table) export(set_bin_path) export(set_codename) diff --git a/R/get_updated_packages.R b/R/get_updated_packages.R index d054c77..c7942fd 100644 --- a/R/get_updated_packages.R +++ b/R/get_updated_packages.R @@ -4,7 +4,7 @@ #' @importFrom lubridate today #' @examples #' get_updated_cran_packages(lubridate::interval(today() - 7, today())) -#' +#' @export get_updated_cran_packages <- function(date = lubridate::today()) { feed <- get_cranberries_feed() @@ -19,6 +19,7 @@ get_updated_cran_packages <- function(date = lubridate::today()) { #' @importFrom magrittr %>% #' @importFrom purrr map list_rbind #' @importFrom lubridate today +#' @export #' @examples #' # last week #' get_new_cran_packages(lubridate::interval(today() - 7, today())) @@ -37,6 +38,7 @@ get_new_cran_packages <- function(date = lubridate::today()) { #' @importFrom magrittr %>% #' @importFrom purrr map list_rbind #' @importFrom lubridate today +#' @export #' @examples #' get_removed_cran_packages() #' get_removed_cran_packages(lubridate::interval(today() - 7, today())) @@ -53,6 +55,7 @@ get_removed_cran_packages <- function(date = lubridate::today()) { #' Get Cranberries fieed #' @importFrom xml2 read_xml xml_find_all +#' @export #' @param type Which type of packages to query. Allowed are `"updated"`, `"new"` and `"removed"` get_cranberries_feed <- function(type = "updated") { feed <- sprintf("https://dirk.eddelbuettel.com/cranberries/cran/%s/index.rss", type) @@ -68,6 +71,7 @@ get_cranberries_feed <- function(type = "updated") { #' @importFrom lubridate dmy_hms as_date interval %within% #' @importFrom xml2 xml_text xml_find_first +#' @export process_cranberries_rss <- function(feed, date = lubridate::today()) { title <- xml_text(xml_find_first(feed, "title")) pub_date_text <- xml_text(xml_find_first(feed, "pubDate")) diff --git a/man/get_updated_cran_packages.Rd b/man/get_updated_cran_packages.Rd index 866aedc..9d46cf5 100644 --- a/man/get_updated_cran_packages.Rd +++ b/man/get_updated_cran_packages.Rd @@ -11,5 +11,4 @@ Get updated CRAN packages } \examples{ get_updated_cran_packages(lubridate::interval(today() - 7, today())) - }