Skip to content

review code used to pull NWIS data #97

@jordansread

Description

@jordansread

https://github.com/USGS-VIZLAB/gages-through-ages/blob/master/scripts/fetch/getData_siteRecords.R

One thing I am noticing is that we have some duplicated rows:

library(dplyr) # using data.in from process.disch_sites
filter(data.in$`disch-data`) %>% distinct() %>% nrow
[1] 582882
filter(data.in$`disch-data`) %>% nrow
[1] 583902

here is one site in particular:

filter(data.in$`disch-data`, site_no == '02053200') %>% .$year %>% length()
[1] 116
filter(data.in$`disch-data`, site_no == '02053200') %>% .$year %>% unique() %>% length()
[1] 58

Metadata

Metadata

Assignees

Labels

No labels
No labels

Type

No type

Projects

No projects

Milestone

No milestone

Relationships

None yet

Development

No branches or pull requests

Issue actions