forked from fcryan0/MoDOT_Rail
-
Notifications
You must be signed in to change notification settings - Fork 0
/
ROW Data.R
22 lines (16 loc) · 726 Bytes
/
ROW Data.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
library(tidyverse)
library(sf)
library(tmap)
tmap_mode("view")
tmap_options(check.and.fix = TRUE)
basemaps <- tm_basemap(c("CartoDB.Positron", "OpenStreetMap.Mapnik", "Esri.WorldImagery"))
load("data/MoDOT_base_data.RData")
st_layers("//ksc-gis01/Data1/MoDOT/RR Safety Study/RR Safety Study_ArcGISPro/7.2_WIP/spatial/gdb/HDR_Project.gdb")
parcels <-
read_sf(
"//ksc-gis01/Data1/MoDOT/RR Safety Study/RR Safety Study_ArcGISPro/7.2_WIP/spatial/gdb/HDR_Project.gdb",
layer = "UP_RR_Xings_Parcels")
parcels %>% write_sf("FinalParcels_MoDOT.kml")
basemaps +
tm_shape(parcels) + tm_polygons(alpha = 0.2) + +tm_borders() +
tm_shape(xings_pub_MO_amtrak %>% filter(CrossingID == "442092K")) + tm_dots(col = "red")