R/update-data.R

In davidallen02/pamngr: Private Asset Management, Inc. Data Tools

#' Update all data in a directory
#'
#' @param security Blomberg security ID for equity or economic index

update_data <- function(security){

  # search for security
  equities <- dir("C:/Users/David/Dropbox/work/pam/asset-management/equities")
  economics <- dir("C:/Users/David/Dropbox/work/pam/economics")

  if(security %in% equities){
    # path <- "R:/David/asset-management/equities/"
    path <- "C:/Users/David/Dropbox/pam/work/asset-management/equities"
  } else {
    if(security %in% economics){
      # path <- "R:/David/economics/data"
      path <- "C:/Users/David/Dropbox/work/pam/economics"
    } else{
      print(paste(security, "not in either equities or economics folders"))
    }
  }

  path <- path %>% paste0("/", security, "/data")
  securities <- dir(path) %>% stringr::str_remove_all(".RDS")
  securities <- securities[securities != "key"]

  suppress_output <- securities %>% purrr::map(pamngr::get_data)

}