From 2c9454da7ba472545892c7a4e94927be5f4d1dac Mon Sep 17 00:00:00 2001 From: Joe Thorley Date: Thu, 12 Dec 2024 15:47:12 -0800 Subject: [PATCH] theme classic --- NEWS.md | 1 + R/params.R | 1 + R/ssd-plot.R | 54 ++++++++++-------- man/params.Rd | 2 + man/ssd_plot.Rd | 5 +- .../_snaps/ssd-plot/boron_themeclassic.png | Bin 0 -> 23534 bytes tests/testthat/test-ssd-plot.R | 6 +- 7 files changed, 43 insertions(+), 26 deletions(-) create mode 100644 tests/testthat/_snaps/ssd-plot/boron_themeclassic.png diff --git a/NEWS.md b/NEWS.md index cdf115da..bf6174e4 100644 --- a/NEWS.md +++ b/NEWS.md @@ -9,6 +9,7 @@ - Restricted `trans` argument to `"identity"`, `"log10"` or "`log`". - For `ssd_plot()` function: - Added `text_size` argument. + - Added `theme_classic = FALSE` argument to switch classic theme. - Soft-deprecated `size` argument for `label_size`. - Turned off x-axis minor breaks for all plots (for consistency) as HC major break causing multiple minor breaks in `ssd_plot()`. diff --git a/R/params.R b/R/params.R index c072a3b9..9d6214f1 100644 --- a/R/params.R +++ b/R/params.R @@ -115,6 +115,7 @@ #' @param suffix Additional text to display after the number on the y-axis. #' @param tails A flag or NULL specifying whether to only include distributions with both tails. #' @param text_size A number for the text size. +#' @param theme_classic A flag specifying whether to use the classic theme or the default. #' @param trans A string of which transformation to use. Accepted values include `"log10"`, `"log"`, and `"identity"` (`"log10"` by default). #' @param weight A string of the numeric column in data with positive weights less than or equal to 1,000 or NULL. #' @param x The object. diff --git a/R/ssd-plot.R b/R/ssd-plot.R index 7898294e..15266e81 100644 --- a/R/ssd-plot.R +++ b/R/ssd-plot.R @@ -39,14 +39,14 @@ plot_coord_scale <- function(data, xlab, ylab, trans, big.mark, suffix, xbreaks list( coord_trans(x = trans), scale_x_continuous(xlab, - breaks = xbreaks, - minor_breaks = NULL, - labels = ssd_label_fun, - limits = xlimits + breaks = xbreaks, + minor_breaks = NULL, + labels = ssd_label_fun, + limits = xlimits ), scale_y_continuous(ylab, - labels = label_percent(suffix = suffix), limits = c(0, 1), - breaks = seq(0, 1, by = 0.2), expand = c(0, 0) + labels = label_percent(suffix = suffix), limits = c(0, 1), + breaks = seq(0, 1, by = 0.2), expand = c(0, 0) ) ) } @@ -70,7 +70,8 @@ ssd_plot <- function(data, pred, left = "Conc", right = left, ..., bounds = c(left = 1, right = 1), big.mark = ",", suffix = "%", trans = "log10", xbreaks = waiver(), - xlimits = NULL, text_size = 11, label_size = 2.5) { + xlimits = NULL, text_size = 11, label_size = 2.5, + theme_classic = FALSE) { if (lifecycle::is_present(size)) { lifecycle::deprecate_soft("2.1.0", "ssd_plot(size)", "ssd_plot(label_size)", id = "size") @@ -85,20 +86,20 @@ ssd_plot <- function(data, pred, left = "Conc", right = left, ..., chk_null_or(linetype, vld = vld_string) chk_null_or(linecolor, vld = vld_string) check_names(data, c(unique(c(left, right)), label, shape)) - + check_names(pred, c("proportion", "est", "lcl", "ucl", unique(c(linetype, linecolor)))) chk_numeric(pred$proportion) chk_range(pred$proportion) check_data(pred, values = list(est = 1, lcl = c(1, NA), ucl = c(1, NA))) - + chk_number(shift_x) chk_range(shift_x, c(1, 1000)) chk_number(add_x) chk_range(add_x, c(-1000, 1000)) - + chk_flag(ci) chk_flag(ribbon) - + if (!is.null(hc)) { chk_vector(hc) chk_gt(length(hc)) @@ -111,19 +112,20 @@ ssd_plot <- function(data, pred, left = "Conc", right = left, ..., chk_number(text_size) chk_null_or(xlimits, vld = vld_numeric) chk_null_or(xlimits, vld = vld_length, length = 2L) - + chk_flag(theme_classic) + data <- process_data(data, left, right, weight = NULL) data <- bound_data(data, bounds) data$y <- ssd_ecd_data(data, "left", "right", bounds = bounds) - + label <- if (!is.null(label)) sym(label) else label shape <- if (!is.null(shape)) sym(shape) else shape color <- if (!is.null(color)) sym(color) else color linetype <- if (!is.null(linetype)) sym(linetype) else linetype linecolor <- if (!is.null(linecolor)) sym(linecolor) else linecolor - + gp <- ggplot(data) - + if (ci) { if (ribbon) { gp <- gp + geom_xribbon(data = pred, aes(xmin = !!sym("lcl"), xmax = !!sym("ucl"), y = !!sym("proportion")), alpha = 0.2) @@ -133,7 +135,7 @@ ssd_plot <- function(data, pred, left = "Conc", right = left, ..., geom_line(data = pred, aes(x = !!sym("ucl"), y = !!sym("proportion")), color = "darkgreen") } } - + if (!is.null(linecolor)) { gp <- gp + geom_line(data = pred, aes(x = !!sym("est"), y = !!sym("proportion"), linetype = !!linetype, color = !!linecolor)) } else if (ribbon) { @@ -141,14 +143,14 @@ ssd_plot <- function(data, pred, left = "Conc", right = left, ..., } else { gp <- gp + geom_line(data = pred, aes(x = !!sym("est"), y = !!sym("proportion"), linetype = !!linetype), color = "red") } - + if (!is.null(hc)) { gp <- gp + geom_hcintersect( data = pred[pred$proportion %in% hc, ], aes(xintercept = !!sym("est"), yintercept = !!sym("proportion")) ) } - + if (!is.null(color)) { gp <- gp + geom_ssdpoint(data = data, aes( @@ -181,16 +183,16 @@ ssd_plot <- function(data, pred, left = "Conc", right = left, ..., x = !!sym("left"), y = !!sym("y"), xend = !!sym("right"), yend = !!sym("y") ), stat = "identity") } - + hc_value <- NULL if(!is.null(hc)){ hc_value <- pred$est[pred$proportion %in% hc] } gp <- gp + plot_coord_scale(data, - xlab = xlab, ylab = ylab, big.mark = big.mark, suffix = suffix, - trans = trans, xbreaks = xbreaks, xlimits = xlimits, hc_value = hc_value + xlab = xlab, ylab = ylab, big.mark = big.mark, suffix = suffix, + trans = trans, xbreaks = xbreaks, xlimits = xlimits, hc_value = hc_value ) - + if (!is.null(label)) { data$right <- (data$right + add_x) * shift_x gp <- gp + geom_text( @@ -199,11 +201,15 @@ ssd_plot <- function(data, pred, left = "Conc", right = left, ..., ) } + if(theme_classic) { + gp <- gp + ggplot2::theme_classic() + } + gp <- gp + theme( text = element_text(size = text_size), axis.text.x = ggtext::element_markdown() - ) - + ) + gp } diff --git a/man/params.Rd b/man/params.Rd index 3689b3f3..909b7168 100644 --- a/man/params.Rd +++ b/man/params.Rd @@ -195,6 +195,8 @@ remove them with a warning.} \item{text_size}{A number for the text size.} +\item{theme_classic}{A flag specifying whether to use the classic theme or the default.} + \item{trans}{A string of which transformation to use. Accepted values include \code{"log10"}, \code{"log"}, and \code{"identity"} (\code{"log10"} by default).} \item{weight}{A string of the numeric column in data with positive weights less than or equal to 1,000 or NULL.} diff --git a/man/ssd_plot.Rd b/man/ssd_plot.Rd index 291a758e..c04cdcd4 100644 --- a/man/ssd_plot.Rd +++ b/man/ssd_plot.Rd @@ -30,7 +30,8 @@ ssd_plot( xbreaks = waiver(), xlimits = NULL, text_size = 11, - label_size = 2.5 + label_size = 2.5, + theme_classic = FALSE ) } \arguments{ @@ -97,6 +98,8 @@ Use NA to refer to the existing minimum or maximum limits. \item{text_size}{A number for the text size.} \item{label_size}{A number for the size of the labels.} + +\item{theme_classic}{A flag specifying whether to use the classic theme or the default.} } \description{ Plots species sensitivity data and distributions. diff --git a/tests/testthat/_snaps/ssd-plot/boron_themeclassic.png b/tests/testthat/_snaps/ssd-plot/boron_themeclassic.png new file mode 100644 index 0000000000000000000000000000000000000000..542d864eae3218c77ab87342ccd5bf4529f2bfef GIT binary patch literal 23534 zcmZ6z2Q=03|37~3b#YzmTG?D&*-^5xu94Y5RyHA#5!s`A?FxyE$SzrN5h;5V$p+SH6ujMm`O4kX|#D^bM;=iv=W<0nkIe+r@fshiT3aYtaCUNH6 zyjg(9xp@7#Snfx?TzHt^LEn*P&HyvT>SxKy+Qb@{`X3XAzu#txH-6wI=D|vBrZuf=^~VUzNPWk`X>6@)X3ha{qy^)rFxps z=*fuD64_4PIS0rY)7J`199-qNgJQ()fTB(Q;T!ZEeQOoOge8-9tD^Vy%PY~=*F^=3 zV$Ryeqsf=}_RQeqUR&dF3Q`3hgm`~k|1Mpec8l+4ec17n>g$s(ZR26LUsOs2GftD# z?4<~MCeKEpvWylc9!Hm5dQkZlb?)%_0mU{S#Im+7!V|fz)OOD(u#RK-abb~6f0M}j z!Poau(_wzz%?h30Hq=k5E?d7rdWRUiq54hB1(}%>79#}g^KlVwJ`j%n5o_Wk-M$lj zQ1knOBP@7B?EZsmBYkr39G|I(Zakmgp)-E3)MiqcnWB1XE%u4=8^2os~z7UWz)%suZ}9j->KNUkHXP|Z}76VxOPI=0S9m5f&?p19y&qb`yKlj`~GV> zG*a!!yk7QyKlcy%L-`D{WS-YOU-nh`c6Q%Bb>?I5SDh>w)M)Q$uS;jrh?~{5U^kQJ zwHn4*wZmS29%JsaIg35+_%)c}*?Zn%y);6wUXn4RIwKDud9pfg{7Gu{YL_uG_=~%F zo917|TlPxt#Ec%=R_5j2l`=kpasPk>fA*_I+$S?XS=j%soZ#|(KY{z=lliFyrP&^@ zEYGY*)3^@HnMgB$EjQ<bTA}^;(-|FE`&;Imh?OUCt z-*4^o{9Uk58LPY>A}=6PIhuIBFINtk2pgPZ$|>Lh$k4_t%p5-&!|@RNU|7`ZNBi z3_DX|-Dp+)aE$j}dt6fE*^%zv=5$$4EiH4P`hPw&n@%gwb#zbD~w9 zs~&et1b1W6`AUdyI^_7nM8N8YfiK=Jg;w=nPX6{PSGY}H`|L3r`s$LUS+`bChP*(f zV|Rkvh?tOZJf}1&X8N zwdDIZ3jPM6oW&NOD@4t!Zw$QC6?lI;D>>+JM?3B615957c$VOykc?~I1#>$FzsZQB z*cOTV0K<47QiW{3;dZ9a&rAm1-!5~c#kW^D{J2;jxSt%yDc>nG9mIzcY>lE#;Zci3 zJQOs$+Yt15?N^mVt%j5629$ zBSZU7l1!}h$-GB3K3?(Nu<)P3lfSk9o=_36>nt^nWfvt*C`uRB7v7bntekA=u~=XB z{F`cv%SfrvailoD>7F0fW4Aj){!@|9*@?gR%}6TNAn`ln-Dy&ZV2$V=@2%g-mgNfTiLJeX))p&kZYvY(5{L+1t&^*o< zCuUL8_X;xh+3S7RYe~&)o%VX=TFu)|x5 z_7zn@Cuczf1>*U~2S2a*DCdC>V&VUG1g1t`0OtUSqTx(XK0lEhs@IHR$ywt{>vTLh z*e+ZNza|lU^!Qz7z`uUY#l+i6kG`fz4(h+Y;*gN;-f*|xWgaONY0C8;@{~V#Djlwc z=7qBSP@|x=uz07#^jgL}^Wk)Z7w8|%X*E^&AUWPGc zKMU<^q8u;R(|pa!MH2nD8vI4dTo8o%w_H;RG7)eSdZU%5W@Ya!l3Q1%=&a(ro}HsOfD_nbkIDXoFXHQ9?wD@Yr?eEAvxL-$Aml^ zhr=J@jiQ@%f8*v`NXR@3ifqs?n3*l)S?=IQRbIM+RbqM(CxMB+7jZpI1L-L8LUAvZ zUO|u5cKFes0scQz^|ddj~CbTuWBSzfG`T<#i8*TXTQxnZHzV$n8{Ed^b#~HzydMR_#3S~#|1-SKA|h5M z)**-Qkd&dQB?(8q8&4TFzHAYMO$lf(ro*6XP9)p-=9{2=EHg+He;EjPR#2st7`ug$ zXi?tj;QJ*sK1DYp(I`+aeV_A8O9*@7@9_f6^fNdrlaoicCtML!*I!6<8&Qw z#Zb=Q-RUVUd`zr#$au7#Uo?2_H8{$6(isos${7p%x6FgzLlwJDKmK{M^LO)WO^*ad zbo1veLC_If;WM7A>Dqm3>x51YGA~R-MI}~>EX@Ck7}eFz7qB+L%fp}u5h9vEXRGt? z?v_T(%hRj!P=Cm%gtt}XZbhFME=MrErgH%kJ9-1+BD01VI-3gI)E+7_a_tsGq?0Gy zdGwp^Fvp9G{{OzJNFZIJO==4$Ep#SgRO;Ai zq%@=H&dS*RETa_(v5Ur_RZ`7rC0>lB=kmLMSpx@aV-X*|2*v>m@u9`UR2WFR{=z7q z{!0Xx*5BqsXt9tyN(wf zm^kH`RXK-n-Jw-F$ll1OW4zq|vu7pJHkWtl;l=E2dQbzr;3Z!+cg3Ch=jSa7OcT!@*5|k)^f9NJC@)orUrN zc-g5kj1hez2qska7I<8~Z|gRkp@D9He|L)&X3XS2H~Rf}gj!?t;BpZmMsl7B>?ksd zrajxQesOPj{x0>Ji1boV{VKaQXWl>GN&EC2XAf3%cK$1PSpdRRDwA){?SomBXoO2t zH_7bS-8DWe)Q(%X8o(h`c+)%Gl!cX{VwIj{`EZx_H`6cPR@e@2pbQ-hoeb0Xi?$Kv z%7v68;#0uXhYNTd{rj`U#QWxSqju8}*9yRkW&!KT)!da9r=I06&4;FPU=v4hmGMLA z5xS5{@-A%2D^TdAa^=1;6P%S<;+H=DnP8fRjcT^^{@{?Dw5(i74uF4*d# z1y_bYh@^;HCtvek@k`XRW%uu+dxkN@&(tg?o2zF0e)JqJOY+}af(zhYRTbHCig9E)DEaIJAo+sBufpkkX$e(_A-M z^rf8F?}BR`j0oGA@r!X0!gnj|x4->B8b!5#pqrs;V^g-eNgO6f?uME7WQLqqzG0E! z_th`YnU>SOASt0>GhG7xh|<%SPJOH!poTs#1t)H34|eU|_hhgX&tBj-^?mPmrShB} z@9*C`TK_a%1UEqG5uS$&k5xF_QN;}UbA5_}kVY$Vj3GgBpv8MF^&GCTPOEo`_<0xs zWHa=2fBMOjqI(VG630zz;a~k>hPHCOslI6ZTV9-aNU@L$z>k*zOp;`(L{`#%`|_+u zGfpyo+2gmR7Wx6gG$Yue&QG7U_kM4tYbq<8eA0*do@6leK03dDTNTtpENm;jLKq9` znSk$f@F%o+c7Lb>x1MdeI=C&Z$FhGfVd5F#gq0J3-K(z}i_$#&^|7!}I=jK{DHjwO zzg+%1Lkm4iVd_0O+4!Up{m4+3wpb4(Y2ShND_4I3KH{J0-&>gYK6w0QtMi12C>y}% z4TYmdZ-Uj&=dVNQgMZiYQD87omd0R{r|g`V(g=wEa!!=}z*}vD&z=rK=G7%Zdt>+M z(nBZtync7lt(J$@!v(Qxi{FRA^HG?_21ZnIBaC3|oqaiKMo5dcS~e-?SE6Pg1w}_n z?p9v;ZDgw2^X4t&QKX1DKNvH}?hyBr6Wa$}rVdjD`h0h5eO!xt0AEO0N%euKMy-g% zYCN76!sh-+_vOQfV<6*ENpF@$N-ghHQXx<^TV%;Qi$BP@b~eiW0Cd5fnT z3iqb)aQZYH=ah+-`SDB`ZGfEj%AoevGefs8e=gqPGJpAN(LWe0_Wt&#RbVlxq6kF| zq3iaGok;@(+g6k>BA7)^+0>4BeV;Y|`}A4}n6X-lsO1+!omYah-N!l1$e5*BdYwP6 zQM>=QYGDT$uvRq1Qzp^D4vu@!+2$IP@>7HXt}R)4^A_yU&8DIwOVcZ z+&+SD(hLG4ouK?Aq&XMO$TAsn^hZF*s;*|_x!riRtMH5RWOc`%`8Pd#75CM%5Sv;s zO!o7p2ukM1LzG6^cdSXx5u-Ja?#Vq~jyIc(+YBeAyx^CvopLE-zqTzfp8Yb<%mLMZ zxT5c-6{~~|jzcNPwC9Z+pKSGi$s_v7m5>PZa5pIDq|HC$86Zn{!MIOoL!h)D0<3wk zb`tZ42ix;Qz7RwE)L9~7RXRJkCyw}5zmpq%7?~%D3TnD!-5}bXE@SfY%H`r3&&6jS z-6qY7Ov*|_EKAHk-MT&rrsv}kw&i^gz!C$13mbY!EPjnbieCVGag>g5?HIRi4|eko zpfUMu@RpY23kbUIVc5JJ?`B0!7!F+H-~qFU@r`RfYl4#ZdtQMm+3}P?ppG)q^LLk! z!0k-KN9UI_z7GET_vdGVxV4gY;>DZ7r^5MF9dsTuO;F#yd*WJXZ3_P)5FlWM&}qvq_n$g^pezkq%C19 zB7ALc%2o>?D*LmKBJ3{{+?^a|n(&2j&BY`Ew?>uF_FsI~i%Ka5Bb;5gGQf>W!(p)# z8iD128xtyD=&kDqGd;Vp7AIfSG7z~aqM*tdHq$qZ%ciM_QQ7^f3cxoPOiy{XJ##G7 z1rW!;Ld)9foQo2Fn^wFo_|io`gFG6EA7cjyrV?IKR3_~((vG|4c!&B6c(Nf z8DALD{j*)Q@mNqk)Pfxz??FBKvxzF3|RC zNc0*MbTLkN$?r4l$}dof!@a*o;0le3laXHGO835nn&4riYb>yF!fVKVv^0r>7bZR$ zj{3(aER1&tqp$1wsu!nLZxvuO?u zJyF&`s;1abBc2C>C#cyUBizT#AYsO&h&67HX(=-&1sNUDqg~Kxdf)hB@HIR*Z&r_Y zQs(h8@TW7*!zB+2DB9}hR=m_Y>nZcPKUzEs*E)C#VqoSw@gIu67 zvkWdREQ8h8gq$5N#fPaM&<9vYw9S8E0Iv$ftf45{G9ixK9?eqbs7PY%>%?X9Y0@-0 z0(`mjX|tAOwt0fPL4BhBCUkCNsdefl_6EY#$l7(P?rw!+cM**579i~d`8SKL4*xEt zfTADH!BAhOn)_&x;#-U7;yv5=`S895W*fGp;Y2X`q~asT3TbHvjC^!%n?>B^*rP zWAvN5(&MowD1tE7<{W!KpGPVzntZ^Eh0!Sl~o_PbyrbM=J8OHG|fh^F@0m*t6wN$iN=22_-TI(OnWeJuQbUTHa?(Z&izc zrjtzT&(n-@P1&fm-L5&pkVY4C)5>eY`uV^;V1py{`0?c>Jz2`!KBzar;a}%hhzlh| zVU2?VpiPCck}sQfr<$#i)L%z9nZM^``u~1S2;2I=UCn#@OB^Uzt6UWF>aczR$gC~@ z(WRC~z9S&PdOLhi;5TRp@~=wW3Zqqu2U2PT2Wrlm)zX8d;&Nv6H7HwuUfdfQ40N9k z0H|L;YVMrZC)lV+)ojnVud-nrx$(l{mdq6iA_xz%xo7Q7x8ku60kC{Rx@(jqY(zyH z`aO?|&ufVEe;2iS7G&`D%bi!6D@oO7dXWR&3EI? z$-kesiCs=DIBew^muY1D=Ta~)|9uR88>8UeR$Ao_OW#Qc*%Y}oZi(E=HgSNq4uXBw z0OO$6ft{F1v=qF!=}mUi8so(C|wta7z(VNt7hn<5KJ=)k)5gf!Gnw zUVJ?opNi_sYY14%@LkxNZ5;p**f7+tH&by3&m~LvLftI*tb^}G!Km?aHvn+&o}8b7J;m<6G!tx8Xu#iE9Rt)!_J(hPcid_sAx5U9 z{)}q~3iT}PThUZe1l)yKLb4E z%RHVg>5#c+V%CNYuVE-(EbNgD1QFxJWnU(#n)+C4S_6R>;cw zj~B{k1-YBQJ6^U1-smNZT?!EVs>%5aJ2x*^o`SKF$7`*KOc3t8zh&^{@q?r#691mf znt2*`GB#;DXnPVHvX8J&~KE#Q&5DTeZ)yv zxM)48^;tJ#>uXifN$_GsYwu*s-JtJ7GyzX2cpd2ZgV*9zBajbnt^~Y4Rb$StDN={h zo4k0Q!4F-9U$UsNDWoeXTMl-hux+up0Zov2kwC%&4Ti^zDidk;;x}`!Ar`$Ok;u0s>3Zoj^V!JqTlv;{M_+yib33?H@%JO^H)9!->JN%gKGlekPZo_=mr0^lHv zE>H_rP1jfJhmx59n`SzgPJVT@tTB1+>vO=I@1FEr|D~NS{lPY6TFZ4O=>L^HloU(@ zu2pF8?&K(m8>+Nal3mwl*Aaw5kU0P0z20J|l5l_db(E<4IC8EcGJ~?_NbO#P) zWIY#ts&thuveV`n9c23|1qO+K&Mb}`_E;A4sJ%`v^Z_k03v{uC(%Ovynm-|6Xk?0N zidYPB4<~B$K?h>=M1wk(0;+qILN5bQKsNXwP`h_c!TSxz8w{h8F^q#U0kJRl?#lSU zLy_^oZTkLJf>N1ZfK)!ii9e-yzg zdh7^KND$~`o&X~1Zcf!Z{74qN5^~}<25{*sF>_Ie`*JwR`}5pn;P(&Q|R0i~Rs+LYryQmC6CI`>QmdH%+RT zs7h~|)?@%nN3eCgKtJzQAC9K#|KoRA)CU+1msyvE4+7G%2yBrApfnW!o&B{a2SDK| zJm^WupT?CZQrjf7rM38J^7CT40Fis&VsdWp+^}Fk0Mw~52w?q#!Gf1I(jK5{bb_6^ z2=FkBJvy_(W#rQ5Kl$lzANtfdv&;on&sbCFem!uMz01>`BlA>T> z^b!H}0EIZ5+L1xL@uZ?|r&B~2$L=WgY0@YCi_-m`H=aNbUNnjGd1*fLUs{7F*RpAn zvAjahq_H%voSp(h2R-3diEwzA8v6t=Po|ZPM(H&w_+ChLD&BvDuu7N`14 z{s%KH=9Dn|rJf9D$L+Ewr$1J8qQ~Ij`alGD^?`JsUHW0F!gd?Om7oI;sd2yA2;Qt*& zym+{?=J&N=#L|noHgLo+Og;c>R~rnEJn8 z=Ajd5QCjFf6xf>&eaLc88=X=87aaN1sPD*gt#E$xV(Gt2pMo`o4&+{^WU7X&h?Lv_ z=2#A|evOB%ntBjvgpcjaWtMKBjeW>4mS*0hkpXvmgHHCzS&;C3#(HX%ah#uNnk40* zJ|S#H>`m}8KU3pw3lbIdop0|PaNJiqz{w4Ojl(G^;;}&}i3&#%4|Sq}aV2w}-2RZ+R-nB z#^}ul=Mt)-A*+#0Xj9p6o2Uj-?i*)cw)k6I={=aCvbClecz{MU7SH-QoMK|)r)f2u zzWPqaOQWcYK?&^)W-ce7+&H;~gJf;(?}Gy3ApjL=X1JUSR&{Zo8bZxJUk{g>b0KRa zJOhumrx+Nq>n4Yj&zXR~iz{h%S|wr=P=wruP)cHFHJswE+2Rcj?N1Q8b1^T45b}l| zA%c~-7|w@P5N>P4YhHMq_dioP)ekbB|&|8@GNIP*RGEhfiE@dUk~5+qU$M zTW~ie_uQZKUF8B8*v*ha|MHr}&p3|_3YDi}XuK>B@uED=FE7TE2;RLkV}~?1+qwb4;iTZgzv})a{*9(lHO+qbZ*($p4*(!wvNsng=WLxv*YDB zgwl+bWbMPTE0JC=R@=LJ1W1VYY16jF|9wll+&xBxv;*`F`z9PzIGcB1K-zh*gS}_6 z!Mu_mGzfVjoy!(Sp~J{&rH8~W#$SmLD-}lyW4Zhn=!jZFTAZB@TdMIMvGIe>(7xL= z=1;G6l{ocLwA{%*-`{4xl6HLMYNhk!et=s$Hy+&8H^~Ln5qce!)PoCW16%K!UFoA0 ziTA_;b>s$i3S(Qv6|*h1#O<;egXiZ*DwBRWEx&;KJ)=fpqU2|M(BSc(9;pZ~=~0qM z0L14t&2-OLRG<=N|C)9mE5gXMKL}pOOkpZuGjxVu3tJs2OJTMS>NmU}FCNW*hyY!b zxV4E!5wOJ+lNjnjMGUboXxV9P=A@67gQ~|$n8kY_H@*b!Zx|JKdo6V242Q6|E`3=o zW%$;3MMv!N3ON&+g>BGKF>vpOln%?-Rx>4)e|!-yEzxq1fK2!X&zts5SIn>A6+}zYxu`v?E&ch~c&ZkMG2zs1pz&(S}BaVeo!v8{=Rmze%83 z-k?q??!9TN8~vPEr<#;bw$v7fP2S()Oo~N)^Y(KlfJ*_r?=H#Fhfh;0GLXui%ZAp6 zwl|70vSIf78B5V<>h3-edi*jOO!~^%% zgbn*EdzD1M$4felEUdL6w%dx?4RLjcztcml1wgyM0Hqva)g26B%Ny^2TX#4=@K>Om2R5XBuuYhx+14Lj4AoF)piabJj zU@)jG_*!&Bt;3HC&F6tu8;OrTuleK@*}9kV!a&I1?g|3EgDL<$Jp_u7^UoIhNK_^T|Csy7dG%$z~ zK?bYC+`aytYU)f1c}p5`QGhfMa16kc-`S|O4%&`*CTe^2!i6D|a{oQIS{G9&Y=062 zW{QWFO`XDJO+n#cl8^CqBWXU1$JU{+5_d$VOvXRCr}QeHTTnBvV>!vF!(OUF?ZS=c zhN-{A>#@5vLvi zxb_Ewch7vT&B@o7@$%}VA#LxYQ~j~AMxWd)ll;h=p77*&4?s9xy#5q!EWi2D9w9JTh<3u4FW6X@j_2He+T|0_7zci%1#F^6X9(` zE>uy6R{oY7gE7vA3V`$^GHSL0lQ%I>Co#agvWbG=rES}y>GBUj=hR4vXC`ApgXmrL zLT8fhpKEkI7((6I(W*g_VPRA2f09qpplaavwDLavs=WWgc^=rj(gB5^02^c`l~EuP zCg3(86vPNk2!AYir#OCt!3VW``|rYcH9z9&z}R?iqrW_B^8jJAO5nk1IWSB83ciHC zsw29+O1|3y{MEP51}I)U2Qs}CsbRPt9!m4m`fZavaU*d-i(&BRq(qflF6e-8l*J|K z7&F_Wh9kt|#6e$CFP6CXjq1;IW8=soZE-&(qhQmkYBqF3B5_QZ(4ZCVul{+fop`dh zyQUZXF3P}jh(ZL5lAc}oo*1HT(~&2V#ZA8vkIRGG923$MkUbI&q?ejCD49`g{K*Hq zVZX2+ZTV7p6$sJ~N6|ptGCm|hY0UP>Zw?j_mHQ@Jn2(>eiWd&0Zbn}KCX;PNsx(aT zRRlbUA{;=TM-6~80)QSz^o6Ya7nztSe|&-x*N3bwU_y8Xs)yVJYu<ls6g=C1z!Bl@n)kg&=uz%#H@)>w22YxOF?=NIn@$#&7#Xo zOi=Hi$^0W7@xp~7=3%nj>+=yvO3L_KSxO%q(Lim{y`;k-Mgf9)oS%DVgN-U3Z|d@8 zLnrAQ!s}&AAhuVh!h<(BOgT`v`j;>a4VNLk@8$pe8gpjvv3ywoLX9)p6k+Mf3Al78 zKjzQ21gz}AV~QuXrtFBk?TaUWmmromW`IDH97ryZ3Iu*r9TnZpm&n5HWfyxADkmJBHFQNz$2LAvB;bW06>d|!%V$})YFOeVV1&X z@enAU3=Ib1l>)ck#1o0^zbd+-NX2eeEmH;U;43ANvGRLSSKTH|uWywYe@N@3HYhe0 z`=PIrm?lep8+Hvbx~)cCNjrKOqzXUm9Hdf2g;sID!7uySXq)kuKwbm?-b^8yREzW4 zV^p|L<5Fgzp+OpE@vChjZXUj7U|kRDxAWu$L))$2&I50s&NkfJ!xv15Vo)*I(c5Ik zxxgIj-n>>&;a0zE+<0#SELs9E_@_)zY2>jUt&$gOMv!5IcRG3XRt7_x^U`|)$L}TQIKlE=HJQ?20Zy?ign0c zu$_6cf_9$90DxcZHdzF#Z?;jkX@U^*DCj`8K?hMx{6qK}3Jp{oedqfpFKjsxa23K@ z?(C?l_w{2nxX`ye{fnI7&8^rHU_#O_>CdBb(1if)}*l789w{{M3S zalj3YwnUK4v!+^TItuh&(onAqoa}5Vo@(RI`z+~LialB~y{oa}LYJrtTYdqtgs1|j zG{rzFX;}u!D~#Onmr=rmQp?%^SQZywR8yd&m@~UYi>ha5XeYg@!PVI@@l#P z{|uiB`g`-w#OKORKHPF$0J5b)4V$eL)Mq==v^Lj-Ct2A6xVy+&$IP4%@k&r%)uR`9 zmpU(buMetftSd}wqhC_YkS7iGt?O;K{5A#PP`6-9?S)*Q7|)Go&q2WgI0)nV>!Uto ztGE#mTr2A>AkzK-(QNN#dt)t!6LD(1C|va~#4j=p2j9+Q!; zFN=eYaH=Qi^<9 z9(^W$GgtmY{?}chlAK>q0gpWRnu%G1i-XbP7i2S<&TNf>BcvakZ}IF|HIN^6Tcm+#fUAdh{XWC3Ftde%5UcQu>j>K7YRVp^wczTf6J~l$ z#=Nwt_xPZn=x~aCCHqDIpDzME&dS#}oGSEFUXto@6jQ)=Z!uCWPeu2*;Rtvapf;~; zGR;$CO@-dzO>d{(d7SEdl7JzZOetB6o5&&Rg80TMtogzKqHI8Zi^DvYBPB^;< zQ2IZrRI4`t5OX z8}Rq&Cl2qhh~~3?;IWEy7q~n)C&Wkyv1dcHJKK9y+Cg0A+h0&93km!ULUdhml&i{X zsb5p;mCK&rhCQB-?Opn2)qWY;rLd-F&GY0IfXSq<)n0yQ;L(aFYyJ=Rld@8Sw)6tj z_8KxA;`AV+dx~w!T+h1xXr-7~;mTx2fO_lz_(x>=JILjj7-m0&Uc}cIQ1Av~BvW+y z5inqd|IP?x1B(shjmH?6nK^ zazgi0GpUQp{^{9e*ub4gC_oFs*0^zgfA|k*5VIDh6jOe(Z40 z=02}60R`vN#09qO)7A?y+T#dPtpTL~8ih3YT5521qn@?mzdp5U?+jR*^egQ#6seYh zk`K+bG~meAJpPlgXwC&~s~4L$|COwZQms`C0{EV$Zw-cnQE^%*cD)f33# zF2LVh##5BS$>*)dcAOHbLHhP>@IMZ}kBHHi)fZm+E_J=;i)ELo{xBY$0T!?^LJwz} z)9#{;hCvHTTUdJqZl=98Gyo27GN-&x_(STKzU6TXz!{*t+rCWkOF4%A-YFLBGrW4u zZJ0DYLgpCTRRoY;Cs0|99#0WfRHDc5Zv(WtsWr~@1>xO@H20^;L79T)&*Y~?3Yhd(#uf|X(v=V_45jueJpUw(KRrVc!UPgw~M87{Fs^B;B8st`&v!Xu$RLj z3V*vKLm!4B1Yk)9L>U;=>B0?VmtoNdV7nL1JJQ_Z;h$n-~=+a)Ym}_kdc*30Ga_uRbUK8=@*V`07t7A zvy<*CwUpm%sJ`sIVpwQWmIj*hpO2<>LECYOKPX3Y?%J=Z@bE93F`T?{x+<=XtS=ResdUc87& zDaf}3=z#rfWc5PN`{iFglTr)M5li2QBD)n?wNL3S-=054%}}Y6V~lz5dhmZ;N~)IZ zenC46-$P5neL&MoJ)XFg`|w8!m?&{-w?rHiw)F*>@~97cry}^+2d{sMC+CvzyxaDL z5Udx>M8_bKiUEOUdJb_uXwBR&BZ*_Dv5I$ZbyIpuFB-}JYp7rnV5dZ5*|i|3jRep| zeR`C#$;|8g%7cJB8{qb#md26mU&BD`bEcc%w%XuVtyGDxX*k)@CB~K(x?cY@CP-v@ zZD)Vb8Z(6ecb-@v@mla1e}|OydBE2~la_$qX#aMcP04-9jJ{Q7iBww!6whx8QY2L3Zt5Iqtub6j|7QX7FmVs zFg(%aML#*&)||1eng&k%*cb2OP7PVx7C6(fut$0JW<>PUhyb8a{!@JTL;5~2oCd^p_{r(6iR;KF=cO6|YqxbB0aN0llXHqatcn)=pW8W+3(f&MY2HR;FqW^HV&5B_O2QGgP8OV1&l zLKE`9xz&L^yq<&=UKM&5vhyTd7z8!%Jbeei30u*#Kl6sxuQl2!sp+$++t3omw{O8x zgKd)OO6$Nm5n&eIK?@LgeVKdxd1T2M0DwQ{UnslP=CDiBmYyP>W(YjI2qsoiPddd9 zE^#dD^*g2%FXcX^U{_CMhHtn5bdEC}aU$(fk~p^I!8;Li_H3{GU({U0CC$BbXpiH(^SKX*eCCQn)I;A> zFXye7f28upB_+mz?W?`tA!ow}CkUcerPhRr$8xR$1$~dezsw!GH+J_9VmRX8cOa%Fg2kXU-4IOLyg;;sjkiIJz*uZBGzHmH8ILVNG_4|e z#@B^YgVEE6KqPZDNeo%<^V^6Dlh@~+DL_&-{MAahQy<{H$e;|2wZp@utam`tT47Nz zAO2we-cbN?G3xbqkdPZ>Yy_@rAqs8L2JnZN#KVes+#UE9t7KZyg{<#@hkOSY#sFXA z%7Xz+LeImU-K?fIG70oVJxQ}& zmY!y0oMD(*nhbp5$ey(x-RDzxmjd^j@X``FdI&*UVH{i;(uJsU{%7*M!f%?db4 z%)gyw_5VLbNyG<4aXg+!ZE*Kjsx8i<*5?DGpdOY;`v^&pIg&Q$_!=X2?;J1}Mt<0oqn*xZQ&*qdE za5j>7uRrT(2tLm34&T=`fF0DONxhl&{2>-H_>q-ru+;Q#|2tjg#=k!6O@2L1Pks9B z%aIx zFm69{iHt&48yqjG+>(cf~QF%n%176cux3G;s+W!ELW@sTC;tqrtN#exWNefSGr2au^~iX$1-@Zsvj4 z5m8<^FJy>m&D|#%oc}<~IaN6ib@n*cyV}m8?{iymOhog5I?vLw^x>ZF43J!eckmhY z#4tBn(iR+4;_xc#&Qz?OhMCJB_f~5)Awc2e`)Dd-i?GRvtoEGfQEAR#rnC(Hn>Rjo z2Ksw1VciGjV4jR<>!SQ&Q09M`c#3M)_R|V-MFJ5Ig!l=&O;u}}7nj1_fbS`Tni1%y zzKsu#7KXwP|J@YFK{BI*aMwQoo7wjKRc1J6Q{~8cdWI$?1%nF9Pbl| z-|;dXZc>fXb2-qYpe*RQK92jl_|{1sBk3%0pmv zjq}9h6k|T8i%b{eLP>L|3WDoB(vh2LY=hCV+9d)c(u|k4%|;lo1@sFGO|_GYz$;1w zjY1c&{B^fq<6OhR9(%K2o2gTX2YVc7!zasMK5*@K3sMHS|TX=06L&q5yCQ$ks~gGT~K2bRyJcEEAK;v4B&jced!Qub2PoyTLP zoWz4kVZ7rWoKW@Ah}ns!6@J@xhoG@J0628(>ZU70kx1$B*4#`aB{34bl|#@SM!Zo9 zHrw*dwP8BWRtX#YLYueIpm7xTFzkkj3t*GqLcxQTXZHkN(|`zz)cy@T@Yx$Ou}%Uh zV_l#X2h)x>#B!|QDLGslDcCX4|2-O28wF7>tV{gA z0PX|)*UNtei0Mf(oU0mdM3-MAM*0gJ_f#i72k^sFaWkA#>;jDI+GDMhS~t*Gj0AoC z9spi-D;|R68Es7hQ4d5Yf5=udd0fcnR*y`8`aCRW<>)=Ap+y9Xzk;K5m2jZrT?9rS z6F4zF@$Q63Uo}p;g{ey++jwQL@J@|$a&NQX=3Cn-Px3Jc1)SLPAqe03C`j&% z-EX{a{X39FN)WisRdtPX1c1O>gnT~3yC0oiikcFzW6EzH7e=grQ&Jb`qXodi+Wz-( z)I=QG{o7XE&xyG=UFNopI?>F%>iX;If}P^1B2m@SdnCts3+_W(Dm#*inw|#)LaRDarE@%NQK*AOZ-)ANe6Y3vab}#cJDt8OQN}7R;TOL1zl8|WuWtBf6d%ONym-O0Y)4$ECux%{><+-xV682bgv{BQ@ zjZe3dFW>uCu*(Gw5qxG<5|)?w_{5PYw^(;PMKmd-SCX)PA&V!@(To z=k0Ioob{ZBCb!0oIXEHgw*$ZvYoF73$Uqjhn^rvE=dK*Zg#dYe=a)+vg(I5iRBsB6 zf3lTmSA3`UGyW;*t-aOL9 z$gT0z$C348WV}f&4pb9LE?8}R8l)~e-hHA2);#!OS>6+z&acwi0{bBaROUam9jamr z2OY135+g472@#Xxq|x%3B!RPPkm@+_pD=XO-8-ZduR{Zz%Cx|G4$cJ_Vy~A-0DI_o z5$MT#ewA4W-al;z$N0{DU)Onl z&Xdj6iFFPqpyG^mdPBW;F(A*8b-|9RDhK}EH_@?|E&Ysz-F-Fh1 zbS4;;5H+*wk;<#vUc3a|5=Uf+489=L2NObe|9DVpE-g*A+Wa}y)f=JQ7@QQU<7)~3 zr?+CRO*h4^XipYgIsAl@>C0Mt*XLTKeB3e2fe~WH=ZRk1FX~reke&Ya^!{X!5wQdr zURQCJDxBzUtD`%EIv+v@GGGFFbTVt$x4T||bOz*kPmp@dYGj3EzZkr|F4$f9R?<;A zXmjNhXhOBS({M(`J`h%lG<|S*`%L_>-?t#hph4shqIg7f#S6z#{m!WeEm z-1>CgnOTizy=}L-G(yo@-B z=SosE<(mZ(9=&I9G;hoTattE`^i!TkHYvJVN`Zldtc!lZ_@+v0s)DT1uJsdtej88 z3PiL=gAcc~Aa>-sG0>7<|Lf`uTL14UwtLJVQZeM$^A|Nvh}QDRq1ye^4)Ea5nzzb0 z%OO09H`Qvs0SbFbXVPSZ<7myL`!!cST8^JyRKGlE9ezw_0iG^Jq_0uYPaumeBT^IwFegf{~yxzb?GHir9-%;!n!jkX#US?tT`VVlSb_7 zWus!8-AdDo&}F~3wJqXaw5ofLksz2O4`5*FPi-`NvoQxhVHU?esA#Q(-#x%SEQwq= z(%dw?W>vaLIdemsfNXOwV6NdGiYG0wD8?g_)_IFvDppFx#qLZ?t1Drw+|9k}nwEio z+@Yi-D~vOoea9r0gSV7ImCy+kzr?(wpXHc$G`njIRTF`_p#IO=C61w*!SZH9Gz#;* zmfrT9pPm8B%abwchFT%D+>`e+y-+uM9IQ2=MvdUUYIf}qUcr7f(dS}X(Jnilw(&k3 z3$ex=>vp^=IEBY>iIfCY=;Pq4u^yRFF|oLzuG0e?_WxjW{Y!^tX?SnvP%aZ*=fd7= z27!js4Oj^KmfZ{^FT_-eUpgdT5Nq{NBqZ)CzL(H>>n&OgIl* zD-{bH2+bFM=L?Jl{&X=Z1+IGwaO@<44UB4;voOOnswlU8MKJ5Hz&W`LUsrD|sw64O?k>nBD6Dxk6~fmxY}nF)&Y!nRhYkX3 zee+#j4jswHLZWr{`JH6x@}}iGH^qc8cVg2i;SMa&d4uB>u{*vz_CFbFRHO}g)B4aK zcFaj@eRBN}6^G?$s)zBq5Y1voZp#VFWFS(y)09dkuJ%wAJuc0kpYxuR;-y<@Z=D;t>I3{!|E-JGP>RI;RGt^SfEl9S2kDW(;5Nn;70hdCfWAyhJk8ibMX_}cHug& zWKdx;wSpcS1u#V3DweGY-nmsfFrZm+q1Zf!X;!gdl~!mTugG62nuL_3NG8`P5HQS5 zcs!n~Cdm6N4>#Q{K6Yh8tr?6Udy`=kAH(hUU5@NUxp;zWMduu9al~}8!=B>Q81QUW ze3m0zMo7ut6xA9Q6^b~cZx6)2d4Ud|GK}Fo9b4y#J>PeJV30pn{9M%ilEnNyOAXvc z>;Xw$mq4}gX8~1PU*a-32QMH$xFEAs?s;=RTU-STL+1#H84Bf+MN$CM7gTi^yh6Rw zd0RbV!O&naSLZM?Zd7*+$R{gwfgY1Xg=-iRj{Z@XFB(2BgDvpsY41g|kiG`$FGN#O zt*9Yx{&zUtTZ1a+Nv=){vdWB7%bRQC*O(6}KvtUZI~zVEC9UoC`c)eNyz0c|gB!_= zTyG*P3dl{eUYZFHp%uaIC3$x8e8$>pMr#6dj=pNFguoiOvO!(bKfMKSOf~luBr$Mn zoYxTQJ;IpFRwM@EP+obZR8iC(Ti=s(bXzUacz%ny*It5WcC`BGdlBa0gqIAhDCIuY z#F!WryZST07Mxw($I+ido@T4PeDJ#qd5XE*;Ecr;AuY^{MI#>s{6c-H_~3lvsz?5d zkfr9$*}|k#j}BqMK%|EWOO7goMRRoi|)7|FUu|Mib^6l5`dz!W&rUk4qSScst=ji7U6bmE0a}@HBYFBEeXy)lhC&D+)$M=uY`%?Kq8{2>%HZ3OOp4&Mo3 z(K!~d3HHY9mq(5K!3QK>e+G?N8Qub?fAIyXbP5TK1PA_iKd4`JOM{fP2or|mQpOyC zmKXw}aMkr0bH0)jB{9V14LYh{qW4opv%;ta^lAS6YwtbG`b4)4ot1uEEjrxbY2#Mw zuiTt2v3Rq@?zxt1f_UFpNT!mOr@ZjvVs^Lagt?|b3uC&iV*Fz9&BFIC9)@2@=N@4Cl zrtItemH8jcJVw699p|H`Z;-JIQFfCinNbDw)*d#1Fj}91yEb^HAZy;U>0FG6P^$=!FZnn(2S~cbZc;@IAiIt5XktjMeUC4G>d zJ#ZsIl?z1bag`B?m0g$)&KL+rIHyXn{uzzm&WliE4kgKE^MSPC>%V1Gpb9}Bf zn&E`rTwh#t!V8Ri15^}ot`tmfLtg}?l??XM^~G1~=D?f{8fq6w20EQ%8lThyu)`nv zR2)2B^NZj^Rd+!R!j3IVCJ`mzx99d|AF+*U30r>$Z!8jKKVj1N-aqU~d9&nXv=?05 zZi-|Ag%l2}-c}W8t@K7|C{qb8^ZxrN~Nuz|yL~a7M>Ch{;5~<`Skdw?ld5GPVG+oF* zu1%zDV&)RFx&Vzf_qoMI`^GH3;&zSaJ43+mq@YSDu905ZCdG9PUC$}?DMxTiIE}#_ z|9byhq(y)TTg&%@zd4Zu19rb6n)&OlZUeYSl0$#PAd&6Ss{?E?v;=^lV1|4tN^%Jx zO?JDN)$nPr*tz(hL~q$KdCx&95N@*OlQ?wLw-w zK|9$xxvKWYkN44K9v9)KLuK=c9BfiVMl0pCRM4~kB!2j^oK@xdu7KBSsU!91?uKLs zPl#ei^#k3G>bp`Mzd2lnR=?t`=$On@P|BW?htnP*%fEcis?1N3F@jBju{i{@Y%3C{ zGi@G`(WlJ;Q?^wAEpj?eu=MT=2vcekv^<~<;*c>C{c^7cOv7-A`tCly(DXCLu9MSK@$Yu(~AMU&6L-IyTkZkuI7Ta7vJ6GOW6j@@=1t4Cxn6?wq9&bX{-sa@<&pW z`k040H{qiBXTPAZ@h-|dHbP5DG15zdROxkxsV)rm%SQALF8GIOgC6Pa%ZF5 zD?$LYV?H9wr7k$C5J7>c-5pc18BG7DD~_*hfw7)e-n?lJ7An^qw?B60+Hh&+&m<2P z$@+BD*&@GL&F~Wik&Q2ksYj(;5xI)dzEr3Mjpu@~Wm=OVY0Ml6#^$(eA?cyj_X-GQ zuqC~ibymbcShr=2RH}sGe2#A?qM64C@YIk=Cw{KNu3F5cSoE|uLW6jScm7n%I>Die zynf(bN8uRvO2?twHtVZ7*b&Uf5RAzqZxgngi=i?N7N`TDuo)Y-v&ZQ(h@QdFVh^I& zr`-`4>1RBj%b3a0LFiPW!7f#Rk%~c?rkrr;^%w2>n+Pb|6trL z2~wc7vUAD)sPg{Eg*0rXh6+Nf<^yqFB}bBU0Zk>4w?89={O5B}EHQCqWY?DGP2Do0d(ZTBiNQAkdh>;lERi&ou)Ho-(c$`5vqe z0!R`95K4h~WXs;pHGi>ri5gpQu;?SksqxpLhl4Wt?(Oe~=xjXI-X1ZT%VZeN#&)SH zSE!)Vz_>2?A4#kHsVfW0pX93NofJdKH7A@qo1r$zH^NdDW{%ZJpf(#iMQ2*N9(^a) z>zTI(E8|l{#5|cX4=8rBemM8Q`XNOF*8cOz;Rkax>_2WfxN<3^Tl5hKb@v97awDLD y56_4kjJ?%gD1Xn)LHOX_Cf#od`N%bgy2r$wIL~7m_s0{d+BGw=G%hoA4gWuB&5zFj literal 0 HcmV?d00001 diff --git a/tests/testthat/test-ssd-plot.R b/tests/testthat/test-ssd-plot.R index 01d7b582..c42950b7 100644 --- a/tests/testthat/test-ssd-plot.R +++ b/tests/testthat/test-ssd-plot.R @@ -87,4 +87,8 @@ test_that("ssd_plot text_size", { test_that("ssd_plot label_size", { expect_snapshot_plot(ssd_plot(ssddata::ccme_boron, boron_pred, label_size = 5), "boron_labelsize") -}) \ No newline at end of file +}) + +test_that("ssd_plot label_size", { + expect_snapshot_plot(ssd_plot(ssddata::ccme_boron, boron_pred, label_size = 5, theme_classic = TRUE), "boron_themeclassic") +})