Browse Source

day 10

master
boB Rudis 4 years ago
parent
commit
e7de4e90a2
No known key found for this signature in database GPG Key ID: 1D7529BE14E2BBA9
  1. 16
      2019-11-10-bw.R

16
2019-11-10-bw.R

@ -6,20 +6,18 @@ library(tidyverse)
st_read(here::here("data/me-counties.json")) %>%
st_set_crs(4326) -> maine
# list_counties("me") %>%
# pull(county) %>%
# map(~roads("me", .x, class="sf")) -> me_roads
#
# me_roads <- do.call(rbind, me_roads)
#
# st_write(me_roads, "~/Data/me-roads/me-roads.shp")
list_counties("me") %>%
pull(county) %>%
map(~roads("me", .x, class="sf")) -> me_roads
me_roads <- do.call(rbind, me_roads)
me_roads <- st_read("~/Data/me-roads/me-roads.shp")
# st_write(me_roads, "~/Data/me-roads/me-roads.shp")
# me_roads <- st_read("~/Data/me-roads/me-roads.shp")
as_tibble(me_roads) %>%
select(-geometry) -> tt
tt
count(tt, RTTYP)
# Route Type Code Route Type Code Description

Loading…
Cancel
Save