## Not run:
# cents <- rgdal::readOGR(dsn = "/home/robin/npct/pct-bigdata/cents.geojson", layer = "OGRGeoJSON")
# # library(geojsonio) # load with the ropensci package geojsonio if rgdal fails
# # cents <- geojsonio::geojson_read(x = "~/repos/pct/pct-data/national/cents.geojson")
# crs <- CRS("+init=epsg:4326")
# crsuk <- CRS("+init=epsg:27700")
# cents <- sp::spTransform(x = cents, CRSobj = crsuk)
# home <- rev(RgoogleMaps::getGeoCode("LS7 3HB"))
# home <- sp::SpatialPoints(matrix(home, ncol = 2), proj4string = crs)
# home <- sp::spTransform(x = home, CRSobj = crsuk)
# buf <- rgeos::gBuffer(home, width = 2000)
# # Check it saved the points OK
# cents <- cents[buf,]
# plot(buf)
# points(cents)
# cents <- sp::spTransform(x = cents, CRSobj = crs)
# cents$geo_code <- as.character(cents$geo_code)
# library(devtools)
# # use_data(cents, overwrite = TRUE)
# ## End(Not run)
Run the code above in your browser using DataLab