tysonwepprich

# Thanks to @greghirson who totally knocked this out of the park! 
# Based on his work, here's a simple script to pull monthly prices from the USDA NASS website.

library(RCurl)
library(XML)

x <- postForm(uri = "http://quickstats.nass.usda.gov/uuid/encode",
  source_desc = "SURVEY", sector_desc="CROPS", 
  group_desc="FIELD CROPS", commodity_desc="CORN",
  statisticcat_desc="PRICE RECEIVED",