From bb87555f1bab29e1f8208d7408b88c60baa0b881 Mon Sep 17 00:00:00 2001 From: andrewjbe <56839927+andrewjbe@users.noreply.github.com> Date: Thu, 20 Jun 2024 19:09:02 -0500 Subject: [PATCH] refreshing datasets --- data/ojo_regex_flags.rda | Bin 12441 -> 12484 bytes inst/sandbox.R | 14 ++++++++++++-- 2 files changed, 12 insertions(+), 2 deletions(-) diff --git a/data/ojo_regex_flags.rda b/data/ojo_regex_flags.rda index 11d7585cff0eee6db27f59420438a868d8b37e1a..35718183dfd55e0194ef7145a49f3efd5c74bc06 100644 GIT binary patch literal 12484 zcmV;#Fgwp5iwFP!000001MPiDa~wyy7)JyFE}}$9qir;rNtL#4u-PPsqDC`44h;o> z8q5PhJ_6M801hI%D!aRg>Z+bvut+r#;|Raw3!i+k4?g(h@X-;D7vY2Bh0p#Cc7%U` z|AFmq$*mdyDRI&8O^`uUWo2jO^5wT@)|a;zzq)eztJBAh9Xoz(W(KY&AbIS>o%QP% zJ~?)5<~exy(Xp9hr{Ml#b}!q?)llti4H7vlpzte@eG>l8!QcPU#a ziGG@y$b4I;Ps%vjl6_n9lq^d%o|G!m87GFhOzp!&m9Z&$GLE3Pak+0Af$qBQ&*rL# z3;PtQVXjOckB3oVx*O%yaI4r)0SIH0d1@^4_+BMbX_^{9#WLMDBbW=b5Flgfn;ENe zWGaNg$;n9NsZ3(?{)wWLV*|sJY9|iMI7`isgE)5`EmWAf@d7Aw^DsNes@%2%Zw>6j z@yzz+c)6Rox80a$@NJupcTE2C5kM)A`<2(D*8V23;iQU8(YXvK!`3@1b3l4ia_(MLl(7Zsxe^Gl*ovWUqH;55bBWAD zm74YdXVkz{ab~RY5cmS1h_c`wWs@YfMWDBniR}U4xw6wV+pqFr;$EBpI>hPF&6_Oy zDzVfYRmE1A*|EWM?mwT1a)-2Y0BDsK4(Fw*_Eek}RW2Pe&B>yWm2GCOj|?W?x4&+| z@V5G<5!sKjv3nS*)OIHuD}<+M641_-s~miG;w!?IJL$88edg(Oq>?!OW99KWL>Xn_o~wcD&}sawN{Y;m`E;&!vPN^KU+4}kwdvbE-T9n)VQy{`NkpLAivr`s+~#ZKOcu@GZ36O*A3)frJI2h zSswXVE)xTQ+3h$=rQz+fYOnOT%cueYX@!K04QkCK(lTsd>q(OB8u1Y(S)sP*YMH>P zJS--Dzt3RCc*oD0%K`F^LSP0_R9oRVvkh-J=>-UC!8ucu*~F&fp~X>5JD?}=aMX~} zsgJN@pzY8WMov1)^7tDk#zD@e7HJSm95`K8!OoMc?M>p`(PTA@ONXhmBboOzD}!Mc3MeftcFd|GloKC0#<2qwag?n+ zucgd!t%*0CCrbe0MA|oJ0G^g(mND=RJDD;JVJaNMoE=vU>IYTULTWosOf4r#LT&Xe zS_2;gq%cLF2UbudvH~iyb)6gmq{G;;PvraY&`sG)-}Q3lUS)O2Ilx4Zi_Y|&&NwU6 zcl5ma zRc!k_t_Fj|)&dh?XLYv7K)zZ51tI`2%(F#ip*u3R?N2L=b25Z>Y^$dL{Q!v^9|ofE z6qbg{hicib@>ttR(5Y1Frh86CQSK=7g>OLBMzk;FKw0j30<=vhUy=RfvhU0ml+TW$ zjyvIe3a}XzEGHq)7AlWrvXxdILY}1Y4BTW)Mo!c*uD zzq)&VvzTw84O$P%dh^4!{_#zCg{{$6QMYSIQo_Cc8WcbSm42S^z1edxSzFivGe|UF zTcyddBCy=R?w+5N-dM<(t?^n9TX|j9vQ4GFz1+F-Cm80q?n74Os(GF)-qxq@06R59 zxC|8;+qX7%%%FSf=ag~0?<)H_zDP!L9hWKHGX0pAUYle(Lz{qirp*_@fQGhOVGW>m zR^^9KW7yi*>~3~oej}S|6*lPuMWVG`w?6&NJ1wyBYOwNgChICk(b*R5q5|21%6pxH zRg#r8krL=fDiW+QLpcGZ>IzKw8vZ0s0GJBHR^d1FbFkpM^Qo-I_i8le>v9y*1l`%1I8DNo)WQQLM{Nfft;_8^aQ+q zduesOzJBxe!g9Uz#qz>>y|}b~ZFyDy{9AGi)Pp?6Yh2`*<|JP7BByH&vVb$n0&t-rR?^QG8{|~D`|U@aKh>Z+Tml?~8%#dlcks9R7x0EZ@LX-y&Y2CSxa7)y?OWp6Sxc+wV?HrvEYyN&XhTj5Zid}!KaPHUf3g8u6Qc)Wb5BCd*W%4yl8e%6RVVvaxjVYM&I0e2hfKwLp@S867wk|fFjM`pd$ntz= zGw3_h={KN1gAI0`-Tn4z=TC(3PGN?*3R_tXU22afNed)m8-!XY%UbOjN_Zcw83ag% zKZSL_Y;W`nGH=phcK6#~QmqCfR8rL{!b_4=9wq|)phwDfBHJLp96ejBA_peg_Uy0C zKATSZ`3ySfpeN{|(^;P&l7na=Jz^iE33=-3MCw~EFo6vw<3ZlRoDeV8`QkhCPLngQ z9!E#|@{o|(od9y4h1>GVaMtBtq-?VA{>BEA+S z2nnbFUQ9N-kOGXqhz~}uB5pdYC+K@}HFr@{1B^_`&Dq`{rzRp8z_(qK8i(Di$=kWv zHO5IxZjiH+5mD#9Ofw|W>uC_wSMN8VKNmJX*eveO_uWrtNUsH>Y&r{gkjMI=i?ZK_ zVvqm=Lsb&lP}{Waxk*o>o3xhw!g>;B*;nf5p_OJH7xn$6Gm$e~W;grjFEwM{?57)G zHHW27Z2(sCnbvrhmF4=;2K!D^DE$ebD!EeW`bSeA^FY)*J)i0c@~L{}9B@8s$EqFU zM0~XskL&hi1Kp{yBs@s1-{)o2H-PN{QHnM@SdET=zo>D$zkzO6D~HkPTH^)SQkKIn z^bq4M#E1P%=aqE3U`nXEe~Ht5x(+yB>R=gj4Zh8wgV|HC(Zx*s6|}#3P--NoHACASUf$K_kv# z0xO{VZbO&)F^JP7L%YzLZOWSlbV*yVoaX28j?FojBMQWT0w{zhrFrue^fO_dIj9V* zpX|FzTIjZRU3eQk*Dc`fQnispLw=!^kVC+#2+p5CYs?hLxjZQ6OvPmsslJdn5CzVAEBUqEO126@Zx&RcQt z4*AOwUolbR1uPZ5Cxyqv&Y&Z`iBtFK&nX2KR}1=t3P?-lY7>&qCI2=ku^mC0>>rGG z-kPHCnJU;b&p^Xr!jq@kk&hk}V|2djyeoqZbk*;$UQ67eBFzqN65YR$xEJe0-f-&A zpi|#)OzqOQtQh_ImPp8*ub)=_KpJR;ScOVkr$*E!(}BGOwebnmp54D0*H_z+W=B2{f@j&YYFvOFDL+`=Y(m4mKB`9qE!V;PbT%AxvrW?5EP^4CQ!Bq&a2rfg^VWkpK?Q!jj?s=6s zANmX~PB$C)3(g`U$!OfBl@5~$od;_c zZCR)Dyi98yz*Ld}UgLqaJ5S5-kG1sIJ>Eh##tR>oVrl8X>(`MhA+x*^V$d*a4ch13 z9+i_4%$f7R6;0!~3?j0DD2)2?VkldA8?01Z3UM9rx2Sf``dIvk>pZiC8YsgZ;Qs;%OV~k#qhu;?NZ>C? z+K-ckJ(;#1VtkKhvL0^Pn-^g6ayK?NnGxWL6(a!3%3UtS_yvZ2_5B9l$kJ*Wd(g$ z1;u+di>rxt6@7*%c1H?cks^!=u`3I)4XSoesM4tM|AHe3@mmz;K9J0)rCu1SSV?|3#;n_n|KPQMcRWSi0h?ufC!JH~=X)dQlJWe8s??{Ai}}!jbQm zvQz@Y8}$Gbd@(P5BI8J06d28@Cm@Xj;zyo9&g%I&eTrA1-+y0+?uC34!uE z5>f|mW4`tACUeY$`8A)k-=+9R&`-RXd(1e{6<=oQha~{K3`Zj1pRzO%eHBVQ-}te0 zs`zs?k!0Dn94Q%zfC4H7W?D=%B^Ym@lYxN#i45M)MY-=jA^W#WI`D=-01FPMgh)-H zPj$bpB}FCzjJN)|9rU{7{Lzk*6fviz_RP!$F*9%76n z5tpI>WKJR+cwa&LAqIqv#PW@sx`#jG$j3dwcbX|qVq_(Q^lx)S#0 zP-^++YEP`)xVEw)7FMn;-&nKR7w)Vs!W&p#*L#}6O#u_KpQ@hWVAQ~)?1x~dDKb<~ zT(QxW&u}!Tp7_Xq2Ys62KlQ{_oAX*!0XANPt>8vNe&5H!XjoLtLZ05ISuWRCtobkhZ_m zl`iHjTY)#zEDw=yOys_x7@Iv|F+dlb*KrMn4yKLOV#+2s&+F}8Q~`kHBt#sFcaTj{ z043ssHf-YbkKPYn1SX8!0*njt+Kr>Q4Q zpe9PWZxH{Zj@3*YbD|?P14D$t#ycdqD1;Mt3VNF5J)H$@P7=^PU`YKeiW5*k66k7y zFAuYwQh@YHvVG)ldg@4}0QpFitRM4f=)?{x0rJHARrv>j@Y894C;{4IDhj5uj)i{jRhxU%rGx zy?V7Lesu*?S1ystBXq1M%#z~cONODp{|oqOM*%diToU8SNIzV5FL;5WUe!U>QR(2M zM{(@|O`KLiDS`jYLlRTM8^hZigdJoL-eVSPCT*C`r}(XXPna+6U5cq*KVXM49a4(9 zL8-$_>1tk}knYet++6NE6ACGX_^J~+*gGcT(5=M;9Q7SY*WB<EUkVmZeABRmToWnPF%lz^M<&MB5nl)R%`8dH*c*h zUteEd{k;7M?>x_uu7v;f<0o2&qZMS~^9_cX zc=%8crsx(K>0@RLBU=fKlHU;~UOuEKLYB_9A+q$d*BuP0-xG^>*7Wm>QI+HK?T%O! zcf@U--O|EgohL}E1D9V-Ux!);)Ig2Y@vDjVdLJJpHu$hYjZ(Xrs zI`w8LQD$PeD_a3S>H3d zvOZX#Cv?IFXn%vx7(hjcPP!nCsB)o%-*u-Bpp8K3*h_m+hkwE$w3uNkukZ)iMtpTJRP|+1jQz%;5!`-nK6-0Z%gL7@(neAW84ILM&v~@c*!02&})G91q$JX zVlu*5QO4+_SYFU?yj2NdCkFPSq?r_RDg?Z&Q)4O!PrAs=_1jks)z5r!>!wMcgES4( z1otwesZWdO2~N=Hc4CuiA`%@WK}ucO2%G*E)kt>CRLTzTMT!K*qQ;AJ@-iPf(Gz^1 zxL?lE0Tj>!I)}n(K(EtL6g@#VrSIY;Yp((<2f3T z4ObTT@o;3Ol44GkW5?Wr5=P)kdKK%9E{z$|3*XpT4Z(H!Wu zfP{8nM0O{{8}6(QP*>6eCwII+LCwe~k#1WhVCo2upXnn!Ksn_E2`f&!LH$&p?7_la zKfuq#c^~KtxW6IvYMy~`hfAOM8792r45rTZXmgA*HX>Lap!w}((y?f<`tC7I^n5aF ze((t&Z|W012n?7&=rg-()_9K3`si6-`2%|J3I`j5Ii|b(4mRW`*FjAd>o>)%YhR1? zYhNv`fs(i+*4D4BFQLg#K6?~KJx&*}u6BrJ!$7z(n z+M{F;&KxL$ni8iR!o7hp!k9rsG9==*Ql1eLG9%jNtkN7?+0Wq;%d0T19;9 z2&O0@TB|qLML=P>06l;RRR?e{F3?jxR+0^{kUahp^~!OUvI(oY!!Ex_OFn62jklov zfR10L=C}_i;u?K9&{N=5#)$k9$HCmczi$T=Oe|nHAkES9en5~gIN?rFL9t-c2Q`$R^WiF_8e{k|l=OIgSfl@)#>_Lxb^&Uq+6MR+-OkZS^?iW*&IYLHH z1*96RQOjqHj)v<8cc@!OJQu~Z)%<~uxW=aE4vBl6VlM_pu#ct|uYVM; zYbGL@Fllv73>6@{jBo)hLq9Kz9fmnfNn8@oDY$USi_z$Jq+)z@swoZP0gov$CHFss za>GnpZnzo=H+{+~3sYoI_&{K!1#^0rtLuujjB!66i2baBs^BL&J&I){MOY&?Hv*=s zdjtv>uEC)j=^{EqNosK~X-O%RfN3~kyU-Gtfq93ziYshl1cSwfpn2oM=j9)Pli3yP zyc&sbie-Y~HiB~m<_CKX%?hTmbAub#mRA=8hB=;8$Kyl$4*e1ZF8le5{^-D0dc}WX zagEmcNrlkpVA#ihUZ$T|DijJ=)Jjm;@@(vCq%&*XLa>`Tn0;Wixa?=Q2S6KO*jS{) z{RzH192mPDZmAukeTAe93Z`O>1>la8Q?TUOhanf0LafPP!bI609l;o0s|v7l6W%VN z7yYWi;5+^LC5jtd1(qQnVuGa@4Uor7*u7eaehB@KVp=c;8AkQN98f=LLUsW*_+yAX z5qM9ti}H@{M6Q5o6bK$#x;MUDUaCd}lDO#ISKLX>w?C(%cobgH5dptQ9#>kC2=1@= za|iz2?~%XrWTT53Oj{Wm8M}KCmBpq!D3lsgKl@6%PzqG#O1&)4)Gocv00v6}UL|L} z-Qum&Fc83jf4-d&NX3Gj;C7D!cMssII3u+^akvu z1!mEW*othPv&1X<0V9eJ*dgx$5tBIF25?rBu2@wFSI}ej!lXhOhZc8V_LF@c?9s=%M6ul_7sCMF8%^2JAYqCO*O{Lw;_*Kyd^(zMD4xZ*b0#NcsRL+%UsjCZOq!5Z4!O z-dSB2H&>U)uH&c6fl&*9@03>L8ZtUm^5Pgql2qrB9%+>EtRoh)Km;HbDj9sY&i`nQ zV2HX|OgwU!^FqqBI3PuF%AJb3c(AyXaU>$^$k)@?Y633odGca7aZ*&8X zEibHHL*gPOkue=BILAgKy+_rkO-Hi(E~0bJzxatHir{o*GOM_U2~|822+WP=kJ?c zZiu1!tt($n*_KcNsA);82spvU-rcB*H=?`D{sK7(gQcZb!F@@{(xi)UBS!y(Gn1@JfLZQW>lC@MI z0LUK1Lu9(Bq)A|=z#c(X(5{S(Z3gVn_<$nEN}TS@e})17_Zj69)s{l-Asn|! zSvG>oC*1op`roc-Yo9q-?t^z3rk)rU_RX!#B;>FtHILOi_ss>8Lx#m!&722`kVWjx z8GC`&1~O;s1N90GQe0!FBj<;pH-OO*EXbTSF_La*JMIe&2E}Y@8AxBV9<)=*%wiEm z=oo5DBqa;zZG70&$bwX3w1IGY=6J`o$?cGv62UVv+;KPObr)XP9korMtx^d52TRkE5N+v`y+H%Ay&E|=Rec@m07s!4RmoHq_HkQ9D z&g~-Vc-&0Oq&v&#@JN*1!eF-_p`l~;_7zp0liSD^lLTc~bZ6gR`Ik5!&UG2kRwuQ`9(>;S zgf{!d=)mS`Yes=~!iFgK-}l}vEZ?}b^0gK=3%BS&GmTeoXeFO|7u@^|)Gp^rvWlan zy^iK_JP3k}-HUzG2M*@`(uawEtefh`BfbPhu2209;^JECb9MKK#?VzYl>vETTt0+m#O=_O${*E<&4kVXMvgpT10 zhcP%3g;)r<8y;Y&=K_y0WD}7{cQ@lke5034)JE@(`idRbzHGNk0X-|!={V&D^ZV>u zFuU9pYbeBPxTEBtU=7&#TXY?0E@;06u|(1$672+LoYSCZET_G70kTBYR#^CJIgi!> zVrrW0YWjQb9I=JO5@Eob@B-1AfS&Hd1v<|tq&b7>hh$$0N|`ppSZ~|&>M&Kb*)HZb zs5{96$p4n$9jPqdt{zJAd=h2HV2If^_?_y%IaPnlQX&CM?UG{Phz5A8l5oY@ttVC4K-j0x>_^|H^DN*uhn4R z9YpVI>UC2PB&hK)-$aLKo`(C{|AO9Gw)MwyA4vjwSWTuHymO6g>HyFA47^R9249;h ztZx9ZLP4ZR^E75n3`{8%++T%!?saQ!(??nwgy>1`IPcnLw?Ds(aEJRZ7~%wQO;qS0 z)-XYck~vGP1_TpUsOg#@hnxV7$<#X9QFM6@T>FKAWEnys8k`@Ov?I+`L4DJDJgREi zW!n`G62yJydjAN7Fm5-T#$3r|HfzUe&?*&LE-r{_w? zs56CA_CBKdgE>8bash434LW-DJJPi*>4~;GG!|Dp9m|>#*1RE9nBD|zRK;}N^4>B7 zz>{l9D<3>iMRtcV_?^?o&>_!XW9u*aWF%VLfW$E^01g!G9XB}fj}M~9_;AJe<0D~Z zkJRmoY2|mBPu&HHE!pp~Eb!P=UJnE??UKXWH;dXwYQ;w&Ov|lCI=CZTv@iam&|8>w z`H$Bk;2mMMEt@&J`n}#B;-Tcy+6MpRnM&kF?XgD^KNj;AQJSuM02D#H zX(I--*V@;UJ1{`&>`QYhq$i`;hoF_z zsqS9Uy<~wM^I~scH-c+6&YQszSCI_Ot7LxTHVBRJb{A04Ghdwo>c<13!jd$q@4br9 zbjTlHMvY1@yb%j<)q_fsXOdVGD~_bO;(`~$2la}E&w_jfAkG_0AGm%U@Lp}Ru+q_> z)$2HRK8Z-PLir?Yoa@fTNxmtvfdca>7YXmcYzVi~5oc<&k8?=6*MV=2`)Y(sej57! zr77P$M;c>p%;4w6PPZve>q$n}K#PWl-xwN7M75{FiMA-+iP9F#;yjd?(8e&poP<5) zRxB4~HHjl!GIg>XEi=>me=-JpKzrOZn(=;j&^M8%G|0djBB_->1xg6|wh#y8tHk=7 zbva#y^Dqb4q=mX(KiNst{!wyF_tKl`Bgp>`O{e*R{r8bwZa1bL;BQ!3>D@6#rr!RB z>G|}ih=1%|zK#SZ4QZy|z*{}Gl*=9%PunqZ$@IfdRmb! zcyT`PDA0XD2PO;qRTs>o*~)A;^ex-hrNFN*?x%tCE4!vMXyJGpV64;Hx`;>xVS8GC zv>|pTS)g@d?dvFr%FIU|hk78{%YN+GpUH)9)~1kbg8%;CzF5Awat%ML$4?M%-M+cL zw6MPX#ge#rdvWPDObPjck=>egvtgE|lC=k=c`u?bb6@mUhq!^yQ(lY1c8#JT6Q|P~ z2d^Vvy&s7}0P;%%0{VMI4?5J{Z}?NBmdPNpe@mS)oI zAVGZIe3w^24{ZLhu3g`oyng%I_3O(Ef3v)}`nkcNf1Ii=!y$*jk$^`gwtC`v#tC3% z!eiHQYW4U-sC$avn;~*I4jekLqY}TgfCfh@nc&i$La{tV`>mu8&uLZ$6>S3XE#xl( z{2)h92P6X+3yK2WG%7uvDR57BudnQo_w{xIL%IJU7|Sv3bZfAl2G8LTD1&{o))^M!$5ERBwdeoun<3TYm>ode=J*ZdmaO8OfUX^^W`BEs(7C! zjUeEUi~@2{lc$6%M69`^eFn|tST6z#>W?wIo7j>y`Vg@W-Gl!`+qpd@8NXSAc|&W1 zK3|GV3L&dKh>#A|VJdWW&^`TrBkI~2 zZ+gKl8f9+EA@*pk{c7Fw!w=N1LH^2ZP}Vz&X-S2*BNCDxQQ@mMvZ6HZVJE~Nt(U*E zzT*SB1ga9|(^nHE1?eC33gPd=Y^I-J~t|pmv{6Of?#Z@GLBP#j*I&Ta0k=k=+cMkACe;XD%A(Kdo^r}AvKo60c}$yxY&?$2<6-o7;5peck6 zp46E$!8cn|PAd2#~SQYy7B$+HOgElW3?dD1L;*_D-~0#w literal 12441 zcmV;KFlNsmiwFP!000001MPiDa~wyy7)JyFE?OvQw2ekHsTwWaV6#aMMU7^992yD$ zHJAqyd;qBB0UShjRd#m~)m1&UV3BGfo+Iqz3!i+k4?g(h@X-;D7vY2Bh0p#Ej_?og zKd}8Rxm5!oB`zAi2{MSPtn92@zWnyg`f_dYtE*?fI(y>8iIXR0X5e}Xk|$2x*|>4> zlM^Rqo`Z)UotQas2JSCq_p-0{g}t~O!AsDrQl_riA{=E| zqMv3aGT+hZ(=v{>W#5)OBg;~aC#8yX#;IX0Q~NMcWo(L`jw9%8TppN4pu4X7v$-nb z!ahZ6m@CuAlVMbt?nZev+%67M0K(X0o*BzLzE{aqnx+O&u}lxl2#=%MG|s!MwVbWL0M4tRE+)@cCf{ z)x>>h?HwcW|a3gKy*1hjMIDhHq4I7>WSelE4tDD%Q0OC-~w1=|@FRSjI4 zOBF!QPWmiipLsePsU%MSRC&A(QASy~=W5_ObQXWBk|MKXKAWrEtkK*Vm_g{9*g1NdS|)HN z4~vQ4?{kLctJXgjopk&}+HJpRUsagejAMH<8s$4%$53gn8#k~x$}Rc>f~~597?z2%$aGa~N0n*rbt93W``g)I zyD4U#2bB{QiiTuV`;$0#G+7Pf(qZcCNap>_%3zp<0!mAZ9kZ$k<-|vhaqIv^9A$go zYbkSFYvN7k=@NiAk@n3QfT!h{Wej}7PNob)mqtbmGaU8hF?=`eQe6Zw8TbW=9dcfFjsS6Ll$4lvQA0>gRID(naa!`jq-p z727_KtHB_#wZH_}S)DC1kgrxifd~K$^K6k>=#GqS`_l^JoD88I+v*uWKR_bKhk+7J8Olsn3N@f%RJ5$y{(P?o!%0&UaDS7blA>^rjs<+G!x zlTJ9F0c-{Z%Sp%=3YEt)*-k4DAy3nI25vGYBd71r0M|A1dj>Q+sLOHI)6g&F@s*jO zv{Q`MffYM*s8gVZ+O!T|-RigGAgtkUfS01ZW!U94_z5k<2(oIOF6HL+i+?9CesgzT z=c4K8=joTBj?0v8nSM-5uT3(Yp-sR$)8Gyab+(-~geHTo;nluU((PYA86%_~;)ZFV7Op>gu ziH<-yQjuVF8RV;gQgsFPdkudQp$~S#uvPf2{2a{p?tCii@x2-?`MMm1btqHF!K*1Y zGw}E<8uU8-9wL?M&X42GbbNPS)pG1TpsDYg`hbze;-*BDn2`MsHxTmmv2K7j)|PH< z)Hhbw7MAO!FP0ZJ>cypv>&v(F&%YzDKt0G~yv9Y2X-?uLFLJupAP6|4Ebt2Qy}p9L zG$WfYHp!!K_uG#;f387sxC{sgH<)?6@8WOuFX0W#tzIXm0{|_LqxvdR5g=;Y{Q4Gq zA)wugu9*G^3Rz#o^W>PQuladDL3)Q-CuuF(Enr{ul{)t5>g}l#pnTQ8tYg2(&!&r@ zccZ=vh5S-KohpUhtv{;cU9Zer(`A75)z`cNzeT)4HO5Y?s+-R#J<|n!C&&+wn7lgv z0qQ_MN_V~<$a=7KNz(k}a?E$SNxms*ZaAw0NI-rR^PP+F?Ar4ASk-${O|rD!<12b> zYRo5&jD=b-1#QS_!Oie_?ZDBG?@u;CU1HQgOwJ0Vq?(;NEgX+WR%f6DD1%KflAFgu zCBmj$fsZtsk6K&Z_I#_V_u7<-`8k57PhgzZ>srI}8iSO|+ z_7By3L&!sl60Yf&(Q8zb*9e$+>@06YH1Z#T7)gP{kK;7Un>_vn7!=GcUgNUz@QPha zzy|wp1^K=s(97grypN-)53iHrQ7hoQaD_`7t|j#!o=U!#O5by3GxBt33QFScD))bb z8Yx4!)Il%SCd<=t2G(f3t48`6IoobMF5z$M(yqtx*?}N@#~K({MyHQnf`~CT7tBYt>@y*k2kNVkz#|)Z!I(-S}YBMfC?IuR5h_6KnLINs)7n7|n zqyXbD;e%1Ah?@@U2|Arz&0SQ{03%cKZ?-qdn~4Yp@NL(mzhO6Pa&vBVjaAZ;o8;wW zMAW&j&%o6Z6rjwGJP@@`&zX9PoT;822b|9uuxi(M4_|A=e5t^>}O`d7Y7>`>rw zcaqu1*8ocJ4Cn&tupsxa10mq%?k4$@ecS}lpjX-Bsh~cB5uCe4j)rG>tB<~A5Bc{? zgKsnFS@x7`^eq#A1?_Jhlo|&=Etp>5{O#}L(Em+R-^LW?hoX-&jVn6{D!jsax`6@b?u+AJ*2G&mwTqP~^ zSGz8}gD&e9@OG)%NTMOX&`QX7v?_vgWS=kMVGGoWlr42Z)RehQ3m z)OZ0)h3`q>F|l*#L2qK!JiUcR9A#@IgC7v9$##Z|CyB_D(Ww;qCTrz0z`{UOQ&JsD# zA6h*ScJ%;6NRe#)tGwXygI5ICAL_7D38?nCXhrwDN}Th223IAV zl*45S{S@?b&GUD_w%Am1CnB`~Ck>Yz+@#I&dW9i=TCJ$z>evpgSr{nd&~V9uydAox zhV*XXB1V%o8*3Raqs-;yjAki+RpT73YScwm*gXX=AR@_V+@>WClL?&%YZh%;r}Ml* ziyXjIk^x@hfweo&%J5IM^cOtdMmEMP9+qNh&A{u|u}dJcyaZy? z3&0gk)<+C0YsKia#3hpUR&k+~R^u8>2TPN*PGUxkt0WGsyk(LXXqg0n^y@2E z9P5Sdw?H*Y+)&Y9FMY&lESda5FPV@JS|zADBEK4l_B{ENXe?$q<;00I{}2BC;CJro z8JQkzqwBr+finJ5!~JW&YkeF6t+#E_raaHt^LT&zOON;2{n`E5{n`Dm=YIZ#+g+d z&+gCe&+dOc_wy&5y7aPT!#A@i9>msz_3Vcy`NOG2&&TrwAI>c4&m!##$<4S3yJ7)9 zRQ4azJiWP(8(E%)++&TM zr=fFC0fe7w_&m#f-0bl?z4J5-<1z65zY6+%dULf)r|G#n`L(rP9+-UYR`y6mUFPHZ z`2nvy#M=*3_d_Nhs(}Z9<`Jjham~hK9LAFd<9CO{e@W7QoGk3g zwDl0sf#H4PbSR`4$S_Xg@<0r-T!dM;Gr-_3@LNyl@Rp*?gb67t=))=~-m_U; zO|+-zGeogBQt*ltVN{4cS%@7_wR=L9Mvea$96E^KqA&+ySB>H@Q9a@RG|H-izE_}_ z4sl6gPJ6nNz8Ah0Tf*LW85j&fOtL)9h8WWIfPd~zm&Aq+y-blH#PXtU>AfqLFJBfI zji@IuIe_~wJI%Zgb=i-)-7W{w6<>Yz6&1h%NWo!?dU)q6M)c%IGmRIIeYcdQ5*XL0 z2cY1KdFc}wN8*yeFh)HAX&ewg@&s~L&(G;oybAsP`#NSX5~I(QrN zt&caEVYKnQP`*l4j zG7)far9%~UMX-!@qzZnE3(AZDLLyPJfO!IYvLpHxR63I7hlPNuFlzA-;|hwn6a^r2 z65+u63fd1b5^N-vZ?5Vd{)|H&_XOW*rZ|aFl?>9q!=aFSB2uBg5A@x|b$VxE5h#73 zyVzat!hMm`aP2I1);qe;hxoBaPuRFkJ;8yS;;<($M3d|Zy6WP8E0aX*$~>mnfCWxc zfRUQI-BboWaq|yIL3s?%J#n@iK_wKkiJnVU=5llpDmDR|%}l?2 zL>V2#*%axF6|@D$EDXdXF)hblb~)<#So+%u4FEwO&|M8rK|(^pPBXzLHZ{S*358UT#wsgo%ub&1Oysv4jb zqrAw+oT3E&)N`T38bPgpq5~lTYUz;HL@wU6{Ed!njq*b1v`tXqNftxe{!UlAn73>N z-b}MRM7}YR2ZDlY_JqX%U2t9pG!#0DHdc!%o8UaJxBF2A0G5*waVXwJHbnuHh!5I$ ziPJxNKX?(CFp#Uz!Pk0%YlaIZY=}-=_H7e}sB|^uXqTs3bCyh7h8%~g0CLWZy&=6O>>s6U`gbQij zF$z+L^(CO8PE&J&$6fflv^&)lL1MorT+nlzKuR}o@H|I=qDl0-(!O%#G7k0HwVwF( zRZLyIOe&Aiv7RtXijOZFhW`F9;ip{%(7bwCj3*=gaK*jg1%`S}M^i_ogOeV`wFfkD zS_P#9{xc6rObKrc?{M^WkUe;hS*)3~VLG4UxAr|@zPNWOrh5H=9m;e_Ddq;H4lkvv zd68ndL-TNRx$jOWq!i+-PUtA_n21BS787u|cOYGJ!#n9-lyX&me6K2~CcKxSXk{r7 z3QiFM6x50wbQwgUWyE(-dIxbDeQJZVl%#c*tZg0&ApZ$)bPPEPB+Z`>QUdXxGciDw z`3Wc5sQA4pEbFXXUt3tZ^|e^NA#N_ME&N{GSX;d*)=u_{qL12}=ONUiGjMCD;n)f)=y_0aD0GUKTA9B9IFcSzL>cJG< zA|rjwjA3Lef#LBx!UW2P6h+9=*)~L$e)hV9vGjXl@y@z_ekrPQd|vB_MR7;0>Fkyk z1}qh{a8NmDo;tj~&N0OFaY9k9RL}iR3Cvks>59efN*7wVw1UlC5_s#171OD=N{KQP z!(G`5_)!=5xeeWqtR}6BoKldN`ugjSwX6U%=LF%B9;g-_0PwPO@yA|}m-z^&I-t4%i&zEkQrx#4Le}I7fcK`K40TYBvML0nB_#3M+(I4yE z-~Vh#Tia=7yN1E8K+5_-uL9OtJlzEm($BQIqdhsGCxWHLI}07qq&ct2*Iv;l3iO0d z*vRZ}^5Fug2+0P&)R~Ubx|(a0o4Cm~1EJFXB*T6l;#OnHNLUNuJ_pfKi? z;dDQyQxIq>Fs5=t#=T8(uwcM=!-0bqjL%-pe@k4KY*tl>;4_#jHYNA6JOb?nG$_=K zWl368AMC!Am@=x0Fkoas>{XbcjsQ4j+P;8sXJVQW5D$FkLl`*8w2i;nFfFgsu?$Ek zl!)|Q|9Ztcr=iCxkWSi!E?^9DgDdtl2Q0!#27da$a~@uH=REWppnZ`-c%hh#FjkZ? z`Y4tc^c!zgLfDCcy(noW#T*9#FYDBp3c`~vGIL|?nxXocFK(}z^m$0rFimhTLz?=S zh@RjCjczwKsU{-P2@<5#m5q4mZ&QtA$4sT{@Lr-wU@U69I47_0X%juc_lf)EJe@oN zJ)i?9oCfp;ok7tPbW{574o!LuBZrX}Zj4xfch6Uo&?|T?_!fyglM$y~81pyy2n$3a zyiZ$FuYl?x=tPU2XdY~FYHeZtwgLGZKHU7mJpO_Yw9sA*L|&6*g!USkH-}vitS8DQ z@`*{(k50b&$6;L2$6?@fr=e6jVKf1qE^Nv%GmJNeQ-lgdq!XSr`Y|4$0oib6aUTyy zW?Ek6!!`IMR{bbz{&9y+q)MG9(0K8bY4Dgjexcl=DB-2uueCrDUv+70Tb`bZBJ?)m|KCeHgn zU%>qhq1W;ZggadN#LqC{ontU{s7IS)l(7-P@&L_mFO$wgi`93JVWQ`gS@VOB_IOJl z?LlC`1VW$LU9-mXe8@-7`pO^BgI77&7|b!<<#(_lKe+*Fve;M^x37OKHm-lQv<^z* zl33rkzOjTRKl$uY7?Jmwb113bzq@*C~4atQY(#t35`nUm>>*FBi-@7ReKF(eqWcWoo-v6>7gHc*Y)iMI$#9XC&0KgOedv-M$jta^F}a53DLT> zx*-Az%LV8GM5sD|dvSrD^0AU^fQ97om#9~cvy@F()g5;EMOyMnBWt_`?FV%H3N^=l zKoQsI%b}hEuQEpDmlz)m<{ty@gW;0_`lp#$kig}aAsSITN(5LW3VdQ}s(UaB(5MjS z3p@wr{{4L?pkQJF!vSfIo(}?oguw}SdgMR#H26t#=okeXKn9Q(70hv5;F8B!aT^+ZU#%?N*f1XY3*X~? z!*1OHFFk>?O3!g*9n>H4c`xK;p>tm_WfSy|kAs;)`M=X~(AN1Jn4{>%u) z6AQ23DFDAgg(~n$qR=ygUbpAMkeHyPBdqs00-E4MVqp3rn{>aJn#|cTdMY5*V2xTn zV{|lJZ%MSyBhhB#yMg4d?BO!#bi~CjVDi7daz*ToVnF(sfnVa6N;DKgJ!K>9zHE-7 z!CG@qApQhntn~z5LAgWSI^ww~rmf}=bi_3_J$Fgm>lAx2FoJzFwRrubctbN0$%IL( zYhtJX(Pe}SXc_u>S?n;(VM^kXcuv8EOJ0mdzatgnGgD1z5D$1ni79#TA(R_t+H%9y zNVw_aRauxKd%_0-BQ2QIyIfsYtY?h-@jx786;uU3(Xml1BPqffvAGd2UEL#4xNr>) z-AI?v8A?)%dr3=5p#)6B3EP8~zzobg)Ky$z6C)TbHU!NZ7d|il2%OBW*x=Pjd{ZnF z40jNmBQQVMYiL$5jh!3ZyuN&EF<_YE5p_I1wC~U_QQ)$lzvzz+e5F_X7Z%rPt)El~ zjShx={Fi0=iKRlJa7C>Ig)Ps)>r`UI5`DNo&y+iQ7Ocl3?@vJ{n0Uu;q|HjJ2&C&5_-|E8VtVE zuV13L!Bt=x@&P7TiqQah%!J*mh3JRS|0t#fV~}A~AIt&ulO|*jV1qw~$P|1sxIai{x>o6^Y>fia&SY-~R#m zJ5M&csKKqBmrz-3%7a3wG4->rvE> z9QX&@8G%$R$O&%uC~)@xuB!8zKdv>yRM?sD-RekB2rBFm21Znv?K!OOed1#HX+#J@+p082Rse!;sN0@4KHNF8Bmz%0<_ zJW>T%+LneNq?)KMoGufvjkJbZf#sl`5$ORVP}?|~2)jle((9T-bu^et zT+V*q>^nmY)o)$>a?09+3P5p6Vnx6SHuvvFRlFJ9W%d`yNf=BuTm-ahf^9slcKOOS z_F(zLG4+CXh0)f6qi9Sowli}tOn3Fx51M=3)>Ie%wG|w=f}U%0!y1Z4_l0?gv~Chw z94c9F1OkBUK|DmJi)xbuW(w?aPae=diHx;)?9lj-YQ<`m?#zE9hJs*_xsgh^R8trTfnlvU}0jj$I%vA`y!K2ig82q~Dt6m@7e+?e}}a*2vW zq4p7uJEXoELFE(f{Tco5R#_5&E?5OBq6R@g~2 zUO>=~j31>5A=E9WfD=P;qp(pwNO3j}b89^(q+ZE{NJiUoSf$y{@USoZ8~p-VG~&v| zE86Pu_o=ykJsppmX_<6q8C?*GvYQI*h9ERO%x=4)%5!q$*kY2P?5YkL>%fy006$Ai zMgZ1?OPOm)GSKpcH?-Sbym%4?v5~?k@Mun#!W>uEv9inJDfQ9F()>%D59dq_X!DWU zXP-LnL_#b2Qgmp$vo&l$J7Lq1`|tbH7M5?`Uin%Jn}yr-pqa*NH?>oddKavI25Ogc z?pVdq(q2dNI35H+#_o<@^?`%Azw%+?AG9Z0+yn`Lf;LQ*ylB8Q=@t##zOuHq==S_w z;8_?}xIfe^K48lMGM&TFxry#T=8kA=MN!OVlGy4WT7EZPq(CKAV0uZI&Gn9jHf>Qr z7@=eM!ch#4L?IRe?uJJS>bby!1=(mL(%s9r5#J0Yqp{I@qrPItwRhR=8$e$NbvjOY z3Hv@f3CzB8#Tp9n8ty2$3|Ip;9uQpznhV;KKrE58h(x<(8Rsrc#kNHw`)g|Jf98OF&JVt@_ncJSEuT4SxO{esXcPl!2~S>)bcTF zrp{C=?56~W9AG>(1XBZ$_L1G^qb$L`2P5Y)_txDcA3t6BeW_zho zvh|Fh4v_&D4$T&PZoFgW7WzNbOqhDSgQ$lc&cQ%1evjZ*R{9o(wquNriG+2GawVB? z`dSV49W?a5rd~G%L4q0&^G$S7=4p7KJtF8YWm|tN50E6Fht*`N!8_Nmx7(vCD&1@%qq z@u;e4Cu&zbND%j(GyEeE!ngr&8k5Z_rB3(;{oJfV6L)HvF_4)9b}v^1Y<8dU9r~uV zc(k}Bie%kLUqROtEgATJGOhOz@N(@+L1DwTmW2u%97dpd><&w4(Lf~wi#2RN#l=xZ z{=06GG*@FSd;RsW4>ml2Hx)(SOQ}n5tT(KA*74br(v0pQ8Cq?HdIs3N<=82rxZW9X3Qudx{yeKHa)Zb0IgmgEMCc5@q?_{Rs)V|=t? z{PD4{vWMJu#kBIf%;(^O#Fp%LSr&MZDX-80nD)p8?VCmIW3}RA5T@nU2OZoIF4{YO zN$5?*y8Oo*o-5U?ZLxDXIP{J%8;Q-FUHe{d5Am3AX>Egl@=PUiqxRS%iJxzI%NlXv zYkB}Ef_BqJ3~2YWuivM7=go*DlwJXRP^GRuI_r!UdvH5DI;Tjqlc8)EG3vktgN|I-iSQ9Ibq`Be}6vGGgiiXdEd<7uR8%rO!q8#w< zX|u4>(V*4qICegXNV7uuBy61P&c#W-DYAhA^Klgk@4#%)w$c%2YIJ~eNV?aduYmh% zgo|(*`v0{l-#kYeV{Xjg=jBJYO-<`bM%O@#hKJu68cIa9ufmD8DBT&)7R=%Tl$g*~ zEx??FJ>^y`7iBexBV5FEvK%cl)BAri275re&NZ6x4s_5rk*74sz#1Z{l|Kba2>RL& z2jr{7`YUodU4`>72iT;Ax?VroP1M10a!mKqo9Sc7|Bp?l`Jo;0kzD{crXJvLSX$}b zF-E4|kcR9EtPM-O+)A~g9c;&oGU8nH)o@zsPljpVd*C2>s0eP5N5-djLR0M?V5f%q zzgS&CQg#8O8(3-9^ev6uB?|jc9qb1HdupJvfs7J zA9~EGC@#ICQq5a5kWrA;#DsE5D+e^u=sf0+@&-VQ+y+uKEi~Eh>a5vjN9N;!-cPzg zd};3zJ1sAvMS1^^BMg~ZlrZ`aZVMwSG`!7zj`~$_!+a(Xkd0)$9=@-|SB9OM=nNII zP*h6WJhUyN>)%30La=o6vrfPwo~%;K%B(d-pEK}RLWV_-l-VQXDCZ zq=K+Ltv{m>yOS)?ITlTkZgkg@!!8#UR}A4AG+g5 zfw$LIHl*3E`lno8Cll;*vNzRZ2mTOHz-I!}2mj@rkG zhD@AJZ&~~Nc2*Q|A2&HqQ>yi#1bU#vz0HRp0irtbmWj80{iYG!yk#SG9<(FLggKd} z5L%i^v%>`OdGlRf1@)CZtK_kB$@3;}tX;oxV|n3kmKSe*ZZPN{r>e_v$RThf;E{=~ zp17WI0+^Zb*may*J^l#lp5pgrh#VjThYswh#BU#67B+|%9bD?8)^z1_f2?tcu%a!h;A8my7#~fE?81DIp6HYwl>DL326Qi;05zW6bU*wq%VyM65&i;6Kv_YfnkW zuZUpY(AuC6iXxLj$Z8KFq(gO-3Y}*e(+m21W4+uF+KpUPq194APumBHTjJ7aikzBP z*?HXA1mxW%p}W8(%=WAWnnFkIG{pnjB|AEg-c!oA{&!W^g*ylj>`y07%sdBg z|47$zDonuOKEdCdoYa}KWk1=D%!d7w@T8Mx$!s6wa;&E6Ig@95-BgZ=NM3-y=l&ip z(A$@%8#INm!P7c(hWvuM0BtQY55qjG%$LqD8}9+0@J>zuTS}$YCHVqEe%sOwXP!2T XUbYumNxk^L`1k(-Ar1aMn5X~%a4#oh diff --git a/inst/sandbox.R b/inst/sandbox.R index 93a126e..bf47478 100644 --- a/inst/sandbox.R +++ b/inst/sandbox.R @@ -32,6 +32,7 @@ cli::cli_alert_success( ) beepr::beep() +# CDS (Other / Unspecified) refinement for LOFT stuff -------------------------- final |> filter( count_as_filed_clean == "CDS (Other / Unspecified)", @@ -39,14 +40,23 @@ final |> !str_detect(count_as_filed, ojo_get_flag_regex(flag = "intoxication")), # no DWI or public intox !str_detect(count_as_filed, ojo_get_flag_regex(flag = "under_the_influence")), !str_detect(count_as_filed, ojo_get_flag_regex(flag = "forge")), # no "obtain by fraud" - !str_detect(count_as_filed, "(?i)telecom"), # No "use of telecom device in cds transaction" + !str_detect(count_as_filed, "(?i)telecom|wire"), # No "use of telecom device in cds transaction" !str_detect(count_as_filed, "(?i)cult"), # no "cultivation of cds" !str_detect(count_as_filed, ojo_get_flag_regex(flag = "deliver")), # no "delivery of cds" + !str_detect(count_as_filed, ojo_get_flag_regex(flag = "distribution")), # no "distribution of cds" + !str_detect(count_as_filed, ojo_get_flag_regex(flag = "phone")), # no "cellular phone" + !str_detect(count_as_filed, ojo_get_flag_regex(flag = "dui_or_apc")), + !str_detect(count_as_filed, ojo_get_flag_regex(flag = "child")), !str_detect(count_as_filed, "(?i)traff") # no "trafficking" ) |> - distinct(count_as_filed) |> + count(count_as_filed, sort = T) |> view() +# Larceny (Other / Unspecified) refinement for LOFT stuff ---------------------- + + +# Fraud (Other / Unspecified) refinement for LOFT stuff ------------------------ + # # Classifications rundown # final |>