Skip to content
Snippets Groups Projects
getRDB1Data.Rd 1.21 KiB
Newer Older
  • Learn to ignore specific revisions
  • % Generated by roxygen2 (4.0.2): do not edit by hand
    
    Laura A DeCicco's avatar
    Laura A DeCicco committed
    \name{getRDB1Data}
    \alias{getRDB1Data}
    \title{Function to return data from the NWIS RDB 1.0 format}
    \usage{
    
    Laura A DeCicco's avatar
    Laura A DeCicco committed
    getRDB1Data(obs_url, asDateTime = FALSE)
    
    Laura A DeCicco's avatar
    Laura A DeCicco committed
    }
    \arguments{
    
    Laura A DeCicco's avatar
    Laura A DeCicco committed
    \item{obs_url}{string containing the url for the retrieval}
    
    Laura A DeCicco's avatar
    Laura A DeCicco committed
    \item{asDateTime}{logical, if TRUE returns date and time as POSIXct, if FALSE, Date}
    
    Laura A DeCicco's avatar
    Laura A DeCicco committed
    }
    \value{
    
    Laura A DeCicco's avatar
    Laura A DeCicco committed
    data a data frame containing columns agency, site, dateTime, values, and remark codes for all requested combinations
    
    Laura A DeCicco's avatar
    Laura A DeCicco committed
    }
    \description{
    
    Laura A DeCicco's avatar
    Laura A DeCicco committed
    This function accepts a url parameter that already contains the desired
    NWIS site, parameter code, statistic, startdate and enddate.
    
    Laura A DeCicco's avatar
    Laura A DeCicco committed
    }
    \examples{
    
    siteNumber <- "02177000"
    
    Laura A DeCicco's avatar
    Laura A DeCicco committed
    startDate <- "2012-09-01"
    endDate <- "2012-10-01"
    offering <- '00003'
    property <- '00060'
    
    obs_url <- constructNWISURL(siteNumber,property,
             startDate,endDate,'dv',format='tsv')
    
    Laura A DeCicco's avatar
    Laura A DeCicco committed
    data <- getRDB1Data(obs_url)
    
    urlMulti <- constructNWISURL("04085427",c("00060","00010"),
             startDate,endDate,'dv',statCd=c("00003","00001"),'tsv')
    
    Laura A DeCicco's avatar
    Laura A DeCicco committed
    multiData <- getRDB1Data(urlMulti)
    
    unitDataURL <- constructNWISURL(siteNumber,property,
             as.character(Sys.Date()),as.character(Sys.Date()),'uv',format='tsv')
    unitData <- getRDB1Data(unitDataURL, asDateT=TRUE)