# old 20141003   --   ## This is just for manual execution 
# old 20141003   --   if (FALSE) 
# old 20141003   --   
# old 20141003   --       ## 20141003 NOTE:  This was some sort of autorun. 
# old 20141003   --       ##        However, most of these files no longer exist
# old 20141003   --       ##   Unless.... maybe it was from another project
# old 20141003   --     {
# old 20141003   --       fresh()
# old 20141003   --       START.TIME <- proc.time()
# old 20141003   --       iter <- TRUE
# old 20141003   --       source("~/git/orch/src/Pricing/Funcs.r")
# old 20141003   --       source("~/git/orch/src/Pricing/01 FB Report Load & Clean.r")
# old 20141003   --       source("~/git/orch/src/Pricing/02 fb cleanup.r")
# old 20141003   --       source("~/git/orch/src/Pricing/04 googleVis.r")
# old 20141003   --       source("~/git/orch/src/Pricing/04b googleVis - NEW.r")
# old 20141003   --       source("~/git/orch/src/Pricing/05 Gvis on Date.r")
# old 20141003   --       END.TIME <- proc.time()
# old 20141003   --       msgBox("Time to Source functions", capture.output(END.TIME-START.TIME))
# old 20141003   --       # runShiny("FBShiny_app")
# old 20141003   --     }


# --------------------------------------------------------------- #

    fresh(save=FALSE, utils=TRUE, dt=TRUE)    

    loadFromLastBackUp <- FALSE
    loadFromLastBackUp <- TRUE
    Spain <- TRUE
    verbose <- TRUE
    maxValidDate <- as.Date("2014-01-01", origin="1970-01-01")

    utilSource()
    lib(Hmisc)
    lib(gdata)
    # pkgs <- c("data.table", "Hmisc", "googleVis", "shiny", "gdata")
    # suppressPackageStartupMessages( lib(pkgs, update=FALSE, quietly=TRUE) )

    projName <- ifelse(Spain, "PricingES", "Pricing")
    setScience(projName=projName, subl=FALSE, loadImage=loadFromLastBackUp)

    EXCEL.FIX <- as.Date("1904-01-01") - as.Date("1899-12-30")
    frmt.monthday_time <- "%m%d_%H%M"

    sourceSupportFns(dir=src.p(proj="Pricing"))
# --------------------------------------------------------------- #