From 64116fd0b5830f7a293b1d55e0300872e680cd5e Mon Sep 17 00:00:00 2001
From: Andrew Gene Brown <andrew.g.brown@usda.gov>
Date: Tue, 7 May 2024 16:24:50 -0700
Subject: [PATCH] add `qualifier_group` column for both primary and
 supplementary qualifiers  - used to identify related terms

---
 R/data-documentation.R  |  12 ++++++------
 data-raw/wrb_4th_2022.R |  18 ++++++++++++++----
 data/wrb_4th_2022.rda   | Bin 6475 -> 5981 bytes
 man/wrb_4th_2022.Rd     |   2 +-
 4 files changed, 21 insertions(+), 11 deletions(-)

diff --git a/R/data-documentation.R b/R/data-documentation.R
index 816cf4f..613990a 100644
--- a/R/data-documentation.R
+++ b/R/data-documentation.R
@@ -99,12 +99,12 @@
 #' World Reference Base for Soil Resources (4th Edition, 2022)
 #'
 #' A _list_ containing three _data.frame_ elements `"rsg"`, `"pq"`, and `"sq"` providing information on the 'Representative Soil Groups', 'Principal Qualifiers,' and 'Supplementary Qualifiers,' respectively.
-#' 
+#'
 #' @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. 
-#'  - 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 names may be single qualifiers, or several related qualifiers separated with a forward slash `" / "`
+#'
+#' 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 _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 `" / "`
 #'
 #' @references
 #'
@@ -114,4 +114,4 @@
 #'
 #' @keywords datasets
 #'
-"wrb_4th_2022"
\ No newline at end of file
+"wrb_4th_2022"
diff --git a/data-raw/wrb_4th_2022.R b/data-raw/wrb_4th_2022.R
index f64b088..c10971a 100644
--- a/data-raw/wrb_4th_2022.R
+++ b/data-raw/wrb_4th_2022.R
@@ -2,7 +2,7 @@
 library(pdftools)
 
 ## SETUP
-## 
+##
 # dir.create("misc/WRB2022")
 # download.file("https://wrb.isric.org/files/WRB_fourth_edition_2022-12-18.pdf",
 #               destfile = "misc/WRB2022/WRB_fourth_edition_2022-12-18.pdf")
@@ -18,7 +18,7 @@ library(pdftools)
 ## nope
 # x <- pdf_data("misc/WRB2022/WRB_fourth_edition_2022-12-18.pdf")
 # y <- do.call('rbind', x)
-# 
+#
 
 x <- readLines("misc/WRB2022/WRB_RSG.txt")
 x <- gsub("\u003c", "<", gsub("\u003E", ">", gsub("\u2264", "<=", gsub("\u2265", ">=", x))))
