use documented dwc terms dataset instead of inst txt file

.Rbuildignore

@@ -24,3 +24,4 @@ revdep/library.noindex
 ^doc$
 ^Meta$
 ^vignettes/figure$
+^data-raw$

DESCRIPTION

@@ -20,6 +20,8 @@ URL: https://github.com/ropensci/rvertnet (devel)
 BugReports: https://github.com/ropensci/rvertnet/issues
 Encoding: UTF-8
 Roxygen: list(markdown = TRUE)
+Depends:
+    R (>= 2.10)
 Imports:
     jsonlite (>= 1.5),
     crul (>= 0.5.2),
@@ -38,3 +40,4 @@ X-schema.org-applicationCategory: Data Access
 X-schema.org-keywords: species, occurrences, biodiversity, maps, vertnet, mammals, mammalia, specimens
 X-schema.org-isPartOf: "https://ropensci.org"
 VignetteBuilder: knitr
+LazyData: true

R/data.R

@@ -0,0 +1,8 @@
+#' Darwin core terms
+#'
+#' Used internally by [vert_id()] to filter data to Darwin core terms only. Get in touch with us if these terms need correcting or are out of date.
+#'
+#' @format ## `simple_dwc_terms`
+#' A character vector
+#' @source <https://raw.githubusercontent.com/tdwg/dwc/master/dist/simple_dwc_vertical.csv>
+"simple_dwc_terms"

R/vert_id.R

@@ -13,12 +13,11 @@
 #' (i.e., with http://...), while others start with `urn`.
 #' 
 #' Internally in this function we filter data to darwin core terms only. To 
-#' see what terms we use, do 
-#' \code{readLines(
-#' system.file("extdata", "simple_dwc_terms.txt", package = "rvertnet"))}. 
-#' Get in touch with us if these terms need correcting/are out of date. The
-#' terms are from 
-#' https://github.com/tdwg/dwc/blob/master/dist/simple_dwc_horizontal.csv
+#' see what terms we use, see:
+#' \code{print(simple_dwc_terms)}.
+#'
+#' See documentation for more information:
+#' \code{?simple_dwc_terms}
 #'
 #' @examples \dontrun{
 #' vert_id(ids = "urn:catalog:CM:Herps:116520")
@@ -48,8 +47,7 @@ vert_id <- function(ids, compact = TRUE, messages = TRUE, ...) {
     result
   }
   names(df) <- tolower(names(df))
-  res <- get_terms()
-  df <- df[ , names(df) %in% res ]
+  df <- df[ , names(df) %in% rvertnet::simple_dwc_terms]
   if (compact) { 
     df <- df[ , !sapply(df, function(x) all(is.na(x))) ]
   }

R/zzz.R

@@ -33,12 +33,6 @@ vertwrapper <- function(fxn = "", args = NULL, lim = NULL, rfile = NULL,
 
 mssg <- function(v, ...) if (v) message(...)
 
-get_terms <- function() {
-  readLines(
-    system.file("extdata", "simple_dwc_terms.txt", package = "rvertnet")
-  )
-}
-
 vert_GET <- function(fxn="searchbyterm", args, limit = 1000, messages = TRUE,
                      only_dwc = TRUE, callopts = list(), ...) {
   cursor <- NULL
@@ -70,8 +64,7 @@ vert_GET <- function(fxn="searchbyterm", args, limit = 1000, messages = TRUE,
   }
   names(df) <- tolower(names(df))
   if (only_dwc) {
-    res <- get_terms()
-    df <- df[ , names(df) %in% res ]
+    df <- df[ , names(df) %in% rvertnet::simple_dwc_terms]
   }
   mssg(messages, paste("\nLast Query URL: \"", URLdecode(tt$url), "\"", sep = ""))
   mssg(messages, paste("\nMatching records:", NROW(df), "returned,", avail, "available", sep = " "))

data-raw/simple_dwc_terms.R

@@ -0,0 +1,6 @@
+simple_dwc_terms <-
+  tolower(
+    readLines(
+      'https://raw.githubusercontent.com/tdwg/dwc/master/dist/simple_dwc_vertical.csv'))
+
+usethis::use_data(simple_dwc_terms, overwrite = TRUE)