R/load_thames.R

In geotheory/londonShapefiles: Some shapefiles for London

#' River Thames
#' @description Load shapefile of River Thames as a SpatialPolygonsDataFrame
#' @return Object 'lon', a 1 row SpatialPolygonsDataFrame
#' @export
#' @example examples/load_thames.R
load_thames = function(){
  require(maptools)
  path = system.file("external/river_thames.shp", package="londonShapefiles")
  thames <<- readShapePoly(path, proj4string=CRS('+init=epsg:27700'))
}