R/getSelectedSeedData.R

In SWS-Methodology/faoswsSeed: Package to perform the imputation of seed usage for the FAO seed domain

##' Get Selected Seed Data
##' 
##' This function pulls the seed data from the SWS.
##' 
##' @param dataContext The DatasetKey, containing the relevant countries, years,
##'   commodities and elements for pulling the seed data.
##'   
##' @return The dataset with seed data.
##' 
##' @export 
##'   

getSelectedSeedData = function(dataContext){
    
    ## Pivot to vectorize yield computation
    newPivot = c(
        Pivoting(code = areaVar, ascending = TRUE),
        Pivoting(code = itemVar, ascending = TRUE),
        Pivoting(code = yearVar, ascending = FALSE),
        Pivoting(code = elementVar, ascending = TRUE)
        )

  seedKey = DatasetKey(
    domain = "agriculture",
    dataset = "aproduction",
    dimensions = list(
      Dimension(name = areaVar,
                keys = getAllCountries()),
      Dimension(name = elementVar,
                keys = seedElementCode),
      Dimension(name = itemVar,
                keys = getAllItemCPC()),
      Dimension(name = yearVar,
                keys = getAllYears())
    )
  )
  
  ## Pivot to vectorize yield computation
  seedPivot = c(
    Pivoting(code = areaVar, ascending = TRUE),
    Pivoting(code = itemVar, ascending = TRUE),
    Pivoting(code = yearVar, ascending = FALSE),
    Pivoting(code = elementVar, ascending = TRUE)
  )
  
  ## Query the data
  seedQuery = GetData(
    key = seedKey,
    flags = TRUE,
    normalized = FALSE,
    pivoting = seedPivot
  )
  
  ## Convert time to numeric
  seedQuery[, timePointYears := as.numeric(timePointYears)]
}