`readNWISpeak` attributes
siteNumbers <- c('01594440','040851325')
data <- readNWISpeak(siteNumbers)
data2 <- readNWISpeak(siteNumbers, asDateTime=FALSE)
stations<-c("06011000")
peakdata<-readNWISpeak(stations,convertType=FALSE)
collector_character attribute?