fix

ncss-tech · Nov 30, 2023 · 958f36a · 958f36a
1 parent 25ab739
commit 958f36a
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 9 deletions.
diff --git a/R/create_PLANTS.R b/R/create_PLANTS.R
@@ -2,16 +2,14 @@
 #
 #' Create PLANTS Dataset
 #'
-#' @param ... Arguments to `create_*()` function. Only `outpath` supported at this time.
-#' @return TRUE if successful
+#' @param ... Arguments to `parse_PLANTS()` function. Only `outpath` supported at this time.
+#' @return `TRUE` if successful
 #' @export
 #' @importFrom data.table fread
 create_PLANTS <- function(...) {
-
-  args <- list(...)
-  if (!is.null(args[["outpath"]])) {
-    outpath <- args[["outpath"]]
-  }
+  parse_PLANTS(...)
+}
+parse_PLANTS <- function(outpath = "inst/extdata", ...) {
 
   x <- data.table::fread('https://plants.usda.gov/assets/docs/CompletePLANTSList/plantlst.txt')
 

diff --git a/man/create_PLANTS.Rd b/man/create_PLANTS.Rd