From 6a4c374a0f0f375fe545160ccab88afe2d15f450 Mon Sep 17 00:00:00 2001
From: fawda123 <mbafs2012@gmail.com>
Date: Tue, 11 Jun 2024 16:54:03 -0400
Subject: [PATCH] add material loss info to facilities file

---
 R/facilities.R        |   2 +-
 data-raw/facilities.R |  18 ++++++++++++++++--
 data/facilities.rda   | Bin 3121 -> 3233 bytes
 man/facilities.Rd     |   4 ++--
 4 files changed, 19 insertions(+), 5 deletions(-)

diff --git a/R/facilities.R b/R/facilities.R
index 30e19db..93ab586 100644
--- a/R/facilities.R
+++ b/R/facilities.R
@@ -1,4 +1,4 @@
-#' Domestic and industrial point source facilities
+#' Domestic and industrial point source facilities, including industrial with material losses
 #'
 #' @format A \code{data.frame}
 #'
diff --git a/data-raw/facilities.R b/data-raw/facilities.R
index 9aeef69..eefbd98 100644
--- a/data-raw/facilities.R
+++ b/data-raw/facilities.R
@@ -404,8 +404,22 @@ dpsfac <- dpsfac |>
     )
   )
 
-# combine ips dps
-facilities <- bind_rows(ipsfac, dpsfac) |>
+# add ips material loss
+ipsmat <- tribble(
+  ~bayseg, ~basin, ~entity, ~facname, ~source, ~entityshr, ~facnameshr, ~permit, ~facid,
+  2, NA_character_, 'CSX',           'Rockport',                   'PS - Industrial - Material Losses',  'csx',     'rock',      NA_character_,  NA_character_,
+  2, NA_character_, 'CSX',           'Newport',                    'PS - Industrial - Material Losses',  'csx',     'newp',      NA_character_,  NA_character_,
+  2, NA_character_, 'Mosaic',        'Tampa Marine',               'PS - Industrial - Material Losses',  'mosaic',  'tampamar',  NA_character_,  NA_character_,
+  2, NA_character_, 'Mosaic',        'Big Bend',                   'PS - Industrial - Material Losses',  'mosaic',  'bigbend',   NA_character_,  NA_character_,
+  2, NA_character_, 'Mosaic',        'Riverview',                  'PS - Industrial - Material Losses',  'mosaic',  'riverview', NA_character_,  NA_character_,
+  2, NA_character_, 'Kinder Morgan', 'Kinder Morgan Tampaplex',    'PS - Industrial - Material Losses',  'kinder',  'tampaplex', NA_character_,  NA_character_,
+  2, NA_character_, 'Kinder Morgan', 'Kinder Morgan Port Sutton',  'PS - Industrial - Material Losses',  'kinder',  'portsutt',  NA_character_,  NA_character_,
+  4, NA_character_, 'Kinder Morgan', 'Kinder Morgan Port Manatee', 'PS - Industrial - Material Losses',  'kinder',  'portmana',  NA_character_,  NA_character_,
+)
+
+
+# combine ips dps ipsmat
+facilities <- bind_rows(ipsfac, dpsfac, ipsmat) |>
   arrange(entity, facname)
 
 usethis::use_data(facilities, overwrite = TRUE)
