add name, reachcode, and measure as valid names from NLDI

R/findNLDI.R

@@ -23,7 +23,8 @@ find_good_names = function(input, type) {
   if (type == "nav") {
     grep("comid", names(input), value = TRUE)
   } else if (type == "feature") {
-    c("sourceName", "identifier", "comid")
+    c("sourceName", "identifier", "comid",
+      names(input)[names(input) %in% c("name", "reachcode", "measure")])
   } else {
     NULL
   }

tests/testthat/tests_nldi.R

@@ -15,7 +15,8 @@ test_that("NLDI starting sources...", {
   # POINT GEOMETERY
   expect_equal(sum(names(findNLDI(nwis = '11120000')) ==
                      c('sourceName', 'identifier', "comid",
-                       "X", "Y", "geometry")),  6)
+                       "name", "reachcode", "measure",
+                       "X", "Y", "geometry")),  9)
   # COMID
   expect_equal(findNLDI(comid = 101)$sourceName, "NHDPlus comid")
   # NWIS