PCPS

# Monthly historical series of soybean, sunflower and corn prices

library(IMFData)
library(tidyverse)

availableDB <- DataflowMethod()
availableDB$DatabaseID

PCPS.available.codes <- DataStructureMethod("PCPS")
names(PCPS.available.codes)
PCPS_area <- PCPS.available.codes[[2]]
PCPS_indicators <- PCPS.available.codes[[3]]

databaseID <- "PCPS"
startdate = "1990-01-01"
enddate = "2020-01-01"
checkquery = FALSE

# PMAIZMT - Primary Commodity Prices, Corn 

queryfilter <- list(CL_FREQ = "M", CL_AREA_PCPS = "", 
                    CL_INDICATOR_PCPS = "PMAIZMT", CL_UNIT_PCPS = "USD")

PMAIZMTdf <- CompactDataMethod(databaseID, queryfilter, startdate, 
                               enddate, checkquery, tidy = TRUE) 

# PSUNO - Primary Commodity Prices, Sunflower Oil 

queryfilter <- list(CL_FREQ = "M", CL_AREA_PCPS = "", 
                    CL_INDICATOR_PCPS = "PSUNO", CL_UNIT_PCPS = "USD")

PSUNOdf <- CompactDataMethod(databaseID, queryfilter, startdate, 
                               enddate, checkquery, tidy = TRUE)

# PSOYB - Primary Commodity Prices, Soybeans 

queryfilter <- list(CL_FREQ = "M", CL_AREA_PCPS = "", 
                    CL_INDICATOR_PCPS = "PSOYB", CL_UNIT_PCPS = "USD")

PSOYBdf <- CompactDataMethod(databaseID, queryfilter, startdate, 
                             enddate, checkquery, tidy = TRUE)

# PSOIL - Primary Commodity Prices, Soybeans Oil 

queryfilter <- list(CL_FREQ = "M", CL_AREA_PCPS = "", 
                    CL_INDICATOR_PCPS = "PSOIL", CL_UNIT_PCPS = "USD")

PSOILdf <- CompactDataMethod(databaseID, queryfilter, startdate, 
                             enddate, checkquery, tidy = TRUE)