Explore the two dams associated with the 2020 Midland, MI flooding

midland_dams.R

library(dams)
library(dplyr)
library(sf)
library(mapview)

dt <- nid_subset
dt <- dt[c(
  grep("edenville", tolower(dt$dam_name)), 
  grep("sanford", tolower(dt$dam_name))),] %>%
  dplyr::filter(state == "MI") %>%
  sf::st_as_sf(coords = c("longitude", "latitude"), crs = 4326)

mapview(dt)

recordid	dam_name	nidid	county	owner_type	dam_type	purposes	year_completed	nid_height	max_storage	normal_storage	nid_storage	hazard	eap	inspection_frequency	state_reg_dam	spillway_width	volume	number_of_locks	length_of_locks	width_of_locks	source_agency	state	submit_date	party	numseparatestructures	permittingauthority	inspectionauthority	enforcementauthority	jurisdictionaldam	geometry
32879	EDENVILLE	MI00549	GLADWIN	P	PGRE	CH	1925	54	66200	36000	66200	H	Y	1	N	135	0	0	0	0	FERC	MI	05-AUG-18	R	2	N	N	N	N	c(-84.3769, 43.8142)
32881	SANFORD	MI00550	MIDLAND	P	CNMV	H	1925	36	15000	15000	15000	H	Y	1	N	139	0	0	0	0	FERC	MI	05-AUG-18	R	1	N	N	N	N	c(-84.3803, 43.6769)