Update loafercreek/gopheridge/mineralKing from NASIS

NEWS.md

@@ -4,6 +4,7 @@
  * `SDA_spatialQuery()` and `processSDA_WKT()` fully use {sf}, replacing {sp} in these contexts
  * `SDA_spatialQuery()` gains argument `byFeature` to use multiple single-feature queries and combine the results with a unique feature ID specified by `idcol` argument. This allows for specific feature intersection results without secondary spatial overlay of the polygons (https://github.com/ncss-tech/soilDB/issues/222)
  * `dbConnectNASIS()` no longer requires that the NASIS credentials option be set if the `dsn` argument is specified.
+ * Rebuilt `loafercreek`, `gopheridge` and `mineralKing` from latest `fetchNASIS()` results.
 
 # soilDB 2.6.9 (2021-12-02)
  * Replaced functionality using {plyr}/{reshape2} with {base}/{data.table}

misc/make-example-data.R

@@ -10,21 +10,26 @@ data("mineralKing", package = "soilDB")
 # query CA630 and CA792 w/ R08 PEDON/SITE by SSA ID or similar
 
 # load target data sets (CA630 and CA792 pedons)
-recent1822a <- fetchNASIS(rmHzErrors = FALSE)
+recent1822a <- fetchNASIS(rmHzErrors = FALSE, SS = FALSE)
 
-# subset and rebuild
-loafercreek2 <- rebuildSPC(subset(recent1822a, profile_id(recent1822a) %in% profile_id(loafercreek)))
-gopheridge2 <- rebuildSPC(subset(recent1822a, profile_id(recent1822a) %in% profile_id(gopheridge)))
-mineralKing2 <- rebuildSPC(subset(recent1822a, profile_id(recent1822a) %in% profile_id(mineralKing)))
+# subset 
+loafercreek2 <- subset(recent1822a, profile_id(recent1822a) %in% profile_id(loafercreek))
+gopheridge2 <- subset(recent1822a, profile_id(recent1822a) %in% profile_id(gopheridge))
+mineralKing2 <- subset(recent1822a, profile_id(recent1822a) %in% profile_id(mineralKing))
+
+# ensure that phiid is set as hzID 
+hzidname(loafercreek2) <- "phiid"
+hzidname(gopheridge2) <- "phiid"
+hzidname(mineralKing2) <- "phiid"
 
 # verify completeness
-if(all(profile_id(loafercreek) %in% profile_id(loafercreek2)))
+if (all(profile_id(loafercreek) %in% profile_id(loafercreek2)))
   loafercreek <- loafercreek2
 
-if(all(profile_id(gopheridge) %in% profile_id(gopheridge2)))
+if (all(profile_id(gopheridge) %in% profile_id(gopheridge2)))
   gopheridge <- gopheridge2
 
-if(all(profile_id(mineralKing) %in% profile_id(mineralKing2)))
+if (all(profile_id(mineralKing) %in% profile_id(mineralKing2)))
   mineralKing <- mineralKing2
 
 # save to .rda