test zone summary function in vignette

noaa-nwfsc · Apr 22, 2024 · c35c1b7 · c35c1b7
1 parent cabcf90
commit c35c1b7
Showing 1 changed file with 20 additions and 21 deletions.
diff --git a/vignettes/scallop-example.Rmd b/vignettes/scallop-example.Rmd
@@ -205,13 +205,13 @@ spat_qaqc_out <- spatial_qaqc(dat = scallopMainDataTable,
                               lon.dat = "DDLON", 
                               lat.dat = "DDLAT")
 
-# spat_qaqc_out$dataset <- NULL # drop dataset
-# 
-# spat_qaqc_out$spatial_summary %>%
-#   pretty_lab(cols = "n") %>%
-#   pretty_tab()
-# 
-# spat_qaqc_out[2:4]
+spat_qaqc_out$dataset <- NULL # drop dataset
+
+spat_qaqc_out$spatial_summary %>%
+  pretty_lab(cols = "n") %>%
+  pretty_tab()
+
+spat_qaqc_out[2:4]
 ```
 
 <br><br><br>
@@ -410,20 +410,19 @@ agg_helper(scallopMainDataTable, value = "in_closure",
 
 The number of observations by zone.
 ```{r}
-zone_out <- 
-  zone_summary(scallopMainDataTable, project = proj,
-               spat = scallopTenMNSQRSpatTable, 
-               zone.dat = "ZONE_ID",
-               zone.spat = "TEN_ID",
-               output = "tab_plot",
-               count = TRUE,
-               breaks = NULL, n.breaks = 10, 
-               na.rm = TRUE)
-
-zone_out$plot
-zone_out$table %>% 
-  pretty_lab(cols = "n") %>% 
-  pretty_tab_sb(width = "40%")
+zone_out <- zone_summary(scallopMainDataTable, project = proj,
+                         spat = scallopTenMNSQRSpatTable, 
+                         zone.dat = "ZONE_ID",
+                         zone.spat = "TEN_ID",
+                         output = "tab_plot",
+                         count = TRUE,
+                         breaks = NULL, n.breaks = 10, 
+                         na.rm = TRUE)
+
+# zone_out$plot
+# zone_out$table %>%
+#   pretty_lab(cols = "n") %>%
+#   pretty_tab_sb(width = "40%")
 ```
 
 <br><br>