Merge pull request #60 from RobLBaker/master

Bugfix for create_datastore_script
nationalparkservice · Dec 21, 2023 · 930652d · 930652d
2 parents edde7f6 + 9e3aeb7
commit 930652d
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 5 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: QCkit
 Type: Package
 Title: NPS Inventory and Monitoring Quality Control Toolkit
-Version: 0.1.2
+Version: 0.1.3
 Authors@R: c(
   person(given = "Robert",
            family = "Baker",

diff --git a/NEWS.md b/NEWS.md
@@ -1,12 +1,13 @@
-# QC kit v0.1.2
+# QC kit v0.1.3
 2023-12-18
+* Bugfix for `create_datastore_script()`
 * Added automated build check and pkgdown github pages builds via github actions
 * Code cleanup via linter suggests 
 * Added warning about turning off VPN for the `covert_utm_to_ll()` documentation
 * Moved `convert_datetime_format()` from DPchecker to QCkit
 * Added funtion `fix_utc_offset()`
 
-# QCkit 0.1.1 "Automated Shuttle Pilot"
+# QCkit 0.1.2 "Automated Shuttle Pilot"
 2023-11-20
 * Added the function `create_datastore_scipt()`, which given a username and repo for GitHub will generate a draft Script Reference on DataStore based on the information found in the latest Release on GitHub.
 

diff --git a/R/datastore_interactions.R b/R/datastore_interactions.R
@@ -76,8 +76,7 @@ create_datastore_script <- function(owner,
   #search for title in title list, if force == false:
   if (force == FALSE) {
     if (length(items) > 0) {
-      matches <- items %>% filter(stringr::str_detect(items$title,
-                                                      new_ref_title))
+      matches <- dplyr::filter(items, grepl(new_ref_title, title))
       if (length(seq_along(matches$title) > 0)) {
         cat("One or more DataStore references with title containing: ",
             new_ref_title,