Fix for 12th edition "Hydric Frasiwassents" v.s. 13th edition "Humic …

…Fluic Frasiwassents"
ncss-tech · Jan 4, 2024 · 0688cb2 · 0688cb2
1 parent dc250b3
commit 0688cb2
Show file tree

Hide file tree

Showing 9 changed files with 6 additions and 2 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -3,7 +3,7 @@ Title: A System of Soil Classification for Making and Interpreting Soil Surveys
 Description: Taxonomic dictionaries, formative element lists, and functions related to the maintenance, development and application of U.S. Soil Taxonomy. 
    Data and functionality are based on official U.S. Department of Agriculture sources including the latest edition of the Keys to Soil Taxonomy. Descriptions and metadata are obtained from the National Soil Information System or Soil Survey Geographic databases. Other sources are referenced in the data documentation. 
    Provides tools for understanding and interacting with concepts in the U.S. Soil Taxonomic System. Most of the current utilities are for working with taxonomic concepts at the "higher" taxonomic levels: Order, Suborder, Great Group, and Subgroup.
-Version: 0.2.4
+Version: 0.2.5
 Authors@R: c(person(given="Andrew", family="Brown", email="andrew.g.brown@usda.gov", role = c("aut", "cre")), person(given="Dylan", family="Beaudette", role = c("aut"), email = "dylan.beaudette@usda.gov"))
 Maintainer: Andrew Brown <andrew.g.brown@usda.gov>
 Depends: R (>= 3.5)

diff --git a/data-raw/package-datasets.R b/data-raw/package-datasets.R
@@ -74,7 +74,11 @@ ST_higher_taxa_codes_13th <- jsonlite::fromJSON("https://raw.githubusercontent.c
 colnames(ST_higher_taxa_codes_13th) <- c("code", "taxon")
 usethis::use_data(ST_higher_taxa_codes_13th, overwrite = TRUE)
 
-latest_taxa <- ST_higher_taxa_codes_13th
+ST_higher_taxa_codes_12th <- jsonlite::fromJSON("https://raw.githubusercontent.com/ncss-tech/SoilKnowledgeBase/main/inst/extdata/KST/2014_KST_codes.json")
+colnames(ST_higher_taxa_codes_12th) <- c("code", "taxon")
+usethis::use_data(ST_higher_taxa_codes_12th, overwrite = TRUE)
+
+latest_taxa <- ST_higher_taxa_codes_12th
 
 # re-arrange taxa according to letter codes in the 'Keys
 .uniqueTaxaLogicalOrdering <- function(x) {

diff --git a/data/ST.rda b/data/ST.rda
diff --git a/data/ST_family_classes.rda b/data/ST_family_classes.rda
diff --git a/data/ST_features.rda b/data/ST_features.rda
diff --git a/data/ST_formative_elements.rda b/data/ST_formative_elements.rda
diff --git a/data/ST_higher_taxa_codes_12th.rda b/data/ST_higher_taxa_codes_12th.rda
diff --git a/data/ST_higher_taxa_codes_13th.rda b/data/ST_higher_taxa_codes_13th.rda
diff --git a/data/ST_unique_list.rda b/data/ST_unique_list.rda