Update bookdown

jmhatch-NOAA · Jan 15, 2025 · d41fb51 · d41fb51
1 parent 4508c6d
commit d41fb51
Show file tree

Hide file tree

Showing 3 changed files with 70 additions and 7 deletions.
diff --git a/.github/workflows/bookdown.yml b/.github/workflows/bookdown.yml
@@ -37,7 +37,7 @@ jobs:
 
       - name: Install arcgis dependencies
         run: |
-          install.packages(c("cli", "dbplyr", "here", "httr2", "RcppSimdJson", "rlang", "rvest", "sf"))
+          install.packages(c("cli", "dbplyr", "DT", "here", "httr2", "RcppSimdJson", "rlang", "rvest", "sf"))
         shell: Rscript {0}
 
       - name: Install arcgis

diff --git a/bookdown/02-ecomon.Rmd b/bookdown/02-ecomon.Rmd
@@ -7,9 +7,6 @@ token = arcgisutils::auth_client()
 # feature server url
 ecomon_url =  'https://services2.arcgis.com/C8EMgrsFcRFL6LrL/arcgis/rest/services/Ecosystem_Monitoring_Strata/FeatureServer/'
 
-# layer
-ecomon_lyr = arcgislayers::arc_open(ecomon_url, token = token)
-
 # metadata
 ecomon_meta = arcgisutils::fetch_layer_metadata(url = ecomon_url, token = token)
 ```
@@ -33,10 +30,10 @@ Yes, see [here](`r inport_href`).
 
 `r ecomon_desc`
 
-### Extent
+### Spatial Extent
 
 ```{r, echo = FALSE}
-# get layer
+# get layer bounding box
 ecomon_bb = data.frame(
   x = c(ecomon_meta$fullExtent$xmin, ecomon_meta$fullExtent$xmax), 
   y = c(ecomon_meta$fullExtent$ymin, ecomon_meta$fullExtent$ymax)) |>
@@ -50,3 +47,36 @@ leaflet::leaflet() |>
   leaflet::addTiles() |>
   leaflet::addPolygons(data = ecomon_bb)
 ```
+
+### Layers
+
+```{r, echo = FALSE}
+ecomon_meta$layers |>
+  dplyr::select(id, name, minScale, maxScale, type, geometryType) |>
+  knitr::kable()
+```
+
+### Fields
+
+```{r, echo = FALSE, results = 'asis'}
+# layers 
+ecomon_layers = ecomon_meta$layers
+
+# loop over layers
+ecomon_fields = purrr::map(.x = 1:nrow(ecomon_layers), .f = function(.x) {
+  
+  # open layer
+  ecomon_layer = arcgislayers::arc_open(url = paste0(ecomon_url, '/', ecomon_layers$id[.x]), token = token)
+  
+  # get fields
+  ecomon_fields = arcgislayers::list_fields(ecomon_layer) |>
+    dplyr::select(name, actualType, length, precision)
+  
+  # output
+  cat('\n####', ecomon_layers$name[.x], '\n')
+  print(knitr::kable(ecomon_fields))
+  cat('\n')
+
+})
+
+```
diff --git a/bookdown/Rmd/ecomon.Rmd b/bookdown/Rmd/ecomon.Rmd
@@ -30,7 +30,7 @@ Yes, see [here](`r inport_href`).
 
 `r ecomon_desc`
 
-### Extent
+### Spatial Extent
 
 ```{r, echo = FALSE}
 # get layer bounding box
@@ -47,3 +47,36 @@ leaflet::leaflet() |>
   leaflet::addTiles() |>
   leaflet::addPolygons(data = ecomon_bb)
 ```
+
+### Layers
+
+```{r, echo = FALSE}
+ecomon_meta$layers |>
+  dplyr::select(id, name, minScale, maxScale, type, geometryType) |>
+  knitr::kable()
+```
+
+### Fields
+
+```{r, echo = FALSE, results = 'asis'}
+# layers 
+ecomon_layers = ecomon_meta$layers
+
+# loop over layers
+ecomon_fields = purrr::map(.x = 1:nrow(ecomon_layers), .f = function(.x) {
+  
+  # open layer
+  ecomon_layer = arcgislayers::arc_open(url = paste0(ecomon_url, '/', ecomon_layers$id[.x]), token = token)
+  
+  # get fields
+  ecomon_fields = arcgislayers::list_fields(ecomon_layer) |>
+    dplyr::select(name, actualType, length, precision)
+  
+  # output
+  cat('\n####', ecomon_layers$name[.x], '\n')
+  print(knitr::kable(ecomon_fields))
+  cat('\n')
+
+})
+
+```