add cfde-opportunity-numbers fetcher

NAMESPACE

@@ -1,5 +1,6 @@
 # Generated by roxygen2: do not edit by hand
 
+export(cfde_opportunity_numbers)
 export(epmc_search)
 export(ga_dataframe)
 export(ga_meta_simple)
@@ -35,6 +36,9 @@ importFrom(rlang,.data)
 importFrom(rlang,abort)
 importFrom(rlang,format_error_bullets)
 importFrom(rlang,inform)
+importFrom(rvest,html_attr)
+importFrom(rvest,html_nodes)
+importFrom(rvest,read_html)
 importFrom(stringr,regex)
 importFrom(stringr,str_detect)
 importFrom(tibble,tibble)

R/cfde_opportunity_numbers.R

@@ -0,0 +1,40 @@
+#' All CFDE Funding Opportunity Numbers
+#' 
+#' This function retrieves all CFDE funding
+#' opportunity numbers from the CFDE funding
+#' website, \url{https://commonfund.nih.gov/dataecosystem/FundingOpportunities}.
+#' 
+#' Note that this function is specific to the CFDE
+#' program and is not a general-purpose web scraping
+#' function. 
+#' 
+#' @importFrom rvest read_html html_nodes html_attr
+#' 
+#' 
+#' @param url The URL of the CFDE funding webpage
+#' @return a character vector of funding opportunity numbers.
+#' 
+#' @examples 
+#' 
+#' \dontrun{
+#' browseURL("https://commonfund.nih.gov/dataecosystem/FundingOpportunities")
+#' }
+#' 
+#' cfde_opportunity_numbers()
+#' 
+#' @export
+cfde_opportunity_numbers <- function(
+  url = "https://commonfund.nih.gov/dataecosystem/FundingOpportunities"
+) {
+
+  hrefs <- rvest::read_html(url) |>
+    rvest::html_nodes("a") |>
+    rvest::html_attr("href")
+  hrefs_filtered <- grep('NOT|RFA|OTA', hrefs, value = TRUE)
+
+  pattern <- "(RFA|OTA|NOT)-[A-Z]{2}-\\d{2}-\\d{3}"
+
+  matches <- regmatches(hrefs_filtered, regexpr(pattern, hrefs_filtered, perl=TRUE))
+  matches <- na.omit(matches)
+  matches[nzchar(matches)]
+}

tests/testthat/test_cfde_opportunity_numbers.R

@@ -0,0 +1,12 @@
+test_that("cfde_opportunity_numbers returns a character vector", {
+  # Test with a known CFDE opportunity number
+  result <- cfde_opportunity_numbers()
+  expect_type(result, "character")
+})
+
+test_that("cfde_opportunity_numbers returns expected pattern", {
+  # Test that the returned opportunity numbers match the expected pattern
+  result <- cfde_opportunity_numbers()
+  pattern <- "(RFA|OTA|NOT)-[A-Z]{2}-\\d{2}-\\d{3}"
+  expect_true(all(grepl(pattern, result)))
+})