From b333de43fe62162b08625ac7b57a4a5f2256ba5c Mon Sep 17 00:00:00 2001 From: fawda123 Date: Sun, 29 Oct 2023 12:03:05 -0400 Subject: [PATCH] save data and import locally --- R/dat_proc.R | 16 ++++++++++++++++ data/acres.RData | Bin 0 -> 1425 bytes data/chgdat.RData | Bin 0 -> 8423 bytes data/fluccs.RData | Bin 0 -> 2287 bytes data/subtacres.RData | Bin 0 -> 1177 bytes data/subtchgdat.RData | Bin 0 -> 3585 bytes index.Rmd | 13 +++++++------ 7 files changed, 23 insertions(+), 6 deletions(-) create mode 100644 data/acres.RData create mode 100644 data/chgdat.RData create mode 100644 data/fluccs.RData create mode 100644 data/subtacres.RData create mode 100644 data/subtchgdat.RData diff --git a/R/dat_proc.R b/R/dat_proc.R index e69de29..a2973e9 100644 --- a/R/dat_proc.R +++ b/R/dat_proc.R @@ -0,0 +1,16 @@ +library(tidyverse) +library(here) + +# pull data from hmpu-workflow repo ----------------------------------------------------------- + +load(url("https://github.com/tbep-tech/hmpu-workflow/raw/master/data/acres.RData")) +load(url("https://github.com/tbep-tech/hmpu-workflow/raw/master/data/subtacres.RData")) +load(url("https://github.com/tbep-tech/hmpu-workflow/raw/master/data/chgdat.RData")) +load(url("https://github.com/tbep-tech/hmpu-workflow/raw/master/data/subtchgdat.RData")) +fluccs <- read.csv('https://github.com/tbep-tech/hmpu-workflow/raw/master/data/FLUCCShabsclass.csv', stringsAsFactors = F) + +save(acres, file = here('data/acres.RData')) +save(subtacres, file = here('data/subtacres.RData')) +save(chgdat, file = here('data/chgdat.RData')) +save(subtchgdat, file = here('data/subtchgdat.RData')) +save(fluccs, file = here('data/fluccs.RData')) diff --git a/data/acres.RData b/data/acres.RData new file mode 100644 index 0000000000000000000000000000000000000000..4fbbc0c41cb836091583c41b6584bd10343ed253 GIT binary patch literal 1425 zcmV;C1#bEuiwFP!000002JM(@P!m@a$2XfGB%&ya@{o}Dsv?QuB_OYR<)MHeJUxT$4hqh`;eO2vDUpk5q6+1epZAs6P z%@~-{ar(i0NoIb#=bruV*>f`Y+}XQXiTR=1<_%t3a9W9;By2iai`vLhU0 zhbUgEJ#hW-NYGIRBc+k#>NS*BY2e(#M7osL==8Lbb4*Cq!6Ia&m6BvQ7ne~+nvvwu zM*EvarBhlpqbsE)R;enYYhW@=@erqrVY+&oz*(4byn-F)>*By+Lur*WWl~=phH)wIx^-A9(OWt zSHs*jm|u~YP`~RY`mSX3te`|Kb{`{4YT1{Jy52vF#I0%Q_Y=Fq+juvzRR2dpB`*h6 zA%gv(rkYLa=B#hf;fmHN<`svrH}B%Mx?Bt9M?diLOWKOgyGE$8!y2(LwM~LNub{gV zJ$w&r2t~L4)=suCBe8V#o7dKTT!pH7xOmwoOZTq6fez{3d6=>L8umGV`oddZm1DB| zlcP`8ccF8S+F}DLR^nkt>*hE5>_nY^b;j18e*@h%uj9oXtH9Fe<0ZAm{iymh7jNOE z13xX!K#h}LXCm5@u|IAweO}~_`NF^k@y5rC{V^Ooerv1{7F=&6huPI_n0Tv(FKEFJr50mYyE+5+{ zKqmDn-HtU{Ojdr~zUR+_=z*!DrKUL?b-OLi*u2&ki;KwbkwlaM|;}kXDqo=yM3|GN0{8OH)+w+FvxE= z5+4b~yy(l~GamJ*r?((`ZRJ&T@5!f`NAoJM-`i=#MQJyxdGhYEXWo6N$sB#WPS!hk zYhI+G3PqIo{z!^kF8QbtOyVyI>GpvXc-S0>kjpN&2O zAXmY`VzKNQoPtfnrogwo>9bB-U(QR<%q`5pS#y(evTZkE>nDW)k%sl>ZTrwbav_Db zkpHpyA8M04)Mj#sO&7a4>3_D6t69{aoi!JJ|33_=vzY>}fE%Y3+3AO~C39nT3G(3T z7!7y=Z2YlydM{ucFdpy*d;nj-k6nZTe?V-f4`7#4KnhF*CIORyDZo_V6=0g3emW2c z%m9J_86XE{0#Gjz420O}LxC_L9GC?}0FgixFdK*lV(j#>KpYUyu0j9?<^TymB9H_m z+v(>5^MDi}6-Wc-1L;5pumH%k)4vL20ogzfkPEy9LW12)4w{pCW4WH@f)Lh= zq=gtbM@N(v85u*Nro><@)Y*DNWOcGf+q_@}aPG5)5!k|z|1#BG~X6IbGyRMyDs9Pf(sUK`Z|NeFb4x+YhO> zy?9@lU5mrQtK({`GxO?8Gpjp;RsyiE7!+Q$1KmEq+7qB{7fSuB-tp+-3O9T2ZN_g(PaSVHgSNsQMd7X0*_nIxr&VDszkxx#Et`T&fSzvdFj%n=(tcFq2o`Z% zvKy(8>s|n2*zu7_(UqMzygzMOj7NMY~@4WaP0i^qc5jS-8gPhSkB}Vlv zeuw)yeL~M@-W#I%ZoF_5)SiAuTLxFRwib3yaV0Td0e`Z1;PN99L8AnR_YG_tUwtrN zvHV>A@n2g%6s423tE3Nh{$k>O)faI7;vOia6TUA6_CE!PpmfrCmGr*>LcIgh#zTl- zyjMbg{*TNnVA3af7jyPj$fLwNbQkk#ZqQ@#tNRsj{uAkPtGXxjvG@bVqem4O^eEBy z)%JhzUVHwVCD3KhjCJkrRUYxV^AqhexR~sNnGx%HOPg-@vrTQ#-{Q--_%b%W3@JH@ z|M8?RV3!aA3VA3Y+n0Lzcm?cM8~i-^x)&}d@rIHT_0-e!e*t@6fb1`$^UH8gjd~(x z!us*Q{)d7;2Gebv#p6@iqwVu*D}LYf0QfmH_8GWquQcm#^DKl933^-O>v>KIDc@4- zxrUCl@_#rCas9;H==o0g0RnvzMGgb+I#telfFI##cf^%G9JZg3SPhw*BZ?Hc3B=JD zpJ$3U1nVQJl%;4nS?o7>VfDWm6pb8rdx{j92Hv)68jPg-}z+`h*!*eUHY_%6eihPaI?Ue5Bv!IW%$HEkzxnMlnKz0uA=VYnSa~68m9) z-F2z@jv%3>^-@XcG{&V>LuMGtpE&*1K)>U;UHk@4QVV;4x1K=~n~ujUD_4R%*EYb_ zL>qDJmw&VP?{wI)U;CBu7U(apSPgPqLaEY%eP5Cmb;{piQOeSo+eXX%M5Mak4AI8g zXSFHAj2On+F+Nx~@}mAdqHZULN9ZHexW?Lupuq;*uZfZz|7)TK@WoiO9}Lm&3+U}; zWDL;>wW2vP$CsMJOdD@{WY19KU$ks3Y;uI;EY``Xf&?Yb-i~^PFthp|9kN#W5VIdQ z>cebs@7eIkt#7IRT2SebuQ?K2^Fh7|$zz8Vyvr8yj+A+|crhqhbhi-_A(OW6fv|SO z$~GQ@Sar%^m47^iB$!mcB_3j|zI}J@BYxanm-2IDF<#sBQ?7#pjCIl-bR45;GTrCJ zWod+lR|{;2K(krYYF$IE9UO(MLBHp_hOKklCf50CcU0ahutrt;%@-N(EBV%vTbwK6_=D91`mu0F|7$7xOTEv?Fu8n0Qw*4p;!bf9%gcAi*8yfQrS#Ung(gT@4L42r!q(d@XZ_`q zHPGB-EcAtZGjWsZ$*2rvVmm&bACq%Sp!@~}s(6(xoV1O^n;gT)pg1&+@5s%-V1_KG zlLlNxhsBA56^AOgecNQS4J#%QZ^aq?)iuxF#vjj{L-JfKe3^CSwNucFf+yPSWsQL# z@Rr54?)SRf7e3zA?;>@S5k`8Nb8D`pc%r0x9gn861FN6~40-cvA20jUajk zU%JggohJ3v5 zU?J2VP;A1CC=6ItYEO8eIoLV|kKvczb&G z8~S-CYol9f{w$+~)_&2AkuO2ik&Z0n#jDg#Q6~)U$;%{85_hoG@B6pPO!wa4eBtt| z1=O_Cndl39jlf_~W{RCMdJx#0bkEpe}7V@=la&Ub?!L$o#lsKQsCMy4p3k4Yb|O_7x}S}_)_>98YZ)QhRrs0SZ*A+`w??E{L} zprf&P3FU!fBF-#{nFegc{6qRg@ZYe5j(8~T==Z3|F32b+)Mu9J3M0nC>UP2BYZ2=) zi#(vIHA)ODmmUvYB zytzIoKI0u{8|`8F#ZEDwkyFUZmo0wT-SaT}%nJ7zw>JT8<zy5i>5QEcjyy*E-0y%__V$S?Z0)vuE%?EoTOUpYuDY6radfxGD67RUk zd|$pxb9X^Uqwk%E?z4~r!_`m|##zgbXLcdctE*)SRkjyEC#`oI)&+-)izC>PZ3YWq zo{HqJ*@Xmc$5&cgu^WjN>8MV!!lL&tkP;Ae_KA*@3lF<6Lork2TvR_mk>{RegW`BZ z%lb9YF#b8UxdWT(UCNo}@APf<;AWw#Gw%?-{W-gGB42uO%?-=1XItiH$IilOE^dWd6`C1O;x}im%lQVgl61IC(b~I*>#wc=CfX_4& z@*e12bV|Dyyjr0Ya`1F0VDEz)vFMp?fovh$`ix5uo6W%-=;dIQtZJ`we+Nj-UAGAZ zg6I?2cEwtKr^)tHC5sOQcfXCjj@~`yh6|_OqH*Tt`^L*AFLsDua*C%`5@>fAApsJO zuSNziSw4+fUQU#8EVaTfRJ9l&l$t*a>VjZ z3pHCh3MCAL+B6G|?O&lU;D6OL9}rePiR{Kv6tmhpK_LJ5otIKqdyMv%U|rQ_a;!&1 zj@MA$7bSx@;OxNyP8PUEdbmpY-8dr})#+&Ouy0(Ucc>wufrAXA!TB2w?r0}zGZ~X{ zTOsnx3j+PJAR&~Y0L(6)2AoGPBhBob5}b`F`{1CMPQa`Qxf!$o8*U7{3@0Hs3SgA2 zGLhBFIJ|pwqANjrdTM87VH6AU*APcg_P@w&cFl2uo@5k=u=|#=OLQ193_JJ6HxpEJ z2MdWZOU(6L+Bpja`fz$?(f)R^M6f?oSjS@wq0~RC#2)%(mA4c8S6V$Fi<%o0eK2{E zsp@}lEIqMCWYJL%Y73vN4b=|JNPm38P^_izzPoWPbWtCu`^8O$; zly|n^#_rt_B#a?rJ6Gq5apTU}c@D~s(Fvt?KF1q!)0!CB#iVS&Or)JH^UYgdJk6^h zYb`F5V2WyE&mtI3t$f+HZRtpEs(r$!!wSw7b7KC3cY(Nm$!2GPXcN+gmDc@+yrn z!)s$!3wcYBR&YVNOHmnt##WBDf#B5aZe7DF-ATxiPAe0vM=ipr&dTv?vQ)EO9_4h> zp~(LfU(FggEeiLT3H29p>H-Q}H;!D@RC}YHh>7?zz_AmXtf^b%F=$=g^+D1OAxQHR z$wRduG1v`LWql_M51x)1gVJ~eFFh4)`sP#!^2Cem{-tY&BGCFCP^wkL<0Q=*sRl-C zFb=Sh5F75AInfN=@n(DwGcF4rDy_v^s;4S>2~n*^OlBBDeg_BwX1^BmWL#sFZvOee zyGL$?^2+=c{I8LuJc~#>957v52b~PQz zE|}V&Ma)ctT{On&2BpgcBwvJa#S1a)Z_p$^+&wZaO~9bC+FiPZYY{j{#y#svAgU4+ zvDz0Kh`Q!e?CI+SP$&b9xp3znURU86S0^Z0v6Z)r;O}#BA`h+G~Z6z$oyQlo+^LB`#P^=2_;R zcWb;ltUZGh-n3vXqrYfgC8+Ug?H|kBQ(y;j zyF%8h#(hVcu|410Qz{4zJS`N4`b{4Yll!bsPX@`tzX!?y$$|g47@|ku8WbL}dRLJn zwQjRqz^I`-fE{=Hi9f(=6R1$<_{Wc)7@v~}p4Hn%=J;WI#G9)m>TvU~HnY7!WDdtA z(t~4>SR*ncdBqx~@l?pD{AMB3-JQ{mMMwCbI`|&P(|cX>cPPl+L@-9I`u*;J4$@)j$QLnpkwx^Ygppes~w1LpE{U~D|f zI+r4&2L7-U&Y8d9-BD=9m|Frdb(VNt&mwoFf?F*y^ek3Yj?NYIvWH@ne*`z(cs$T; z%i{4U|KLT4nfgA&z<(FOTb0HXaYA;QWm1byL__-gxDerth@!>eE~Uv`A0&6Bs03%_- zQLa}|&HoQs_NmkeFUd0s; zYyplnoC2A?f5LX_vs$a`THF;RYr63l@8 z#at-8Yip(C)~W9`Gjn4DYiS7sZb{UsLI z2ee^dpj#flM#}!sCu-82Vz{hz57bs(tZ!kvh47QXG2I>oVV*TF@H7g9%tCPLSu@cF z&GgiB$k#E5{*z&mqM>EKzoKqG{g_tC5;wn)*03I%wMu>K-fT#$Zm~xH#GAiw`now? zX3L7K)$UTd*KdXSLqE}RHB-hfV1KL8u?=`<_#Tbj(ZRgIf6+}`a?Kl}cX_=(6iuw%@efkv^Hfz)rCJ>U4d7;R1 z<_S5S!yxoddDbzzMmvd^38-y{##;g55+*ffb50$|N|)VJ@dH9T9QToN%sY6p+k>Ca zHyYhegGsR4v;=&_e4RbY_-`R7cm#w1`rEfsH{&v)0X?YrT+n3J!wb*v_xIC9n4EhY zwvmvaM*@@OlBk;p6;`EDH5vTY0$kh{+eBY7-(xhZ_iO>IFE-!%&lR*$xUReR{k+69 ztaTAh)O|qe4dJL{sjJ_${q;w^byFH&ft|xS`E>dfO{ZYRw~a@?AccR<;Sa4siJPJ>3+7nJZ5!P9h)5BFN{9kmG^FsDAjBqAy(@he8X0hYNw z;&#SAvgJ5shA~kqaP(Vn4uU*8xka;e`z?TXxL_h%ERj3r?Z_*sx;j?oBNl0hm@%k2 zC!7j7)*|S-dsj}6ja*uszv>Pz7#}UQCDam26&9b_%}{sG31`s8Od=u{UAX5euY`>n zOBRpV!SOMR%tyNOY5N+Tk%G33b5}TzIb*FH5C#eAD{)~OCpm&XQ+_1y+glO4xujGN zfAUy9nBHS{utlUwL)3~kry)6cl1P1kgfZS|l5^@XV=NLFP^iE)hmi7b(m62pr6Bj~ zSoC(shV6{mP+oUI@cGA(Q9BH|taljaIo62DtrW**fwd7ThOxkz?cTXv)DNEdfI)th zVTpZW&n0|gA7kUc&X7dMBHQQ*Bvos(k7#21)Oq0C*HJA++gyT8&4;QmW=f*+Iv4&5 z6=!+rP585SDF_dpP{D=Jsvu(i)F4`2=OG;ryJ#>a4MtRQWimR)yyHcW&t`%cYC_Ge zhS(KhG}SgA$>)gQ)SYUO*ghk<57d5o%Q_<*?DBiD9BeQ(ip=ln>7#~&BZPjDY^@B* zY!hzeIBHDT^#hPc=~@PsvrCHTF(B^zi+ZwsXG|!wYL6LOVCWyP8N28~jtf=*RTP_g zvKwdKC%>i23!*XvTuytW#obLwU>9_E?j{UMVW$SMkXWcT3!^Ew>QGN;SNC z_8c!%KeLO|z3E21e70DMBQBQAK*OPK==Pb}ahI`=U0uxEyiT2b#B(Rb;KHH4rxKy@ z#JKElQG{XIv|}<8EI|C(OsgG^Jzy-BGN1HM5BbG3xvAyf1KY`4sLI1-`}$wqN7C&@xaFQ z4%VLx4zpq-)FQFysN@&xfO5w&X3x_;fbDAKCfOBz*}D-JB?>-V*KS|e&9tXK z(@#4m#AEX^I9eyDc$dslj%5M(%%o_+E{E8F4GSg*s*85fBDEg|E_{vH;;t>JaAh!J zvq3mX#(F0bAi1~HQ@6KM47zY zi4%CG3aoQz3DfLx2#6?5@pbk~g9+OF&c*?H4E$BC+Wp+Q(MyUAOzXCRuZXF|?sTj` zl^l};fS^i91@XFyYa$>r_65r={8FI#w{D(!8gF~yRFoccS=|HrrF%odo*_fra%VmU zlc7vH0lqOC1TaSzPLrBU&d_}+wBQz5Xr`I1E?(zoP&1$~1CI4@;d#NILV!|)efO$n zIRl!&?hS}^rdodEqY}*pIZ5XDH*cnsaWp8H6}d-@i%^l#!U`sLQ0&zU=?=D>6Qy;= zXII6B88SRQp`N|*^ge%e13RCPIY3hgR<*lJDAoJ|XZ zeY|A4l?@rBb?xKS$tB@|yG>8Xzpq(@;Wk81#YVTAtB|z*r3PeGj{&wJ`T80L4i{C) z5xAM$a?O%*An-XW1h%;=;7_Drn%uHyA1GzW9QQ+I(3E6+98N@2$n};XHdow4Yg#zMp| zPms$irosgHddA9^8^RfnT3!eAEvoe6e%`-B4&;aEKCER48F)YsvKVv_2F!*QV zYtef?e%ys)sajvC&)3G^O}=%b4AB-I`dQTvjN*xg4hkq8xE8oJB#vDRTY^gHXSMUco8@C5s;5DWyY{;xB9)gc>Zx2!DGwSq*?%ZD z{Baf|=;aGrLrVbGAxEpA; z@L_N=>gzMzvVPatCm<*g;EeUMI~JWMg@j<1wXa=xlJEF*Q&Bp)&!2LQ3)zVmTK&nq zt~{_Ft9MX#^WdE$_0l~0`{A~t=+*uP`njPxqFHC9iSv~OJ%jN2bgedc{+|FW$8DT) z5U471b2p25B^w(QNN=VB-$JIUj|$0{M0I?M06lTS76 z&}Bu1{aM`-R7Y}Gh|!Z&VettezDjwVjoL!m^sOcMyIVV_@nB|BkYkRxMgo&DyQV2u z_cQ4rwE*gvlq0rp-nzVNdox%SJELn9=v_oe?}MDQ63q8cgO$;NAByf;Z6_wB#K0gv zat`%-ef)g&965smLZ&7Q4zdhxZ#f^Fd3)E9%;T0=HtRPw>E5&5MYP|Fy}qm6O^Zp$ z1QSYdm29s458&keb0x@bjzI9Q2GNn9Y z@Q|p&bhnlAUsw98d_p;EH6!47ZPoPVbhROeP%5@b!Yvi>${+<_!DHXOc_z#^Dik?; zwlOA_&Bl6N$P-|s^Tc}jm_2Bz34&d=<=ad~&65}zF!=gueP_&yNI9mffmEm*l<2|+ zpOg<}yDEVdK1T9hq()S*d`M8?R-Gpu{!M`GT=@{ttu*QC<{2IYx1g*5l1AUY2N0DX zR8ieXHz;b>Ll$W5t_VonVrvyRQ`3V?QEf)U&gux!LpC8h6h9J;r4a?`EIMwbmP6=GeU3r{=;@9{ z={p}+k?U5by-fg>+9d+*XXv&~A*x`v>{!k!A6hpfZCV79yqnwPKthQU6XEts^(V-yY5)_KOy80$)Gv zhD0K@PrBI`k0;MHzK@sW+UnNE!pqvNZF|t+(bH??a_7p+n^&@7G$L{fu!U7|vk2!& ppRc=h$ROR&&;##81W)#*uC2{T&go!fjjvzd`3>6~=_+#Axl5&S5PxK4ig z>ymW-O)TD!&P!wX|H6}MYiFkc$yvSvE&)|YX~55bUje^?Hq4F80X5(Q;7`C`fWJZQ zmy$Gk5%>`JktE&3nqW;}XZ&MHnz#;tH}Mhh4@sIn4@?4!z#b3)e+K?7Neh1k{to<8 zk{035;#B}%FJ^)70PtxEE-t~JrEvg0E!_a_0jt0o03Vlr48X_hZ%NYap90Xk{c}mW za~Jpu0Qo!j0r2m9Rgz}^B}sD@@GYPWz{VWnocjUrTj2Kq?9CzOImCPgzR%}?O~n5V z05Oar&QZjC@geXYPylS;+rSgxC%`X&Uju&t{wqmih;eKhKx|{*1)9JQfjG)QQ^ zowdnO%rb39PDOBu$Bd6lNfXE5z6OKIhGS4&r+hyVc!9zNg_^DqnPmmr&4zi)+Ab@k zgt3Rr93+(~5Q&LXy1I!9>NdRST47j7wwk9l?DLwX%n?yoszFI!lbxbz=EUYpnrWZD)8(YM!e!w~tKE-GIku}|$Y z@FnJEPZU~;G8@+Qa&!RVC}M$er&9K+BwzKK4M8#w8%;kTSuYTz4EH@OYT@85#?xmy zIA+8t;H+o)t&OWlcqKNNvb^Tb-XUSWw;Om3VR2Te*P4}DtKMpKvnJ(c)7#ne%S5j3 zdcK$>n4Wzg+etF9%GO)eG91lU{AxL7Oml`(-`=kJ%Zv*a5{$D;p zQ1i>X!t*Q9L15uY2n(PnZ;3pP@S~C3@8JTc1^J89`e!Xk}b@U39VID0c)deQPI^QDc z5Hnz-YniGoD0kWvxO76is~y5G67+*E&4}3%$K4*GKT4^s^;RoB=$C-YxGSTN9T$iz zr_T2kU49>vPS(tUM$CLv7vcb{yIP(Tb-Jl4rpO%KM1u@FvXDd9)?}5>IjIvpv2H?J zFqMa5XbNZ48gaWZeaszXd$;Y~tN=VVM9In#hoN6cK#Q%rRj`H%uT zyc*kG0%MGZUfoaNs%5&GV{i4BSTJ~&`R5wuaRcpUE9KW@=uILc(!qFBm2EvCbn8tq zi}E24!(&=*ykNpoCyC$u3cPIhnOO(XV_ecmUS)+2>FMacPKqJfFZ7ewL+9wlyI;}^ zlU4vPD2C{Em8%A7S649;;s{t~+wL{d6jFVH6;)kt&-Dv^`iMwPPUWSP#rB6hS#h-^M|Y9>ZMm1^Qm7WMGs@*kb;@UZ#3(HhhcC?8B$(~(%I!k z++f?QeGwMdqWgsy_1bd29v~t3{^vfedbM)n42mqoBCj2LHV^XN0l(cy(QgjOTA=%W zu7NWRXd4)Rq&7GYjBBqAtA=bQuxsh#J#!U@A^%TlhYG*sq2KF zuGj?gs?Cz_1&uxb)7jy4#iI9cr5^9$N~!m7QB)uVe(e~|_?=s+|2wyC)=2tQ+c+XqPC(MM^c+46$J zftEAvCjzC8;i@lVF2(4+=8xmer+7!3|ByT6o;7Z|n%N$%(`uzQ2yZIIv+A{8hvP-e z_2vyH(w8Gl#!sg@A4+}ksMnLnbN#;(4I(owMoQ8-&z+Y2vnJE|%=XpEg@YOC95+8J zUj~&M>{q{{$a;;O9hw<2Q2NJEj=VVwM?rFQI{frVXYSqM@Xh6r@>)Yyl^ocw<8R7lBDrr4_GnBw>5CPK2q ze|yql-Tv%U`M2H3A3@BNy{7l}lK`%EiH`;KgSSNp{7+Wi{1E>TkL002_~ffxV) literal 0 HcmV?d00001 diff --git a/data/subtacres.RData b/data/subtacres.RData new file mode 100644 index 0000000000000000000000000000000000000000..5510e78b7c678af80db3b214973acaa8c6063a6e GIT binary patch literal 1177 zcmV;K1ZMjmiwFP!000002JM%9P!wex$CrEAgER2Rpdd&>KomLeju&}Lek-6&Q$oBL zr3MGLAbP-Yd!jHClb8fE#8@*DqEjftOp`Tbl+jqDlPQfdWfI7pG+u)UqWCf}OfSgw zTi6{J#w&KF{%D3jKD*!Nd(ZxMpWWx#{a$)5vOA{BDGGWjufe*Me0~FTBp%y zMe0bAI$ETT`Dd-w%tPzup(91=XpuTboYrYXYTdl_>@}fGHPIyjFX=6`nRn7@#!_n5 z=NW0<$)NRxWEEnG z5FYINigFE3d#AqsRY+fRamtuvhTfCMLw=Y{g`V)5)Gv=_P_7;-S?kwHkaouRWkXUN z^tJ4P{U_U?dt5s}MU_*Ek-#mj6^9|Ky29~du?nm~wL8X_tcIWc%7-%>B$VQYi2>8-V3d(M6F7ocyQd$9Gs3~Wrok>)*bQwr~^U2O-iL&C;aItM3@f^}C% zGYN9AO1oc6S{q7{AMCwxj5rP1b#iS}$6~PMkB!}GdJFpDL`@w-Qe=Z_@aA{Dkg{(O z_9hO%l_P(6p7pp3S3W(bjv5`L$bGrK@Aph`YOKW$)F zdF?KWI|G+3heAreP*Y@M&6^$cFxW>TBVhBl(Br3RKCt^BMV@&6+};&5&__ETYn@|$+J(p`-MLrAV(z~2 zK6|c55%#=~34AZa8+jagLg4!#zQ~h^pTPG=oP;zR^p$#h)l9>?IH1Daf63HP-WH2Ge zm?Vixua{mdY-VgFo8heCkXJ5Bk&W4o)U!_0tBIGhV^73IgxHG?w zn=={CJ`7)9rtepAaSK-`hP%AJJA?IgLd1*Z!l}(;j$I}PKv!dQz#s9i0bk;rfG>$Z ziuyx?#~iy%P5^}qfWiep;Rc|LEQ-Qoj(sL4K$8nVlM6tT8$fepQJOsF*k^JAw7CGZ zxd61e0klUJrOjiGeI_SBmkU6b3qY3}KzC$Oy8jn*tZM%g=jzX5eg&XtXplz(437^7 z42ypa7?${4)Nl=M%(1HdPn@eii^&NXwI>aaa{xx~Ny8GuiW;>|@t9+a$q5*>Ck>Bt z07mag!xF=a8nsRRUE2RdJ!6^42^e)_WmtTK5a(vja1EaJU#HC>L>_g6V_2M1h|IaE zGF*eF{nu%83XQtaFf2Yoh;wsexCT%AuhZrf`qFe)ZuK3C$uD8}_p5LB|@Dlc3Fwz@>$gxwUZe$gzRUrK|IxV-3nl(BVelGCz>H%@5>}vk95oNWp`S zF(?OtqQQkg;WE5XxD79qk%JM1%RIw_jvXk0`+q5h@?7SgKRrI8lD{*-dA9zp_=wf` zI}^if_Wus?T*Gq>&ow;P@La=l4bL?^*YI5Pzwa8J33w*pnSf^kUjN{^hG&j{p*j8y zCitITQ{Dpd7Ld1q|K&ozI&YX}6<-~Nq3CruJ?jM4F+ zy*VQgMK$O`oMTb*lut%rQ{|kaUHK4~(|==Guom;) z!(G*I`Q$EzL%lDcZ7nxTHrE9?aSz@H6q=waxLNsV@Bu_*q%VpJa>UWKkFN54AVS~i z!_?Z6S_DmRnJiVg4M|7V^WD>aPbUf4D!gl#pmmv(Sho6X9CR~m3zd3_#iV5r zS0q6+ZcPKV;6s)7vxBsbZ0|eGtp{Q9XzkjBuuiPe(iL^!`w1H9VFvk!%TVl>!52fF z0*Q6*xk|RxsDGzqT+NO}Nx@rI@U(l_=5SWOzVI0?XEEdX?j8X7)x~2>mwe>apHB!1 zZAayWPC2_HOhl9$J1`!9gDk&YPCt=dp|`Qc%fwI{A&bIN9gPB!cUtuczi-T+f z*2-UteVlq8nioQL$2IezsKIT}xqLPxYL=Y3F*^%)zY9$EkR+m{uw$pk!9WB|mzj0_ zRvaoSd#bvP_<)?yYm1Muk^in}Hj%L$l^=v<8Amemo7O%R@ERBNx_MXmN z%Y+g7W{ad~Qalcx2`~o-0ybh%5dk z=wnYR7OrsKJMVflt>do5g_v4ltTbM9C^csS)&#fJkuP;Yqsyd={!$4=+Gj0Wa@8SC zV)p*bXvf{sK`+^saVRD@Cz-t6fB>D0$>y-~aZR3Enh%c#pJoNzr^E9VKS zMC&Epl+qEIBBhW~_!gO&lH}uO@}cMPZ0GjmG8fP~`nK5GUGl-o_&L2- zgHB-$MvFax8tN#fl4j;TS!kARkP_PqrugI9a%kqB16HR*urcCyqlQZ znPHBKfb;tOQ>mbDsx!;W?m~W}T3p11 z`>*v%L)D_XKHRPZE7EN&bIMe(-Zn9QhC2}|&KH;4`L!VDMxV`PxdAk+eEL9oT_VcF zXW1M}vVpx-d4KDG1j=moeJqi&hKi_2`4X9(IKE5bXBj(J-0Vwab;z9&*RzH zzr&)crX~~0gVQW0UbKRD7gI@y&lq7>#+zhE@1heMf2H=6y@1eWx2AB}WjM4$PxyYP zABr}y24uGMVaJYaHR~*G%rIY*vM0y7waS%8s|7Rae@uT}B1$SNd(z zru}HxG`GE1ryQsIDz6nhNQS-jD(&n23OGIO#;w6Z4XA2IHbl(j2m7_Pbfi!;YHEG? z!=JSw?#An*H&ywN;MMofD`;K)ZBwm6R%{cS=h!+ZHrsXp)KE&;fSL@``R)Cps z+wa9ReMCg8zH?5q74ki1Czg2-;5p9Yu7Za#Jd^Xhi)Pl)iRWQ&BfAA@)#Vp`yyxNc zvF=qf#9zVQ|D*@QGy#gPF?A=8yuvExexKggA7STVWKScngQBwHVaxjrWZo%1Iq63& zJWzOg_PU+|3O!uJA5S*|`S#@O0Fi#MLnZf=rW`?mR_e|76asFi%2E~I6~l?zLRmc2 zuc8BL<~Uj1$8vvJ`7Bc^n4f-bx1BmjC*H^;s|t4Dh)8q%han%9c=;xr4>y3_E=RSZ zcy%baoVM(9SBBa5inh;eHp2Ftg;=DsE);V07SgHLkSe0hBK`Unk7gE39-JbFtb|Or zoe^81s=Q%*rdux9Hf>FvjWK)aMp&7Q1TH{Afn z*HeB>q?W)wmQO}NlL7gQ)aVNVPDsxEpnUJJ5E}We?>&}kjFji6PprSkguMD=>Lr>o zj>c7xC-`r}X-&uXq?0t%R+}h4Q0>Lq$rJW|xBd>IP3_m%#3h1eBzRuPI}i4I^x_`~ zUZIl|BwnYfZp63>;g#y%$B}(3miqX~TqK_BeB}CK0jxHxqU!baVN$7SR)tC@>?{i% z#I{|4zJFl^leixE_VKF^%gB(kF|P@Z@kZ>GO)uX_t^|K`Jtddig{BSX&Wtn8LY)5* z+JKxgq_kK699cdC$E{nXUCA3Eq9&~0=<1HkcLR&}&3}OEtOSz-53Ch1mz9YBL?@AFS0?(J(Mt3)x6W>g1H1C!@$U3o z#QdOg{M~eCj8Af#oABffNDXyn7VEdbY09|fGbS$3EhQS|e4_<5-(;6tf~lBl;QhlO zzbT?ss09VJ2H*=!@6z0V6-`|`B5HTqBBZ#}*|cjF?UyZmcGB;Ik)e5DsX^v)5T3A} zNSqA8RSm1Y-O*H3=RN6T#am)gQ$M}D*bq@y{M%inHEC}`HT(uWI)JGq%bzEE!z7{l z=#BNwbdrv~cFV(wv=W0zao)TDh7Ffvj;^>h|QY+VZvtzQ5q z|EJEy%^#sXvA^?N$7!e*@r^ffjJy}0saqmXu zw5;ohO7U*#XRFd+c)!gzV(9!o6`#`*uYx5nMH7xab*7WTHncbnE?wNPxuGaMmx@^P z&GpGKd*H8V88r256O=;i_b#HjVaiNDFOj`%a86UROV4VAB%!siN}wG|b1&>H%(=Tb z!FcA|R~f{KfsR~hW8kd?%&^xVeo z?=nDV%CtmUc5qx{j_AqoVEX>{%YyLx73qEtl6<{3`#3T`zhW_boSCf8Z}4NdZ)S3; zIJyu0Ci$<*m&?~VF<1=s4L(Bvj>Cm~ytb%+22UKi@$DG88yx(!f9T=UZ@2#dXb-Ds HCQkqW@1_$; literal 0 HcmV?d00001 diff --git a/index.Rmd b/index.Rmd index 6c5e2b3..246fd79 100644 --- a/index.Rmd +++ b/index.Rmd @@ -4,10 +4,11 @@ output: includes: in_header: google-analytics.html css: styles.css +title: "LAND USE CHANGES" runtime: shiny --- -# LAND USE CHANGES {.tabset} +# {.tabset} ```{r setup, message = F, warning = F, results = 'hide', echo = FALSE} knitr::opts_chunk$set(echo = TRUE, warning = F, message = F, echo = F, fig.path = 'figs/', dev.args = list(family = 'serif'), fig.path = 'figures/') @@ -22,11 +23,11 @@ library(shiny) library(shinyWidgets) library(reactablefmtr) -load(url("https://github.com/tbep-tech/hmpu-workflow/raw/master/data/acres.RData")) -load(url("https://github.com/tbep-tech/hmpu-workflow/raw/master/data/subtacres.RData")) -load(url("https://github.com/tbep-tech/hmpu-workflow/raw/master/data/chgdat.RData")) -load(url("https://github.com/tbep-tech/hmpu-workflow/raw/master/data/subtchgdat.RData")) -fluccs <- read.csv('https://github.com/tbep-tech/hmpu-workflow/raw/master/data/FLUCCShabsclass.csv', stringsAsFactors = F) +data(acres) +data(subtacres) +data(chgdat) +data(subtchgdat) +data(flucss) source('R/funcs.R')