# NOT RUN {
#Getting all sites from a service
sites <- GetSites("http://hydroportal.cuahsi.org/ipswich/cuahsi_1_1.asmx?WSDL")
#Getting a subset of sites restricted by geographical area
server <- "http://hydroportal.cuahsi.org/NEON/cuahsi_1_1.asmx?WSDL"
sites_subset <- GetSites(server, west=-115.0, south=40.0, east=-110.0, north=42.0)
# }
Run the code above in your browser using DataLab