Commit a57a6d40 authored by Blodgett, David L.'s avatar Blodgett, David L.
Browse files

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

parent c4a59776
......@@ -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
}
......
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment