Duplicate sites?

[lindsayplatt]

There are 3 site numbers that made it through the other filters, but are weird ... same site number but two different site names. Weird just because it would make sense for the same site to show up multiple times when using whatNWISdata and seeing the same site with different parameters/services. Weird that these have different station_nms.

library(dplyr)
library(dataRetrieval)

# These 3 sites:
sites_dup <- c("345518112332701", "343352096462801", "460444094212501")

readNWISsite(sites_dup) %>% select(agency_cd, site_no, station_nm, site_tp_cd, dec_lat_va, dec_long_va)
  agency_cd         site_no                                         station_nm site_tp_cd dec_lat_va dec_long_va
1     OK002 343352096462801                                   01N-05E-10 CCC 2         GW   34.56438   -96.77454
2      USGS 343352096462801                        01N-05E-10 CCC 2 ARB02-SIMP         GW   34.56438   -96.77455
3      USGS 345518112332701                   B-18-03 26BBC1 [WINEGLASS RANCH]         GW   34.92169  -112.55823
4     MN040 460444094212501           130N29W08DCCC  01             0000224557         GW   46.07885   -94.35722
5      USGS 460444094212501 WLN03-2   130N29W08DCCCAA01 C.RipleyR16 0000244210         GW   46.07921   -94.35726