R/.dataImport.R

In avisserquinn/OSMtidy: OSMtidy is an R package for anyone who needs to tidy Open Street Map data into a concise yet complex geospatial dataset with a consistent naming convention.

.dataImport <- function(vecExcel) {
  
  require(openxlsx)
  require(purrr)
  
  dl <- lapply(1:length(vecExcel), function(i) {
    
    lapply(vecExcel[[i]] %>% getSheetNames(), function(x) {
      
      read.xlsx(vecExcel[[i]], x) %>%
        as_tibble
      
    })
    
  }) %>%
    
    flatten()
  
  return(dl)
  
}