diff --git a/NEWS.md b/NEWS.md index 2c3c93ea..613bea88 100644 --- a/NEWS.md +++ b/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} diff --git a/data/gopheridge.rda b/data/gopheridge.rda index c88d2f8e..fc38d0f8 100644 Binary files a/data/gopheridge.rda and b/data/gopheridge.rda differ diff --git a/data/loafercreek.rda b/data/loafercreek.rda index d2ade19b..3ace00af 100644 Binary files a/data/loafercreek.rda and b/data/loafercreek.rda differ diff --git a/data/mineralKing.rda b/data/mineralKing.rda index fbdaf3b8..523435b8 100644 Binary files a/data/mineralKing.rda and b/data/mineralKing.rda differ diff --git a/misc/make-example-data.R b/misc/make-example-data.R index 309df073..e56e0913 100644 --- a/misc/make-example-data.R +++ b/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