From e7de4e90a263e9dd90d8b92cd5ad61b8be860a35 Mon Sep 17 00:00:00 2001
From: boB Rudis <bob@rud.is>
Date: Sun, 10 Nov 2019 05:00:05 -0500
Subject: [PATCH] day 10

---
 2019-11-10-bw.R | 16 +++++++---------
 1 file changed, 7 insertions(+), 9 deletions(-)

diff --git a/2019-11-10-bw.R b/2019-11-10-bw.R
index b4f20d8..c57fd20 100644
--- a/2019-11-10-bw.R
+++ b/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