MODIS/R/getPart.R

# Author: Matteo Mattiuzzi, [email protected]
# Date : February 2012

################################
# getPart() takes as argument ONLY a defineName() or a getProduct() result, or basicaly a vector with named "nodes"
################################
getPart <- function(x, what = c('YYYY', 'DDD', 'DATE', 'SENSOR', 'PF1', 'PF2'
                                , 'PF3', 'PLATFORM', 'TILE', 'TILEV', 'TILEH'
                                , 'C', 'CCC', 'PRODUCT', 'FORMAT', 'COMPRESSION'
                                , 'DATE1DATE2', 'PROCESSINGDATE', 'REGION'
                                , 'TIME'))
{    
    if (missing(x)){
        return(cat("Available 'placeholders' are:",what,"\n",sep=" "))
    }
      
    what <- match.arg(what)
    switch(what,
        YYYY = substring(x$DATE,2,5), # works with AYYYYDDD input # TODO a scanning function to detect teh first numeric value in x$DATE
        DDD  = substring(x$DATE,6,8), # works with AYYYYDDD input
        DATE = gsub(transDate(begin=substring(x$DATE,2,8))$begin,pattern="-",replacement="."), # works with AYYYYDDD input
        SENSOR = x$SENSOR,
        PF1 = x$PF1,
        PF2 = x$PF2,
        PF3 = x$PF3,
        PLATFORM = x$PLATFORM,
        TILE = x$TILE,
        C = as.numeric(x$CCC),
        CCC = x$CCC,
        PRODUCT = x$PRODUCT,
        FORMAT = x$FORMAT,
        COMPRESSION = x$COMPRESSION,
        DATE1DATE2 = x$DATE1DATE2,
        PROCESSINGDATE = x$PROCESSINGDATE,
        REGION = "EuropeAfrica", # the only supported for now!
        TIME = x$TIME,
        TILEV = if (sign(x$TILEV)==-1) {paste("s",sprintf("%03d",abs(x$TILEV)))} else {paste("n",sprintf("%03d",x$TILEV))},
        TILEH = x$TILEH
    )
}