From 56a396093039088bb69de7a7e94c52efbeadde6b Mon Sep 17 00:00:00 2001
From: Steven Patton <96503717+spatto12@users.noreply.github.com>
Date: Fri, 2 Feb 2024 13:49:02 -0500
Subject: [PATCH 1/4] Update gt_nfl.R

---
 R/gt_nfl.R | 35 +++++++++++++++++++++++++++++++++++
 1 file changed, 35 insertions(+)

diff --git a/R/gt_nfl.R b/R/gt_nfl.R
index b196215..4f9c41d 100644
--- a/R/gt_nfl.R
+++ b/R/gt_nfl.R
@@ -104,6 +104,41 @@ gt_nfl_cols_label <- function(gt_object,
   )
 }
 
+gt_headshot_cols_label <- function(gt_object,
+                              columns = gt::everything(),
+                              height = 45){
+  
+  if (is.numeric(height)) {
+    height <- paste0(height, "px")
+  }
+  
+  gt::cols_label_with(
+    data = gt_object,
+    columns = {{ columns }},
+    
+    fn = function(gsis){
+      headshot_map <- nflplotR:::load_headshots()
+      image_urls <- vapply(
+        gsis,
+        FUN.VALUE = character(1),
+        USE.NAMES = FALSE,
+        FUN = function(id) {
+          if(is.na(id) | !is_gsis(id)) return(NA_character_)
+          ret <- headshot_map$headshot_nfl[headshot_map$gsis_id == id]
+          if(length(ret) == 0) ret <- na_headshot()
+          ret
+        }
+      )
+      img_tags <- gt::web_image(image_urls, height = height)
+      # gt::web_image inserts a placeholder for NAs
+      # We want the actual input instead because users might call
+      # gt::sub_missing which defaults to "---"
+      img_tags[is.na(image_urls)] <- gsis[is.na(image_urls)]
+      gt::html(img_tags)
+    }
+  )
+}
+
 gt_nflplotR_image <- function(gt_object,
                               columns,
                               height = 30,

From 8cb4941144628557b4a081597f19afe40452a99c Mon Sep 17 00:00:00 2001
From: mrcaseb <mrcaseb@gmail.com>
Date: Sat, 3 Feb 2024 15:44:46 +0100
Subject: [PATCH 2/4] reorganize and add examples

---
 R/gt_nfl.R                 | 107 ++++++++++++++++++++-----------------
 man/figures/cols_label.png | Bin 0 -> 23162 bytes
 man/gt_nfl_cols_label.Rd   |  71 ++++++++++++++++++++++++
 man/gt_nfl_logos.Rd        |  11 ----
 4 files changed, 130 insertions(+), 59 deletions(-)
 create mode 100644 man/figures/cols_label.png
 create mode 100644 man/gt_nfl_cols_label.Rd

diff --git a/R/gt_nfl.R b/R/gt_nfl.R
index 4f9c41d..c635d43 100644
--- a/R/gt_nfl.R
+++ b/R/gt_nfl.R
@@ -13,8 +13,6 @@
 #'   [gt::cells_column_labels()], and [gt::cells_row_groups()] helper functions
 #'   can be used here. We can enclose several of these calls within a `list()`
 #'   if we wish to make the transformation happen at different locations.
-#' @param type One of `"logo"` or `"wordmark"` selecting whether to render
-#'    a team's logo or wordmark image.
 #'
 #' @return An object of class `gt_tbl`.
 #' @seealso The player headshot rendering function [gt_nfl_headshots()].
@@ -73,13 +71,52 @@ gt_nfl_wordmarks <- function(gt_object,
   )
 }
 
-
-#' @rdname gt_nfl_logos
+#' Render Logos, Wordmarks, and Headshots in 'gt' Table Column Labels
+#'
+#' @description Translate NFL team abbreviations into logos and wordmarks or
+#'  NFL player gsis IDs to player headshots and render these images in
+#'  column labels of 'gt' tables.
+#'
+#' @inheritParams gt_nfl_logos
+#' @param ... Currently not in use
+#' @param type One of `"logo"`, `"wordmark"`, or `"headshot"` selecting whether
+#'   to render a team's logo or wordmark image, or a player's headshot.
+#'
+#' @return An object of class `gt_tbl`.
+#' @seealso The article that describes how nflplotR works with the {gt} package
+#'    <https://nflplotr.nflverse.com/articles/gt.html>
+#' @seealso The logo and wordmark rendering functions [gt_nfl_logos()] and
+#'   [gt_nfl_wordmarks()].
+#' @seealso The player headshot rendering function [gt_nfl_headshots()].
 #' @export
+#' @section Output of below example:
+#' \if{html}{\figure{cols_label.png}{options: width=75\%}}
+#' @examples
+#' \donttest{
+#' library(gt)
+#' label_df <- data.frame(
+#'   "00-0036355" = 1,
+#'   "00-0033873" = 2,
+#'   "LAC" = 11,
+#'   "KC" = 12,
+#'   check.names = FALSE
+#' )
+#'
+#' # create gt table and translate player IDs and team abbreviations
+#' # into headshots, logos, and wordmarks
+#' table <- gt::gt(label_df) %>%
+#'   nflplotR::gt_nfl_cols_label(
+#'     columns = gt::starts_with("00"),
+#'     type = "headshot"
+#'   ) %>%
+#'   nflplotR::gt_nfl_cols_label("LAC", type = "wordmark") %>%
+#'   nflplotR::gt_nfl_cols_label("KC", type = "logo")
+#' }
 gt_nfl_cols_label <- function(gt_object,
                               columns = gt::everything(),
+                              ...,
                               height = 30,
-                              type = c("logo", "wordmark")){
+                              type = c("logo", "wordmark", "headshot")){
 
   type <- rlang::arg_match(type)
 
@@ -91,54 +128,28 @@ gt_nfl_cols_label <- function(gt_object,
     data = gt_object,
     columns = {{ columns }},
     fn = function(x){
-      team_abbr <- nflreadr::clean_team_abbrs(as.character(x), keep_non_matches = FALSE)
-      # Create the image URI
-      uri <- get_image_uri(team_abbr = team_abbr, type = type)
-      # Generate the Base64-encoded image and place it within <img> tags
-      out <- paste0("<img src=\"", uri, "\" style=\"height:", height, ";\">")
-      # If the image uri returns NA we didn't find a match. We will return the
-      # actual value then to avoid removing a label
-      out[is.na(uri)] <- x[is.na(uri)]
+      if (type == "headshot"){
+        headshots <- load_headshots()
+        lookup <- headshots$headshot_nfl
+        names(lookup) <- headshots$gsis_id
+        image_url <- lookup[x]
+        out <- gt::web_image(image_url, height = height)
+        out[is.na(image_url)] <- x[is.na(image_url)]
+      } else {
+        team_abbr <- nflreadr::clean_team_abbrs(as.character(x), keep_non_matches = FALSE)
+        # Create the image URI
+        uri <- get_image_uri(team_abbr = team_abbr, type = type)
+        # Generate the Base64-encoded image and place it within <img> tags
+        out <- paste0("<img src=\"", uri, "\" style=\"height:", height, ";\">")
+        # If the image uri returns NA we didn't find a match. We will return the
+        # actual value then to avoid removing a label
+        out[is.na(uri)] <- x[is.na(uri)]
+      }
       gt::html(out)
     }
   )
 }
 
