R/db.R

In agstudy/tempo_repo: Present adveq investments on the map

# 
# library(ggmap)
# 
# ##db[,geocode(Geography),Geography]
# 
# library(maps)
# ## mapStates = map("state", fill = TRUE, plot = FALSE)
# mapWord <- map('world', fill = TRUE,plot=FALSE)
# leaflet(data = mapWord) %>% addTiles() %>%
#   addPolygons(fillColor = topo.colors(10, alpha = NULL), stroke = FALSE)

#' Load data from Excel
#' 
#' @param path character Excel workbook path
#' @param sheet character sheet name default to RAW
#' @return data.table containing
#' \itemize{
#' \item{loc_name} {:The location name}
#' \item{loc_id} {:The location id}
#' \item{region} {:The location region id}
#' \item{subregion} {:The location subregion id}
#' \item{fund} {:The fund name}
#' \item{under} {:The underyling name}
#' \item{company} {:The company name}
#' \item{part} {:The adveq participation}
#' \item{date} {:The date of investment}
#' \item{currency}{: The investment currency}
#' \item{industry} {:The industry sector}
#' \item{value} {:The investment amount}
#' \item{cost} {:The investment cost}
#' }
#' @import data.table
#' @export 
load_data <- 
  function(path,sheet="RAW"){
    if (missing(path))
      path <- system.file(package="adveqmap","data","database.csv")
    db <- fread(path)
    
    db[,{
      code <- gsub('(^[0-9]+).*','\\1',Geography)
      loc <- vapply(gsub('^[0-9]+ ','',Geography),format_location,"")
      list(
        loc_name=as.character(loc),
        loc_id=code,
        region=substr(code,1,1),
        subregion=substr(code,1,2),
        fund=Your_Fund,
        under=Fund_Investment,
        company=Company,
        part=Your_Fund_Percent/100,
        date=as.Date(As_Of_Date,"%d/%m/%Y"),
        industry=Industry,
        currency=YF_Currency,
        value=Total_Value_YF_Cur,
        cost=Total_Cost_YF_Cur,
        recentValue =Recent_Value_YF_Cur)
    }]
  }



format_location <- 
  function(loc){
#     if(grepl("U.S",loc))return("United States of America")
#     else 
     switch (loc,
            "UK"="United Kingdom",
           loc)
  }