Rename to WRB_4th_2022

Author: brownag

DESCRIPTION

@@ -22,7 +22,7 @@ Suggests:
     soilDB,
     ape,
     data.tree
-RoxygenNote: 7.3.1
+RoxygenNote: 7.3.2
 Roxygen: list(markdown = TRUE)
 VignetteBuilder: knitr
 LazyData: false

R/data-documentation.R

@@ -102,16 +102,18 @@
 #'
 #' @details
 #'
-#' Each element has the column `"code"` which is a number (1-32) referring to the position in the Reference Soil Groups, and the column `"reference_soil_group"` which is the corresponding group name.
+#' Each element has the column `"code"` which is a number (1-32) referring to the position in the Reference Soil Groups, and the column `"reference_soil_group"` which is the corresponding group name. The `"pq"` and `"sq"` qualifier name columns (`primary_qualifier` and `supplementary_qualifier`) contain individual qualifier terms. Related qualifiers are identified using `qualifier_group` column derived from qualifier names separated with a forward slash `" / "`
+#'
 #'  - The _data.frame_ `"rsg"` has column `"criteria"`, describing the logical criteria for each Reference Soil Group.
-#'  - The _data.frame_ `"pq"` has qualifier names in column `"principal_qualifier"` and `"sq"` has column `"supplementary_qualifier"`. The `"pq"` and `"sq"` qualifier name columns (`primary_qualifier` and `supplementary_qualifier`) contain individual qualifier terms. Related qualifiers can be identified using `qualifier_group` column which is derived from qualifier names separated with a forward slash `" / "`
+#'  - The _data.frame_ `"pq"` has qualifier names in column `"principal_qualifier"`
+#'  - The _data.frame_ `"sq"` has column `"supplementary_qualifier"`.
 #'
 #' @references
 #'
 #' IUSS Working Group WRB. 2022. World Reference Base for Soil Resources. International soil classification system for naming soils and creating legends for soil maps. 4th edition. International Union of Soil Sciences (IUSS), Vienna, Austria.
 #'
-#' @usage data(wrb_4th_2022)
+#' @usage data(WRB_4th_2022)
 #'
 #' @keywords datasets
 #'
-"wrb_4th_2022"
+"WRB_4th_2022"

data-raw/wrb_4th_2022.R

@@ -1,4 +1,4 @@
-## code to prepare `wrb_4th_2022` dataset goes here
+## code to prepare `WRBs_4th_2022` dataset goes here
 library(pdftools)
 
 ## SETUP
@@ -94,12 +94,12 @@ wrb_sq <- do.call('rbind', lapply(seq(z), function(i) {
 rownames(wrb_sq) <- NULL
 # View(wrb_sq)
 
-wrb_4th_2022 <- list(
+WRB_4th_2022 <- list(
   rsg = wrb_rsg,
   pq  = wrb_pq,
   sq  = wrb_sq
 )
 
-stopifnot(all(sapply(wrb_4th_2022, function(x) max(x$code)) == 32))
+stopifnot(all(sapply(WRB_4th_2022, function(x) max(x$code)) == 32))
 
-usethis::use_data(wrb_4th_2022, overwrite = TRUE)
+usethis::use_data(WRB_4th_2022, overwrite = TRUE)