-gt_headshot_cols_label <- function(gt_object,
-                              columns = gt::everything(),
-                              height = 45){
-  
-  if (is.numeric(height)) {
-    height <- paste0(height, "px")
-  }
-  
-  gt::cols_label_with(
-    data = gt_object,
-    columns = {{ columns }},
-    
-    fn = function(gsis){
-      headshot_map <- nflplotR:::load_headshots()
-      image_urls <- vapply(
-        gsis,
-        FUN.VALUE = character(1),
-        USE.NAMES = FALSE,
-        FUN = function(id) {
-          if(is.na(id) | !is_gsis(id)) return(NA_character_)
-          ret <- headshot_map$headshot_nfl[headshot_map$gsis_id == id]
-          if(length(ret) == 0) ret <- na_headshot()
-          ret
-        }
-      )
-      img_tags <- gt::web_image(image_urls, height = height)
-      # gt::web_image inserts a placeholder for NAs
-      # We want the actual input instead because users might call
-      # gt::sub_missing which defaults to "---"
-      img_tags[is.na(image_urls)] <- gsis[is.na(image_urls)]
-      gt::html(img_tags)
-    }
-  )
-}
-
 gt_nflplotR_image <- function(gt_object,
                               columns,
                               height = 30,
diff --git a/man/figures/cols_label.png b/man/figures/cols_label.png
new file mode 100644
index 0000000000000000000000000000000000000000..4fef28d66a1929c7434de23c76bce4af10ad9c23
GIT binary patch
literal 23162
zcmb5WV{l|&)HfPi6K7&fY}>Xc#>BQgv6GJNWMbP+CicX(txj_L|2+5ocB^i^tE%zg
zRPSADpSAY>;dG?3q7*X1cLXpnFk~5NaaAxd2yD>z4mcRl`yC9F0~i<yn2flHx@Y!9
zjz_wl#^#IA@fM$-ySb0UDHb|l77B@QD3Byy9Sc+0R?8o|?^!}6^G{%5plaw(D5zrT
zM3e#y>1#i()t-fQyIvtmQa(P97Bf=(w!Gu<qzty_Y@X+>RiB<?-B7DcO3wc`iUOO;
zsEkbhC+^4lvFUC9HzbjD>+0(NC-69I`v*q;C(IY?pb_!^C$dxq|GzIzE+A^NU2TYW
z|371xq-L;Lpqz5+ni&7@IBeGceuu{XPfYzWM#TO<QwgiH3H|rK5rf?_@_#Yr|J4Nl
z|1UOEQtBHSDFxHPt)o69hm!V3ySo`-<B+z4s>YG`+c61+xPoz1M-?pn7G97_fQ~*E
zR4~*2<zXct_KNPPj^rDW`1f<-v^4OdRnQ>*snZ-HS@`Lzt3Ju7IGlNgkUD5XV9T-A
z%8-IdT9KL6hyvzidaoef>U;hugOc0LYnupnmC(X|Aj=RBoHD`&eilnOgVw))F&e3P
zaC5D9>pyTN{V}>0!nqUR>r3k1<fUuyw+JXVpg3?2Tg#RQkLdE>>w(bTB>WggS5doD
z##E9JTSRI4p0J|ay9p<Kqg7vwP1{N9l<zzFHB~nYIMw*rm#7)b`gXZ8%<sqv(e9HB
z$lXf)M-z=Jo_|Dx4#IdQ8bmh~z4Jm-%FJ;db{npv(O!`L5Z+v=GcN&6OqmE4RXqEz
zm4E_T&QQ46CdeaA0V1ov^{?6NW}O+DHaY5c7Kpb6>$W=wzx=ZVe%m3`*W*>H`%QIh
zs(@d~h!K|^!)rO8+=L<o#(try;=jc{<N7+nxe7A#7eIi!2@!n~xRb%=?@a^~TU4wP
z2JAvMxLn5*g{Ruwt+TC*Z04>XRb7#*|IrpPJH$)S;^S8c_Tc5NbYAx+!p~?CrQXR)
z^1G}EKdaRxUU{f2K*RzQm<eQwV77>a>KF6qj%5l)MG3SEAj(zlN9i9hul=tG1hH8&
zCc|qN$}x|miL&!J|0+&aw7jc%VM~kY<I4YgTi-1|djC~i@IJS3%lXA?qlm`{fCM&5
zamME)=dgwZgBFDe=ycIN0HHGK$0x7s7ePO{LiC{DROBG~zFj?~8N8d3&Y|zi?S|3u
z$<a`6&G^?^STK8^%Xzy|?1lP$;AZ5q%fa-XMyMoyd^pezN37KEWgjfr-{17Z_6e@V
z$oM|dD3dZ$E5?+p|Gc(ma_P$j?|iwcw6Za{EYCBBqw?qc`g(B9`JW1F#P6Eiw0$b6
z>y(&(zE)>PBN*yA%aCBVC-rNSY)E=MP4_*^f*qExrp*3uzAl2TWh@!e0JWX<KVPfA
zR6d=s4A&mL56i{!ei|N-$anl`Wq6~tO#Bve7+i7hvYz}afxq2u%SzjBLRqFN@F0wo
z;2-KZyqnO!N5O}?v4HSTZRMxo#K-1U@_&NZoJDcQxK(;BA%=!;7^PDiX@_!Y35t|(
zsmV9<E;I9U9Vw9u=E{0HaRp}S9<vtQFLkdmS={gvDhU+2ThJu!*z>wB>%Q;iIEe-G
zPsbb2qQ4_s1ATsd)|*45=A?J>X~^ckoakS3eNyxq4qGWZUG?23bfa;5zMz!(&6(8A
ziT-hppW#|Lfo5mdVLA!^v%6vl;eu^uSf+dD$15v@dcht4u<R?+$A^_!OZdV^0q@%=
za^}IbetqeYA6WVYzMTy|0_b0Y${laN%+Q>DpPJf4LK;Mxe{}TMz4Rz}83X5)*{PV~
zFnkcq3D7#sQ2s0dK4lkdD7y;xY)4O}kAQA1$rM*w2`MQ)!plqXqHkC2ADr?S6f(bt
zqp-#R;_SJmx>B&L5Kvt=7YhWQV+GlFhmGY`HO6;~R+!Kb+ysN3VE*Wl+T4{`#DWi>
zlIR1q$1UUF)B;2V8n2_HTT?&1a0r{^>dU1H%Dx~-MK)0zA*2H+ELyt1_IS`^FzI=^
z^1w**U;b2il^nkL6C#Lr4{eR}a-xX;;t}7TX0%*)IQ39~O3rCIw|gFZU8&leyx<^W
zEQN_&YPSR61MeFslSH}CU8ZRGPQ6%#-pckKY}Mxyj*7${x;HpU#dh+mj*51Ct?v|=
z=REG>5ecjX;tnQ16+PbS{$05F?m;6CG7AC?Q_avLp#T)Sx1KPUHf;Q^`WBaG8uY%e
z61iS`+qO2VQDji?8iUs=5he57rqE?#l3Ymg+D5pPnH9H3Hnk1EUJ-!)LT-<b*?ynU
z1o!PT0UgaayDN9=Q78o7U-I~W?Aq;WoR&qwglE)V?aZhi@MiuB+7HZ|Fsu!u^cP}&
z_lHP<OeYQ#Jr-)14)D8`53>3Snf~nbz2gwzld&V@U&J<gpVICp+XSpL@-%#pL>*lR
zY_G79KKmWS4hSM#!FOhJ#ZpkD9{AgrHYgTA!b85-f|t|xc7I%de22m${^^<hi92p9
zE<Nq*s^v4+_dP_r)}qM#4X~CRurZQ%U{g0K_*-I1LfK<{_SlBa{ACCMd(JY%=ei@w
zV@oTd;<U-Zrl6%X^J&_i8JSWkZ=9>=k??8NV_QIANeOCQM@OsU#gEA6#(&H6(QHxu
zcd~W<IZOjZ1l58xx@DMR;!1F-m1T#b4x6$mylc+odW(wQ0qMrN0ypN`LRpgq3o@KQ
z+B#)B$;)a%{5KyVLj_`PYWz4WFJK{%(=e|Wb=-_&t}1c>fl#^AcnW&e7x#xI#26YJ
zQ;6I4RV%mLtgjj8bx0*?uaarOqn7TwgdZF<?M%>9r}KIz@kFlh%i)ImIOOMtNB1?*
z;?pDfVL`KL6Nd21LLd+FjXNXE5L_VRz1`|Jk8ntIC7vmw2+N%$XJ!c#Rv8LYfCLb7
z%=M@hr(-(-3!ta)dfC9&tH9)Fz?<)GHf2x)LoMWX;?jbL;kySFZAmde*!r0v_30&)
zlS5dnCZn!DN;BcwWJ{STZ46<vQf0mrb*Sfg>+yQ=O-k87B@(wHYL+rw*?~z(@CmL~
z@XOG^=g`bmLrfZilmcLdoF~^`0EYyHr%#nDZH(Y3i(YD+@Yj+X3r_~lo6PCEEG=B<
zpzT^);#(L@_A~_IE>*@qpV!W=J@SU{fd%sc_2R;hUdyAIRwo}0_E`k~j1g9YDv6?m
z5O;ru6QgA4AjSySF{{?y!oKQ+Wg-^1ifDqlEFV8dcV%psN|9_T4Jtd)s%L`}J|9T>
zpTKMR8GP>PId9bHw=8GrgT3!%B-ak)`C4!`l=eD=7twlLo%gZ<Poia7wQW#&ug+IU
z@-LcpW4m8*20di$+BVkc)tvc@KlvxOW8v)r8lj`R6O@vT=C)dLe7@Z2;st<ciONiZ
zX^`4KZ=rye)-ap1x9yno6>+2cza~1CfOqqG&SOAw?$cx@=L`5esZ@`__6xO$QmZQM
z_TK@UU#QDfT9UF$${LW`5Vh-(g<}*8co2d(9p;5_LG*G%s<hltq5u_4cx`lUQ+PEF
ztL>gxDdHE{sH&TG45h--7I&q*qfw=ILQugh`URYPEXDc8hIf`bs!M{3c09RadOB|~
z=1cfJXV#tSkH9iw!E#1#1PYbIKsavQnO=mpc)`$C=pi3E6W%y*rh34pRd2OcMEG!}
zVE~|-d+lRf5}W=qs$aX}%kc#)(@HlZIWPWaI9vI#T(gpK`C3Xj&gTfDGM>03{5ZNu
zvNcmo_U=;T10!}GBrVhnw+mrmwks$a_Lr?n$mWgX<#?b)$gEjQ6C!#oC4dQb0>}#!
zAx=iG-;o>_hf+~d@u$4J;Ljg8Qm8r0WO1?}`U!PSO;uIZKBQOpeGGCf3Uv6I_o-UX
ztMO50R;wsqds#?-`QG5WJ+KBe*Kl%Eb>xtc!9!9^cnmp8uiMj6FTY)zVpST&x4rTf
zM;0W}Zh;M#^}N+OYaXKT7`0T#H|P%ILOgR${5rBEO$8`QyeVN81p*X2g_WC*?4fyD
z77ejPD8W{Yg<0)ZYv?b(JC-=ZIwQEomk?tLk_TD)tRjl@M+b9+$G;5=li&P*1f*@R
zoYpawqUhG1bHza*3$@~IgD>Hje_`!)`!yJs`_<3WB1yjMubQf8io=c%SXyf%4~2Jn
zVW3w!$0u&^WowzGzjAj4%=UeU{0TY6Cl7B9vq$G5lm@v9hecP_gy2VrBgUj<X~r1n
zv~uW%k4c{4CVVNxWwAukOHAXly_(Tkl$WpV1S8*L_i}G6rLKIqx*DLF4%5XqELz0g
zGAQq+e_Rkww0G5cO^J!{4G9Jw3ZiY(J_HSvCDsfi0ELQ<&foe`q6rl#!qAEe%gnIR
z{et3Rs5}Qug6vVWJh=YC*4A*JFK<L9fk!A5@c#K<5JXg1B215m&5IgXCb*OWyWDU=
zks;=y4ivKNiNE%r6bI^|df%s*ZeM*tTMUM6;~3g3do1dfU-+Ti7FEg|vuWa#l(8^v
z^}Z`LH${+KstO0PcIvmNkd;G<l8QfJB#D1_oOq;**(g|f>tkfgXQC%c5){SfniEZd
z>l5QmL2C}r6;A^`jny`47vk^(pL};*4_r2NgQeY@zl>-1`Q)+u9G9;uPL0o2i?tvR
z!~R8<A0c9i1_4Z9uGeuGpw7bz3dRQmhZ^(+$-Mc6;(s?<|I~5awx!OrAndM7>XFIZ
zle?dy0N^hh+Fn|&KAQUL-l}vO=<2V}%4x?=8OiqutN_vc$hQMX8<Dqi6IM9F*BnF_
zP^uLJq_hJMRJHD7`;XanQ9CC^E}u<9H~N{;Ur|~caAXy!7fs|7q$xb_r?|9RZ1HgP
z9KqQvri)8TLfy`n=eBY`@KK;3np#^ME$7Iv8TH0CJ+@<wadE?f3aRC@xf5%B59tUz
zcY^ZLrQ5m<>i#u3L9Q4++8Fr0$v{yK%-%u^5HQ>E$1a&+!hS4jrWTS!lmWCYM8S7G
zf7|5<xQ6d>V`a2lG3)Y*0T08@Gdy;Jl2cQzPu1}6#~LP!trocNLX!U7wf3S%j?5tu
z=8>ro-KZL3=NA;F{{?_Wn!*h48r`?JtDYkH*JjymlCp{xkYkorjmhz6P!{1+uvt;c
z=MG`@b|<cRBaU_{@zy`n6C6z1wjB#6KY77D&zytJy1&mJE3-TN9LryZ)PL5E=fV7|
zNRUe-9^W@#1iLbgBze8i35D29Csb7GAz6c_++k$YU+6GamOD1%P~a|n94wZV<)dfc
z-^iZ_*AUqOBPXfpYuckUI5NS&&SdVd82$MWdvNmU@p(Kau^Irmo0sHcP`z>-K8un9
zz;I`}9v=;)kbxtGgMuLNJ}DsZ*l+@Mn8G>gaZ_|s(77s6w&djGWG9aA%4l~W6jUc?
z=jSX6NyoW9aVv%aIj{G}E_dTpYHDi1Xulg8SpWY0`y^{@Qj1MLf6A^Tbc<Wt^#W0E
z8uj;=5S9UP_$2O3S4L8Kb<NQ6^S-iah_SMw`=G_ica3uP6f-m1&E=pjvFN$1vDpqM
zf!eMcLq)-lNdZ4^6CzTmScUx;pbXXhGv8;}1gYBoy<=Z7ZzdhYVrrVQwvIdrnm7qL
zMWkC+%bq)*(-^vbcekbJ&2m&M{Z<`e-X3YL3JV2v+Patu^UEo_Tr9OfQ{b6kvxK{a
z3icfe)eK>@y|Y3K?U{5!w9&j__)6L3Q<Wr%g(8CdTeO=qvs&xcs?_$sM{lu!%kZ(E
z=UhO{7GQ-VxAh~mU&pmM?!%&whrVHTr=#aZV1#XATaRV;>nE1jkDCla6Y**eY_SZb
z1tyQ2pVl8^p$McROK43TKDhCtgNx;A+HH=c<?0CGgCfkh6u3x7gnVvi>ZS4-qTB?M
z01CYt+hh%Hf};$J+}&kehr>v!+`dy+vJhbvOvav<U(>wj^s;i{yG;Tx|0<!Qb90FV
zJ+JlG_&TYdI%yucc}^Q$G6d|<vCK+5KSZ((gid(J&;iN~rD*!YyV4|CFmb%hi<pU?
z00orDh#IGLVu!sUCjZlg_CLrNq)-*5MONPp(t<N$vE*yv(H?xLpLlNDbEqLqhl2*s
zO`ft>jlP?rv(U;#Mf}+J#8Q4>pU~|{`~eGCnEDM(rK)0;ICPq%XpSF}OYGnKX`Chj
zt1Tso6g5^c82v8p=qkY3p!1EI`RdFz^0{FCgW0y}<`M)xXs2oF^0NYm$%?PhYUCM&
z>eDX9d2NqKjDXh-8C>uCczIb5<E^M|_@vEV(q$>Z2Qb_Iom;i<%VV?|ytH>N<`05g
z4L(2G``gLon;yN-EB*u*Ks6@H@mY0S<rl$zha1s{93EuPy9B3@*-H>Z*#)K6cz+~z
z=obsn|9rcXLS}JsQCUqbX~8~|5`$8H2hs2aVn*<tK3?#Rnvjr?B1xvE{ph=W+b)bE
z&mpGyRA%VRaZ!DJB8^%pCNQ_Y&wxS8*2Zc#b_IJc6&hfyihZN{?V-RZpF5k{p16T4
z;^2lP!5t0@Z&DpW#;K@`&66V~3P7@C<`i>yej58DqDp_zhN-&`STyp9>O;?LvaP+y
z$v)fQM2@E+vBW;BF{|Oq5z9z3hQb9{h#Wi>ksA@=Vn&8kP*6Jnv19dN(qzMX%Wz@l
zg>8Cy(-h_zEw)h?yM@VzN2rz^zodx5LdEECDZLsZ^JL>fDg@nK7oY^x|E+H$)RVJl
zF8ypc3foQ4LQeUhOGmKm@djfEs>|J0{EBpy`#k<^UlvQrNuTOi6|yck(rv#!6mHpg
zO*IrQMZ^tbO7JkRiQ4Ay_gr}%bb6X%dM<{N<kY;a??hOanYIm^-rdVx96c~I58d32
zA<tgr$1llSrwfV7i6Ius&CL96;C=c-k$V@)d=hud!2m93=GbI!C~|RW$?5I1tmvG#
z)M|cVVX!34;BSt{R-{#?G$5pq8q|-jdcXXiwgbLcGQ=H0ZHKc)H#$`@e+*qTaP&}|
zm4iawRAOAvah{f%NZC|a6b^3z++0%X>D4ilR<Rthb{#%_Xn__*`}j2AD|&{=tLbux
z2a2Bv)eSk;cD)H)TbMOTWQ8!jBd)Y!j4ad&0ZBp1tz(u0iy=pNqF7`Bts`!ol&!e{
zkXk2eLmw=J26Q#>`65X7eZGn(_cGG^VqYN_hD&!nzlvv5uOd?k8xUTZ+~j|-IjfpE
z%E3hdxZGrth#6-~ls_e^I_o`cU(GtMQp<}A-#bVeXV(W=WfGe^a3TdOQ-@SkB&VjT
zYHCWlxp72eGZeOZKxqVckjS75<}p!;7MGTWy<hj{U9Pv@-%T(z`o21UzHfgufIdO3
zn;V7if|;=w=uD}YEp26Wn(k$O)%-gY#GmN&Ak|KYP<$8rhMrjwWDEvDiYYuWt1eC(
z<mk=(172-`dBI7ZA*UN&lq7@%FS_8Avco=M(vn`kA!ci9t9!bonF>u*Sx-+iaa5$Q
z2!tFvjPtEvNcJ7Q96S6@GDRq{CB|4$%JB84NJtCtDZ}jdQjMM60+nqr<44&je>mae
zXDQ*-YsH+`_U6J8c?J@Hy^PWubfxRsw?o&iOeh7ssZ9&M+pevx2_muiJs6_i@9irA
zqK+-FA2m|%-?P4w7tAv$uX|pxQ8)Zh%_(huqx0off*I={&Knx^zaHm(8Lv-qZBL^5
z-$3Si?!o`}0xfS@j{EoCk4uO0inV*ngKo{b2+1OP!=7Ym`XKxCVvd}@^CW^&oZr+a
zAw@Y8y8Inqm_vlQv*93>`O{4s1<!O^G($}-i`mxVfQT@5Ir>eutG0;PV!{B5s9=#O
z0#-{Hyrp9DWU`v}eg;RF4bM$~{vI$z2QUQ%z{M%ll(-UZ2*62{CfHMF^apzdr2U3{
z<-^>6)HN~Fu48)Vbx&4mDmG*HgDQxcz@Snb+P`%?uWohTbX!qTS076GX%Ja+4m>=w
z;i+aAMDqA1OMI^%p1UhlQq5zMRVw4-!*>mQmpLQyNtt>1D`=~f1p}{k%(Pog0ZM}9
z#?tlr_9y2kfeVsFwi67fqnWbe5qTYa<Fwxx%lmwwdRnz09*R@A&o!#Wq6fi+2UoWw
zX-X$L)*s-gZa*Yk-NWI_3OKSQsTnEczn`6#+vEnSVSYn>Zm2e6(=ULt505FPihLMx
zq(c{}#gIvdTcAjkMuQIzXU4z}Y`=dxo}&7cp)V>7+n=<oC~GK=kY*S4a6mQdCs{f)
z^ZWn@jB{77ub;q4I8w6`mHjqG5WQuuAie1%gzB=F9~AbLZN|<tMxQ$Q!<$a-IC4*o
z4*s*|-bqTYnV@_qN5NJTZZPDkILdgA=S0<!ZW*<9t5|ZRVgU@Z6H^a*<XlOX4X!L)
zS-A=f0uG7!>+>W`hTSA#F7{h{148~}5sBRE_6iYkP-8Ll$91QbsMN0m6FJcxH#pz8
z0=|ZDHQv*22IOFQVguI%x^eda3KolLg3s%(&v<wYcb>_!4n^7&Q58%*Mx5*JXChSz
zny<z?j!$L5l-p^2^H{n8eC{{7)v@ZF(iCaxp)(Jhxu;L`Of%S0D*!9<9%JZeF-5J7
z3X0G>rfg;9T}a4y5>=z63McUA0{fQly@LPCAo1PDbwD0nZ5QC^$Xr%V?$*1TxHGW+
zCjxe<RfE|A<@_9TULG%sMW2)uzf9sxG<e$vBSil%SJHxEpK)=%$YvQRT6`H-drFM!
zX<o$%gz@6(<v4@vf&7Z9^!a5**Rr7Ub8*4T(7G^brE^X5%TA^N_E}_+zH6%Q(FNam
z6<cx0bHwF-py_13!GvB-yRY%_N!!4X7UZAMs4EO!KLX~E{zmb;GI?i&5>^v<KS7J7
z_fv(p>X>Xawk7cio=}v;lBgQN_VTqv5)(B|y!*O&0Lr<JkHsD7elHVGmMp4i)p>Su
z{I$5&30hN<P6#nN9Bxe4OEon5%dSx4U7d2i{V(@<RT#L9L*;xlS#X%p{_%m*bDu1+
zG-*r{vNOT<x9wx-){}5~C10TC?$~3!{j{1>v^<f@7T<7h?*s993ghJysK~eNZymDR
z_0e_~0pstlwHbcx;8__<EZFI@B8}~M)sq680rHMu>Dr*TO0aD_XySAAbmt^<swR?6
zkQ-(WjH`_*p4ou<6Y%vuQk*P?I4?_EBlVCVFQVP$_^wRoBhp2Q7w@g45Rc2A;HROV
zo2I8U<!XaFVeQ7V66eMvNg0&QoSwhvz=0pr*eKChJmVWL7dyKVE)0O8z-leri|q{&
zA*#^vq#)cG1dQ&Bh(96*QH8QWi_X}706-no5K`RzRf|a<f@Zr_mz!ViG-qXakYXkW
zSIkjSX=7PYNwKvq=OJmP?GrI*J~NPULV<x;;1fMN4<8dVQb814t-HcDoMU`8Bsq`>
zhoJ$hApuU=mc!rD0<AD*lzEiy6oD6=UOFz&+n#+V4{Hz}vb|q8R#IoL%Lm>oqzlu{
zEi9=px3m<bn|gY7HZ2*F{yT09O_DVd?R)IfVKFNndL*-)p>LE-lEpxoblpE}4W7GP
zEQ-ZML`=Tb*7>aa&(>O9rki(-cbZ2eAg-sE3%k-EFiVsU`cMRSV61_=79m&HQWz&v
z^{`_|`Folh>gzvI(0o27Iy|lIB4(A25B-Q_&lf*G1?23e9BJI>FnR7n({#5RX{Cf%
zr*l$tbq{(<u$N@QBkc$Dqxnu0EBM_<lDlSn0N=y6+OuOxqu=NUhe+WCxmbi?hjPUM
z6rfIv&t)&JvGff`0uvytp}|?LJz5&-aCdEJFu}7$YYyGmoY2vXG=nWCFLaF*$8*9K
zk?M}!-5z1dE=z)zU(tioWgkPv)EpZ-7B!HHj1K}yQD?NWvT_+*4n#lo-LQl{Z{xLF
z?FrKi{do$MBOC(W*OQZzeL)np0gYC%8che^nlv5^Ab}-RQbOh%V;UkJ6~`lnrDI1r
zTP3b3)vY~bVRyO}7JQ_Wngz>v8Wt-+zZy=BiXe6lZ{=o!lH+g*(_`3)o1jIR1+KJ!
zt*0d$=kxx1iG)FyJr1a~##EMzv$`T}7E|Do5MBPjmNWVTBVo^EPAgkKqtLt^J5gdp
z7D1uvnL`7Bk9@08jUw1nGeNP6E}!ghyZr-)We`3@irh(S8>YtV!8C1X1m(D!4IU*6
zj<<QxvC^vT|I`f$>yA$6P6vEQ(DA>wJ`WsyJnXh}n$8k<ak`C}w$X(h7w1J9u!=p*
zkug_42;&aeC9af`_yhLxm>BCdle8=ywtQl5j=L$MpP2OhtA;*SmmH7tp;Xe$HjrxN
zX&wX;>HbbZy{1U5#6~HDJ1z?zwk6j;J`<sYYj=6xhU2kI(P|a{a>5q6MSA|cqZP#Y
z<~y9FYgDc3#3Gn+v})r}EcS&M{`Qv|faQK>uY(*sJkBf^W!iI_M7&Fba<?wWB*mtn
z*Z~~PzD;rYCi-9X-Q5hL-uFSG-fXzc+&(NQnPgI0<oR)e^k!l?%9(mM*zky&b5r&l
zyItzqu4f_v0n+(#3UqYE@t~E%!Tq~k^!(z&2uoB++F)!1V@h=CNCN`v@2#aO2X{p~
zeT&HQVuR<ds%MC^-{R_;OP~k;eZYQDeJ6!`=_X*cptM>N=aQG#DEW6<+*6hPmY<g|
zMgnf21lBttl{gwN=B|wYFsG*?YGTHb(vNQ1#|&*>o3{s$4WTfOqi~uv80-D{Jj-8<
zdh~z104e`II;bID)-GiE{TAPdn?@O$VNkSxc@Ousi>7)|oX8x_O#DEM%VKWpcyqys
zcG7ym#N3-&_EqwxyJ|p7c29E?Xpg>mvJCs#iUff1iAZiULvcVjXm&s-gD;W1qH4eZ
z2er)(g0I->M5MXNlaCKvO56A&1T-ewn45#OITk!R)n$5)RAr5nGz0I*=k0(zP`gBj
zJJ=p9P+cH0KYjj6Yur=h2Tb0{$C#DFjl`+miNc}G=lF`C%<nv)ak+6;$Y@qLE&p-y
zMoL-TA~9Tv-pTBpf7-8njZ>K%?$O!!uy?VuV@T6;hDQ~6Kr{R}``P~W`Q8q^oA5d<
zNsAbMOGCu<dy<WX7Tvjj$NTwnI5pQEsEF1PRBX+?X^<?;)4&v%C<8dLCdZ1~1rSP?
z3d@;FhYouFPJwekGY-sDG(Mq>f|9VOqHD1?Us|@STCYnKCu1pP%f7UtkQqtN#>Bze
zfA)&_0T@b>nFNqX^s{adafOx7%@g*Qv^nzfxA_Wst2q(${F0TUYfupoAS~8MQRj_Z
z-ybBG;XbD#8}~U@a&6n_^?hD?1G~5W06v|JWVfVo=`zKE3b2Z{_RxawRSMiita)3e
zIp8K|W`JSNI75^(6lU8vi;};t%VNv~CB^SuKl;O7m-83wP!Ak<0C0m_u56KNIYdxT
z%RSt$vdh=Y`>GH)W2S#nRARp>;^I_udfpyebiCuQ+?{7a6~n+L&6{)dwC-R5f?(NR
zM^`Cc+`UbBgY2u;=9aZI#`P03g<M+)T>!}=ujp@Zrlc%$rzX*vrV1M0;!ZK<eC@O0
zx&YDDHk@_#<E$v|(D1aKpPvZre>*nqrv;w%x(t}OHeE5&^xg6PtES^@muaapkNOpX
zW)1~%0)%?|P4BL#e6}28Q9A}J84;MK7+K22U_9i+lQmh|0<yGaBa#C47%9y(K-7=O
zCc8e}tq=-2=_tf;W=EdvmrZ+Y2d&{rr)Cg1RCjajY8D!YD!m#7lsN3V@SebxoFIh%
zL4X-6MmL?OK_7>zPnOIli>NJ!XGjT~<`hlDEj8b9?Su;z3;FepU4NKP&K6OM`>e4u
z<HUl=SeJd!M)z*%4S=?B8w%fcSnzSXg2lsATu)v5c}ka6tpGC`gNRb$Zm^WoWSggQ
zTJTSx?)cMBuJh&eUiWSd`X)Ho=A}E-<XBl=Br#@sIimS>C)@9@HgkI&<>7Xv&+BMI
zO_#e&!hSmL#EI)rb?<)GeFc3pswOu@KYUV@6HeQ7YuCDYJB6N?r$Ex*uvD*>fpa5&
zH5G#<(B|05F#0)c>^Av_o?dzD&Yq7+8?MO32AJ&Qk``08tZhS=`J1suup+U5wvsZn
zBSV+1MK(OEbiBoGU8~EJ#qfP?C7rKTxMi6XeNH2_1L-VIAUiid7>|&2FFN(sx(h!%
zA^i}Z46KYo?fizMq9WaO`E-*1!D!>EO87bN3mCpEMRa&eWw1*k^$kOB)rK?S<>c0r
z`~9MkhLQ1Tn(z7mHQ)uZqQd#}^*F%v6!VF<UsOZmS3T~M*>F|VunZl#ZbzYX)NkHz
z=++3;T)_nvj?^fCNFvn&G%M4!4&De4Tk;d9U4{(dndN3r2s02*=}IbH#!7({id9X>
zzOpi_tRGo;;g)t{Vv#pPG>nhB6$c3^!OFrSW2X8bDMk$lA;Z*ZajUnM<5RHHHyU_)
zvOiL=AKF(v`M0G&pAwi8*N`b$*O0nq)%f&K?nlqx)Ue|GQ>bTX_~-LxH*IIPOzbg(
zdkP@XkWgF5$WVjJ%S!DNf;?oWOB?dt+&134ZSN3!V#ZwK9dxdgl<Oxe$D`oDm;s68
z>tuMGI+mOi;9Nx8{P}EWsJZnum$yk`XU<z+9%4gx#+QH}Jq-@fuq)R+*!RItP^8h0
z+Tj#!mi8Q2J&8g-25XolgJdB~G>APOMjVF*Hg-wI0}ePk?~4TU2|m+vP1ARAA&2!i
z)8z+~8731|EPCt;`@yJ!eY=j1iz-sc1ya}=8Vt?K4%B!tOgViSIQm0?yszJ9$2d+-
ztK6xjWL>!DLqn!QN-SUoGNrz!Fw0x+OhkF{<M&U4pr06kr*hnI8g+U-OmlfRyxPN6
zqEX}#z9;d=5QW30*Xk>lNospqvuVE_!T-;nb$>kbC2jrdQlrw`#)ggw_^i!Ytv7l1
zye+oE>RKjmpxqfs)4a5bFa{6?Aa#Jip6z8JJMNI0o~VQdp(xy5l(53c>DdLzx9d{X
zZy`yvrGx!zmz!0qZ6R8`L1cpur)q*ZkF;Tt3zxfXhyg>vTm}-h3z8cs@XQgVfRj?F
ziob0m2<&S4nGo9O@>VqzDKho#0t#eFBj*W@W9aF>GvOD~-6v_r$Xx+zS+mGVQa`mT
zA5s5oehi=QYAn-)K|9_iL56dex&>QO2JF(gkNZ05?B>Lo_Z?pw<{UTH-GfBWJx{%;
zJ{m+;?@!2=;aFqEbag#PAgrcVmIZBB9C&C{TScQlYHcW5-xnWuE3^8~pbb=_@S)G<
zqQ=G^kI3e{2#TGia7}Vl5rvO)a{L#0KNW*_$cg)AR<Op3E-3xbS`{1i!P2^B@+0Gq
zCiVc|&M8(MxSfI&0mv*F`E-@j!;T_+7huo`I*1orTZ<ap9UIqYLCeX>;lJJKO-~IW
zqj}~%hd9GRmD}<TKL{`|*K}&J_0~{HDAqk3-ZCg{k8+e-4Hcy3Q{L9@e-8lS|LA?g
zTiVY`q=45>Z9l81e6i;qIIFH^=ip?u>n*Sw08!Ed**q><jpoQGQk)JWQvC)$w35@(
z)HF2}n+g#aQu?kR6Cz8L7x2(ekt*x~{rSZWxnYH@lP}J)=9gkBV&tqwrK;R?bnp)A
ziWBo1@>>BgD6Qd^9muP@riaU%TibORw<+KR10-0{Yu}?uS)H~>v%OZ`HlE)N0ruKK
z6!6T*npF-Wv86OmZ8S^_MP0=q>ii-WN)d6=A;rdb8LRt=Ka#ezFg3=q?}EQdYP=u-
z>@9!;Urh0N-gBSoDdcdDLnhoo5w6MK1u-4)Ogfh2VFQU%LEsu2D~z^>AD6F+=>Rm~
z%g!3A#@3+$>^eOeSuU|~-7Hd)VK<-_{#)PUD7*I4>iANv_Vv(cO54o?n+EU-`P@V)
zL+AJW^?{Gt_W+;X;Go<&&{pm7G!qM<wQA<Kz0jdO>$`*_)7Nz8n-pfA?mKH=Et9Tw
z*3S}XRs91%lkR%a7~9@ED!L7R<G;S6*v4cZ=QsmUv==lcIKF7~$!w30Qn&V0;gCyX
zJiHAM>?^l|AN~<>(h0SAiq{|Pu^~3R;m6%fjjvK-vX{l4d*sw;_4+<&Do<YanPaG`
z^);U*zP46wYY(iO3_|-o;qSy_XJ-e39<v)8{5xF(yUa|zK-TN7dlZM>4^G3cx0MVI
zn`Nn%9#H+3P8{yJAY$M2)^<;hq;ftH8p`$U|2kYo=^#_l=@5gWqmwBHK<U|Am&S-)
zp8OzGG~rw#=g~LiZ7C90lh0vE6xK#gbVW~F5j%fUZ1H&BbK;XRXK!);;rY50in+qc
z=J5pyYPIoRA!x}<i~9)4-!$A@2m7v_SQ^Vyo7eYZwjC(V4u8N+^_{vaqbuy{b*KIU
zylfzh$H+=9-6k(Ba9f?_3g*PeUe+V&4lcI<_eZXC$#orM8#fBB8Ou<2+Iu;&k8qgm
zn}Jn=I|pgu*Q`A1Z&lFI4A4L-uw~aW`avOuo!?ZPj=M?t2v1X(V~H%CYk93U2Ag)>
z`5SMqw_bJ-ZTlaJnpkL<U_Bg6LhLJlC)o+if4)-J-?+$Bz{v4c;XDOYUyS&;8IS%{
z;9{6^mg0o{^Ke+Peh%4Ls}fV}HtlCh$VS&aNi>w`skC$J$&3_ygVxCG;pR4%B7b8^
z5z?DCB1+9_20OKT8CvU-8;}N5OpTV`(vnKG-wl+Q!8!YGE^i`Y<z#SK{M5pk>%T*~
z!HB~q<bpOz;A3lGxWMiO+EKlLx1;}QNgXvVYgT3TM*R>`QSJ`=tY|(dM*VTn^oi3u
zH!pBfCQ!aa^O<oov#U+r(Q9ko{JGpH7?|3kj0~dgu*#~u#e3Xc{;J;J)8z84X(K&D
zno952-Y4Ka3EMD*e)v=UIK*1yU~d44vA`fOwNhVi?9N28addcv*;V|q(zXak`mpug
z!hhxS&6apqrIf&75mlO4X&X94f!~$$;T7lN=uRyj5`WUWw{rz!<5PMW&zhPJXR2>m
zYKC}U7nQXaatawZ-=;^C<f@OCu+?}@;to@f_uZs{=MOSGiZNIQ=c7vW`rH>!yD6bK
z!-?j!AF@J1sl<Xdm*Fhsi+1hnOzw2_>FWIXMsq@m|FRgI0G%0)rn2qL8BfCs-}ayf
z<k>nhG=3sOf&;ICVO>v#)3wJzhnq!!@cl=IITk7{X@Izk3)`t{rrAWQ(@j4t>YByZ
z$MbQNO-%#RX);A*X(=TmU%=0KA-w+OluDVO-0cskLOOA)8yoUwYW66}j@*-eKlLOY
z3psE_gu2zJjvv_+l5h+>gSJ1eJd#sVoVL7<S)BI7QFu>Ce)q?7zM0oz(1U$$&oG)D
zJ)E*HuiQPae<ImRq*L0<n5||`;aY!hZc5K=kfqQUT|s|vZ7Jl&A}~N@tc8@1wPY9n
zQyI>oyY6W`$7($Rlm?GfrjIQC;Uvp^+!y?>&6pe+Io7k=<UCwxSs4?0lYMnQBcF8^
z5fHLnt)@*xlEfl|=R`*6w82Pqr3%Xkw8RbBqv7okv$aK3;gY<pCWf|}I&ir5IA})P
z!GA}-AmG8w)xjas{Bx{K{YZUbvD;mXN7?Juyrc>V?l=;|I^QuqAShFfpumv5Jcqo{
zP&#6b*c+QjChorS6-v`tD2=pmuxYpK^a)zSi)W|Hx!4U56*mqsFm;RJ{GR)Iv$lz1
z_A!8Y{tA3(XDC9a>`eNw_ML3Jp`&pg-|(M@@_)E6*L45kL1(M^6=D0)8B9MhnaP2u
zzv2a=$J=&(_cwxZadDwqrb?GBWIHcwcljI_P2QWc8Dod<K^Yjz&pn*_UR5#a*0Aw~
zM#)nS#&T^%1kBNzGpvdyv5k=f{^ErbWx90LoOj&}AnLg-X<UG~c;EZ1ZPS4ecw*i8
z(QehcKNU4cHaPxC?_d60_{+7Um1CX)_9GnX=n8W5Ivrs$3L43<6E|=eY>C2%&pWkM
zqRVa}5LWUntsZseYWUt2u!D=MTZF&#G+4I&N=9W`++-BR71b0(mM@gXa<8wI#r}$y
z|4A`&ra;+1VUmnh<XJ$E+h>RgH5|(9CeI*7Z`B}xSx7}-CML%v`g_wcWcysJjYD>F
zfM@<Zf!ldw4CA)Wq~L2%ciA7}C(&FVP-NhTl8<AonR@@v_mY^caV#dg!y}J1ggB3t
zy_&9K&Cq4QQ@X4k$DOscB@92e?5p5E6|{@-MrV%1tU)|YR~;Low=$XQXbPz9bhUBf
z?Uo*xq&G`1QJNeEV;k_(wD1)d@%vf#B-rIcrYF04BpYu88^y3_-Ne`9@+5?16&`!h
z1hHPhU=SxzAETmN2jOY!#<YTSqko!r>q<`&lHb*pZM9HZZzkve&$U1ha@UoY=j<Tq
z<x?TRxS=v4uu7R?eDXvVz4wyz^K&t}iqT1p%MJk~*ovuO^78V&>;$8tU2YQCdjHXG
z&DfI$<R2UvW-!KeU#+OGnC8S|L_#6rFdqDeWyb+O<a7Bm?x*?U%hk%(nnhs-*%fmA
zj;ucK50XIIY@|4WOe(xLBzsKlh$;EG4sSWVLqUDTcMlS2D+w%7z-*!M{4JWUkN2z5
z5=<0Ou!2q&R8{c7%Bo@jjBNMmpBb!vN4bJa-G~cAm2joYZ<cn^jpp5oGW23<c0Y*9
zV1M9^>h6(dNEep;a+ScSayT!jtWHv<7EyEi7RKw%H(x)^c3$lQrv6H({_dfa;OF48
zp-On=BAqSN30Nx}*tI(MR)rSB3h)!}k@XdGh+4;XLu!*FnznCYD?pz)@%lYXmqlLu
zxH&^X6X-Bmevn!8{k~Az8}NM-J43Sm&){61Pnwq0FHj|g5L`|KEI;X3+weyXX|qja
zX!R|!V;XE=5~g4tFlsyYXVWrfgSxM;uVO|y^dzfaduiZ(6&aL^6e+}65eQW<gM<&w
zY8?*ReR$GzUcc`+z}@fuF5^nC-cIC6n-WkI&;bqv4oV>ic*P!Edybu8A|<7)LaD-Y
zu2G3MaCkEAcb(#NIA4#HD7<IVrrIDCokP!k)vW9Ns?*iY%?Y%Zxqt{8R=+pb&W=-M
zG*M=Mpl2NSk(NOc)Ml3a#z3FiK^Zr$>Dd9L<{58ocW3g^n%&~c%ARYdQ|D&!KKyd6
z;mp$&E*91gc8=7dlKmkyJl6$rXYY&+_FI$jvQHVY74}&U>*#Lo5OFD=<XlhK^Ufr3
zDl2uUg_nIib%h_8vGqOGNte}xo=ZqeSpI*by8evMt=q-AA(U@yHVkb>SL2k6X7e=C
zQ+dtp+f)t8<3lJy)C5f_JY#B+;6v1O<=F5SHO?@|NtTR^E6#UVox<FJm`iP<UWb(U
z!FP$-t_B`eX6t?^e_v2>TAnpSJ9A_5nA!U<ZQC{{6_+m9sJyD9|7LsV>BN@3g1&jl
zR5n<YAq@$PK2kq=@vCCoIab-z<hICjeyd>u-531LjHWbbXOzH;1f4T_0`|OhG#cDF
zRx~EN7WY7YCs}xrm47i{>*dXk?NyZ>);dqQs2m-la6#+)yTuEN!>7*9GY$^It4*0q
zP}b?EC}@}n;DbXkmFa#VKJf4%Az|a&V!AYfdq#{Ow~z8U&8Sg@b&k8D{-5`G81bX8
zpU=HBpYPX7Vq%aS92`ET4C{2zh=E}vlz(M^&aUGZwi%OUT;eNZ;)O3rcu7F3xk74h
z4OPVIYIV4?iKZ%>;;Ai^S5TK06vVu((RTR@30%TMlwkQj?p-(d-oir3%4W1*myz=<
zSQei1hNbo&yMLpn9Vi*IwMU+t!`nNIkxd*8-M%DAolcmx9NM#zT}0A|9bQ~XEwcXJ
z@p(G#+R-%lw%b)mH~ySU<c)V}-5Y#;k%#YgBNF7;+urOCoE|`Rnqu~938Xx%8}Vhj
zGwhz{tq>ia=6Tq53s>b$gfLFPnW{e6^H;$EVeOb+dd9X0Ltvf)zsFTm*HZwNBTB6K
zgYjlk&Sd4|p+q()d5YE}b+XylYNu13*Ut>i*a!hG>g3y*S?8@73g-lV*R)&qQ>b=J
zNJ->Z+WlFEc^Tw^<zeG9x!VIi>r!P~A!xs^iIfFG$e)oqY8u@yb+&x21wc?+7zC(6
zZlU<mV5>~=B9#y{-^WVB!>nx}<>6s)_!Po_KCW!vx6}Xp{#80HF;Z9E@#lH|*gQol
z)op)%@?%aQ@Xi*Q{VS$K6A`j7bOqlwaD-S=h~<BLSO6a2q|I$@fi%ot{lB4ouYI<Q
z3JW1x*K=?r?wlG{5U}lAvyv2fpyOvoAAcJ3SN&DZR)hu6?>>5#*CaV|n^7td#jhWe
zW5p-Uu@gX;B4L&V7w(}`EC@SM>p5*+pUB|(I<2{m#1lLG<RGN%s3<H^&t?>As8ZhZ
z*#A>I#7x>y9`34?9DzBS0EMD0$-*9$!<sab!fNJA$XH7(^~zm3EtHdrnySoF1HU45
z(cV=SiG=pSOn_p8bZ{Zg)-jIHu#Ec2gsgf%lRUqwp09cs^wFSzV#?+r{W~llBQed$
z7e_#5$~ny;y{>~##>8>O{`GQMO9cF=ufvzaJ5lbae}U5Jp}Ug)L(AYF=FzT(fUlFa
zePQj~pY^#ks}Ff7efSgx=z-{Pxq#k~mNsi`Gj(jo4hhjlvb0G<MN9L~O*;D8xsF`S
z0FanShq|3oz>zqotwu8SE}gD(WUl!5Pxf#VXMz3n^t7O|GWtIfe6`U6WOpP;Wip(O
z!DHh-`%}~gYJpxC^`q%R0fOO#?*9@-utay9+buy8=_$wsSyZ6vJ+q~`<!Lj9W?i8u
z0Te~t1fISIQ4ruDT2(HMVLv|@wY0ezOG6`r$AuDP=YxH}Y~4<WXZ{B&$%T+D&&=jc
zt2GIpJRxtvl=12a!ZQ(V6-S>BsNYr;Wm!fN$e>&!<!CwJB*xisZ`x-w;^^>((vNq2
zP4=GVdY}|~p^NCL<HGzc%h!9p`epfDH`hOROQW(}a2Iis?+GcYi&4}D#~7`!fnC^w
zLd1a`GE+p7D-nsXSFW&UK+eSl^6{NWROVhVd0B}Z54G`byzJln)_8F=Q}F;<%vqAC
z*sNJbj&s}OwFQi)ms*GcqEL`??LcG_OpSC$A)D2y;ch~4Hv1OnIDy08Q;;w4)nruy
z+R^$}5d!XYZ2AFb@l_YQ>4IMToS|x|iI9TfdUYd1;BFGx{LPE3gC$l2US9??lL)9u
z?~4ZsA-Ed5g}pn@<7`<{3=n%RABF0SKK{{%|6sYG?yP+;Oci6}ZQ`tV_>>N9WaW1<
zS9D(IA5@=KciY}}{u;=UnilIh8zJ|LSWjQbfYJ{#uLx<iJO4mNMrLPcKd^$pX3!a0
zcjy%;G*uIY!;}zF!R!(wPDu$Z>gTlm*EbCEVZ`&_!KI|6@V_1;$!D;Jo}HZuROHnC
z0)c`S*HKS@{p2Z?;A-R8V9^Qgs#UR{x-1P7In`XGGTfN3_72~8A;h@Q#?k|gaj6+`
z>}yfMPe8`lu|;onoh10HHxkii!%|Y*-7#|}ST5*BZ3?@)2;24P`E&ci{Q{~443>&G
zzQhqLm+~zBV8?Tqfy=CaO&4}A*ZU7o?iLdj<h$yo73cUFelL-W3fUqm5&{FsCrHnA
zUi;o>>^V=c#6^cCT+{-Nj7igcSz(YzWPSq;`TjNrSVFW3Y{uLKYi)D`gY3IeKXvFY
zk49sd%$X%N7_OUjpFZS+zXs2;WtMi%;~nyggxAhLD*S*S$ueWX{O5mRq<cR$M)Z$x
z7eZ_dCu->+9B)5Emrg|ca;Rc0T&V4|KlwA~UdLT@Js&321Z{mDZP>W4wy=gI$Gcqg
z@`eq$<Tc%6b6xHt{RT`IGW*}{mIZ&nA_0B_FZ}+#4(i%fwW2w53?5{MuiU=9vfc9h
zs0r{}{}a;iSM;V)%;t3@JBaYtGrK4p$jZvyWXOH22x3UOySx8eowv6jn`@*nt4zyG
zN#2|hb_Mwb)6@A9J+H%*|4uF-19=Eqw(GpihR3#_$r`F-t+%RBZ$~t2s#N3|iu$1V
zN<m>EQXUamj;2%F<|-QJps;hBV;lb%B?$${xzUjcj<L}L*02ziArnlod*^xk!uAJ%
zPm$p$iDtdxX=200mg?bjy8D>?;=!anM-|&z`w2-`+ny*)E7rF!zJk2=^+GkG|7b&C
zPrOCLR-Vfq3=c~%3UmpG%Tz2p$Lkx~y(8t(GZN)Zl8mN|IG34^UfI{H2R)uZ7}pf$
zvTu%#&w2aQje6@XhMd=a%9|NS?9Gy2KaGl7Q9yID7ht$1tI9SPv&&?@Bxs>{dVf_c
z>7Y8nLVj^D5u7f9UeSNfpfb@T#8dn<xFY1^FV`P|9q97RP$rNIF8%}_8A%VtA<@3C
z`AV>eqb=3j_J%2mP{zT&FqV}@Pr)cuwOshjh$-XvYH{AS<8%)F@zKH^;9d41W*9od
z{^IqtajN$+1OuoD;{EN@kVKyOyX}oz(>}i3^Z|H}3;&<Y(dHr0!xhd3Ju2v(fK)SV
zANtJnFT6cK-x|*iL)M1BTX1OOJF$!c@h#9Su^LtF(8YQ1R^fsxOo2qK1mrh=dU8LS
z$y0KB9P^csUl3n$11S?T{P##6TV7Pv)zu(>sJD*~3sSI}l0ZsPykMr^(`xwXLRtK)
zD#iftPenou`Z}2v=TilLdqb8-s|EGF#Zsyj!}(5gZ)I#_aAm}kYe5@7x4wP0B5}iD
zknzb$Mclz189e;L;_M<)19KwOpK^-KRLUgThH9?y?QSacpAcgM;t{rH(iqGN!Q;c|
zRPyli>KDIcL#cF`&(*@d$IiW7MBDma2n`W`F`;k-Tm4=s*>R&0H^b4`?n(%Y?uol_
z5Bm4I@RyNU)YJnk3|>cvDo5V<gtuWrLP?3Q(%%O;a_`soR@d40heoJwMRYtu3G|`)
z?}}xjhfY%Sj^o40Q#rBxVLzUB6XuXrGu>zp`yHi!7YY(RhGpnSRDV`PXWs?7kxddV
zDOba_nPSS+HPDTB^)eF98aHlKlEBv&^(FQV9sC`{e=!$=ooF)0Tttc>9B=zqztCD?
zNGje!vZf3y@J7hS;Ty1g=WDVKYZt4-echisPIiHc7CmM`=Z{L>$E?6d8`s)?&X;SE
z=UmRqi5v$(!XT+c`sjJ&l$_t8a*1JjihfltEBYQzgUDPr-PeBc_cKBPv-=7Q6dCg9
z(ZjRs$b-xv)(y0h;oD!I&sDmuC}j(g6f*3boOdNmevwH^f*Bnh9V`}CxDhOLPY;yp
z23o|sQ_B=K9UQ!>FcN$f_3$#Ha2Vk9GsysT2;kS#mEc%S$MpTn`!nCM;Dg#cyw@3p
z(eDH!yy8W$Wu(rRgcy#R47bg-fzg!yObu*eYT2Km+9PHa|CCeXq5{9`P1f--59-u?
zhrz^>hlt>pAtIp&q6neLQA~36cyr(Onc?Z({&bq|-uyNMMs=DseJl|w%h;;)#m(h6
zee4^cbV$Q8f^Vxeq!r8pV<YBk#Jpt!5zRpg6Mu_xj2?pwFNbY{^zo=oz?pNpqi7P*
zJ*p#SR4K&T2nP0@=D+_1K*|lg42IwKIzU^H%{4>hd)d+6e2};6me7w&k=+K*)qS;d
z|J?6Yu0&$%Y(x$($*fLMhJ!>P$9mJ;jFCCZ_FgUdrwV`EKYXe%fm?^YM@?BH0c9**
zUM&vr%)WmBE*Y{o-!r6Bah3SRiwM&^c%s^cf*~S(o^c@wfgV<Bc&^(~BQ|;3W21Uo
z>@ptiyQ9V6Fu<_k-jjK1#tmQ#_`wHbP5-egDfu}xzxqLL!gU+>`|z4Ed&Xkx^{$&$
zwx9&_^EBGbXsWX1+_G!A7WIpy?vOP8D_+R|V&$uyi(o2w#$@ReWA5aHTDQfvptcs(
zM4pX0CN563T>a0I^%M){2=3V<@8IBIm40U`-*s0Kj-hX&b+as{1ZK2EDx?12pS^Dy
z|Ebj-ot-o(vQ!rozf*y_cVjLez~}dO>Q*;pIEddQMv^=vO$nY!SCD{Bpbe&17i%nH
z2f8B*Ct-JneI5}ea}brxFJHYu{9t6;4xelfG#E^TAGY<A4&gY)^&!hf$T7?MPd@)o
zE#DQ^R2!_T0;1BTL+Dj0Qj}hl9zhTkqzQpgr1wrJBE5+y1OxcfReI>52m(R6^j?E>
z3>YCmAne7zFZRXW7w6gMoXhphTABIg`M%6rGw=JVXBYmmgo>(5&ezrT9c7+2t}YF9
zbW6?=V$4wc46_MhK?+N>Sdb$2L|~Yhx+9F82UnXIXx}Bz=!)X&NY6M>?9-&?;>^d!
zV4neqgy<zy%IE+qZ3I3;*js~-&I@Fd)G<Y$ElFzg<L}X(=kDL4DyR^jyXmf8PZX%i
z2+n>gP8#@0FwB3~_E@_#XmhAJ3*TgbOZj%<qE?<1Jn*tPZ1@u;WB6vccnJL`Rs63!
zwKa{Y&99qStm6X8PY)rJESxai22%tORCdF;%7c<@Xt-|_k{I^5==R>;-au{+(Q*JG
zo0=N-x1a?J!@6Xdad?cs@rw?`HaU)|pl16;a~Hs3{;u;DD|mudWB7)!peU`WI)ti-
zTdY%1Wsj&M5)soC`5?EcgZ3h5onk;-fF%=BMz(R|HEmTRe@93x6$J|jd^@d65`CSt
zNJfUL0oU0^W}2=dAFLELK?<c>RA007LC52rZZ>4_x4<0QiFpbnew|Iqn&O0-rh%N(
zK8i2duUhcq)KvSssqXeWeoHo}#GB;;`k*0o?WVUTv|8H?oe?RvI+B!e^xE(FrzQRg
z?f4{#ExkxS(o6*3-UllLP6nmc(K2023IK&UlfahFWqP5hm;$)-dkMB~-;Bg@%o}Ir
zVoN<dk7QvudD)ZxiKyxVVv3I`@jU#Wo$(+Bp<Wt?Qu(LxriW{hWg(r=q~0*WQLcnN
z^3t<SJhbMX!mSKr5&ew<U2`8r*ECt@z(Dv!=?ff&>jDn!Tt`PC0L}ZxMu(P^AFS4D
zC6tiAKFhfADO`n%Fx|5Wd~{ffr}Kkr@+GtMOsl3B0^%y?o1$O(N{2gVF~>l89XEwZ
z8Ax<3AXPFi-wJp+&D27u7TJ>y-k_I}TQ-96P5=0)UW83@7jbjYucY6=fCPnK;{!J&
zn3SlQwdFQ$>h6K==gcDmWJ2=&%fP8GlIibO>oz|MHAnXp%64}}@$8B4H(#BikL|9h
z>ff)!57;c;T-1~r4TxC46BAyRdN{5%q>h+T3ddZHx$nEeQ=6go>dUxo{twBb@`ta)
zCfUmB#xd|Nb(@2%f%ET0dgqDX+DW6!w%^9oo)WFDhaFW?&WB2eEk6wor7_(7-2A4U
zC0{g-6deIpr7(~Q?R@xNPHX$7deQ9~)w4%Ks5SZlWjx39KYk@uPh_fbqRoe_VKpK-
zL6Xe{?W(Y2%Ee|+?@D!EDG7=8^+AMu;6AsqvhqNdbS&_qkkHLrXP(>{OY`i@^Bb=t
z%xWAYVW<65^jS%QqNYl%CpHy<jr0jQ@4rWkbgjT<wL!D@P2bFzCUia8h539;$8DJ(
zO|npKwcw=aKEcQO6;V*noBVWLbZ=}X57P=|1wSo*)}u9QaGMYCWZQ`?rYHPGe+V4b
z$!-<e36PnDSl9nFP>>r8`ZUCWzmglSIP5vo>|l5|2VSF-OPKnEo2MbBZ5J3AfhwL-
zi`hU%?=;K|g4(Y|)^!a%ON8Efr1R>Z=QnO733!Wh?CmOdZ;fpd*R<hYz1?q~p*lje
z8eCV}1Kc5Y3&EdDq8_sI4TEycv+wuV7m}#faBC~9=T}cg;M!QlwLr&YB~m`!-b3fB
z;YA_t!(BN)(tjA#gVypD>w#HU2OB49tz6V?q?Jo!Z5r_wVpvIy4Bsg~8>H_SW}1B^
z5<?2-Tc5T-E9W>=Dk{a}G{C1zx_KRrE(CcRm6Vfh1m4qJzQaMlB9#m)!T*+jut0%^
zhQ<JM!SPX7Pa$F;#NYwA^frqD1ikvE#}40$UU;DF=H-9NR^pYwYWpileE@!;|9Zb`
z3%^7dzdjkZw=@3RVmQetzTWmBgfg;@RFES;Dx)0Tx4am#+GSJT5vcwJGRAt<?7<hq
zoP9Jz-&&{IQD%bKx(mD2tz}pf(i@Z-zzH4m%xt``6P#`$lq6~PS;snH5feJQ^vMni
z`I-hT{P>eS*(h5&*1psOvhoM7zvh(lS7w*XX6tLR#!yXFbC-cC5-w1Qr1%`C7uEwK
zCg5|;FDhqVeA1T`wM`O`m>G1mgnME<R+9fT$-Y4w-5RA`MgFuw+PhG6zr|vI+sx_2
zcag%Y;;3GiDRJ4lMsz$)zRk(8yX+VnypQ>=zB+b=4*2UFHA3}U1<ZtoN_c8qk(&0}
z6J@-%+Q*j!nhk9+*xNZ;J&iq?2tQ*Of$e0O-5oKcyt$W__nk%hH}jx1T&q1o?G-q?
z$DYfI?>Wn8mV6k&CrRaqwElvd3|kdBc$dzJ@w;i1PvOGz89X%-JF}UBoP1i9VMP11
zmWK>_hm<KQ&+^8mFxh~|PWxYcjmzOhp8sZQWdpZI5-!(eYLCZ1mux|Rv&Al6EjkW#
zVa7uq^EHX`XpFf9@v)}Xj3tES2*Z`=6_~`uCC4@qc_84O!g4INn|S7fr6hW<({4N|
zy-E!gT@(m(VLj5EG;ydV?)$zIRWeOCQ5x;`MBe(*DB}p#<UxE0?+TZOcJ#2RhjfgN
ztOR-oaAAdMMrIyFo5)lVG$*aR1fmyO_3nIlb+6cGv7Gh7rOei|Ymr7pS<I=9_gv{3
zB8CFPL&^4ms>;p&bg?B4hGYKe_gL0_M@E0?=sxi$#NV64Yt^eT?|Zs`yZ{<wfQYh2
zvM83bzetsUosZ{E>v?&yguXQ?302@Mv80r!hO&_zRffDJNmWLl{puI|!(d>(6jqq2
zm>U#7R`MZm`I$#iiH~=g2rsY4fEN{$*Xr?L3Xi_Drh`8NIyX!*32X1knREap5t2?u
zd}MubUkCIi(!gci?4(uoj*o>$By8f5$pGsR%8W7!oOThi%ut`~Pn+8OD41rV>wz{Z
zoh<IU%g0!9n#ojS-B667f(w3LKT2%SX0Xl7m2>mgD8AmkYJbsZc%!XrIh{T08L&5Q
z-LaEBY`>rW99QE++UQksEs^I2WxS8mKN7j^Y`3wWg>H8LEXGLQBC8*?_@V14)^W}4
z!SHM5+#U(IUv!~CyUknwqDIj=2Bv|$BWvQv%-LdOcvWAme^e^(dbz3o**(>6rN0b3
zF>)56LjEb<uUN}1zN*ItIZRv_RmolVr<piGtA_+lor(V@bXi!{=b+-UTT*r=mNVzb
zj|t?2pf-PMoPu^L+|LH-9#<W`loIO9X`L{<jWrvW=<01GgCjNJx9R^RMsCeF;u!o>
zV_aFqaWu`rfx(68C~30>?bFirP=z_D<rmdgZ!$$S0%?ZqC*rkW_O3R)zGacPY-Pnl
zcgLDah3Jb`l1U{PH=ctY_h<JWwgj8`4Ln6wUCi3<>Q9|bjvb|+fK!d`BAppB^_awy
zIM^Xuy~OOH*?msS?5fXC?alsP<ATU;3}X3ZWH^?$Ktqb(A!QbQ4mRbrtFZS5Tg8Mg
z+IQR*(Cv`qHlChmu&YsAr!@Rn1@b8t%bl8sYaOPksi5<3<~>8!XSQm?IJ>_y4;1Cx
zoZ|^9UKy81X{FJMt|Hv?UJ>{5mU_uk@h6Te&k@R0gmrj=RsmX-v4kCY|Kfc)DoeaS
z`H6LMj>qC=E1m_UiJ3MOsc{~rG{JuA7ACuf5hhK^e?qvo9q*FjAdAue(HJ^*Mhu@8
z7z<UO^s}YPRwznz>!e^!QM3BYKaX^ZgGE)gP#tQpv9c`BSa_5a<UZYx;df8r1`kJi
zB(Wc8RCfx@oE&0G74DNe+m2S>Nv@zln(<AtILGs`eKDF{N=>Dl7&1F9X|NUf;QO{X
zww-j4u^r(!#dgN(u`V#yvC_~&KP8>nsfZtw`Drj5LtY(%e|L6rqVY_zCNiITLkYYZ
zuWU+Q%!%t-I#)jIj7_}&=N7i%H^chK(v9!lFMpwt;%gbzO#x%1rZf&JlwE&VH}K`<
z*7p}f>E%oC1tTKFp@a+X!8SpnR2{%S^g#D89^cqV?ZuHk9+%I?F%CC=47dGS+eG)Z
zj*Z{X)u@NS-+J{yA~(@~iSXlka-COb?fy(=^!4JphJ)wfLVVSEoFS)oQ*vU>@0sp~
zc#{yOl=V7-Zm|Fv^>_Q3oh)r~GY+b){5TFnicHW_@bt69zjyM@Njis0kX~Pv%m2Hk
z^;!`d9ga#oI;6o+Qxz_arC@`lv<p$@MQGh9<NTxBUfSdyY<ohVwRf>ui7qZBp=iWs
z{VnGq%EvvgSzH0B2npmbd8@!>S$dy*p{$kQ@49?+swW1C@OQX(Q@m30pazInl@W9&
z*ANuL4;GHjc&Wa{#^|}0Gka3)9pV$rlN@%eH3c>gqtP>8+D9)-jJMc-X7YL!_&zU<
z&9U)n@weL4->`cUA)lEuHQw@53O)6!pBa2t-vN@(;NGDIv$+^2xv(cyLJF<tnAo-@
zl>&qpMDiHSsVS#sV8<UCGINE+!P9j_9_QvG+P6b3z<c!r{VIRg<QoWg$~nuc6Cnm-
z-d%?8ViH`_q~!kKTtZdk(v2UD;syB%j#~-B?o0Yga!T$$e;+#uwlxK1fk8lb(}G!F
zAT*ewh&;T1U|GVe?lB(Wh*NvIRwcHo(3gbvs#!HM0Ev5%&gAK>O&^Xu;5T%EQ44*X
z4hlP%r?o!8y;w4QuA%SV1F(2!RKLF-a~v5lbZ`_{nM{t#9&uwyPG2`#sG#EyMcpyR
z9BOH{+eO_X84LWVkJZe3Qc89e;`XrVd2xy2OR$d}<ZV!_zn8iFy&~Q&>g{43S2PXh
z;Qi}Pr@Orii1okE5HC$JuCge!IYm5fkX68OShUJT!l5%#A!-7?_3Iizgf4`pL<Cl!
zz@IRU`-v5{gIbhTlNO4k$e`buLif>_m%;k4e;SF$yia)Klc}5uGl70XRx=MuvTnt0
z!-BKX*X$03ov5c>cRA;#t(sYdYv8mO+mEJe5Lx8bcE6!C2VE%G{-(qCPYc7@cii5)
z7=P~*o)FICRLqVN29FL;mbet1uw0i>>Wmx|8e&*BVPNTuU6M-vW9SMJ<Q1yKNQo43
zDux~HLQucl#dw6H%Yxea9EY-AOKuHvVtS19O(Z>4#L`luZ={Pou_r?27QCe8kde%c
zj+@RRV~otEmbX}M_JPDr%R~$hWyCg871f}<BK@X~uiD^L)3p)OG0v-!XgZnMtmu@6
zAz{z{7#<l87J)B41KH+iq1?sC8f!{LOfw>K6%%r`Hqv``j0kjk*n3)mt*-^iW}ILs
zq{JXftDu0Nb;{+w$$?YLe&5m*Ta>O+e89|5b!BLjvu|D?_9p)5S@U^G?RhhP)p2;O
zwwzGi8M~D=mLgxIbAC`F-x8u~xI6k)=Uqj?$b9ueNLf@Lu6g=mntniKBOBZxesPdL
zCdjLeX(UY)YB=<odUj4Zrj;3er1s<KLUqwMedUAqBum-e+eo36_2k8*d!=>)-qJGC
zQDx(caOzp%az)BVrgj!`2=Bb~6_$D-jzIR+D$=t9_T^(_8;7ifbZ_oH3CRP;&%p-r
zEbMF3ilAzkMDg<*EESp{78W$CoN4^%gpx&99!E1IT$RUve!Dm(jo(HtL3k#@d3T@s
z_Qn@`7hQ%Z?w5;mNve3vBqM9XP<I-iA^Np8EvU)4_qaj`SuLGc*NA3G7Vc0+rkzrR
zY#p~pw`?tJ(CT5)0x4;S-!R?bZJFDVzGYeq{Jyikj4v{io1C5(hT6aH^HKCVRCwg%
z?aCm;JDMQqT1iVsN0${kZg!WKm$%8V3b;(07dDNHi_>vu5Y^Do;FrC{1eo5jlTiS7
z_9nlM25f6u9cqBhy8y!TfB)DUZ36lULWW~5<I-!tInu7zu+@O^e{ctF!H4CuU%E_>
zy8Hh*s{eHket>O!eHk|9HDuK_)*7=u?^p%Sf5U+P6@}PPy^y~Gj1bp=Ccv?V>{cOd
zkEF|F*$SX;<FGSX{`@W@(4_i3-vqFmvlGQpanJPS?eh_Lq_!?+6t0UctPu?W5!y0v
zCAyMeN>0PMRzK&?m%w}Fl70NR$jIHzP19rTtgg>*I1qa-c_A*ugH>)=3>J}H4CM0y
zk$3_@c+a^tJn<b9Y&9=Ozi9iz2w*QRw3nm<ep|Y?9B2VO^>E8MK`AriyNo6kmc7dO
z`LWPFKCY7+)~BPHR#OL@!J9m7#KTIT{pF5z7l0L{`ts$=rrL&ymJ!_4<0)lh(UeFc
zF|4BP)Hw{_y!6EPnZ5!aAD^XHH>1+gH1x{lCwY->CNl8A7GN@<f!2Iq8;mgB9B}WF
z2ed?3#GBT>8qtuoSbJ0NG$vSq+P-_VJA;c!HLjd$BA)ITe2uM=4JMlJp-LcWHFYji
z-h&UOBqSuRw9hRb$pCXYiIG7CCrh8f2ZLM{0pAD<WtL6vBtQfg&K^l?;-Ab*PTytX
z`a~+%0Iq#Ii*#f;lf0z-M&qvxi{llVaGiJjSF(X=f$MzZfgguQPYTE7z{qv3o(jos
z2kQBY$8XI3Hc6X0ajDzMz3#ETiQ1{aB#2Z%Adm>|8;yTQb(>Ds5ke?4q2$FytFZGO
zYZA{%Gso85SPE`R^@`@-D2F?q8$&rt#A6Kos8t&MOndv4Pv^UiO<TnXKqdhIJN+5-
z2utr5Z{GFezydpCJ^j;}o%C~2i~6KF_vYj=eMPa2jE0z&A!`vUJcFqBU%*Zp0jP-p
z5T9;<&gxXgq1YXKSEWAeg0Lj3{m|O8gX|t*#aWmsF+1dU)1a#A#Tl-rJefDWdniXS
zXf<BwiYdzXPQy}|A^?3{p_^&~l4=1U$0wXWcsC6!5%-pm-oG9LEq5#Yf%!|TjY`JK
zknLN&Gk<>dUt-TUcXzWli?e<6g;$fLhpsH2;fBK}@Zwf2jVFYWkrC*kOj@t-jcY2n
ztYOcCZf33n+QVQm^V&F<%GL}r3Z}KuHj~Vr6PNCt+}D~Zmm5drxPwODS6bg(#H0)Y
z$RlbW0_p{e>sSNT^S{vPyJ@{&nwt>_kG8CuVHL$p3~W=KYgHK=MAL06nTe@G{a0d2
z)S?}Z>Qm4Ug^(rubU|)JQ)8Pmzu$G1xJ6*Fuo2v1l8HZ2Wb4^Ml}Ivqk2c{KLuP87
z=&x`cx0Az_Lyk0L!5V9Dh1@A+G79-Ge~*s-lzYG^BI@g9+V-RG>G`H>Xrz3>z!siW
zy-i2|_;CXuiw5}!d>e-S_8EXnLh}&<yxs$PU48}~YWlap?>v8fc!7iw{C}W3EqzBc
z=@&%l(x49c6(P5nyp4cKw7n12`6b@1v;yUvkKpI^)_XF3`K(~8ajA*dMoxfQz0`ti
z+X2<B=<gb`x<F`IKY*k~>p2H3_%W*jS>r}5`kfz6jg5>*jtt(WlXnn21<nai`XtJ4
z=aTcmGdHjq!|o251y=d5_hQCN?^1W%W^3asVS6re8*mkv0>Jl5pDd+K1D6~BYu?(O
ztxN2`_bnUfTfTU~EIaQ>Qj#0I{hu*775y8--ShMFPyk@$2!ULIQeNU`<#7Yjz&YUM
z?a?cJiLZSTr^oi;arC{ggT&p1W@e<{5m(^yRZc(->cu&#qCy-{$XUgVKc-7Nt6lwf
z)ycr={<B*%%y}@oJyCkGHZ_<ftqs&2eVy{ag=d#Pm+rKoPM20Nk}#!=v8Xl%>VmhL
zQTPA5%Jjdk0sp;xBKBV`H3G;<=-h3fj5?X=W{Apv#ecE=AL?fke$l{}4=As8-cSEe
d7lXK<A?dgon`vcM3}{MU0c+}ORH#8-{|CjAhL`{V

literal 0
HcmV?d00001

diff --git a/man/gt_nfl_cols_label.Rd b/man/gt_nfl_cols_label.Rd
new file mode 100644
index 0000000..979eb29
--- /dev/null
+++ b/man/gt_nfl_cols_label.Rd
@@ -0,0 +1,71 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/gt_nfl.R
+\name{gt_nfl_cols_label}
+\alias{gt_nfl_cols_label}
+\title{Render Logos, Wordmarks, and Headshots in 'gt' Table Column Labels}
+\usage{
+gt_nfl_cols_label(
+  gt_object,
+  columns = gt::everything(),
+  ...,
+  height = 30,
+  type = c("logo", "wordmark", "headshot")
+)
+}
+\arguments{
+\item{gt_object}{A table object that is created using the \code{\link[gt:gt]{gt::gt()}} function.}
+
+\item{columns}{The columns for which the image translation should be applied.
+Argument has no effect if \code{locations} is not \code{NULL}.}
+
+\item{...}{Currently not in use}
+
+\item{height}{The absolute height (px) of the image in the table cell.}
+
+\item{type}{One of \code{"logo"}, \code{"wordmark"}, or \code{"headshot"} selecting whether
+to render a team's logo or wordmark image, or a player's headshot.}
+}
+\value{
+An object of class \code{gt_tbl}.
+}
+\description{
+Translate NFL team abbreviations into logos and wordmarks or
+NFL player gsis IDs to player headshots and render these images in
+column labels of 'gt' tables.
+}
+\section{Output of below example}{
+
+\if{html}{\figure{cols_label.png}{options: width=75\%}}
+}
+
+\examples{
+\donttest{
+library(gt)
+label_df <- data.frame(
+  "00-0036355" = 1,
+  "00-0033873" = 2,
+  "LAC" = 11,
+  "KC" = 12,
+  check.names = FALSE
+)
+
+# create gt table and translate player IDs and team abbreviations
+# into headshots, logos, and wordmarks
+table <- gt::gt(label_df) \%>\%
+  nflplotR::gt_nfl_cols_label(
+    columns = gt::starts_with("00"),
+    type = "headshot"
+  ) \%>\%
+  nflplotR::gt_nfl_cols_label("LAC", type = "wordmark") \%>\%
+  nflplotR::gt_nfl_cols_label("KC", type = "logo")
+}
+}
+\seealso{
+The article that describes how nflplotR works with the {gt} package
+\url{https://nflplotr.nflverse.com/articles/gt.html}
+
+The logo and wordmark rendering functions \code{\link[=gt_nfl_logos]{gt_nfl_logos()}} and
+\code{\link[=gt_nfl_wordmarks]{gt_nfl_wordmarks()}}.
+
+The player headshot rendering function \code{\link[=gt_nfl_headshots]{gt_nfl_headshots()}}.
+}
diff --git a/man/gt_nfl_logos.Rd b/man/gt_nfl_logos.Rd
index 4c3a18d..49332a6 100644
--- a/man/gt_nfl_logos.Rd
+++ b/man/gt_nfl_logos.Rd
@@ -3,19 +3,11 @@
 \name{gt_nfl_logos}
 \alias{gt_nfl_logos}
 \alias{gt_nfl_wordmarks}
-\alias{gt_nfl_cols_label}
 \title{Render Logos and Wordmarks in 'gt' Tables}
 \usage{
 gt_nfl_logos(gt_object, columns, height = 30, locations = NULL)
 
 gt_nfl_wordmarks(gt_object, columns, height = 30, locations = NULL)
-
-gt_nfl_cols_label(
-  gt_object,
-  columns = gt::everything(),
-  height = 30,
-  type = c("logo", "wordmark")
-)
 }
 \arguments{
 \item{gt_object}{A table object that is created using the \code{\link[gt:gt]{gt::gt()}} function.}
@@ -32,9 +24,6 @@ transformation. Only the \code{\link[gt:cells_body]{gt::cells_body()}}, \code{\l
 \code{\link[gt:cells_column_labels]{gt::cells_column_labels()}}, and \code{\link[gt:cells_row_groups]{gt::cells_row_groups()}} helper functions
 can be used here. We can enclose several of these calls within a \code{list()}
 if we wish to make the transformation happen at different locations.}
-
-\item{type}{One of \code{"logo"} or \code{"wordmark"} selecting whether to render
-a team's logo or wordmark image.}
 }
 \value{
 An object of class \code{gt_tbl}.

From ad6156b6f60e3a3099b670049d90266f0b551f03 Mon Sep 17 00:00:00 2001
From: mrcaseb <mrcaseb@gmail.com>
Date: Sat, 3 Feb 2024 15:45:01 +0100
Subject: [PATCH 3/4] update gt article

---
 vignettes/articles/gt.Rmd | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/vignettes/articles/gt.Rmd b/vignettes/articles/gt.Rmd
index 25db7b7..c8d281f 100644
--- a/vignettes/articles/gt.Rmd
+++ b/vignettes/articles/gt.Rmd
@@ -154,6 +154,22 @@ gt::gt(df) |>
   )
 ```
 
+HEADSHOTS:
+
+```{r}
+headshot_df <- data.frame(
+  "00-0036355" = 1, 
+  "00-0033873" = 2,
+  check.names = FALSE
+)
+gt::gt(headshot_df) |> 
+  nflplotR::gt_nfl_cols_label(type = "headshot") |> 
+  # align the complete table left
+  gt::tab_options(
+    table.align = "left"
+  )
+```
+
 ### Logos and Wordmarks Rendered by nflplotR
 
 This example creates a table that renders all team logos and wordmarks. We split the table into 2 x 16 rows to avoid an overly long table and convert all variables starting with "logo" to logos and all variables starting with "wordmark" to wordmarks. 

From e2712d56235e1e897faa26fcb2696dc4a1f6cafa Mon Sep 17 00:00:00 2001
From: mrcaseb <mrcaseb@gmail.com>
Date: Sat, 3 Feb 2024 15:45:31 +0100
Subject: [PATCH 4/4] version bump and NEWS bullet

---
 DESCRIPTION | 4 ++--
 NEWS.md     | 1 +
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index 766ac3e..100118a 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: nflplotR
 Title: NFL Logo Plots in 'ggplot2'
-Version: 1.2.0.9007
+Version: 1.2.0.9008
 Authors@R: 
     person("Sebastian", "Carl", , "mrcaseb@gmail.com", role = c("aut", "cre"))
 Description: A set of functions to visualize National Football League
@@ -40,4 +40,4 @@ Suggests:
 Config/testthat/edition: 3
 Encoding: UTF-8
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.3.0
+RoxygenNote: 7.3.1
diff --git a/NEWS.md b/NEWS.md
index f9319e9..176c9e4 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -6,6 +6,7 @@
 * Deprecated the functions `scale_x_nfl`, `scale_y_nfl`, `scale_x_nfl_headshots`, `scale_y_nfl_headshots`, `theme_x_nfl`, `theme_y_nfl`. These function are slow and require a possibly unstable dependency. Please use the far superior `element_nfl_logo()` and friends instead. (#50)
 * The function `geom_nfl_logos()` now plots the NFL logo, if `team_abbr == "NFL"`. (#51)
 * Added the new function `gt_nfl_cols_label()` that renders logos and wordmarks in column labels of {gt} tables. (#52)
+* The function `gt_nfl_cols_label()` now allows rendering of player headshots in column labels. Thanks Steven Patton @spatto12 for the PR. (#55)
 
 # nflplotR 1.2.0