if (FALSE) {
# Set parameters and make the request
params <- list(commodity_desc = "CORN",
year = 2012,
agg_level_desc = "STATE",
state_alpha = "WA",
statisticcat_desc = "YIELD")
response <- nassqs_GET(params)
# Parse the response to a data frame
corn <- nassqs_parse(response, as = "data.frame")
head(corn)
# Parse the response into a raw character string.
corn_text<- nassqs_parse(response, as = "text")
head(corn_text)
# Get a list of parameter values and parse as a list
response <- nassqs_GET(list(param = "statisticcat_desc"),
api_path = "get_param_values")
statisticcat_desc_values <- nassqs_parse(response, as = "list")
head(statisticcat_desc_values)
}
Run the code above in your browser using DataLab