@@ -59,7 +59,12 @@ z <- lapply(xx, function(y) {
 names(z) <- z.names
 
 wrb_pq <- do.call('rbind', lapply(seq(z), function(i) {
-  data.frame(code = i, reference_soil_group = z.names[i], principal_qualifiers = z[[z.names[i]]])
+  pq <- lapply(strsplit(z[[z.names[i]]], "/"), trimws)
+  pg <- lapply(seq(pq), function(j) rep(z[[z.names[i]]][j], length(pq[[j]])))
+  data.frame(code = i,
+             reference_soil_group = z.names[i],
+             qualifier_group = unlist(pg),
+             principal_qualifiers = unlist(pq))
 }))
 rownames(wrb_pq) <- NULL
 # View(wrb_pq)
@@ -79,7 +84,12 @@ z <- lapply(xx, function(y) {
 names(z) <- z.names
 
 wrb_sq <- do.call('rbind', lapply(seq(z), function(i) {
-  data.frame(code = i, reference_soil_group = z.names[i], supplementary_qualifiers = z[[z.names[i]]])
+  sq <- lapply(strsplit(z[[z.names[i]]], "/"), trimws)
+  sg <- lapply(seq(sq), function(j) rep(z[[z.names[i]]][j], length(sq[[j]])))
+  data.frame(code = i,
+             reference_soil_group = z.names[i],
+             qualifier_group = unlist(pg),
+             supplementary_qualifiers = unlist(pq))
 }))
 rownames(wrb_sq) <- NULL
 # View(wrb_sq)
diff --git a/data/wrb_4th_2022.rda b/data/wrb_4th_2022.rda
index 88845eeca9d82c28f6ed9ed69497d99b24874490..058319f3eeccfb4cf9e1e534c5ba8a114fd0c6a0 100644
GIT binary patch
literal 5981
zcmV-j7ozAwT4*^jL0KkKSwTn2SO9SyfBygf|Nq{9|NnpQ|M|cF|NCRI1~7W4D+EBJ
z6aWB&;3Ajb5`9nsorkl#4?qV%^a$;E^coGY8dsnLS8Y2p(%m{v+QjXSR7Yc^l7Jxu
z9RQ(5v=*@wRJNI#+g2r5)k+dc2{k>HGff(sP}-h>Gz}hxqfbZ;05W6-fB*mos0NJ#
zMuwVbZA~=&P$WVK2thPS`lS6+^(Uy)KmZvu00*c58%O{E2dDsO0000$$$~OqMwo_}
zMj@sEBLXlGWYZy|A)qlZ6A-{mMw((^Oae_xq60wC8X9Oc0000000000000000000f
zNhy({o{cgS1i~gv)MQPH2AUcJBTWWC&<ClY#L&<*^wA9%KmalYMF@b1(Ke=2Olhdo
zMAI6B(Hb-W27np>&}pCz00000XaN6Dks?d=*n-QwIB5-uHiMo{%5_6%2I4#18)vMv
zMYByaq-oh8w3vv6one@kXiA#vjKa*5LPI($GEB(QqM3=AOE9Gz&}J4$Om-<VM6Gnz
zWh~Ht^XF^93sM%Qq%V;zk`|^2FMPEmwitp<x0bWuOHwT+ktOuxwM@v;hIbj2S&^d7
zn9Na_wI+8=%1qG~yV-(fhP&%AEW%JWpeZ1vppp^7DIhGOHp0nSk*Kr9nNgUujPbK7
zvm;h{1tA823d9j)kw_HVf|5m(69r2#JsimyjwoHemXv(|YWsfO>LqS5N8RM)<g+hI
z*%zhA*36Rr&xh@8yXCx(o$+@k212S&p_GR=s_g!+F14*|k9w;4oxV;w&PJ$<-?CI*
zzptrR;9^rUvnDbL%_)!!RKklTOqN2$VN6T|1*|lMgC#J*Od0!wF)Y+8=xUQ$1&M^1
zx9{0k+~PQk5oE9{5s0_tW>YezoSKoUWK3lyQx!~+ikh-hT$+)k8qD~1t}K?=ie&6^
zwkp|(o0Zwdfos;7ZA)dc2}+8VK<QFWwdI<|`Q?-~WTh=iu@sqpjpcT|xoLATP=Ug3
zB}5YBiE`zWF%bmJ%p}3Yz}sxrnU1P<aU>^T1sN*DNXsQ6WKxY;DohzcQ$|S2>Cr~m
zZHlTC@nr&hyhTqIRY`8&Xehd{A;Pt$8@@47U?HXQ>OUr=pb!9Y{Rm{STf)LpnL<e!
z40aqJe(KKFQwQM4s-WG4HI`swXigz;hDKxBk+AmAm)tRI`~C%XJ<R3N8274}e#RSG
z<7S&}u1`Wl_(~7Lq9<Dfp1mdVCP`k@%BLndF(_tDU@MwDhPmBckEI^*cL6Tv?o3V2
z)pC?NAfjNtV^=|G`9DunV*%$|4;uUX#>5R&d3<n7*fsIA)b+Yy-}Erfoo5e|c{e+Q
z7e*SgJQNWgdBk;Hhg=51^bdW!*T3`_x!$g8Ya2N(beozc{TT?7#l2Wsl-f%{Qb8Cg
z6<`RW3L?HSULF`r!5t^Rrw1kLw~EuyZwB|?-S!KTcxYMiop6+DukwZn@m@?f&Q}C>
zX1ny1tX~qNZbH2T$dFeOW-pG~o?YifiA29nq&Lckyuu}yY-kC-4;FzfH{(?KhQ;B>
zx9qPDR;OYp?%D}DyMa;Gx*ZEFke?8xM|Cz|L>CmBcvzERhP~_=X+lN}xKNbO4wPyl
z?`md;B*85AeXozr><_OoC~tsz_A%uBtOo?0k0hWPG+I<#XHf3s_WfWfE-3NUl8p#Q
zjX_=8dde+ebV$1O<mX+yt(hMv_j%zHuDV$9EH*&Kz}Rxxuxe~6t`aO6<GxNfHD;um
zB<^u>ZLb-^#N3t!mnEAX5}~%!ZKT^9ZK0}LEw&cQjpUQh-Z1c9x3=?j&iYuIG<7@O
zRtwe1VOF#3`Fs!-L9-Frp(4oKy`;*MYjs|K1HMiMptXqSp#-LZn&hL#r`K|fL?W2k
z3>yZ}JitQL;g{6fZ-)$sfwt0NX$rkC>TiS=IyCu%wA#FTNN>T5oI70+P-vtYDm0@d
z?4g#(!uL0l(noQWH_`8VW;$#@Q%p95<-Y2Zjm3VWbh#vmD+yM})inEb7R*^B5m=~N
zT><3E5-QlMN6xXWn#l<CnSTZspNkA$q}Q98L$g*4d60~>1(J5QwQ~Am3>ABrv1uyN
zXdFr6cF?z$EsZinZ;5VQHLLboEaE+>yY2g3Bi8$!C_fZ*4Z|B$<JASMLW@hkHH#~I
z#5`JT(8$E;Y<uV{48~@PyJd;Xy)R`X3(x`p2A+l9{%6X#X}K8M8%@I@wNWwWG}}vy
z*tue&DmX4*fruJF5Hbd2CMU{8z|^}Jw!8W+d#mcgDM`F+ABSc}2eLmVC4eBH$xdn0
z8sf7e45qvAX&&Bu{{CFA-CDTN<;V2St6Ui^dNL2ulO9|6xf!!@pjL&x7cuk~XqO`W
z{j0+;IMl84`Hzytf-+dJSQS-Opx10cb&X`GrygvoN*GgF#uXoH_MdGr_I~7+V+J>E
z>Q+6<wQ}PhZ!0Z38_Qr*al2lm*`PyBszr=|sw_c@gP5@~jxCJJtowgPQ@$(gDPW(e
zQSHin3QZ+$3*ZXhDecJll%E<?ad~ICUfbtCh@Rr<Zlj6&wXwa3<NJ-!j+%9~79)S#
ze9}bdnzq#brwA6GTuw-wN}V+y-zm=v>a&k5$jr!aRrJhO499VO8{-$#Z8zp-Cv!-h
zL_9qKa}@A*l{lQ8N$wMb8zAACnVFfHm7@A0@VqLVw4cnVWhZD?Z5NIw%B1-vH%fHE
z1;79-tczf^Fz1l7vn^FsRaPppU9I$;s!ug`&ErNv?oheVXgCnk(zt-^sd%Y5B5^mZ
z=8<K1Q;B(;MC3=wT>Vq*3h%;lQEt+weIt929%LM}Ed$29TUn9L;mTi8(ob~Y=DX5A
zPZ^b2k=F28gqFz@BGMMFeNxm#)RH@_K`bIp5=bZwdgM@%LJ1U-C^Wa?S&IVQRPs@F
z<vAgFvE`52vh!}+iS^wN?v&;5iNA^96}3lk7uW-78%l76>B^#NlS-cM%LKvPqIt+X
zO>;FEr=qmAlPqMeG_SIY&{Q~};-PjNYSiS+SXracgU~^!Jd`f5oWW#{InOE8b}o8N
z@>&^$W>#%Tv(!jg7Lr>p&4^+l+UWGTuc6#&JuiI6bLY<Lr;$~A+`%&$RH2wG!Jaus
zP5c3Q|KiN3%$RJWF@5Z!DoHazZSTmoA!yHfEtX|9D9l!3&5+lcGbCnHBnYuU7eWBG
zE6YzF8?)-W*Oku4(x5g9;?<d`Qy3M|Bh*yx#O<Qn=eud5c9+>LFEaADM>6LpJ~%@j
z_ROqDs?0VXmEolN+;pDulO;Wrp2NRUnAMi5otU0{jHx)Gbp6webM>y_({$eTab`wl
z10ZzQ-mhU{s5YTyJfTOy%2|n+QXdFbC1wekGb)T(l4esWH5rm-R!Frel04si6V4N_
zBiOx(OtMoI<i%N;khD`$tU}f^C1z78GE)mNEXj&f5{wkd9B|f2nK06Wa+i8jYA(9$
zf!QFQD@$c_sz{nK{yI+{ZMN3+p*TqRLOqu6Vui%1@6tRMIz>c#5R6Mab8wbP7HT2S
zjkeoWRaH=k7F2>UJhe<1%AypO2^!Wxlo}&4%&|i;gU&mRJP1zt^rVjRNYTY@w%JJZ
zpJBfOo`F++3w~wQxx=OxKJ3iQ%ISsd#OwjWuQ^X<M}1J`ROY^?v+*yA`1-+E^3oHT
z2w-6bnAMlhW^p6v;lQs56r`R=<p>>*0KulSCZZU`hRBNui}#g#;COSLK23=lpDLN|
zkCv%yElE*iwlc9;%3yZp_m#&(^crZ|(+yZ-EU0B|mY?rj?c+YL1#rQa9pxW{TNn}C
z(n#5$ea6j_PMt=u9(I-Pp@vV8t|#1FT3x_@vh0v>s#~5mCv#fHnp2mdk9O_dyQ1f=
z>SbFf?MXYl+(#&cgi1Y18_8xaLv&(Np^OK0;i+`Ln4ROy<)@k<x!Qq*L&Y7g-khF=
zczw|j6572dAVv5f3giJEe(Mvvo9ViDzdQLxc8mco;~u$)dbHC{?G+46NUAWbD9rhW
z^}cqWFEdczdMpY_EP_;n!)*LQ@SEIoGGmURO66jv>6B;xKR4LYMD4v2P13@gQW#HN
z)fSskX&9ne>h9Ek*^CYvl_cF!9nrzM<g#U$LAzAVd_F*4)s@1<I`v<Nso3VXWpG&<
znl$F6wsvwfnPUh{iXkWv+8W>06Cy%TA6B_qs$yWM<c%0rkqZ@8RVgZp(wUl{TWYwE
zRwpG+Hpt(Y#y3}T_m@-4kA06trZ@eDhGcvdo;EmVRms4?J_M$314v65wearPXowU@
zWf=>p^OTXOI~ubYgBM|NEa8MQ33@uV0g{-~U#+wuD+<A5arQY4cluB`^mJWSZizv^
zbY@ymmX)-9YD#=V!MUwRKC%hAd(GQP=p;?^8+Q+J$l^Ho_UvKlJ;)TY3FbF=Dc6}y
z9Wkqg5KVo`@K&O%hL{lwnh=5-Rt-JpS=kSO)TTN0B$c3VrBsTVEof6Bfxl?NR!JPm
zzo?zqhqz$2THk8t(D^6LvMf}Mxa=p)M>Dx53nG*>&Q8O&Iqc?#M9hkHZufrZ_qkz9
zj5AzXN3A?kGVgah6J!~=rDU>=Gc?wwR$3#(S31OHi!0(gr)Y4FY59DjxGzL@*jol;
z7*wc?d^{RJ^^POT)@7;cay6Bey=F09?#Nm_4$M>U81|G-k<EuYVwuMW8-$0I(!!<_
z(}g#ME+m#EtYX<2d%Ij3i5Fb5kZ0#dIUL4Sd}Q}mipXJca~=VW8&gS%F(IAm7NGbw
zIHOg%42OG2G-|Ou)i9iRo4kn{wQ^L`ak+QcE0#E@at<7{Y+OZN5)>jpucLgUH3pnU
zpdz!m1OWhOX(7%FZSQ%;Mj42Dii1~6i{wD^G?#P?E6`v@*<&8dgB-A`_26uHJ7VGn
zimoTVWtCS$eNRwh6w4cH8j}(>($s?#3gBS?azR5ULQIpnprK0HhZmiLqPA&*!;1*U
z7-OB2V`dm<n=)`KbyVc0EpWxbg;iSH8)IZ#*q>1mgK`O2V}t>rtxLhN8k^=^JI%*)
z7L%nCa6un8q^%HvpayC+Z5Zd+qVZ;1cAGj|1FoQH#g@r2V0CF2O6+N@J5<X(Q3}Im
z_}g76TzMTFWYH9AFJOQmf{uv+gd00z!T{h?aoO(QLQn@vN;8$woSKaw)MI-WoR0%{
zE~~l)GV0*U3af1}4A_Ef+D%Z#+D~NJBn6G^rnIV6RWm}+&<M%4OSa_GaR5-7>@{4C
zY`Dye7v!s}+RQnqO5_s9Fq^w6<2-MxZMTDr1Z&9}6GRdlBy2<lou@M(gKJxR4JJLt
z$Xtz90kZnROP2=@#fXZD9~O>?0+Iu4LVULtY|k**Luf!f<dl(jO%+ReIvPdN9&<RQ
zpy#d71SEp)w8ZN5s1ar@8<R5y0tO%=Tj|%Ey9fg40pfyLj^O}VB(!#5buST^31-bj
zu-wBvl1nvphjAKVBdFMp1l<Ef(!vZXM+XJ6+J}lkI>&~hxH>uUu~tVWJPBFEm0gbH
zX#&V62XumUJ6Ec*k;)@B1+pS$0_+wnF@=qiYa8wxH*IC<w32VO?jvg}7}C^1R763W
zNtRm07?vGkT^Kc5X6AHLgHu8aEK9^~IF#MSTU}cuW!uI9?F7ie#t9K;U~I6VK-ovW
zAi_y{<IM<5KNJ?m$E7QzXoIP;TX_n~gXDjYB1kt>wU8URNj#<uCr*OfBH6*!t|jtG
zhkQulL&8c^$&Vy=>a~qYS@C1DqZ7-%4>Yi=R%_undngvjGhNRL9AM^1SnOjR(dnVO
zPlF!x*S3+f#|s^NG97#pu#at}R^araj#2Q@4;!@S5a@C$x_)m`xwF;q6u34B{F@wb
zd42=bw!130#1f!e6tesGlus(i)Wg}Fqut5qVLK$A#g$X6Mx7EID2CCJw(H5<oXHcg
z_sWR1W0YrcheY7ZCYA;nb7e79v6N|s8#X}Mn!=+@D-1CegAH6PA!`W~(Isth6sspG
zCh1$dR?>FP8?k}9N~AI@ored%K&_75kaj`Ip|qVOo&5pRvT~D(UwG>x(%T+$*RL_@
zZ^>5<#+y|#9e%$12DhcUweiQ~L1apS#M*cpjH<^M9fr7`N$F-9Y2#(Z#MBE`Ns+9y
z%+|Fam`KWTi5#JX6*{pplOowZFD)5|263D!ix^yE3M?jAV=IM{PowzwWx>9*-zBbX
zTdiHH*@80}m}uH}(>o^di=owtGO|eaq){fUEeV+}1{@w1P%3IuCQLVtK=j+_!+o<R
z>y?zoA-oNmF>DO6t)RJ=@KscVT(%9+@+cPRis+%32Y475l&rE?scA{HOe~SsYE7D!
zU8@&rcnq@xI-OUXiKHBNx;paAmZt)<G?-7KAY+8_9(RsPp@WgaBe@9EpIWUS0h}Y*
z<>!(j*(2I<Iz5CB3aPq%B#r4Ui%DekN%4{4QY)mLI)v_%2<Ofkknte1y!Pdkg{f6N
ziz2v>AldDW;EhQ$Bb>}*8;XDSS6!7lD<@@Dq3b7T!6Hm#w<rkoi_4;rUYigiSiNaz
zf>3TaE#rPv*xx+AYiaA}Q!App-CVsMI&2<b*kEq+gK0BuEHIv9fmG~=&)950`CDd5
zw~j(rIVvesA+CR7`gaM*5*=iY3sqJzacxz@5MXAsHC2X8)-5qvRo{8*Rf_M<i1DF?
zj9Fpip>><;n=-MMChNP+dUuTU{OTMo8S7_7>onBw<)=+%+i8mt(jHmOfyp-=o$05x
zLkwXjwwoYyjvXN^JqM@FFt1U;D-bJ5v6uyp!Eyn3iBlwqAj(-fkwQF<sK|9du7#3L
zZ7{r!nd8YD?E`(HVa<twFhOu;2rQLm=@%r$L9j85lMU*C-Udv@k<AsNbK{5{Q-*fk
z9OTBYBn`17nT6zGmL@v7ByuL=YCtIxp&^O{0W~vbIf^1^nNSSrm@~}e<2uT&RYwH6
z7D>Rw?S;su9HdyzhD}4FcYQ}O_p&F2U1X5%pFg^Vw#b;o_1ZY>W>~PpCMk;<O`>Zn
zXI|=luw`AH#~F`&Lu5~}`WAUR=O+&3uNYQ!@Q;Lqn!U${T`5qrFxcU#GBVIBnFAiT
zMitByW(G2k7+Tv5R`;7%S?+m<DY=8%*)@@565es!3@TyW(gu?Xh-yYOjYuX_b|bFw
zo@WZ9(6Xz|WjbRs4d!}1ep{l+g_5xay>>|)*y2T3fqh~dIn=bd{Fo32(b2DM#R?%o
zA*)(bPeLFKpf#;9-IpJ{-Fkv--*E2R6xitB&v@3G*<B6}$oTx5C!1IvK5dy|G)}$}
zu;x=N-Sc<J9xATBxEt)IWX2YWq|1?%h9RSk>{iPpn6N2u=F&9EkR~Qk0|f%W!x5`-
zC9GJwrzlW>7>KS)D#enQB?b_J0>UFKZuS+f5|ak008CYaOPS1}vm;oTl3*esc);U{
zHnUc^5xhnPvND0XA)Qj|7`F^#1ypS1sT?L0#3N+XWh^D!%OY+K;035kg7$9VkXjOu
z8d*Zt5~RcoiL5T6CRQxu<(rbJl~g!0Mmh{Ng2RwB5BN)}X(TPWYL+iZa^+b2>a^yj
z_lU)e7|K}ddfvgqqvd0syN4@hl<QHY%Un}c*WtG1cWcPWaUkekvN0Zm9eNj7;IW=!
z2S1B54SZr7kUpkKnHI@y7KTq6?{AFG@YQPRt*tq##uhT88iZ*Yg+0sMS?|}yw38A|
z$QY9nv)bf5ayB%)@!6egld0TktaiAYcsE+|<kom{&Lr0x>_>=)t1H6VMAYJvHz1;`
ziHY$c=Sw1`LiIVSSQM2Era|B%jdwbaO?0g)w!KR$?PuHA!W6T*%`AIwwQV$NfB3tS
LDZ+$;3O-W6nmr)A

literal 6475
zcmV-R8MNj?T4*^jL0KkKSvgdI3jkW6|Nj5~|Nq{9|NlSl|M|cF|NCRI1TcE2D+CCm
z6aWZ?;3HlD2hay>7Smg0RT|Kd9JS7EC?Kf=W>8YAX1dAS0)wMXwF*-J002Z?2S*^P
zDAffO34&>mpovBj1XPidOq&$+nlUtbjWhsc(V!Xt8fX9j03M(QgCj#DL)6nlYH6pa
z5}61=0!gNgQ}U;zdXG>v0B9Nj4Kx4^0001bfB*mh06~Bw1jK2R2*_d>MiT%d2*_m9
zA)_M@XkaEL1jJ~-MogFxU<ko68f3yU7={sqzzD)J88paf$ix~L35kI*8ZZ%)CIJeN
zlT4;2$uTs=Ptesgjp<J){YRxeAkYA48hVX1$PZ8frqluI8X6h^Gy~KTBp^XFn1+Cu
zCWRhonHrg>X`@V<G5|K93?K%80BNR}fB?w<Tq*x>zeW(z-q?^RX%0R!mCIs*K+-2T
za0Z!p5THVv0=VK(ph^b<iri|@4S@wraw|YmCIMBvAe13UVGtCg3IU-66Kb>xK*)fX
zDikYW5ln6pfNUy!2kvLcAwsk{iFko17KZ}2I?%L+6m-<lmmstOK<26!LKF!|U@ny?
z29Utpl%Nua3Kxw+gbM-&I+lfOAY;e{3Q*y?z$ik83f+rBwBSp$0);6IA{W92fC?Nb
zcK}eOA&bhT3Kjv!m=c9(Ll>P|6s7M_p-L0st4g$Hfb;G!D18rg_&xXQQ5^$=fXEQ`
z<n@_UJv|D`BL$Qnr}4gZv-$^!*W_SVQX(Lre*9De!0!3gT4o4`>+@>bqc9@A$s!*n
zP)3y@7$lV_P}U&GsR)vQK!YnNGB61w2oeS%!U)2$0SFMPNqef$4S`&t58cQWTt2KR
z>V@?}8KDX=$crG53&9IZN|@J$0|>|@5-AKIrW^p_RM#RHQ4A74ZrRI}0MJR{!UAGL
zF?YrVcJ;VW(noF3!=^RltEBNsij+Y|=dG3(StwHuoC0u@m~53Jl`2s)Ra9EmwJZr%
zptYq@A=p!*2!JoTA_y`7NGgQNf-I;Am}CTDloUe&C=%|%ie&+mf}j9)!XhW>K#HBR
zDkqWw0oB0Z5D?~-P&RT~&${_%y#2CVzm@N2uin^-Ddqkom)yRDF3H+!BN1p=J<B~U
zG;+cDISubd_!o|l%!G)_r-DMXuI-5f%!~5j94|M!UJr?_Djt3Mq#vxyNYaWf>)qTy
zN5K>*{K*mULML<p{IrDq6oegey5xZ&sDch4^a?uj7((qwzF{zxgZAal4;6x;su@JH
z8hfe>pMmXnI5Hlp;91|-hrq=Y`(K(1;v@5Q*zn81=>95)H!Ej2o9u5p0iH>maGu05
zzgDvQ$AMQs;68nG$ErPk$($Z&!M)kSlLu+kaJA2@F_EF?#$9GEm!zmtB%!K6goFtQ
zN8c~g)0*_BHM%*t989mz)a%(d(Z4PD=&->jv9W8Wx6DJ{G47cko;?UT)}x^OBYt~K
zMVQRP<EU4%OpyUyB-6%xZhAb&Xw1PY+T3Y%ikt08Xk{S~EtY3gL3Q85W^t(pr-zrt
zex5Gpfzjo|B<`>UKK0n_Txf8*IGBD^k&U1-8ymWCSlmF{q69HyQ!`0TEv>>`t%Snj
zk+Ia4N<KHI@Ver`ck1Q@x&q(9pF;HHIudi8rJ#wct?MEjgR#W&_&{uAHPy5%nv|Y;
zWqEP#6kUR%NbldN*M2=0sTWv2H(roV`|W3(u_1^^4h1P32ImA#bcif9)6FMNhUnar
zXoZ8O2;+X5%w}*(18fqG4`N}Ylq8bWRY?%jRE02_m3z6s!O3_RRk_UKg#>J%?s=6~
zOjZd&S8KxRx(qG@bQ7K;m`&zbv7=*lIX&+mMUDh$#tP%iQ81tpzKT5cKIRHC+!Ta{
zfgnl&X@iZ{QH{<g8BGnbB%%;pg<_C*Im`u}lrF6CH(q}d9P~4TqP#%qn?!<wp44c?
z!$s&pj2y{wKO;~j*>j82?ZCp6AmPH9I~TFTc;(2I%R?+?ZR1Z?cl?NW;o4B&((atR
zC7A9v@!!O`^Ubjx3QpOi^V8nyfu2{fw;YXXVm2A|4h<**;uYTYgBxX;D;P6n$yV)&
z$>%(5U!ymjv^UOWDO96%@)qqk>6|Ygv)TKL$y77(1wfNRQAzu3yBs@}j<uVM_r|kx
zY6Mnx*BSR{zHrY=T)t8mEu_ltit3ML6jBpYDZjjVrAA8-ktAfORE_G@-nHb5!z>vX
zFI9TrdUwPzG6N9_5r=<d@{`>9KHrPv`YPRw9to|i)<X9WxhCfdub+ot2vLIBLdt|K
z=3+-q7d|UVTmPTl{-5rpObYC3zf78wgBBM=5d9dnai#MyGAwW-bLNKoqb&=RpC-y(
z<f1^M)P7C>(&KoLi+GYDRaIX1%K2d@$(8HS*UO)3;uxT%8qQ*miS~bKFYLZ7mV^jO
z`KgTjTD$R;pUktQW%;FwnQ!F3hX7Ch``?iX7@;JDm?og8VInllDOUb52gnNlatjDQ
zJw*4!A4(~OK+r+-pt_Yz6#|kY!c`+zPM*vfM~!FAj7X1YG0OwW7x9H;1Jf`PBhdjS
zGDCbL=HpO&Dm0Z>`fMj7VBhsl$b#7V!VX9!)dQ_W`l1g?gY?b=5EQ!rK9K<ivi@BY
zm#27rBUh;)9sSg!WDN$-V6gc60uBIA7lcH)rivYr{-g^!i6X(-=Ar>2PZ{G>4XO|F
z0wE$j0Ix`+-hzH=Df3lKD4hZ(0RwjBe6M%umagwXV*vRdA!DQ=*@zvS9j%d15UJcS
zxv5V5Y$?_u#IUwg0D;*-d`b?gh4WD4gj~|Vv(g+q-h3&tKbSnbDfPi$0*Y!XVwD5H
z0vQ?rZ4iWfkB-5^m^u)4^YsbSvzwEL9y3gBBde<(7p)Na@C6D|8~atHN>FkFm1#>a
zgry1=Y6m=vLuAAG@Pz<a`ic~bK#<U-D`0g(lmsZ~Ao;~lA_1)t>rThryEhq+I3G~u
zH!7Qa!VdrencRZpqGl-la6qylVFy%4)B!<CMKFN;Mr9ICtIR#9J+k+Kmlt6n?6W8%
zasX_oA7BOZf+4V`Fm#;vH<t}$AtfiD%g!M05MYUf%>e3pUI>n%M*vcdC|Lpo_6ib|
zsX||>h+#nEH=IHn2jB4z#oh>SPftfz(N7?W=MY2K0+DEhR6><03(N|hC-y`h|M3Ep
z3P>^lC<67EL6BUf3J|<`AW|&>my80El)wT~lpt9M80r$03Q`D(VuNvNg}n=F{w!Hl
zBEqNC_gbK9n)ICjO`Q})<cN8MPTHZ=DEWfV!&BY1&@&V441Jy+#sJ`Ehn*}@?6MIv
zoXJJUyM2Knm;v>Vaw+urlpkRcluvC``yRohS}@KL9)uIUK!H;=2Ws)G5T9kDSm$28
zo>!21*53%C&#Wk+_b>)T2>?M4k_yT#AQT}$2?0tJq>5n*5THo_3@VZ#;`UVzkq3xG
z_Md1$m_dc|$`maqH~}z#5(wfNMwFBpM1i47P=G;%P>=>tI1nl;A}}aGOd!3rQo^S&
zhW_Zl+{Hn213=NVS414Y%S29L$h8C`@x#@uT|PJn@hS(`fQOOe6@X6QQke9)D3L*p
z#7xxOcGY4v!UwftXCOBj7^$c?BIK*aXsOBq^giGT+7KOFMbkIq=c1|O5FFGD$<u>v
z=#GKCLG>ydfdg5&Pf&^E1Ve;Gt$p`=2Z;;U3UZ84M1Vj;I%!L}Sp0guTj<+@H)XP)
zP<`<L^M^7Yj18bb$mN~a0M!6{0-B%{BVR8H9bWy50~El9Uy%vjM`l@OX(E}wHVnQp
zuS5C}G!jHr1Y-#hfE&^VVd#Vj9VoDT+uXfIsB+qh2E|Z`fdNV<{b2B91?Si!KxRFG
z_sTGfo?>-HQ*=UKqjk&Y&PPD>vCy4Xm`;&!tFZS2QJ#1nPE)7@{hyR`ub>x=JJV!|
zazOF;i0?fdUN#<Qm3n&<3hUI709+pa{rLv)vWax>H73R&^9ISCmgFE4C%3rCexUaN
z@0$Ev89q8FggIs5PITmQ;ey5m3L!KK5U^N~OKkAZ1!Aj}yrbaAz_^PKC;4?}Xgh-*
zV8R{HW^Oc)l+0(d1_a9iLx{Xs{Q%Ax+X#M@o1vCb0z}ble1VZ*NjxEunn;k$5kYn!
zsf3Ca`#(p=bQg@=2MCU12T<??LYBcul!v5o5<t!YASFN;_;NU5HUH4PfWo=LI_g+J
z_-Hp<ph6%W3AoM8i5W3UO8f0Z!vz!Pxiq^lQ-GfyR*1mq-IcWph$<afCP9(0M=O#;
z0!%@M6>^q@kt4Tutz;-ZGr8Q}3|8i;5Y_>TDJn36M(t~48YQC`L6ro71{IM;MJLv<
zxFhW#Yyp{Z%0dvuYTU8heGftQ@bzoUAXZ<%Tnj1dk=U&5cxq-84|RcQnG{^~##zjy
z4N``z8YY2=pIpR2xGOhCbj;xf0JP9FGFHm3Fol>!ewOM*z~C@%CppMA-{=E}YtVu3
zD)YUEE-7R<^j6l3OS<?^g0MZX=gBX0+m1u&<%RPK<?u_wMPv-RQ{l~)wF6$xIFxih
zBdj$Z7&x|=1>R3WhJ4p3@dks_rcUJP7sMvqI?>`j;txdQ@Or0$)!*wb1Z=`vx~qyL
z=e_JViHuWg4H9IxMK(f1I1?xyu!SB<NIZ{C43ZGr)=|bo?T^ic5IfDlWry_8+7fP9
zhHA*mC%8EiQ=zwOMF|GVK;UF?>klo8AWEXp(6}7y#wj$-gT&;d^>pBKh3uyoLji;i
z;dsUjV**Fzb%y*%ZUbaDr^Va=Ve<i;LPQHCQ3eQ==%BcOcoO;n+btsolhn`-lGidu
z>1EK8EJ(g~AT)V8kW=Ci^#}u}0pM8SB0#lhYbhQE_=GqEN(j0JMvP*EEjsuO01U`R
zv8{w{^qrSP)&<B;fP0ftC{Zd^laLm$SxOQJkVFaGqyz4NzF<HsO6|rWD5aaLUJNWJ
zdXOg!CZ1eHg%XWyAZ4&P%psWfNCNLd$Qcf7h{yy9Hq~2+f#)-KUQc)JVDxkDfO(+#
zK<VrEuZ53}O(padRDe`UgnLvJ64$HVVQbcpLRooF+Nr^L+EdIabW5jn-?EV|T2n17
zd$_44r7qOXd&xS)6gLvBM71i_TA?R1M@aOnN2*z8D}z&<6%<;W2?<vZebPjtVI($$
zjHV?BO}-?aAe5D)l0Aeq4q8IN70Sf7b+~bTYGPd|%Oun$`AT`19cL3$ye#Y_DPBC;
z%|9v0on9}Oz6j;RLYI#3S5hF;A-TmJY%2n9jwUu1QjO5XmeN8?9y?ZgIX2VRD(6Dz
zb8;@mEJ|IiBfNs@@RA*~pkh+bW3Bk0<!zxT16%d&h$E_vC}=Un_i>{cGP&9%OAv%4
z)$LH0Q0_Mxn^=!=yXlM}bV;+a6InxshY3lt%-GHCJX}ts!Q&mC%?kC>F|iA^AU8(*
z4h5m6cMkfUs56(9COTA4QA9cf;TuO~$vvK2W{zH#I?P>knT;JblaN;|J0`S-aGFS5
z8=I)?h!BLJLPEUZCy6#$xUG@bCRAstkk+%dcuB0wiL+?YGXq558zru>y4Hjuht=wL
zPlIK;!Yu+o!$2d0nT;bDo?v~n7X}tM&D#XK4@xr`Fjiq(jpGG~+WP`XPy~n+YD09T
zGYV3nc5SV^v4kVOrO7g|*-fQdc{-&v-n7vo>m<NZr5V2W$kT2yg}RKa#!!?rZHii&
zl?|rRb9J>w;=h`_D&I0bYIxGQr3T4Z)uEIf<dsZo!nGEhW#&Rrin$6z%7&pRP|(@d
z_Acr4o^w*Q3I>ezs_zk(5M(kTpqnViOb&t2tjjx!Sc|(wT<nEz5y7~Gf#T(W=Z?c<
z9k00BChFu`2Gn#Z!>~C`w@lZS6~dI&3WH%g1`HWwZ&eSkK;bLiR@_M^JaU`j;>_)I
zGN^5uxipKijLHuuDvX=P+QF@&a&Bxg<1(`NoXjPG7ryBdBMEb^gb}nFo_bN9mN?%s
z)E6gwqjIko(zk#O-xXfcJGsu$MUyowZbOmm4Ah%uGc_cJ9zI}HCsCgy(sY0XfVHK1
zwaE9v!DLQcz)2L5+nm0^I@XS~Q_rX&)C>q6s_v(D@V#AOZq;$#Q{c*j!o(pV8~7e$
zqLP^F5WG7D#nFB+kWI=&;!|A-+ea~dbF44ZuzUn_EQEM-sC1bG=YvgzvG5ZTNty;p
z0M$K|4wHy;Y7ZlbHVV7<3*fzuv0a8p{HWBAuknvVlj0)A5Evj5BnZyf9ymQ@3o72n
zozpW^?=O&Ocq`+KAmpRL91$JJn!yJoxI-;=FU~uKc%Gz0kRz&FVR+j#gf<5QBF(CT
zB@pN-O$aK7DvITWSkxBfGEg-FZW@qCLWpCM+%#c9b09HgibE+$2_X}5xI~8<A)(C_
z%q}|CWi%EcBv7ysc1;gj7+z_G4$m^|Tnv|jy`A6&_zTUlIt<<imJ1%R@WZS+GKj9-
ziY%%`4sL9i1!M_@ub4E#G5DGW9%BGlgiQ@FH_$sTRhyZ#$&WHdh9OZd3nZ#!5mjZx
z5;6xwQ_|TBs6qLf4JQ)$Er5#vkW=Amf?zi#%MgH2F*d{kfQcC7Op3ney-m01X0|sv
zA~xMlZ9Sm04+C_AQd$iVBTdVtfwm0NrNGpsu>c-%Pf<z%aS)IJy2=VP#oN<WDuJSV
zmjbIOvBEvJDJ58y!iQwytxFMl#So1`V)i6q0{1Ow$ktk@_myVAX;RKFV64mrW)R|)
zsL=3(pt>du)F`s7svs1=g^Lk{Qw0!P@QH<t=Fws3PSBbFv-ogx`N3@thsuUr`7UQ9
z&IMCR0v22$>lPn!+z9~bH!$xaim3vMgJ>{qHKA`1O#B?0FWVN%%>)i$Jo|Z75=9=f
zVAF?Tl6getu|Xji8X{zF9)UHCNe?Re5H}nbi1E+?;=6{zaHi_?s7{dfn7~3ogdZeQ
zIy@35WDJjJGvxy^6jW*yP#G(Qcaji-W(s|nx{*_hs^w(g&?@Ez=h){}kj&e!(3eUY
z_*X7|q0@7bm;vma+{+1w9yQ*DkmMS^gLxvr7=$CB8bwLkMaVUMkF{j?Cn0-<FH-mU
z#IwSlspV4O96+p*^3kd0P_d936aj>^kVs)Wjf+51uZ0h*pc;J5FgYuy5}^$M-ZU5%
z0a7gmB~VC}RTQYvt7phHx|5Cug{5_>a1=yIixm-I!Uh1bfH12BmLb6lBKeP4Tr8)V
zHFl{569<$-h}0_Nj*ki1we)!veI3H^>}%6-`f#a%Gy3l)PWLxM3uk&D(r-hy?kEh$
zMOZn3$Fev)!ckN>eYYV1-ZtKe1oIr3u_t$Zx|?MoEez8^kfcu8gIdx8rH*4=-9hNo
zY;Km_>u7+_8zChEPcf4kP-lHiltvOzAxxPRwGhJMDyG!h;7b~yqLdS?iXHd7?go*z
zM3z(AJ82Ncw5mb7VHn<hzG4j#h#;v3Du6`IOxhH>9MLljI<vo4E}LpFLc5U<Z4H1s
z0}$C_>OHUrU<(#gu|uRWkT?hdk{ko0-s8XxpJ{qXQlsL2uKcwbp<%+Cu;eLCL`yM5
zgfNO(1gN&;?&&?!BnYXzT!TP|u43tb6zw|m9X8bCGBK5A;$PD}WLV{qGlolL#-*et
zqD=_4MhyX<fT+x1$wrujQRi`1#*8h>RX$quf$sy1gon!DijWdqOgV=zRnBQ=7e?%X
zcDf^oSu(;}=|xrumZ;+);ep7`k;w6!HdPNZ6?(=g&@=^BgW-n>aMf0NeEb|mqAWDB
z)Z<{Rg-!NC<RZw(YF5BFHie?`{YnrIg+~54A;WOV4b*K)7Q<k0!L}f^8TdGTV#EN1
z2?7~9<UPxRmkwF*d_zV=UCEyZ*wn!HFF<nv(ds+Q%oLde&6q-s!2-m`?Bs}tjaQXw
z<OCqXF-ioXHK$t_5V9B38}<m5ryD~~WHU0^G}baD$u+1E)r`IIbk{m5hIB!u@?%+R
z#+CvJg%ION&duo=tcXS+D_bjCF)^`J$z?3XBOxJ@%BoWs!BttB8<-`!POha>BVfb@
zNKz4<pbb_4z_0|=6L2N!q@t>l69(5)S|CyhfxT+EuRJi8$t27NaF(h@M<Yz?6I}|C
z3Ly!wNd#0x6vaRUmN+hBV{NodQYx-WHNL!v8&QH-4TJvEgiYNE4}}BO9neU7OGm13
zQ$_L+NfJRwa`tx%@RN6A--j~$f!;Y%4Tph)*f5O_^}9>EYhhEqzGX=q!~@cX@O~j4
z9w6Zuy7nQ_CP;eYr^Q#PA=i)|*vUXmQ9bFIc56bo0K(vRu1|Lm8L-s>Ehx+|$qrf|
znhBZ^bX&rG1<j(kS5_AYv*&0VTLfTL2*Dsi!{t%xPG>HItfHaWxo-X%_2YYIt*LLM
z@(A_;@G#_IM*0eBAg3W41Y=la>KEA$D-4t}H-OlA*9?I)Nl}bkk7~5W*T=j)4rd-h
lu5Yf(|JT6?dRgX=oZ3NIpMG#ThHw9ixgwk>NF1s_1%QV@eVqUR

diff --git a/man/wrb_4th_2022.Rd b/man/wrb_4th_2022.Rd
index 54589aa..94e1bf7 100644
--- a/man/wrb_4th_2022.Rd
+++ b/man/wrb_4th_2022.Rd
@@ -17,7 +17,7 @@ A \emph{list} containing three \emph{data.frame} elements \code{"rsg"}, \code{"p
 Each element has the column \code{"code"} which is a number (1-32) referring to the position in the Reference Soil Groups, and the column \code{"reference_soil_group"} which is the corresponding group name.
 \itemize{
 \item The \emph{data.frame} \code{"rsg"} has column \code{"criteria"}, describing the logical criteria for each Reference Soil Group.
-\item The \emph{data.frame} \code{"pq"} has qualifier names in column \code{"principal_qualifier"} and \code{"sq"} has column \code{"supplementary_qualifier"}. The \code{"pq"} and \code{"sq"} qualifier names may be single qualifiers, or several related qualifiers separated with a forward slash \code{" / "}
+\item The \emph{data.frame} \code{"pq"} has qualifier names in column \code{"principal_qualifier"} and \code{"sq"} has column \code{"supplementary_qualifier"}. The \code{"pq"} and \code{"sq"} qualifier name columns (\code{primary_qualifier} and \code{supplementary_qualifier}) contain individual qualifier terms. Related qualifiers can be identified using \code{qualifier_group} column which is derived from qualifier names separated with a forward slash \code{" / "}
 }
 }
 \references{