sandbox/oldfunctions/getStockData.R

In SWS-Methodology/faoswsStock: Package to perform the imputation of stock changes for the FAO food balance sheets

##' Get Stock Data
##' 
##' This function pulls historical, measured data on stock changes.  Currently
##' it's just reading a .csv file, as that's all we have.
##' 
##' @return The data, stored in a data.table format.
##' 
##' @import data.table faosws
##' 

getStockData = function(){
    ## Check if on server or not:
    if(exists("DEBUG_MODE") && DEBUG_MODE == FALSE){
        R_SWS_SHARE_PATH = Sys.getenv("R_SWS_SHARE_PATH")
        out = fread(paste0(R_SWS_SHARE_PATH, "/browningj/stock/usaStockVariabilityFAOSTAT.csv"))
    ## If not on server, check for R_SWS_SHARE PATH
    } else if(exists("R_SWS_SHARE_PATH")){
        out = fread(paste0(R_SWS_SHARE_PATH, "/browningj/stock/usaStockVariabilityFAOSTAT.csv"))
    } else if(Sys.info()[7] == "josh"){
        out = fread("~/Documents/Github/faoswsStock/sandbox/Data/usaStockVariabilityFAOSTAT.csv")
    } else if(Sys.info()[7] == "rockc_000"){
        out = fread("~/Github/faoswsStock/sandbox/Data/usaStockVariabilityFAOSTAT.csv")
    } else {
        stop("No directory set up for this user yet!")
    }
    out = out[ItemCode <= 2520, ] # Cereals
    return(out)
}