retrieve_ark function

DESCRIPTION

@@ -1,5 +1,5 @@
 Package: arktax
-Title: What the Package Does (One Line, Title Case)
+Title: Archive: NUCC Taxonomy Codesets, 2009 - 2024
 Version: 0.0.0.9000
 Authors@R: 
     person("Andrew", "Bruce", , "andrewallenbruce@gmail.com", role = c("aut", "cre", "cph"))
@@ -10,12 +10,18 @@ URL: https://github.com/andrewallenbruce/arktax,
     https://andrewallenbruce.github.io/arktax/
 BugReports: https://github.com/andrewallenbruce/arktax/issues
 Imports: 
+    data.table,
+    dplyr,
     fs,
+    fuimus,
     glue,
     pins
 Suggests: 
     roxyglobals,
-    testthat (>= 3.0.0)
+    testthat (>= 3.0.0),
+    qs
+Remotes: 
+    andrewallenbruce/fuimus
 Config/roxyglobals/filename: generated-globals.R
 Config/roxyglobals/unique: TRUE
 Config/testthat/edition: 3

NAMESPACE

@@ -4,7 +4,11 @@ export(get_pin)
 export(gh_raw)
 export(list_pins)
 export(mount_board)
+export(retrieve_ark)
+importFrom(data.table,year)
+importFrom(dplyr,mutate)
 importFrom(fs,path_package)
+importFrom(fuimus,search_in_if)
 importFrom(glue,glue)
 importFrom(pins,board_folder)
 importFrom(pins,board_url)

R/arktax.R

@@ -0,0 +1,33 @@
+#' Get Taxomony Source File
+#'
+#' @param year `<int>` year of rvu source file; default is `2020`
+#'
+#' @param code `<chr>` Taxonomy code
+#'
+#' @returns `<tibble>` of search results
+#'
+#' @examples
+#' retrieve_ark(2024, "101Y00000X")
+#'
+#' @importFrom dplyr mutate
+#' @importFrom data.table year
+#' @importFrom fuimus search_in_if
+#'
+#' @autoglobal
+#'
+#' @export
+retrieve_ark <- function(year = 2024, code = NULL) {
+
+  ark <- get_pin("ark_taxonomy") |>
+    mutate(year = as.character(year(release_date)))
+
+  year <- match.arg(
+    arg = as.character(year),
+    choices = as.character(ark[["year"]]),
+    several.ok = TRUE)
+
+  ark <- search_in_if(ark, ark[["year"]], year)
+  ark <- search_in_if(ark, ark[["code"]], code)
+
+  return(ark)
+}

R/generated-globals.R

@@ -1,5 +1,7 @@
 # Generated by roxyglobals: do not edit by hand
 
 utils::globalVariables(c(
+  # <retrieve_ark>
+  "release_date",
   NULL
 ))