diff --git a/data/facilities.rda b/data/facilities.rda
index 41d8a4f1e81c4f3ee62127cccc4ee80dfd1af63e..78573b1d34d954df5e1558d9231c63598684e673 100644
GIT binary patch
literal 3233
zcmV;S3|{j>T4*^jL0KkKS*(TheE=B{|KR`s|Nr!7|KR`c-|)Zh-|#>H00=+<;13(?
z+q~vIbdBey9l?WaDu9Q*rh_BX)_^)2U<+ocAt?b(GECC}8cdp>l9+=)00000$TS|1
z4^Rm}jT0dfX`%)|4FC-Q&;S4ifHD99Bq@mvO;2i@)jdo`jEw=HZBHl$fB*mh000R!
zB20+UkxXJHO{mQyAYwGppaUVHf(C|$LqIqH8VwBwfDJMY41uPA01SW(fXDz9B#6iY
z69h70O^_OzjXfi1O*HiZra%onC!}eRX!Sow@dh?Dn#-Sb@H{7BqEJMhQjyC@OZ<RX
z2IhwCq_Bz`_}W4)M3p0DNRYK609hPMCP#J;D*>6IvgM9dNT$qAqnQmjhNT?K?y2p+
zV~dz`=%Xz8X*Plf7P=sK*$+J-B^tDRe@1Hb>BAU=XGep3+0(lLg$WKq9?hRaP((x#
zGblhoD5C(Ws)O^YKkBGq1;DNWOp7wutX(9drF2vA-*(5jeB#SBb2BCQl+~vCKCz>c
z*~8v3Hk*`e*;Q=Z-*Rqo|5LGZ8CG5l$~O7r<Fqd8+3Wuu6Ls=ie!RSIEsev2R@VmE
zZPt{sQMl1-mZctjUBNEn-|*(+;#Wnk=MJwsl{Io&%PP@lZ(XZXS$HpODbJ(DIaBNE
zI(cNSVPM-ocLt(ez(+#GsySq8-8`#PsDN2d=n!_gNy^%?g4<^XLI^FbY9*HzoY&ti
zlT8!4mZ1J~Ut*xHXzy7pXy>_)V1bor!z}L_E$KRwX8uJHs7aKzi(VN;j#Uq~V7ZF2
z(quH@>$gWe^Ra2~CT%9{Yu$NIx?~~YDYZoHS~apqH9ng$7K&{uw;POU6fi}h?|s)o
z_^#-@Ma4;&7A+Lg)X|!~OFBJDT5{L1(9XK1QkXC-YOg{<)wykCIq;aqQC1A>qY!6!
z<_cy;Y~@~EYA2?QOj|bVYh6`PUrol63``YaWX{iqsj$VqSYEc8+7|5^3;MpnyE(o%
z38t9MrtEd|JuSpeK}GMFFrzxa<mql}Y9MPIc=6p7k~I)DREA4X;SJAxa!}H?*|=kf
z%BqwUbrIEAW?>k4)mc*9Bc}PQS5>Kps3i6^leU@j!!ogzV%80YK#(q~NeD@iAUm^~
zl3GHkapbZj$yZWDBz!4RBuICtPKuHe;*;`JfrTZ-NRb&M88~(|@p{AKAtDTf9Y7%=
zvcQ(+ak+b{;W!ugXFscxBG@VJuEs28$8D*jEV}e9(@gnSl_}27i7Nj746b=boEq~i
z+3K`}D7%JufpV8B2H6nk-UwQ+0&-a76!J@i77auihW(EBg*8)^l-+>?L?ggd=79ul
z_DIrFrOtO59Hq>*@%}6)2w0&_^(4nLd5W9%v@N$W*~E}&B(oUlbOK2kP?oD~GDcA`
zz*p`<TDr$eenV%BogR?sI;NWv=xH$N+U$amO+{g;VVbNErGms$27ytgk;F(An8})0
zf%}j#6RG{*+&Hah)0;E}Bv6YaW_X$$M;WlgWX&cR8VrOOmndX26$s-K2*`aTfQMBf
zoF;;@jzcJD#-Tdp7gTWx1*jDmrB<$$LPtapf*{}x0$DOv1r((QsWHL|tze@mcfDkp
zUZM!3j{BaCD+umQPD<ki3J+Gh0V7NKV5(|3LpcG{mP4G1K&5AL<Q5dLwKN>+hG3wF
z5k+)I9W@0uacpWqv+Oy6LqOOkD<*+~i*J{$Q_iR)Nl7CMvy+o23rChKX-C5x+!4R6
zNV!~TCvH}<s6q!?G8AlX4m7P;&?QUfbx{yG_o-2i({ZDeqC|u{Az)BoEG!D>hZco+
zSyje4TJdqKdKVt!%?BZBR2?7@R6#GuWGGNkT1mLc0;rZ&B(UgM!I9=$L~)q5mU07>
z)S?W|VNqPDxP5fRM!hp+iQ0j&5{3wI%@j+NIJPwB$Za8dM8xk%GBv6}1;sC$yXuAC
zVP8n9tl9kngh;9_+D1AdvRJ8=GPb0-jrWaaV6mK`LuRooP|1!4C>I`PS!OCpXf+le
za;0d9>{zwefx);<p>44wrpSU9QmhvZAux&=Ah{P!^uk?LYE+tR=1R_7FD8SQF_<_N
zG``zu2-?<~vhOgktETGCXxR~h21eMpWMY`sif-&^JC(Tx#rhQ?*koKTCFeVvZ6zHn
z8qE-6iE`Omn9yP<bB5H6lH?e@m{>B(j6H`mAT_p?E2Tkf>{9i$icJYiFs@BX6*4Z`
z=Aw*miKi(>5H3wd0*J*ORYJj36-X+IvIwZ9G<sD?B9K#(Zy`C|gp%2+c0}u(>fcGt
zPRO0|-Or%i**uVEkQpdvL^PYBqqmMGB`8W&5u$|>@SDc@^e!60r5tHZ-LSfX2KT*U
zC8eSGsRyAu6jYY9v@EH{^RYyqHk&y6oW-OUSm6U?AXqb(vc-!fnpny@oVY;H3^yty
zm&OWD7?$CXx|N=yMr$MPai_1=^|1YJpiadTkByO@s*&@pCfP1z*=^~>^<5CH1SU2N
z&sLc@9cRVxw&w(`P2T^zqbrG&A-D=?X4n{HQ*QUx<T~9*d-qjTT%}H4T1oL(nMKKH
z)51fEBfB8(4kptcu5Q1nkq@Z)?axypyXt3DeN;o`kn{4pFGtB;4Yp>kc!cvhALxf$
zfbpFSQZ=WT<XrMsDZwR&p!jI^pJzvH6L@W7-l%Bo&O-Oz?C|EbNfgFIL=IZPRV5U$
zibdzM0O3!cU#EvbnRa*<5Jo8`FbUoHJzm!{uvlNb@SWDODDNe|&x5`AvVAYmQ~A9y
zmRXpdqDfvIN~Jy5nYUs|RS~kt;Ci1wPNv4|&q|;9_O#yI(t5o+>MAMp#x)!#6r3Zc
zSKD$=-qv7`TmH@l4(=sQ3=5CH$n}DvER!;nRI@WNsA=d3!V17NUiFT{mDSXBEot$4
z+3oS`JB`G-%F<=)kjV6&m2?;AQc|XuNRKr*R7hmXvYYb_wNjU_lUyZ{QvFbJWV$rC
zf#L<mD8nZaj4_)OJF(zliH)tfQtB$HZLN74%!(OgpQ`!fVm#_dNcitub)U#q$^=`h
zNfdkTN$@;XT~I^er7Lo2XlN|P?e>1=LTg@hy{2Tyq-r+&sMOLmMh#|-S&S`M9Il2A
zmp2{5*!DLU6si=8c@*MqEI9qQ23F0IzWu70-BpS*CM?_hC8am)vg`5Pk-E7OTxyZT
zlHtV79|sc!muW80QN7<o&aSSGs+_NzwDf(O`uX+PRW_<6HfvMtkjjjM$KztTgN@zm
zs+Og=q$w<^a*lN$26iq946_BT$vaGBT+@Vv?f9gLkcBBCrQEqWE=-y;E}1H`XUbn(
z$=2y+P8Xr*?>=b?kk_@W>W;K*_bYNtjn-Vg4L#Gf$|1<py$$1xX5`dvk{0M1;-iKX
zHABoB79QW==qpIbcv~I#^5>aMs_$CFim3}_bee}BY*c75jM|3AXO5LLG`Fy+Qj3=v
z%-v~;d1F*mBEz+gr&{wIRU|leFV5;`sm&LvURjQ7OCn6d{mFhz`|%ef?Hc&&ziixw
zO{oCzhE6PG6)_SVMm`nKAr+&+h+0`#t5Qn@g?Oe{1FUWqhp*1pm<#eYFmbPFzhiXR
zW@M>Csw|8o*4xokcGis*329YJrPey{cVbJmshwv--;lEhdCtzoyk5PL&EiCwp}R)?
zk<agHIr@CRb*IbbZScDh<Zt%nDWXEM&HAaj@+B1)7?H4wszXt<+#9^@_mPrARG$wX
z_s1oQm`uD3?GJ6p+B%9&j;Cgc9c_9QIPO~mv3@b%H{K@h*NL>q(!oa+TB%f|wY*m$
zWZLIybke6cZ-*S!S*}rT>)`QjojO`rB+QJ%J8NW!v^dQSb5~YeTqnt9r5ai#6yo5;
zd6l}fft}PD0Vsse8APC(&EcD3BSK%2?l$@=Xwr#1B@Cp&1c$6DCi8p1l4OCzUoCwh
zQONRM;m$Z(E|`0Q?0jaDvRIV7qN1v+WvuL6SrT2bgpDMR10D&nz-`bx8@m|XD5DB4
zt-&R%bHebbhZTrzT90YmowuWRL}8*yM<Y5cqEdy((>J801Xu{(LQS|~iOs`M8LtXa
zD|Ec64J8sWT{BGLrd8;|N=URv6Uy;;6)By4`4M+AP8T}PmZl_(5@9%}EYyvue#TpF
zndOxqH8TXU(>f9wEEobzqA8J&A*!IIP)-)DLePcEAuqmd`IwoE4T9LFCsob%`yxH{
TpbF%OkNz&?ig2MJSqtd;>0Sy3

literal 3121
zcmV-149@dHT4*^jL0KkKSv*0u&Hxv+|Iq*c|Nr!7|KR`c-}1lj-|#>H2mn9<;0}L2
zocZFko8GQgcN{B9C<WES(_Ol_^*}TNk4gf(B@igmc}&waPfBc!8%Z`%kkA?c001;J
zWN6S2NC`lV0tq5$A-1G#022nF8ZbscVHlY*1^^srXlQ5#fW!>}kN^gn02%?1000an
zJt%@Em_kiIN@U2<rkhXz8Z-a{KmY(}03uYAO%q}vr>Uk-Q2kNl)HL-ndNhWO13`!e
zhME9000l`AG60EyjF}U~88V@ssp&nbq%;Aiq5y3OeyN&6)PAY|kNt-=I;&@AE!SSl
zQm>8I#@OSF@DV;RHJn=9c9POUhc0%Ii^xioeL_OjAXLFXI3ehwfYX>_>&~9#4z%*h
z(;yJJW`qs;9khuo)$ja&r;fju@nxDMH6zFD`1*JOl|+NApB?|F2qcN;q=I#HZ&xQi
zfA#lp|LW$uJdfXDUp;K=-}R*(E8A1#=a$X0{4-^mylJGm^*+>_;=4s9OKUNTQnNQG
z+On$IyWfk0r`!K7XG+U<Wi!6IxytSj>Ggjb&L(f|^8YZ}YvtkJti38khSm+K>dRP{
zLOA^2ZakS2nV%nfv!%;hH?utEn>#VI*vowPwsRRL0%+5JG1S36jROJNzq<pGB(_|O
z1}(}poX62a75WxN6@HKh=_MOkF*L5aTOt6*ImngRVsqg!j(?<SeuI#QLC~#i=-bY&
z?XwIX*fc=XVl>l?2MmHmQ#O7DDNz+;wneUKEXTM*oR{Rljux42-^Vp<=-_eT6Pu4V
zxeNuOt68<Bzix>7@l;kTv=+WI$XSxpByKo4@;=lo!bQF=Dont!Xrz&LYIySK>zZ0!
zttWZawv!1=nHX}mLPs&|b7Z()8BAuv*xn2<9?@FOb=S_jc8Vg_H!V(c;~P3j%5gZ<
z!;W^+{aNo*K6d$8F5Oq$8BAo-wrut^-y8{k=5=Yi9|h;Rz=_nOGb=J3#Rhucp4E2{
zHjbS(-4x`Fkpk*RT3>^tTeSOjC~CLmwbX2^s;s0MjS*uZP8n-sS=*;LFqmp_Y!{oI
zI9r2~#wgwl5l{zVPz8zzw%TB{C`h^Nv?Ru_Nf8nJDNzC)v?r#d15tzCiUC>;K!PkH
zF^kN|v(4!fd{R+T3W*x(6O*;j>+-9V>0#=f-=ocn*;DfmWEd}QSxnU)1P1(SVx$71
zon{0P7CcERb)tr(-s2p6Oo#;+fYpm_kngJ`Eti6FX5v%tG?+6sBG|WlJv_MWrE+hv
z4N-@EPHYGxak@q%seZ>v9KBaf#C?ki%q&o+8xm)<-jb&owM=U^kET+FV(ONwWz+=|
z2#qko5yCLM@G{Y9xL@NbUx^J0<`TU{zZonQbn0S7BoY}!!)n#j8(yd)s4XIwU@9?)
z<S1TcCW&-ES{W(s`>^_+H@vG>jS#9yR7$BOO){FRC1o|#Y-p1lTA8S+Ocqp)3q-7?
zF_k0hNKx*jX(pw!m71lMVp#-I-=t)52?eMX7_C;Wl|n~E5P~4&8U(UvtO_Yg4N*u}
zf>}#FtI0`~@z6yqJMez0Oe4FlFDF$oLWKvbU6CYamGl8r*l>n&1Gg-PVHAN%&jrXV
zDPd}0bJ7h%6mcn6lIzW-H(gn_ux{MK?P@g}jI^~d85rq;^wWe8odGvxVzg9YIt@;G
zOt$vya9gXLU|gK)s_j(VNFhPy(^Nx)h;oX{7!+iSx~Pa9<?2*pzu;)>lt_?=WGo5{
z1%-iK5MGY*tD3%hF?-F&n^dUx9%wpLsfsmlr6{c&MxemJMr386m2pbVhDKwdV<v~0
zY$J@tv1cGVCdCkD%p$o_a{FU7Bzx9jMLnbpqKqmE9it2+3@odgUc$N|45DUuq#7F4
zAcEqT)!p_&@3^mss;t`Hd4YU|QEtR((?+7itm9K%Rm`v4n~Xurj4B(oiDHI~@@9b5
zysWy-DoJQI79WD8Xo&VLh2-VAwAzaMs>vz3AcfSc1;Y@TMGX*Ki>DaMT~%sSnr`Nb
z&YUkM2P|h$a${*^ZD$+o!trPp1zd2f<hF!hfswZ^8W^T_qMSPz9m?E;a{cW{bsH*~
zmz{8Lz3f&J;j|@`W1)ijTAIMbQ0xt&H7ev8y_i@u%8XctFhFg3l*IvM*rlsDDKvGI
zvkL^!p;E*v!N|nKn^_p51PRGOR8dhx+QDd51yYugQiMcE&cuj7WHXG&4c&MxPK6H1
z4P!ox*t;Y>CC@*E%dUN>Yqkwk8t{XJ<23fN$jFKn6+~eMs<`f+<K$K>6NXhjZ>ydd
z=!WmIfo_*W@0ggV=%}eJX=qtfrSvmIpPOZ!K3>w&3)try2wc*^a;jBHdbL!kXS=c?
zsHo$pl3^JsK5;G2A$nG-h-tDu_e}j?t4HQ{f_qd>j)pBYRR2|^-zC`Y<DBoa6zW6B
z^SdCwTf8sDzY9*W!$XtX;N9Dy;F}<=4Ll=4p-Yr~%^>5u(EK;5sJfLqJ1HmeSegaW
z(X*U~LPwfG&faC;+u`tHhrs=o?Wu~p)YPf)q8=p;OJ)2)HsvIFNU5SyegO>f&}aoF
zFs+B|Jj=d%>p5h!p7Zfh>3zN32%bT~oHcti1qVp-ygs&w)liw$2AU3n(5jUPw9^Jn
zDAg&3-v<3#(b`iVYdS<oMnQ3q9nSwV$*I>GD*O%fTLTTnZx?IXygz{P0-L9G2qOsr
zH-tuWtP&8^G>alT(Fv0Tw0lkKmJE}GYQjI$F)OE(H@ndl6&HZArAc^7fX6mwh?|Ca
zVFTuIPG(OwWleb;kK6ElgvvH!RWZI3=&Gk{uc8}?(^>1aEUym(!D~<B_vyFtZ9KdZ
z{f&l?84O>L{*`(RHK{36W7327Y0RQS9SbSTGT~Jef)O`CQcL$i$&%>O;s=x$7^4iG
z1~Sc=v3egXEag`fO*JW0w+8H6j8rry*M#}mf!#_Vf#E6D=J2O9fezhZTgu_3p?0Lm
znJ{3pJMucPCe_a8p_*c-Y&ZRA*w!{iO{TrNOs!cRec3$^KSjsI@o_Iop+!AvbGV%z
z*EWXz^1h2zGQC!mVrJ9JQ<9dxTv9lfM3**5=t*(T&V5|$t$k(nsN?w%_bb1<zNcIA
z`QHDxmv?sS3a1K^x9(HzkkE`rtJKYQPM4d)s#=!lkfgGu)ORTSI+?koG)$JaT;yjW
z?U_hAzGx;SDM=MC*^gb*9eP)o)oInB!n;o&PL$_;FQ?A@vK1k_gK^;TKK}{P9$g^}
zlHdw(2vs%YFA*Vqh^|o(ZbEcXT%}`WdDV5#Z{YM5uws18?)S4(L80fXL@K0PL(**>
zJwl^doN3xOw7qnxt+C|FrAjWjsi(y=Ff46~gjjNCwc^0fHAxPA>@_?iwl7lUnP+Ka
zNtnZmVUC_uE{;d9n>}1wEWJwYy{=TW=3Rv`QaQeFC9;Nb{#h3<MOBjIE&lU7B>Eg{
z$H~JHer?STb`4l=aT|>+YEY_+BPlkw_f;KBM!JNws-@-Zcwq9xm)xeMyS?%jWbAge
zGkF2ShnRARB20mGQY;YE+n6;mY;6+ka?6<wkmQl-l%}}~(B*NxX+=fZ!M+NrLutU{
z?sC0sBsNL)bn*T<EL6&9<!W?2y>1eC6*s&d&2l_jwW@U8Y>#6M<GsrL_a6^e1}%)0
z(N?MzDo(wEp<7Py;W~)dPnVybg_;y6K=eBNLDbaP$tIIX)ZpJBw@Iy@n()z|Jp7hz
zQL(O3PF$BUaV;U8Z!!|m8Om6(I62L05f~-=r*q%h?YG+rYO{h^z?p^2W-~z|RE3eK
zwiJa&Tj#;e%++b5?~CQ@HI<EuU{O(3Rle4HS1gGyxs;7$K306q&SxH_bn3B93@q|f
z0+RReFpDVhx;I|Wk>z!LJbL3Ta!Ni%s98j%(Xx3Yr4*`#D)J=X807BYF}zx;mhv)|
zk+noKU8Sf~Lj+|dBw8b(?0UXcN@`(-D8Fh>cXH25Ycd%m$<XYZM*|J*7UOBUqtQ%4
zta%4osMBKrO3hr%x$KZ2h*Qy4y_Hr`g2<S3xAJ7r#jSj)licn5zA+mG2p~&nr~F;X
L6yZWZ@dn#C(4*$M

diff --git a/man/facilities.Rd b/man/facilities.Rd
index bb8ac3b..0c2ab27 100644
--- a/man/facilities.Rd
+++ b/man/facilities.Rd
@@ -3,7 +3,7 @@
 \docType{data}
 \name{facilities}
 \alias{facilities}
-\title{Domestic and industrial point source facilities}
+\title{Domestic and industrial point source facilities, including industrial with material losses}
 \format{
 A \code{data.frame}
 }
@@ -11,7 +11,7 @@ A \code{data.frame}
 facilities
 }
 \description{
-Domestic and industrial point source facilities
+Domestic and industrial point source facilities, including industrial with material losses
 }
 \examples{
 facilities