Fix otn_query CQL regex to match exact project name with optional node

Author: mhpob

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: otndo
 Title: Understand your OTN data
-Version: 0.3.1
+Version: 0.3.2
 Authors@R: 
     person("Michael", "O'Brien", , "mike@obrien.page", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0003-1420-6395"))

NEWS.md

@@ -1,4 +1,10 @@
 ## otndo 0.3
+### v 0.3.2
+* Fix bug where `otn_query` could return multiple projects from one code, resulting in multiple identical reports being created.
+
+### v 0.3.1
+* Fix bug where internal helper functions would break if no H:M:S data was listed in deployment or recovery time metadata
+
 ### v 0.3.0
 * Summarize according to species for those projects/networks which provide species information. [Issue #41](https://github.com/mhpob/otndo/issues/41)
 * Update OTN URLs. [Issue #42](https://github.com/mhpob/otndo/issues/42)

R/otn_query.R

@@ -27,8 +27,10 @@ otn_query <- function(projects) {
     "&outputFormat=csv&CQL_FILTER=strMatches(collectioncode,'",
     paste(
       paste0(
-        ".*",
-        gsub(".*\\.", "", projects)
+        # "(.*\\.)?",
+        "((.*\\.)|^)",
+        gsub(".*\\.", "", projects),
+        "$"
       ),
       collapse = "|"
     ),

tests/testthat/test-otn_query.R

@@ -59,3 +59,8 @@ test_that("is node agnostic", {
     without_network$project_metadata
   )
 })
+
+
+test_that("returns exact match or node-appended ONLY", {
+  expect_true(nrow(otn_query("KSC")[[1]]) == 1)
+})