read a shapefile into a R spatial dataframe

shapereader <- function(name) {
  require(rgdal)
  return(rgdal::readOGR(dsn = name, layer = tools::file_path_sans_ext(basename(name)),
                        verbose = FALSE))
}