From 0839cc658f80f85d17751d4790fda471fd97eb5b Mon Sep 17 00:00:00 2001 From: camille-s Date: Tue, 19 Dec 2023 15:04:49 -0500 Subject: [PATCH] Add counties back into regions --- data-raw/make_regions.R | 2 +- data/regions.rda | Bin 1714 -> 1791 bytes 2 files changed, 1 insertion(+), 1 deletion(-) diff --git a/data-raw/make_regions.R b/data-raw/make_regions.R index 37d90e6..f388a3d 100644 --- a/data-raw/make_regions.R +++ b/data-raw/make_regions.R @@ -15,7 +15,7 @@ town2county <- cwi::xwalk |> dplyr::rename(name = county) |> dplyr::anti_join(town2reg, by = "name") -regions <- rbind(town2reg, town2cog) |> +regions <- dplyr::bind_rows(town2cog, town2reg, town2county) |> split(~name) |> purrr::map(dplyr::pull, town) |> purrr::map(sort) diff --git a/data/regions.rda b/data/regions.rda index 4a3b744346285185f006831bdb5ff391d87a8881..550c678cef4235010c397366a5d7a7bd8d1054ca 100644 GIT binary patch literal 1791 zcmVKR7`*`#i_A}>U3uLhw@uQv@&;DNZ&jHxw*!0GI2Q}i&4q5mXN zZ_HlK#f_SZ&9p)9V%Odn!n$(>tXUC|aC@-u8||hl=K>wJ)!nR-MCuc4$XJNxC{R^; zsF{aP-t6W#(7PysqT#0D#=@{)IOMj}%Dg!mnbQcuh19BAhtmphwdJbpR~8kEEynj( zp0vNA;G{tFpbAKkr&Wv9>IjJcbrK&vLJU$TQ0F_>UlqG=h6|_3V?8|!#dzDvtOkM& zEHgrq<7sU3%*ehKX?bi|{Mlint&;`J_I*6lmxI*~qxZe%kikz({l$~seFfz-nWCb@ zB1Oib0`+p~h0GKdLl}lH*CvxU%`DiOy{1Oh&!1~agHu(Ts-EgKG=31?YbHm}^z8Sx zwP`5PWTy4jRYTwKU7G}ERGlliHW@h0x(};`rmE1))N_R@P~!`$2Fn9XE6bII(sLMC z)#SqF(O}wj8n9~mxo00-IvO~goK`uLCW=y}-^%Pvq@vTY#fFSc6&5UP=rf!+nluK6 z#uWohuyV0Wa|>|EqKgWZnl=gueHU6TA#kM4*7|`1P-?-IsXou~F4VqY`;Wl&p2DZW zKKU>HkAeRu<1#k;+tof|xEJ2Bcl3QKk35|YBazBQl735>Cc>%w8c)HI&Sd2{L{$F? z9SWRkQ<&R_Ut%fG4xrQpdM_(q${9XfC`)3I0eQer0+$P29ZFGp3e4_g;4yS zYaRn^b6l!aP1RMloLID+B|Oulvo#)rz+AkyJC-H9qkS%l=u%Tuu~Rpe6O5$qmz~qJ z?l?BLH0sCR%fQ3sGh+ssF&NW3GN%W@bPo|hzhgJav5Tvyu(PHIXbmecu|VLRrHYYK z#`{3#Q$LcaTH$-%R2ohS;obQ}y9O);gw!rdwlAgCo2rVGWFH7RMGBvPoPRH;?i zrA#4ERtObqCNN`EG+8lOjs?oI7}0h>W#JIz6sa-cIM^~$T_={ziW?OqqQ~Y~J0zzg zAz?)l3#Hys5#B>!pn;;?hDMn9l#7r|8L-IS?mLZ;&QdWt-bu-4sq2psbKLKqgK65k zdwBLy?e-Q}HdxQR|!MB}$ZSN3uI2Sn4{RQ1Q zVrdPMZ&ZZun}txDNuj=LG%}SN1q(qz zRI5(;c)MyGY85Je(>?xIH8{&mFLSKyV?4^6r>VYWJ2fjg+y+;S#z8bT(@adNOjPNw}Ah-TmAq5 literal 1714 zcmV;j22J@wT4*^jL0KkKS(B9}!2k%ie}Mo0|DI6*5dc5$-@rfb-|zqdU8t?1YjdTsFACkK!o2*T* z=?j&D=*UrOCM8JKaj{KNcjY;A^>Xj_cuaWjJ-6#OoJhfw#xxNj*|D%X>)GKOresB^ zqdK}34Omz)KEVSqh43aUrN>N+Nw;)a9K%s*G+M5u44R6qv_a=m)-7VG*sTgA#|M*J zMtJL9#$}D#m1W4GizZk|RDqzPAgv@#N5Q$I&sZU4g2PvhlY5MEHfUsPM-Od>-%gz|9vCnCXYnI#IC99W9i4bU=G;Cz; zTp`4}VcZ6Ik=m4bg<Gf53-P9x;apt-4?iFZ55nHCMRE)IPIg+}t}zbTV%DCG$NRT85C2g-V2n0MK*{jMs@IS3tEP28g*&Mi zfegLmgx2M)VhfwRoJ&3jGKM=IZLCJ-u!3B$M33Z?;tl6=Sv(hdde{e8Asd~&45Uwi z^(UiG#Aw?a>0H8OJO61p}v0@rHJsB2U-!mg)WT14-?F)RMU_g*$ zE@nc4sG~O6=3m5J?nr&ku0fdyAb()OSl}F8g*SbOaXih5agYx)Fx2uW(xJGzQe7Z> zm`GDSu7PVAOq!ApY1D2qFvbyg89P?bxNH>|LhXW!2CON{0zyU!2ua>X&?tj&yKCKq zVH*)HLA)h6EqF*4WCmIhIYNqq9n_67Q7uQN7ED^hMg<4r6c2jCn}MJs5DX8zu}SYJ z*cJ*64W${8hXTohfU}Wv4&%x4bOMQlNVaH}hc254%?J&`;?)Z)ID(>}Hds5|)e)(s zv{g;!Mv!1(BfCTz9pE)}?QHf2g$ES(I>WFHf_yGu_5eR2p~3AneV})l1J*?NoyRgT zj=(-J?-GNoI?l8_UlY=Go|cR;)Yvp9sDbHVL4g>DL-RA{J4f97#oX6H+(8r4Xur3u z?mUbxMu!p}PXIQ$rEMW(!et6z8J@Si)Wjql!*Q#dh9-*uq+qfX`dUjH064%SKTDSH zUkGt&xoZb&-d`-3?R}=_2Y#%`@&_~HGR#O3j7V)F6(C^J#iIa?8ww-pITf&+i4F>q zK0%=hC?l*S7?&nQOcx4rXq3S)L6IY?8l%QM?$dp#u;N+4t9;*(n~r7+-IW7E7KFl6 zalw091|v`-ygmbAyHcwSu)xgVlqVF_!*s*i`W?Zwg~a)f3?TI?}i+Y^)nMv9OL(7l^E+R!NRYry7v2L^$(^gqSikxmpO IB;`r4Kt{(E1poj5