From d89f2f88aee36024d99a297f2cbe607b60ab7e92 Mon Sep 17 00:00:00 2001 From: Sebastian Carl Date: Tue, 2 Jul 2024 18:19:55 +0200 Subject: [PATCH] update stat_ids the previous code unintentionally dropped some ids --- data-raw/build_stat_id_df.R | 28 ++++++++++++---------------- data/stat_ids.rda | Bin 4604 -> 4679 bytes 2 files changed, 12 insertions(+), 16 deletions(-) diff --git a/data-raw/build_stat_id_df.R b/data-raw/build_stat_id_df.R index fdb0b098..a6af26e6 100644 --- a/data-raw/build_stat_id_df.R +++ b/data-raw/build_stat_id_df.R @@ -1,19 +1,15 @@ -library(magrittr) - -stat_ids <- "http://www.nflgsis.com/gsis/Documentation/Partners/StatIDs_files/sheet001.html" %>% - xml2::read_html() %>% - rvest::html_table(fill = TRUE) %>% - as.data.frame() %>% - dplyr::rename("stat_id" = X1, "name" = X2, "comment" = X3) %>% - dplyr::select(1:3) %>% - dplyr::slice(-1) %>% - dplyr::na_if("") %>% - dplyr::filter(!is.na(comment)) %>% - dplyr::mutate(stat_id = as.integer(stat_id)) %>% - dplyr::group_by(stat_id, name) %>% - dplyr::summarise(comment = paste0(comment, collapse = " ")) %>% - dplyr::ungroup() %>% +stat_ids <- "https://www.nflgsis.com/gsis/Documentation/Partners/StatIDs_files/sheet001.html" |> + xml2::read_html() |> + rvest::html_table(fill = TRUE) |> + as.data.frame() |> + dplyr::rename("stat_id" = X1, "name" = X2, "comment" = X3) |> + dplyr::select(1:3) |> + dplyr::slice(-1) |> + dplyr::mutate(stat_id = as.integer(stat_id)) |> + dplyr::filter(!is.na(stat_id)) |> + dplyr::group_by(stat_id, name) |> + dplyr::summarise(comment = paste0(comment, collapse = " ")) |> + dplyr::ungroup() |> dplyr::mutate(comment = stringr::str_squish(comment)) -# save(stat_ids, file = "data-raw/stat_ids.rda") usethis::use_data(stat_ids, overwrite = TRUE) diff --git a/data/stat_ids.rda b/data/stat_ids.rda index e40898474f9f032142e8272f195b99d8604a9ae5..ed941c89a48b3d7f090738c033945134b7335a27 100644 GIT binary patch literal 4679 zcmV-N61eR`T4*^jL0KkKSsbH5x&2JKpg3d(b@woMMy(dU~4x4uL=diV6op44D&XBA%zUF+CDyOd2HgXqlp6s4)zh4FQleGz^A8f;~Z_MnKbL15E-6q>~iP zlOt*wq#85;XaE2MKmY&$00000000<7)Y51sg#ge1XaEL)00000003wJ000000FzQg z6rZA=ru9!#Pft>L1Z3GJfMft3pa1{>01SbqjQ{`u00x2~Q}sqe5YeE}0MUdR85#g+ zXfT6JOb}=Rqalc741*xT0LTI)ganvLrXe*m(GycOG{%Va8U}y>XaECE0000zO#lD@ z14C8)i-nf^@xNzTrli^%&Ja4M7#qWv>h#*{#vO1lc)z#uE>n8IllPz~SnXb-LKSKVC^pxFrx_h^q z#ne-KzHb?K>LPG8Sm5y+i^d?bh6>gZYT{+)6E``0uxGF!F&ixgZ5pac8e^ID=q{>S_9lMQVcV0OuEE0Ly+*!whF?SC!VNMHtIksT!YA!3H>K+pHex( zVj4olb?B=ZGBl)v^(s~>(HL;**D6&)wSi(v7lk&m%P2|?CK90HL%-YG{~7#CF-MV1&UQ# zGm^n}h93t?W(s!-Q&_f*DO{ezrl3M}P#~hV6~AK&NaRZo<2B{4TLDZPG^#2l(Llsl z)dJPgY#29d4GJ8WyJ)Y(yEa6wV;>N^l@)JfFkVZLtU`-IN|ZvgbhmNfJv8xV7@}@v zK%@aeR7(Q8$XhYMfk-sFNe@(EAiT=}GnfP=3IsWh;*1>xBAq3>hq%uMbO1pit!VN! z<)MY%?TqEoz-QD0_bii;J++czO z0*awjWEp9UTO%d~*>?xMEO$~aD`f*BGl#`oYg%Y!bl_oas(?n`WUX|~2Yg+Ld;7L# z#e-9?Y^fRzF-23pGU9P6X8H2BV*>gSQbeJ4*l_4Ic$th{0e~px4!~g`CcvrIdIWe4 z6$@3HB#Z`~nXUL)O9F##MM5DUl9mb-4X}(8VB#<}R|M!$uC%t*S+uQe?MYBT#G{l- zf?Ln3hP(qe7-6!@twUa|HAq-MhV(UX-6tpo5Y}gnGsc_DXP;%6Eyyo>(pZiNYMyti zEaYHsPTMI0tVmh2(cYF5d# zHeI678kRQhBp`t_h>?rW0m26ox@=+*J8R2kvfDk8l5>HSwN#Q=wQniTsEinH8W<&{ zgua+PV&=Us(1rS5&E!VaagcF$o@VS!nxNjcGv}L)`LN>a8Le2ry<`Z#+JK9B6RJr*wrYKP!uSGR*a-8gu)gNH0;q06^n8h&LC+~z|)7T zEYm9hu@ce*qTchC*0m^6XCfhB_M$T|nH0ry2S$klZnUssLfMFD1`x!i7?rs^Nzag( z@=_5*6+-RlO0p0_2bJpN?K$S&5F!-YKLSm;v#0$8kA&BjJv#8eS+u_L9ya+ia-Vw_rqx6m!G|T~1$a00UPbk856} zTWk)(#Agq#X%1BF4jewLqgOpQ1=TBS|nPS!6b7>d|t;yDcqqLvoJ+3pCSEN({o z3uB!s^;Qp1syE8csRf{_sp6riAO&R-;LHomSP0JzNwU#SuNlByk-8^`P&5L#;Rp@% zcs>Q)KL}aw{ZDt*u|1hr=qlc_^Y?C4xgm%|jwRu6`b`^+2K(>VyB3WLqK31WXEnH@ zT%sos$7)HSzWwE3a&`l8qGo7cf+JUk(sSt?14#(vh%Wy14mE`bAC%I+6gKSZgsF6N z&`cYjSEba_!o>BT`Q|wIfL@nNrfO~#79 z4V!h-(8|lk>o;LzAcn>U1?`T%axTyNXKR`Y3L>wJZVY`gzFFZZ0}hO&*?fjAD3TCp zR3CGeP{VP_tz<_1M+1*D&!xhJ0FY=hR6&kVxsw?}Jy8-NQ994gLm??-7NRrU+4miC zGzdsVW=R5$)z>{QUfkl|$gx^56Cq6+x^5)rOYQ6HZO;5@By;9TZ}0B@bcn3AeSLke zi3jzDzy#bHg*_}tRv2@ioBV9=d-7~?xm?you|RJ6=d z-{P?$E!>}W=!rx)#VYig_Z0YgwehFbas6v%Uu(;|UGB>QVX91`Yiu$m@kD-5QE?|A zdy2)EgTyK_9U53R)u}*&sy8cHwX&+SOEDgn&w4Iw2qF~b1!Q5pA;a}cTtiksNI`&s zC6oIMKVBSc*UAkESqBKuo_~al(_exNqDoD_b7SGG_ zY2@$W!=stLq(h`F8zU+f%a6ZM{UH(xuvSHwb}4=N(;EdP$w0KqVuzdLy+M)18BiWG zDdwfsTxyhI73E~?k&E!~i?kV`0VxYW_pv@)AB_P#Bqn%YexwUbqGTpn4Uw3V(6ETA zBC-&YN!A>LDIvWA9pR048$panLO_y7a4I7Ll_ISF%ZBNvD5jqe4Vw{(!W?W`$h4(| z+Q!d}F_IiQXPDYTEPz5h$(n6~1%fdML6Xf-khw?_thP|r7KBTbG_hd{ui&G#O=Yqk((Li)5#nG_&6VAqQmJ1TiWKNU%hJ zEQ+9|hMx1EbS>7;F4!N{s{?x+5|v8&kaj5uOu-O_8z; zSPKl6I;I#MK{E}un(K5)i<+sX4713vSjBH0Vy0wd#OmonUI$SOLT^A+W$2K0v*(z@ z3RxbNwS$q6bgh>x(FVX6T!f%DTMXDWTXQUmGoq$ODg_(f#E*nT>89B!@PLV2X-IGo zLIfa@AZlp4EU;@42&7@!R6NiC?V*GQ+DVZSN|s7c0wG0&%Q_$^Y>p&R!!{U3#l#y; z+*Gr83u16W1I5(g3r$STgn_nddkG72@IA2BBMBSrgzM&~YLMt1Mo67}Z$JeexzN-f zWFQ|os=^Skuak&$duT1h6w%=OCmg7>AO*B}Ex zEDc_yghA>#&AjJy;WwIp zN2kPS9=GC=rX&lLln`2tqX;rKbYC!3WRgIHSV9n<0NhtFiJVJ@NT=dJDo7;gSzF$Z+&!WIo8wjOE4C%e?h!h!llYB!ZF^P%su!B?uHJrXmm`iy>k)0FZ$e z$8A588bOFl(L**&)GG0bnGmTN2_^FE#xouP4WX1fEkt0TkPt*rzjK(_4@FzyCWGC! zoWnm)%EmiX>jOsKDicr>*MpQAOvKg~JRo15vWQ6}(1XCebTKDPHF!jq#cp5JDD_nc zq+Wb;P|bq~q$a}f4?)%jq1zLK2?&r#L5L7Yx@_!I#v8-r=hop0Vc2mpd*}le z5-@~_fZ8;>*~hhT^r?lm$((8C9#9Wk(mfX zx)mrf45Iru#Eb|K(9~@KWQB~1wXJNSScQr&E^UChh0%eLlrym^3=p#tB!ne6YC?AR z)0N`Fi6|NW zG}wq>aoOkkC=fXjUh5!oo_JDVqtIEhTGkx9?uXB&W6cdvGmim0%6W2B>j^KOQjW_X}&S}Dmq4N0!6~*@d5=PV0l`p7^IOF77)|tuGsYC8xgqy z83rR7Dp1Iz6%bGmkbww9Cg}pAnZ@J_6!kp*a>0{xn>m*;0FSWya6d5L}7aI&YV2)ZzOhwLJ+oQ z)(icFYHnaC978hpgu02-aYPqtgmJSAK&3#j6yjYMQ&uRLmCBI$N+EGVWo~N3D_W`@ zfL39llrd*8Dqw?Xs~jvXc+!Sfm18WAN>$`p<*eZ1qvYq6l{)euvs)T;O3{{=D$Iw1 z5lx|{%_`d^LiCV(AI(NfU*dixF{vEIAM@!Fw#YLnx3l$>j=-Xh|eMkwVg; zTQt>(6eqYsLf8HFlW;UE7npPf`X8A9u zc*RVlgE^cKk_aqrDZ1&O0?so9Z)s!^RU(i+t}Yof(kMuonSk?k(1zzQVWhVbTT{r1 zJ>XR-t1y9&59Blhs)`FKEJUNJ0Sj1|BVy1F!YBlpkL$3U`9D24*)Q?L_;G$CQ}fEk%6IT0zx zzlkFOLTwZZ6=1?b1Z077)~kApnt6GVK=%T{-J5c$9Yx%C2ryttI446N0r*KnAJ|T6xpG`%OB7{QxqX`ImXDJ&2 z7(;V~K!vS~7rn!ckSgl}i_wCuD3nvKz$K6jalx)}_lrYRVEY(<&o)J3Bnlt=UC9*T JLO^nj2bB2%D)j&W literal 4604 zcmV`?{1oWVu}Ue(J0YX^fVV(kOd5e!olsT z>)|P=fiVm~5@hlL88p<|5cM<~V1|YuGz@{Ep`%BV0QC=1plA&MWC=|K2t+CBn@Q<3 zGJ0wN0000013&-(000000004|lSxlfZ&cCxr=)3wdTIs{fF=>3(V#GzG#WI*F*ITr zfY8DKWN0)DAd^xgX*EwzN_v@!WCy4;$Z4Pe&;S4c00000&}aYv004=VGgLGH0Av6S z44Xm*jWPzB21lu&Xfyx-00xGD01W^lNSYC#f?+i^JS5cpNs~`g%|QTqho}Gm0Av6F z06kAo007Vij+4RjSbe&S6@@A$Q>L!0Aek0=bjtwN5mE?CU2n>`^MlzJwgJ@??uhrn zJaG>Qp0p1n11TGn7?F(zS{pGLt2r6zv=)jtNZqX@Y404`i+ifMML2@=m@z?+g+)zO zS^-!r#4Brwpx1~P&07#yS`&LxGl2_ha=06pB~F8|FkT~uA&HFlB?lR0 zm^u0yN$I)+y&Xqn0SA*$_4{BlHM22LGAH-n@c8_`dLKw-(IX=}MR~*kfe>Pp*i3BW z%jywuuQ}tg_M-8KGhXTiofNs`kt!TICsg<)gOuntJ>@>%n~Nf7*qxPCuAOUHJA2wN zxlF^v8*N&PM50#mJX*Co*`G=^Yt4(h(n=IVsKdbtMFaJ4v@sMjh*VvouZRP%NdN_c zfE`gmC?a-2QD5PO{^EcNfE}n98l5ewu0VFrvin2dwqA2QrCW@>2?VcBLR*ClRTWB! zn3u@#Uv#|Q2S;HPCh&FYIAf#SL~8uQkqmey&^;JQLm3LPQv7o>Mwm#> z0R?==OO7Kb5or^`l0tjI?uI3`+tP zR@SrdkW!kbzE;?yCom}SA> zUI}8E*EiIYqm9+M0uYS88=0PXDVu3%FU@OP4$RW<9JY5}4aY`YxE4%3?^N1Wdq&)= za~Z}h;(I~b)X}Hu2?$y@LI@K(j^@NY_uo4!Dm4$?uXdq$YZ@_^4Vc`26@#U6v9=Sz zdhRU)9ePTzovc1G^vwO^#mx{II<;qEoH0&2w$*M&A=TTwv~{uxz?G6_MjhOEdk(P^ zF_*AhWZE8r@(J89yAyGyh^!BXwpzyITeoa$vxibAd^8q9Na|5R*k!bumonJut)$~e zbKgD*;yLF$X7+IgSvJus8J+j%W2WP_3*V{P?ab-t%GN~?L%$BBHequ>IE<^-FId@C z@7D~Lik+7iBZ-gsOGC@bag#NKT#RuchT3dGF{hGc>Os~U)+Xhie4@r4<; zJjsh}F|oVjzlQ%SX&8y`DwTSi4k(sYeLAEh;i6`9p}6W_Q0c1S z^^N+%F__C~0=4mguMkEc)e%$YN&O^R#jLMwCECCJT<9e zb!ceDZ{UUDpKWhb*jK4T^L^x=t2ASdi4?nIf&w9HeMyeH#N9k2Ix!`9{!hyJGrZ<> zBI1RlM~&VxxU5bd3Bc}n*NJwe6rJ67)fXrp9JGqmYSoac^S(H%IyWm?Jy&NLOxdaB zah90$7*2mWM?~*Dh2GxB$+HS4O$U)RBO*YN*e*F$w!h?^>XkTnM zb@akix;khiB*zv=8HpY!;8cG6*PSM1vF`OYd{|iM(B=wwxAHGx$sTu65Ei;FFh_KT zIj1lRPZC<>2eTl}m!kzDXTF-~9;{Szq&UMFNV)_t~AQ-p~*F%xIwee3_ zMEY)xkqpRKk;n#~7ev-&-$sP9hN zqK@vX5)$31_pXSPLyS_dNv~;7pUYoGJ=+@()!;ilYp&LWHR!LNHrC z|9+kQ+ilS1Z`6o%Lea7^p=@#ZXdkK~K~@ULvo5M(hMdg7NpzrEWh#e<%XkJ3D9V8G zn4T26tCp!oNUtj=T#R39Bwf&Egixd{5clBy90c=3cn8AE%7vby8xK;Qr+~Ig5t0y+ zNJ2$*LqKFy&p`uVFwLBnNX7_?3a<62j0#kWv;Qs|(@s%MJ*=BHBNJ$Gv1=mImJ@Z2 z&xkU@8+2!xXhI7J^Cn@tA_amm2tks~P>{Ju60EjR))s_Ilr*tn0wDr0Wy%tUV1+DN zh-dqlSJ}}qs7IoTAp>k%UB!Yz<3WsD>7ZWnWo#+nnpy6Ez)9OJgvC%&MS>&&WK{($ zN}C3zx?5G3XH-z>mdmZ!h~WQ%J(fFEH!BpSM+`O|%xN-BR(x0@H-zw+sWlV#K}_QrN$)(0x1h;0n;gQA+;072Jl}kH^y>G zHYKr_+kuY`8@|PuS$vNCLfEy3vb+y7GpH1Ay@?+@MCjLCDf9yqO}SvWCP<+o$5$s+ zqB4pd8_ZeBwZNF=1rgC@VygI1*SI2_$!kQj36@$*7m?bF$3_ThoIF}xu>$Cuq6f>` zZwr;CW{C}5nD5v`bMH?m8o*&Aec2~ZH9G`{KyWaL)5i1wQSf>VLG*+J=k-`Z7Deyk z9S>y%xQLoNK9iN4h0SR;Rix@5i>F;!VrZr;B$&EasBWolYk&hlEDc_yghAkQo4ki? z+Hb67Zp^vkqCmI-+~}HdI&9nyp7e845e|~Z6z)yB{8@`-96o*;Jszfk>3%U9VnDe` zK$24|#7MH!88-n)sw_rCL`mlc;< zCS*dSWFq9>z~!z89~eh$ss^W&=-!5>yDJUVL*v&4UP}CgFAu zLDB}H*%M|G5g?F*5Fn9s-0msk4eH^0gSuy^GBURp(PBYQDDUkT7rzbMqF}4B5}~&ATePh2uO|tV7mryJRQ<7 zffCgD<$@38;Nvpi`>1ytr0DjM^+5TLK^K*V3`>=H^E{ECMIH8 z2^B14D%P}F4@iN@Qfh)qX2T${WL^a5WH3W8V4^iJl%uV&Qzh9Fg`kvBoy-u_g_>bNYVnH3Fe7j-B#=mSa4Jp=s-U;Gkmz*<@-Goh1&-Et21;ok9!(3Y zhedcAg^LTUvQjKW6hQ`ps2IeFDljNPRb{ZDy~6+%mkO0EFfb+?ULT-A4n$YB$Q-AV z6qyuy3pPty!;b5r^dXq@Lr@IkvK|U}@g%}2){7T5yudzaKp_)DwBUPN`_=*S3D~a0 zF;qxK2w3)?bh-0FMW}2)8t!Z}bq=xWCyUtZIVOS10r1fv5RxnpWsdMZa%I27b2+B^ zAo%;mc|$SYQDNqFAU=0&B3LyttWonmZKVyQe@#3%Sk}fj1gO0{Sfn zUb+8u+-4OJ*bS(=uq7kNj4xg((YKN<Q+bd$#UkXw6uEAhF2BA_$eJuT5#a*|v?RuT8%+D4kSBteUs;y{x1x`9Phcc_!#q5q&#!gEMUNoVL z%CU?dx>e*^DSiaP8NkGPl}&(V z^S|-Hh7qzh03C0t#S9(UOztg^S(7k2Zr$9o7r6zBpCYUT71(wQ-ihu=ELz~=0Vji3yB5n5KZTlZhe{;oS<%Go;(bRLV$mO05f3A~~#6d(ET^IgFLO zrI1BbiXr{KH#Or1K#?;u0p@F=4d*anq_+}VQ@s*=0IE|~WPz8T`ON^~MFo_WB2mEs z3s{*Ev1lYXUpvQQ#1|y#rbM>j!G-`xuz;tyqXQzrl;o`jlG)J;)>Nu|VHJh?;-RX? zND@f?3+~52dkVu05QZR@*iadf1-K*tHFQDj%`BWa+CUJ|%|P2SBt;Nnp>o!%aMERl z-%w%)$qNT=ZOWu|7kY09FkneGPJ=Is?_oq!Q*Ik&7z!