rename mn_res -> res_mn; notes on how to get all reservations

Author: cpsievert

Diff for: R/data.R

@@ -29,4 +29,4 @@
 #'
 #' @format An sf data frame with 13 features and 5 fields
 #' 
-"mn_res"
+"res_mn"

Diff for: data-raw/mn.R renamed to data-raw/res-mn.R

@@ -9,10 +9,10 @@ res <- st_read(file.path(dirname(f), "reservtn.shp"))
 # https://www.dot.state.mn.us/maps/gdma/gis-data.html
 st_crs(res) <- 26915
 
-mn_res <- st_transform(res, 4326)
+res_mn <- st_transform(res, 4326)
 
-# plot_mapbox(mn_res, text = ~INDRESNAME, hoverinfo = "text")
-devtools::use_data(mn_res, overwrite = TRUE)
+# plot_mapbox(res_mn, text = ~INDRESNAME, hoverinfo = "text")
+devtools::use_data(res_mn, overwrite = TRUE)
 
 
 # f <- tempfile(fileext = ".zip")

Diff for: data-raw/res-us.R

@@ -0,0 +1,15 @@
+library(sf)
+
+# https://www.census.gov/cgi-bin/geo/shapefiles/index.php?year=2017&layergroup=American+Indian+Area+Geography
+# click 'American Indian/Alaska Native/Native Hawaiian Area'
+res <- sf::st_read("~/Downloads/tl_2017_us_aiannh/tl_2017_us_aiannh.shp")
+
+# TODO: 
+# (1) simplify shape file!!
+# (2) crosstalk highlight should set fillcolor...
+
+res %>%
+  SharedData$new(~NAME) %>%
+  plot_ly(text = ~NAME) %>%
+  highlight(selectize = TRUE, dynamic = TRUE)
+

Diff for: data/mn_res.rda

@@ -103,10 +103,10 @@ test_that("plot_ly() defaults to blank axes", {
 })
 
 test_that("discrete color informs fillcolor", {
-  res <- unique(mn_res$INDRESNAME)
+  res <- unique(res_mn$INDRESNAME)
   cols <- viridisLite::magma(length(res))
 
-  p <- plot_mapbox(mn_res, color = ~INDRESNAME, colors = cols) %>%
+  p <- plot_mapbox(res_mn, color = ~INDRESNAME, colors = cols) %>%
     plotly_build()
 
   d <- p$x$data
@@ -122,10 +122,10 @@ test_that("discrete color informs fillcolor", {
 
 
 test_that("discrete color informs fillcolor", {
-  res <- unique(mn_res$INDRESNAME)
+  res <- unique(res_mn$INDRESNAME)
   cols <- viridisLite::magma(length(res))
 
-  p <- plot_mapbox(mn_res, color = ~INDRESNAME, colors = cols) %>%
+  p <- plot_mapbox(res_mn, color = ~INDRESNAME, colors = cols) %>%
     plotly_build()
 
   d <- p$x$data
@@ -141,15 +141,15 @@ test_that("discrete color informs fillcolor", {
 
 
 test_that("numeric color informs fillcolor", {
-  res <- unique(mn_res$INDRESNAME)
+  res <- unique(res_mn$INDRESNAME)
   cols <- viridisLite::magma(length(res))
   p <- plot_mapbox(mn_res, split = ~INDRESNAME, color = ~AREA, colors = cols, showlegend = FALSE, line = list(color = "black")) %>%
     plotly_build()
 
   d <- p$x$data
   expect_length(d, length(res) + 1)
 
-  area <- unique(mn_res$AREA)
+  area <- unique(res_mn$AREA)
   fillcolors <- unlist(lapply(d, "[[", "fillcolor"))
   expect_identical(sort(fillcolors), sort(scales::col_numeric(cols, range(area))(area)))