data-raw/DATASET.R

In h-a-graham/EAlidaR: Download EA LiDAR composite datasets directly into R

## code to prepare `DATASET` dataset goes here
devtools::load_all()
library(sf)
library(ggplot2)
library(dplyr)

#Ashop valley feature load
Ashop_gpkg <- system.file("extdata/raw_vectors", "Test_Area2.gpkg", package = "EAlidaR")

Ashop_sf <- read_sf(Ashop_gpkg)

ggplot(Ashop_sf) +
  geom_sf() +
  theme_bw()

usethis::use_data(Ashop_sf, overwrite = TRUE)

# city of london feature load
city_of_london_gpkg <- system.file("extdata/raw_vectors", "city_of_london.gpkg", package = "EAlidaR")

city_of_london_sf <- read_sf(city_of_london_gpkg)

ggplot(city_of_london_sf) +
  geom_sf() +
  theme_bw()

usethis::use_data(city_of_london_sf, overwrite = TRUE)


# Code to generate 5km and 10km grids from shp files

grid_5km_shp <- system.file("data-raw/OSGB_Grids-master/OSGB_Grids-master/Shapefile", "OSGB_Grid_5km.shp", package = "EAlidaR")
grid_5km_sf <- sf::read_sf(grid_5km_shp)

grid_10km_shp <- system.file("data-raw/OSGB_Grids-master/OSGB_Grids-master/Shapefile", "OSGB_Grid_10km.shp", package = "EAlidaR")
grid_10km_sf <- sf::read_sf(grid_10km_shp)

usethis::use_data(grid_5km_sf, grid_10km_sf, internal = TRUE, overwrite = TRUE)