import spatial data to a list

# Get the layers from .kml file
layers <- ogrListLayers('bbmp.kml')
# Import layers to a list
timer_all <- Sys.time()
pb <- txtProgressBar(max=length(layers), style = 3)
options(warn=-1) # disable warnings
poly.data <- list()
for (i in 1:length(layers)) {
    poly.data[i] <- readOGR(dsn="bbmp.kml", layer=layers[i], encoding="utf-8", verbose = F)
}
cat("***Process completed in",round(difftime(Sys.time(), timer_all, tz = "", units = "mins"),2),"min!***")
options(warn = 0) # re-enable warnings
close(pb)