Texas Flood Planning Regions

Flood planning region polygon outlines for Texas

Download data

Data for flood planning region polygons from https://www.arcgis.com/home/item.html?id=177ba83b8e1a405692ba8886110df08f

Manual download the shapefile

Read in data and plot

fgdb <- paste0(path, "Regional_Flood_Planning_Groups.dbf")

# Read the feature class
temp <- sf::st_read(fgdb)

Reading layer `Regional_Flood_Planning_Groups' from data source 
  `/home/ajackson/Dropbox/Rprojects/Curated_Data_Files/FloodPlanningRegions/Regional_Flood_Planning_Groups.dbf' 
  using driver `ESRI Shapefile'
Simple feature collection with 15 features and 4 fields
Geometry type: MULTIPOLYGON
Dimension:     XY
Bounding box:  xmin: 872949.1 ymin: 6861641 xmax: 2118165 ymax: 8045402
Projected CRS: NAD83 / Texas Centric Albers Equal Area

temp <- sf::st_transform(temp, googlecrs)
# sf::st_crs(temp) <- googlecrs

summary(temp)

     RFPG             Area_Sq_Mi      Area_Sq_Km       Region_No   
 Length:15          Min.   : 4423   Min.   : 11455   Min.   : 1.0  
 Class :character   1st Qu.: 8319   1st Qu.: 21546   1st Qu.: 4.5  
 Mode  :character   Median :17919   Median : 46411   Median : 8.0  
                    Mean   :17670   Mean   : 45765   Mean   : 8.0  
                    3rd Qu.:23769   3rd Qu.: 61561   3rd Qu.:11.5  
                    Max.   :43204   Max.   :111899   Max.   :15.0  
          geometry 
 MULTIPOLYGON :15  
 epsg:4326    : 0  
 +proj=long...: 0  
                   
                   
                   

leaflet(temp) %>% 
  leaflet::setView(lng = -95.3103, lat = 29.7752, zoom = 8 ) %>%   
  addTiles() %>% 
  addPolygons(weight=1) %>% 
  addStaticLabels(label=temp$RFPG,
                  style = list("color" = "red", "font-weight" = "bold"))

# saveRDS(temp, paste0(path, "Regional_Flood_Planning_Groups.Rds"))

map <- leaflet(temp) %>% 
  leaflet::setView(lng = -95.3103, lat = 29.7752, zoom = 8 ) %>%   
  addTiles() %>% 
  addPolygons(weight=1) %>% 
  addStaticLabels(label=temp$RFPG,
                  style = list("color" = "red", "font-weight" = "bold"))

htmlwidgets::saveWidget(map, paste0(path, "test.html"), selfcontained = TRUE)