exposing new ecoclassid membership data

ncss-tech · Nov 15, 2023 · 62c6149 · 62c6149
1 parent 0293d03
commit 62c6149
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/R/fetchOSD.R b/R/fetchOSD.R
@@ -84,6 +84,7 @@
 #'   \item{pmkind}{empirical probabilities for parent material kind, derived from the current SSURGO snapshot}
 #'   \item{pmorigin}{empirical probabilities for parent material origin, derived from the current SSURGO snapshot}
 #'   \item{mlra}{empirical MLRA membership values, derived from the current SSURGO snapshot}
+#'   \item{ecoclassid}{area cross-tabulation of ecoclassid by soil series name, derived from the current SSURGO snapshot, major components only}
 #'   \item{climate}{experimental climate summaries from PRISM stack (CONUS only)}
 #'
 #'   \item{NCCPI}{select quantiles of NCCPI and Irrigated NCCPI, derived from the current SSURGO snapshot}
@@ -380,6 +381,7 @@ fetchOSD <- function(soils, colorState = 'moist', extended = FALSE) {
 	    pmkind = res$pmkind,
 	    pmorigin = res$pmorigin,
 	    mlra = res$mlra,
+	    ecoclassid = res$ecoclassid,
 	    climate.annual = annual.data,
 	    climate.monthly = monthly.data,
 	    NCCPI = res$nccpi,

diff --git a/tests/testthat/test-fetchOSD.R b/tests/testthat/test-fetchOSD.R
@@ -2,7 +2,7 @@ context("fetchOSD() -- requires internet connection")
 
 ## these are the elements of the list returned when extended=TRUE
 ## update here as-needed
-extended.table.names <<- c("SPC", "competing", "geog_assoc_soils" ,"geomcomp", "hillpos", "mtnpos", "terrace", "flats", "shape_across", "shape_down", "pmkind", "pmorigin", "mlra", "climate.annual", "climate.monthly", "NCCPI", "soilweb.metadata")
+extended.table.names <<- c("SPC", "competing", "geog_assoc_soils" ,"geomcomp", "hillpos", "mtnpos", "terrace", "flats", "shape_across", "shape_down", "pmkind", "pmorigin", "mlra", "ecoclassid", "climate.annual", "climate.monthly", "NCCPI", "soilweb.metadata")
 
 test_that("fetchOSD() works", {