VAHydro-2.0/example_getProperty.R

In HARPgroup/hydro-tools: Data processing and accessors for VAHydro

#-----------------------------------------------------------------------------

base_url <- "http://deq1.bse.vt.edu/d.dh/"

#Set file locations dynamically 
path <- substr(getwd(),1,nchar(getwd())-11)
source(paste(path,"/VAHydro-2.0/rest_functions.R", sep = ""))
source(paste(path,"auth.private", sep = "")); 
token <- rest_token(base_url, token, rest_uname, rest_pw);

#inputs 
xxxinputs <- list(
  varkey = "erom_q0001e_mean",
  featureid = 199720,
  entity_type = "dh_feature"
)
# pid = 3575849
inputs <- list (
  pid = 3575849
)
#property dataframe returned
dataframe <- getProperty(inputs, base_url, prop)
print(dataframe)