From 7ca2c054efe41da410bffe95cbc78dc9a301ae26 Mon Sep 17 00:00:00 2001
From: zerinahuang <huangsis@student.hu-berlin.de>
Date: Tue, 9 Jun 2020 16:08:04 +0200
Subject: [PATCH 1/7] truncate the number of columns

---
 .Rproj.user/shared/notebooks/paths | 21 ++++++-----
 NAMESPACE                          |  1 +
 R/plot_disaggregates.R             | 60 +++++++++++++++++++++++++++++-
 docs/index.Rmd                     |  2 +-
 inst/rmd/child.Rmd                 |  2 +-
 5 files changed, 73 insertions(+), 13 deletions(-)

diff --git a/.Rproj.user/shared/notebooks/paths b/.Rproj.user/shared/notebooks/paths
index dac2121..5888058 100644
--- a/.Rproj.user/shared/notebooks/paths
+++ b/.Rproj.user/shared/notebooks/paths
@@ -1,10 +1,11 @@
-C:/Dropbox/ProcessTracing/4 notes and memos/probative value space/probative_fig_with_areas.R="D16A2A5B"
-C:/Dropbox/ProcessTracing/4 notes and memos/probative value space/probative_fig_with_areas.Rmd="F1D7EE19"
-C:/Dropbox/Sierra Leone Covid/6_automated_reports/3_bulletin/20200508_2PM_bulettin_format.Rmd="D039B059"
-C:/Dropbox/Sierra Leone Covid/6_automated_reports/make_sl_dash.Rmd="9E52B317"
-C:/Dropbox/github/dashdash/R/dashdash.R="847BE8CE"
-C:/Dropbox/github/dashdash/R/plot_disaggregates.R="978D1759"
-C:/Dropbox/github/dashdash/docs/index.Rmd="536670CC"
-C:/Dropbox/github/dashdash/inst/rmd/add_maps.Rmd="BD9ECF63"
-C:/Dropbox/github/dashdash/inst/rmd/child.Rmd="B24A16BC"
-C:/Dropbox/github/dashdash/inst/rmd/dashdash.Rmd="244764FD"
+/Library/Frameworks/R.framework/Versions/3.6/Resources/library/dashdash/rmd/child.Rmd="FBA5C26F"
+/Users/sisihuang/Documents/GitHub/dashdash/NAMESPACE="FD370DEC"
+/Users/sisihuang/Documents/GitHub/dashdash/R/plot_aggregates.R="E20DCDED"
+/Users/sisihuang/Documents/GitHub/dashdash/docs/index.Rmd="88DAE09A"
+/Users/sisihuang/Documents/GitHub/dashdash/docs/mexample/mex_dashboard.Rmd="A04F261E"
+/Users/sisihuang/Documents/GitHub/dashdash/inst/rmd/add_maps.Rmd="99D69A53"
+/Users/sisihuang/Documents/GitHub/dashdash/inst/rmd/child.Rmd="1498AD5"
+/Users/sisihuang/Documents/GitHub/dashdash/inst/rmd/dashdash.Rmd="EC2CBF22"
+/Users/sisihuang/Documents/GitHub/dashdash/inst/rmd/ft_plot.Rmd="FDE79D64"
+/Users/sisihuang/Documents/GitHub/dashdash/man/hello.Rd="F4426691"
+/Users/sisihuang/Documents/GitHub/dashdash/man/plot_disaggregates.Rd="1BF18FD8"
diff --git a/NAMESPACE b/NAMESPACE
index 61262f8..fb9f191 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -5,6 +5,7 @@ export(ft_country_graphs)
 export(get_current_means)
 export(plot_aggregates)
 export(plot_disaggregates)
+export(plot_disaggregates_row)
 export(summary_table)
 importFrom(dplyr,filter)
 importFrom(dplyr,mutate)
diff --git a/R/plot_disaggregates.R b/R/plot_disaggregates.R
index e982f92..6a5ef04 100644
--- a/R/plot_disaggregates.R
+++ b/R/plot_disaggregates.R
@@ -2,10 +2,68 @@
 #'
 #'
 #' @param df dataframe
+#' @num number of ids
 #' @param my_vars df with info about variables
 #' @param pd ggplot dodge parameter
 #' @export
 
+row_function <- function(num) {
+  num <- as.integer(num)
+  if (num > 8){
+    row <- ceiling(num/8)
+  }else {
+    row <- 1
+  }
+  return(row)
+}
+
+
+
+plot_disaggregates_row <- function(df, my_vars, pd = ggplot2::position_dodge(.1), switch = "y", nrow = NULL){
+
+  vars <- pull(my_vars, variable)
+  var_labs <- my_vars  %>% pull(short_label)
+  names(var_labs) <- vars
+
+  # Gather mins amd maxs
+  ranges <- my_vars %>% select(one_of("variable", "min", "max"))
+  if(!("min" %in% names(ranges))) ranges$min <- NA
+  if(!("max" %in% names(ranges))) ranges$max <- NA
+
+  # Reshape and bring in mins and maxs
+  df2 <- df %>%
+    select(all_of(c("id", "date", vars))) %>%
+    reshape2::melt(id.vars= c("id", "date"))  %>%
+    group_by(id, date, variable) %>%
+    summarise_all(list(~mean(., na.rm = TRUE), ~sd(., na.rm = TRUE), n = ~gdata::nobs(.))) %>%
+    mutate(se = sd / sqrt(n), ymin=mean-1.96*se, ymax=mean+1.96*se) %>%
+    left_join(ranges)
+
+  # Row num for layout
+  nrow <- row_function(length(unique(df2$id)))
+  row_id <- split(unique(df2$id), rep(seq(nrow), each = length(unique(df2$id)) /nrow))
+  # subplot to 4 parts
+  subplots <- list()
+  for(i in 1:nrow){
+     subplots[[i]]<-
+      ggplot(data = df2[df2$id %in% row_id[[i]],], aes(x = date, y = mean)) +
+      geom_point(position=pd) +
+      geom_errorbar(aes(ymin=ymin, ymax=ymax), width=.1, position=pd) +
+      geom_line(position=pd) +
+      facet_grid(variable ~ id, scales = "free_y",
+                 labeller = labeller(variable = var_labs),
+                 switch = switch) +
+      theme(axis.text.x = element_text(angle = 90, hjust = 1),
+            strip.text.y.left = element_text(angle = 0))
+  }
+
+  # pass every subplot to grid.arrange, followed by nrow
+  g <-  do.call(grid.arrange, c(subplots, list(nrow=nrow)))
+
+  g
+}
+
+
 plot_disaggregates <- function(df, my_vars, pd = ggplot2::position_dodge(.1), switch = "y"){
 
   vars <- pull(my_vars, variable)
@@ -34,7 +92,7 @@ plot_disaggregates <- function(df, my_vars, pd = ggplot2::position_dodge(.1), sw
       geom_line(position=pd) +
       facet_grid(variable ~ id, scales = "free_y",
                  labeller = labeller(variable = var_labs),
-                 switch = switch) +
+                 switch = switch, ncol = 16) +
       theme(axis.text.x = element_text(angle = 90, hjust = 1))
 
   # Add floor and ceiling as ghost layer
diff --git a/docs/index.Rmd b/docs/index.Rmd
index 4d655ec..b17d48b 100644
--- a/docs/index.Rmd
+++ b/docs/index.Rmd
@@ -110,7 +110,7 @@ my_args %>% kable(caption = "sample `my_args` dataframe")
 
 The dashboard is then produced by `dashdash::dashdash` like this:
 
-```{r, message = FALSE, warning = FALSE, include = FALSE}
+```{r, message = FALSE, warning = FALSE, include = FALSE, cache = FALSE}
 
 dashdash::dashdash(
   output_file = paste(getwd(), "example.html"),
diff --git a/inst/rmd/child.Rmd b/inst/rmd/child.Rmd
index 7e9de03..1812d78 100644
--- a/inst/rmd/child.Rmd
+++ b/inst/rmd/child.Rmd
@@ -29,7 +29,7 @@ plot_aggregates(my_data, my_subset, pd = pd, switch = switch)
 
 ```{r, echo = FALSE, fig.cap="Disaggregated average responses for a given day (dot) with 95% confidence intervals (whiskers)", fig.height = nrow(my_subset)*1.42 + 1, fig.width = (unique(my_data$id) %>% length)*1.1, message = FALSE, warning = FALSE}
 
-plot_disaggregates(my_data, my_subset, pd = pd, switch = switch)
+plot_disaggregates_row(my_data, my_subset, pd = pd, switch = switch)
 
 ```
 

From 911ba7493f0d7a39e80c89537d5f2818215a0996 Mon Sep 17 00:00:00 2001
From: zerinahuang <huangsis@student.hu-berlin.de>
Date: Tue, 16 Jun 2020 16:43:30 +0200
Subject: [PATCH 2/7] template r file for defining factor vars and their lables

---
 .Rproj.user/shared/notebooks/paths |   2 ++
 DESCRIPTION                        |   3 ++-
 R/plot_disaggregates.R             |   2 +-
 R/temp.R                           |  15 +++++++++++++++
 docs/mexample/mex_vars.xlsx        | Bin 9475 -> 48263 bytes
 5 files changed, 20 insertions(+), 2 deletions(-)
 create mode 100644 R/temp.R

diff --git a/.Rproj.user/shared/notebooks/paths b/.Rproj.user/shared/notebooks/paths
index 5888058..ad7dbf1 100644
--- a/.Rproj.user/shared/notebooks/paths
+++ b/.Rproj.user/shared/notebooks/paths
@@ -1,6 +1,8 @@
 /Library/Frameworks/R.framework/Versions/3.6/Resources/library/dashdash/rmd/child.Rmd="FBA5C26F"
+/Users/sisihuang/Documents/GitHub/dashdash/DESCRIPTION="FDD3ECA9"
 /Users/sisihuang/Documents/GitHub/dashdash/NAMESPACE="FD370DEC"
 /Users/sisihuang/Documents/GitHub/dashdash/R/plot_aggregates.R="E20DCDED"
+/Users/sisihuang/Documents/GitHub/dashdash/R/temp.R="24E8D678"
 /Users/sisihuang/Documents/GitHub/dashdash/docs/index.Rmd="88DAE09A"
 /Users/sisihuang/Documents/GitHub/dashdash/docs/mexample/mex_dashboard.Rmd="A04F261E"
 /Users/sisihuang/Documents/GitHub/dashdash/inst/rmd/add_maps.Rmd="99D69A53"
diff --git a/DESCRIPTION b/DESCRIPTION
index 10b2b2a..a9e8df8 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -26,6 +26,7 @@ Depends:
   maptools,
   tidyselect,
   table1,
-  checkmate
+  checkmate,
+  gridExtra
 Suggests: 
     testthat
diff --git a/R/plot_disaggregates.R b/R/plot_disaggregates.R
index 6a5ef04..7decab4 100644
--- a/R/plot_disaggregates.R
+++ b/R/plot_disaggregates.R
@@ -92,7 +92,7 @@ plot_disaggregates <- function(df, my_vars, pd = ggplot2::position_dodge(.1), sw
       geom_line(position=pd) +
       facet_grid(variable ~ id, scales = "free_y",
                  labeller = labeller(variable = var_labs),
-                 switch = switch, ncol = 16) +
+                 switch = switch) +
       theme(axis.text.x = element_text(angle = 90, hjust = 1))
 
   # Add floor and ceiling as ghost layer
diff --git a/R/temp.R b/R/temp.R
new file mode 100644
index 0000000..39632d1
--- /dev/null
+++ b/R/temp.R
@@ -0,0 +1,15 @@
+vars_vec <- names(my_data) %in% my_vars$variable
+factor_vars <- c()
+for(i in 1:length(vars_vec)){
+  if(vars_vec[i] == T && as.logical(my_vars[my_vars$variable == names(my_data)[i],]$factor)){
+    factor_vars[i] = T
+  }else{
+    factor_vars[i] = F
+  }
+}
+my_data[, factor_vars] <- lapply(my_data[, factor_vars], factor)
+factor_label <- my_vars[my_vars$variable %in% names(my_data[, factor_vars]), ]$label
+factor_var_name <- names(my_data)[factor_vars]
+levels(my_data[[factor_var_name[1]]]) <- c("rural", "urban")
+levels(my_data[[factor_var_name[2]]]) <- c("female", "male")
+levels(my_data[[factor_var_name[3]]]) <- c("no", "yes")
diff --git a/docs/mexample/mex_vars.xlsx b/docs/mexample/mex_vars.xlsx
index dba80de0aaf1f843c039b86e249c791c142537f3..c5ed13be145912af50203c954b8c107b5fe1abe5 100644
GIT binary patch
literal 48263
zcmeHw2{_d2+doNUEtF6sTS%66Ypb=;WX}?jH40@nm7<cJRKih~Y{{0alO$V=rIN%X
zNwyJVA2aiRW}NpuozDAfp6mKMSLb&!=Ul~A?sI=X&wby|y?pNP(bb|`&PBt>$Vjtt
zd%Z5rH=lLjYfmR>YgbDTduLm>|M^08tLJH__+~TbXEH1dUpa@_^t<g%)^Q%-GH=$F
zVf!HB%oh<>&vyU4e~ac$dmmc<(+w)Kqm9n)k7o{Aarz1k=5f$_uPGQa6Ji^6$&cB*
z`%?RffErcP@M>p#0nd(XbXnS_5g+rkyw!d;s!TKul;l6iv3zMOVEwc)HBvr(Ws}Bv
zgQm>EL*siH@Ay1_k|_Fdu#)Z$T`!J!r2X>a9Zb{v;@8jZ7QDRHYL0&T)Q7BehKEO$
zbmwVbATMpZzAR|xO^GK%;vMSy35qLs6L}}QY7rInuPti3xN2xO=u~YfKHyy&lq+gp
z5oM$5fxTE{N4Mc(L+z8@Gre885_LNZH%mI@ns;Zv%->XGp{vEf$Y5n3Ku=3U!$3zv
zqe~4+4;NQQH#-{}cQ<LuZxkr+c6LU7es%HTkfhP{hYw|}#pvNjN+$)23u6PP;<kyV
zb{^#Gr77veVY#=SIm)X;I9x5C+fyeP@oLw+?br%p7ikW^3pv|}L{4^1TOjf67^LfT
zCt7*7(GW=(?^N+4w3B8CVz>zx()e7RO9iPX7)2ZiM)~5~bNoqlq}f5d4zXQ;n1~^u
zi!g-#X(VwlQ@|hB%S@ajjH=Ay*j467EK~>+cxlr7>s=PUq)r#o)N2dmd_4+@@7iTC
z|Ft*Ke_9~XpHwtjG51ktlz;BCbYeGhssopX@g1AAP?;TICCzokc=+N+NyN!mixiCi
ztOdq*vR%O6yUxRc&=)M=KR<;c;o6aSVxkNF^Jp11E(bM_?HolBrUm@*eMOl0`BVW^
zfV2u>aMZ$o63geU<aYq$>(!?)_c?f!h(i&lq*W@$T~z$JN%$d@FQJO$HSJf9Y($cX
zQKUI+4rvajK<pzFjfL3~Cu>kd6mc4$*58A|D4F9cW~+Vi6C)E{Bm#DTgo(o{<0r6N
zy<hio6HQD>k1J-z32_z0Q+K9==Y0<mzm|IBuwV#19!UI0l?q<eoF(!247N>W9@{oe
z#IoPaLCqzOs?79a=6mlDM_o_^G;&^JEDeJk?+_amnEN`6D(BnoI~^xY8o~=y5JX9X
zL!=o1GZEbrg_$47M3O$Dh~o#wM=ajtkS3}Ukp*~+vP#)>PbbL>IWtf++D+^$Le3Jq
zki_{sr1CU4)Y-Wl6~Z((5;=__;c$ljUSE5|-jn8Q3DV%Vsh&y0M6a3I+d<Rl_ZY$y
zwg-GWKYP1o8m(APm>Mt?@S2;Ah@B2Ao5xh-w<ijC5&A|yV@XplJ5`YM3A01Kb8R`(
zr95rY{xcuhQFv@8X|~aW<T+KtP3&bSVgxYbgi;T}lh$dKK_sasALBQNA$d;pb0+$H
z#QJU;drp`=ICw1xcTL6n<CyP9jN+KPas<KsBQbyz-OpJpX5J)rJyCn!otsE&!=le}
zj^zl;X%;gU!9e9e!9dwS@xVQSB7r*sr2>@#d+BB-YC0!~nq4RqVtQ0t(f@1kJg=F!
zPT3*DdQOj)^1~{w!X>wm^8>YQI_+~sEzHD`L}|}yyZP6{X*tTs`OH}r)Lf;7VhOHV
z#ezf>t=6s9t!aMV{Gz#fmDQJ%>#WwDyk&Lkq>+`;$+uQ-PwrN}(00Vz6B)&SclX@;
znRy|#d+ec~z^^)?6KO)y0{qvM<%u(2Gd%`+3`bk5a=KF(MiKMr6RR*O>oV32uDi4D
z-MW%>`&s;04zQeLImY6~qQ&CKa-7A7rKT#RbYh0MRmq$AV^~Vq`fDn&imn34t$v@>
z=Zhz1fW$E%v6sQ)nk}y83wP?(q#H@slR}fOC50pf3qEhIk$EojLZ(`#=F#&<FCJAt
zsyU<B{bY~Ms7q5+fNJ7oqR-_xTtv~qM4JJ%Q1C0#ckXo@j*HM}ql5A`{@8nng(}no
zFKoR0k;VyKGIN%=Ss+ElDH7=EFPto}hr=&{Fg9x_-JoLebu8?5zXc&;5}o7!l{*aU
zGq#@k!{flij}y0+%ZweEXSe0=0go-!g1$dNM)rwH#r!+7dUO9tx6dMT$EB?{pL}5T
z;G~_E-N`RjjItB5EV4Ib56ixk-6ESM>m)lYyIy)1_QepsbZpRi%q0XE05N+^E%Z5R
z2eCF{rsxH5$2~YSx9_~$=Sf4CCP!a4>JoEyIX89U<8YsUYeC;c1CbSbz(W&eG{Bd0
zf@3vB7Ug?fP~L9c{*#}}s&|P6$^}XU$_I)D?hM=-xaxpF)vBs>Ra{l;t2nB7tJYTW
zSB;(T{rui<N^8sf4Gn?1D*}5C$jsOBME0mPtzuQde;}SYKpY`Rb}PN4pPOwca&E?_
zVJrlb4@xAf@+KdW7v88Ow^2w=a9iF+$vi;?SKrP3T9f-ORs<)^t=9<WstaE)9?p>-
z&TAjOb|C!1MD2wewU=MkUdpNs9IhQpy30K;GSgjcKk6pD4<UTOHF>XQ@_vWpeJ05V
zmbD7e$!+446JpNW#Fr;j)0N%iJ*{O|9vtwlU;R?Ddf+GZi_z*=Ua1EZs0S@iR$F0x
zP}Ev=t@WXu)@q@p$Is!gv1MM|LD}et<r)zzbrH+NBbd@7R@g_dtyB+Vsl9r*_Qsal
z>rS<y>jmn)DlO!C%}nEz)i{I?$qB15{l~|9-=&H4Koy`$pN#p23aekYRuAP;zow@i
zvRyscU45^&^<Gu${im$=8CV}U|LIBTn)g_Lac7US*Ji1Lan?gJxQozQjs3W3d{5*?
z@kqfvh>ao$!5ys|rCJ4P2O?;BB39mxpf`?S?TF~b8YGn9Q*^qjZ9c+4ci5ezC0Y`u
z@RT}q_~S=D6KjyKNV67id}qfz6vj~4S${KcR;oG?4RVT6sK;BS7^ofmS!8D4dll2;
zu}uL~F+{!g!V2VMYtikedNvq`z0*4FZ&KI=S4M8)i4>woY+8d5Vr|{Dfg_xsCw%qo
za316EH67s__F!EmlaTWmxrbR=3NUijrlo;gNeH>;Qt<7LL#=nisaf50(VaFzXW_Yl
zqg1UKe_Uy>CtqtwxjBQXSoR{5*HwiElY29%K9}Nq2YvQ-lh<_FOw<l+>`bP<lBuIU
zdw~R1N3F^>m^_oMue7+zg1B-nr!a%TWDQk2>@mpne)1-R-%g(@vO&kQ2YXC1y?@iE
zdbIq`g&9GP*@G7iu28dC&nK@l_<^!&5Xz1LWy^rF_SBWF0m_a6Ws@P4bt%lK0m?=|
zC|mZoD9hegh6QG*4q=Af4*Frh422-f&=Z)Uxubp<gc<e%GxP*z*h<}J!hp}T0c8(D
zDBI<ruLG3jgizKUC~M}ZuLGfM8&K9ADBD6^S)IQ}*`&Me<!>?)AbchbnBf30!+X@t
zFah{X8Zg6a5N25NIwRp>VTKrl&kO*csQ}7C_)I@gb`~g`3ZX3UnSP+`Z3ty6fU>~B
zZ6TDM{ach(j>eS$Gu#GYhQ7cIEgbdH5N3!2X6Osdu#LJIqJbIWfX^I;@EMGQzBEvl
z8A4gtO#O0j&qzZk+W?ex&DJl6xM!q+vJF7l{nV8$1DE38plpz<`7|)YB<f~p4typS
znBf%&Gc10cVGewT8^R3xfEgCQ$uNg-@L1q8lR()N2xWoKv;$>hAe1c!$^xG;giv-8
zC<~&IIfR3^|1HYS=r#?3dnO0M42OUjdIK|rxMy;J84dw6)PyiYa4F^hpOJ*{8E@b-
z;GS`TP_`2&dmbnYanHB_Wjlegsu0S8OVI@=%Lk$C`M*V3P{MTqGYo++!_wCo-N0vd
zL73qPFvHR}8Ql;*Qv}R#1o+H->ORvA9K00$usXw|zX`8-En4$-wAK|p%@{qckXM@V
zT*>CV$w%)b8=EBSze_fg*XC;U&$cR8;6`iLL?XnaT+_of(<2?yBTUkxF1^wU*sdA1
zT`RaiGp<0Z=GwiEoW5+2{*N6iO%W0{h^=c7;`#`w9SF&Dh;VQFa8>)rQ}z)C_EF~t
zb|2l2FT_q_O%)aTv@}x=*Qe~4NYTtlQFTbsW<p4_wr)Psx<#s0;&kiQ4Pw_%q1Ha{
zjt{mKyQYyItx>F}o}#Bw_)0zdmBzlolzqG@8h26-nWP+fm(qK%Ww>3lqttC|xIj)k
zMov7IDLq;u{U&dEjJ&vd`F8dD+cokF)H4e-O5N{nzC$qC@8hvGA^xgp3PQ9GAsB-Y
zd5sV%M2OL+$F8uC7PY^*);?yZeQYS_p?nKR$I+(h{A2COdiBYs63K{+WD|#EgTdsD
zldT&=T7?^1H)Xeqj<lY=XE){8GSXG-c|I==2HY1EaKoagf!maiG0SrIFp%FILG7>J
z>yS1mQIOmatxg>-Zpp6r7&c9arwWe2Hfb`5K%8u~riX1x00+bYSf!Nax9)>6!ray_
z<AL7}LfDGY05;2AcN4^sE;^k39isqwA86#up^@)~M&1P)`66iKk3%D$4U7CVv>`7t
zoVa0jVDkac$XCK5KYaogd7nqH$SWDaBF_(P^X$;bGe8^i;=<YDHB|$mO$#*gcF@Qd
zKqGGgjXbo?he0E+295lEXhU9HIKL?3+p0CEt)Y?6gGL@Y&L=?Iybd(-V$jG(K_g!W
zZODrYr+Wfn)+)v4F*NefaXtas=F!l|+d?Cs4~={WH1bZ+hP=3N%A<*{xvk~Uao!x-
z=B1&L=Y~c;7#jI%XymP+k<W!S<VA)v-WCZYnnT-s4m9$H(8y;(BmWv2c?W3Z3!#yR
zzBU&b&Zc}6D34sAk>3T4d>l0LjnK%Sf<_*?JSvC2HoKui$Rfj;)-kG5YB10puYleP
zQ%4qRPLn$XG1?GSA6aa$ZCWc#hd`o>+#%4DhbT}@QYak)O)-daGSi*XAsB$Dr5$6i
z<PL#EJWPk6mC_+dq1qt;?HBzLa{DFS9im8w23H>K@9|$zeYXt%vdxTmTNDcPJ)m!>
zpH_X_O@YGh*KB4q<*S%xxwAvxP(Q2s2CZ38*!`N#jQ$P*(7^lWSKpv_4GOzovzdV#
z)&X(;pI?20$w_Xj5_DGfZ)#?M23|ji^Z)$n8;q8W27b+E258_lfH?opufD<TEz4aR
z`r7<AH8Vg1ZxY1$e}45%nK=HM%?!}MI}aLo&~g5!Ro|5I=+|s!#GgXW43kTFtYRt5
zP`rJqLqH~I{N(lvxS_g!St`MQNizf7P((oDSX?T>9BEyyi>a(D&DBeWCVpb#{L6Z4
z$B0A*<Gnm-9I02D<b85FnI*e|V%Rd0H!d)CCK1t*f1>xOr@3nsO;}Hqls{_q1Je~v
zrr()J(uc$~zNIY%xogI{Yw4)|vLa_k60gKy+cX*U5#bBOE^l#7jX$x#l8==nANQ8?
z?lLzTPzFsV5&8vAReJ2b=;Ut+SO?@&v`SLM?zfLDiCio!=cjU>X-?au1W1UhFR<Rq
zxl)AxM3HM1H*1wr;wg8Q&T_Xfkbe+)X@Sl6O6#cRpV(=F@vS0Vtx+vQQ%fQj3CpAY
zcn`}IJeUf{aQ#jRG{26B{FXn+HW0ma;AX-N^CE785*Nu0dK&u{sE&gvn??S_iwxHu
zh;$yP`*O}_N#p{(^8Xvl%_u_JqgDd+6%Yn{t1O8m6MKJnox)%ljUkqT^MUps40L?!
zguT-I0q+GaKY(}M)3EUx1%00uL0jgcf(Zg#BDgJTV9_K(yP5!WC_D*^CKAlH;j$AL
z+oWWV1VB513+*b<rn$Ia&W<2KI&1-rrXw_((6*TaZJVH(1&1aI8qIcS(**1kI7eSx
zFl~yE1Ve)X;>dVs3dDcEL81%Qg$L{a>Ip@xehIR4dIWG8sON^6?xgdhoq!xbJ<TWU
z+Ff*P0HVCgY9(}*y8z+^^_<2y1z+TY(N2k?o}T7uPP<H3#A||849fP#4=N3t7%T?s
z2UsH1D?Dgm$2*a03`*cr=>}K}^ap)H2nzu2EDi0>(4_$iIylBcyECBm!nyO}f?4lE
z+MMMs039MMVME@MNU#O=<GK+BOYj<|wFV_R&^8Q4*>GmGBoeI1{kU#~!E(G4#U$AU
z?dE>aVQWbw*dP3HHxdTR*%1urpg~tK70`*=l1Q+*`ojh%6qfT-<eCV&EKz~JsFp;6
zwcZ~#IAO2^HR~uiA82D=>Hv_Jzkht~FD{s%W(60}QU`#%NdLod^t0M2eMKaxEO#XI
z#j?}^Ait2{hmmV>!Hn)A5-i9ib%RSR%xGw-{D&_8&5Qnyz6z*W^^FFWIsnwKnxE88
z0i&Y(OKgFK7q<LxuJe<a7hqImyhK2t)(`!8%nK0UB$fyWl=mq8IF*L(*jhl>jW8lX
zQ*McX@DFBQfT;thiQos5(1X?`k<^-UP-KqT5fm8A{E8fa1;W_kb^s`Z%f$r~)U4v5
zW`!Pe!TZHOo&!KZ^B><%0U2BoAp87^8~_SAb8$NW3-pvl1@q{6JQ_)!sBcA?!H}!}
zmDB&fr~C)(>A!(i0cuu5z!il_|0ovtFX8}D=;;6acFO!z7#Kys49zJAv_wFlI*C|R
zEWxPA7B~>h(44~GULqhY3IPEcOAz2PK~oN9Ximw2mIw&cYMsT!5~OryMgveobIMi_
zbP@4iB=QQ02P~{ro+U4=y_3aMbL>UjD{CjP=RLL76VYUjKR1=U5v-ko#<%g{cQ4o`
zuU3`*Rx={~`#zfq6WC+}@3xL6vwZ%tTE*=Bo|w0=&z6z0NFpU%NWR7kYhAAq;b5T)
zyo7rTAol-d!^o_;cPjSxO))8Yup<WEe_apAE`QxHqE~W8E{R+uEMtn0<-d1T9mLg-
zYLeejepCL>Zz!j17;XJ>7T>V2DVBco64(&~Z(g?n)8)Tx7-28*7lAyG(p+2;`TvV$
zeJ9G|_qDD<uH?-k;NAG*T7XOOmnBo~i6;b`g-tO%t$koe47`>;4~&fevbXB7FRXJ(
z<YHmjH=+W9E2Y%~6I>~sK&arlB$C=i1%>6usT@)_d5vNGJorCLP>pb<<jsIGuo*!8
zvhpBr26%zZ0P4p%N?y6Zft3sDo{1sr+7DJPAc8EJbAcwWTu{F+4Z+Gq0(s?vx{*Ev
zD;G-Sl?&?e#*Dmj(G6BE77timFMJM211NbmbzSpX3FH+4>ac=<2Y(?^2m;hGHC|v_
zP(OYUAf(A$b?ShE08Z|;K%9M+JEhk`-Aor9%)Sxwjf5f34yhkI$QURoITV`YMM)?$
zDSdq?G|7vSaA=aLXi#Vtk+)Z%Oq0AQ31ym#3ua6a$;)_v!t8@WlhW6RLX%7%hC-7v
zB!NN`{+c5XNubbFfi_Lbq9lxIE-sjQ-9+%l1w46C5)Msh+suKsO>$o!3QZI=nv_LJ
zC^X57l2E2eS(Jn_%|!(hTtYP<a*;cMPzNLcjnR@wYIP$FmJiAZIN(6!t}2ubQ@W~9
zX0#-dTHOePB?xenppiuGszSLrbhfu7l4_q1220SC1CuRE3l!>-hECy@L{e>V!e9w9
zxUwvF_&f$WFIy5xwZRF4<@HV!$%kB0*Mm1MP>*m+<v;!>_f<g6YQEF~fEfP#tab{B
zc;H5&EJ{-MC(ut>>Htt3kS#8lAf@XEDK|`Xq>O)-IsnvXHH!)+s97<f*SFLGpgNhP
z&?KSq-o*v8Z$#kd&Efxs(f+?p<oFaCI1uGkwJ=>QW$3QllE}p%bASNXzC=Ly=Q1xq
zQw|KTD6gu8YRbW<aL{v<C6Pbihky(Y2j->ZwJxX>8-6mgB$68W4hBmJXVUB_d7>@}
z-nalUcKA0={{aWk<G+Sh0cuw7Uz7ttVUSrsPrZH;p#nra@{RN>asVh4*~RSuEbt2#
z6-<!QC4!V2COT4z4a&=sp^^*uM)yzR04$)ns2zX>0`=m8**Ag&WFHi?r~i9601Ig5
z{L={)fWHk!MFP+Vv_wEy3<AOe7aj)7`c4(#Krln|g@~|3Kv)a{0z8&|BNm`32QxHZ
zXm>4f8mQGei;Ly>)F{XhV20+DlxK;6uqXrsXe>bnhXzf#Kk^s?=4$!y<CV)#aQUxk
zkk+-;(6^=IXt%u3Q*nRC*`q>xZ%O1}-iAuB+O8dbnU)(efgW6*9L^Q7TwGKGv0qbz
zM<c=&u}?x{O}glgWP|&S!wQn|)tU@>8f<kUUc!l7;rkH>Ig)P)YpfI(u@OF0uR)(K
zte<@6Rk%sW&iv6V_qCE6YDM=5$9{_NMeJqLSgjFm6)7x|9336OB`&rmIZ`je0dc@#
z$Gevm`K`uT?i=Gig_}mIjcd?~3m+2RcU>bgIvjyeMI_(V3)e&(%Ftj<e{Hu7-=t}q
z+j`L{@_?%bf1Mcpuc~lChlO^U-)*dyu0Z#R$Cc{?idW!RKJ#snF|vD9d*a!N+{)xi
zj)0UE4J@fFH~F$;jO-uPpD3*44Ja&88m%ho9Idd3cOEfEzHE?r=xQEhU*^YutJG1t
zq)+}vQ5D*rP{!ZiJ8;&xJJo(97T-qTnC$8!Rr!z}D{F6HZ@@_?Dd)7!Pj=;C^a*nw
z%7+`8!yG+GRk*QoKItNhuJ;(U=}qj(bvZ$O_%nM1xJl#Vo_%5VvpCP5cBHNr1EY2_
z)6U^^8k(?71{z&0y5(FnjEsylE4SC{(tPs~0$+PNNqe}sI=b1}*tok%Te#Xdxk*#L
zk=^Qf+G#8K`w+Ai(=(Y>D?V^~2FdtDy}5FA`-tjg=M?@E>Z$Bb{K8``opB-eK0NDt
ziT16s*ulOnpYO`<J(5YE=w<Ti2kO{3n!3)G)2-z+3CYhFwoGC?Ql6o`{bc>Fvv+;1
zd2)|FyA_FHUj15qg^)*rleRZEOR8evK2JUF_3BR7tt6kN(N4zJnMes1lq`QEl|alj
z!{}UR(>7!6nCQLIOgma^Br3}iEqsRfuDmMJcI`p4YdO~^ImsAgKNvca51vqhmgWZ-
za4ulrZfA4aMw;>~<-r>bkGs5+;Ud!G*>7Un-!sxK*OTHJv207uwMUDd<;V%;>_{~u
z5!Q>X>VIP(8N<Z>wg$6@*i@~2%8Rh;{s&sOeXfr$HN~*fp0ea$eKYGrPGTu~8{_4J
zTlR0a^`uXHbfJAnN2?%Qyh%oP@bH#qrc}gQ<_3-=4xzI#+_%yTclYx|I@EJYe*ALu
zcH@J-cT=zGS6M!K)1T9V?!9%{GcKrxWt%Zi&#g`A4}zn)mMsgEt3I1(wT0d^QN8=9
zsl!#oDnteQ4jli^5|4U;%BZS9*RL18Fuj|j%bskNr+YBmdw%X%uftyV(F$vH_VDD{
z4L-aVp6PnEV0`3OzHdx^!TX!T+akXr*2f8L&-kXw`H3&2QBq~?AH?Y1?+OW9@ql+u
zsSK%r>UunaXZ3$q#W2-)o}=I^Z#3c=7QcErt^4z*5gv~IiH3%+D{OdTjty+vW1z+}
z7ln&o_T^K?xb<G;HM>=lo}FGL!k}Hx+Pv(3Zj3HVj?o4jkL75I;mK~f_&0*J?^e$|
z3`+~$dw6qKgV=Qx(~-lUq7N#FyyDDuXY-86uq-!Yjy;oHbD@8HSHytwp)2oRv?vJQ
z+ZoTO`)Pk4Yv{W-NqbIV#veq=Hw~~z&<pbwk0ka<gy%(S2c+IYf1cd3T9np;&rfOP
z$^4xwT`nB_P#${uq{a1W-wV|*y+W_pSRdNJd!e4~qmG2?-pf}%K6rU71zC@+-lnwn
z<>OB51s_~pwOrRG%jn~AmyZUDUq55$+hdCEuS!49V81+ny0-8&if^+c`ssanw}hOR
zmme5a8kspb+*(tgaAM{1tD=KR9QE?eB)5Dn(^@GGd-^u57!ps!Ejmp({h?F5n;oC*
zaXx`Gb#=q{9%>pC<*AWn>${qKJEO3^_QN1wWuLH$L@R!~_i_gBPb%R|(E__|XoNO>
z+H+@hkLuZ7M~6)fCy%c892ux#kwWNsaN*=~K6v}4o}5X#eZD*|aKESe`PeTd(vs)4
zHb$)AxY2Dj+Wv{vpj$=~`SoEOdbq#zc_-hceW!OGZsbed`9@*u%to2VaiPx}H#C0c
zE8SP*Ak}M@ZX2(1Myzg5fb3}o1!*GUbTl-@Y(Mfet_4qXv$J%yu|DSRYVU08MvgI8
z^eUY@WmpK82y{tqoMH!ZS+De-_@X=U$eF$b%UjE_f%%cJTJ)t)qhiIzcTCJZw7P|6
z`896$&HbkE_P&r!<8`Ti<`s6AW9pp@hiBWnhMDQc->Y{U2S}bjXf-r=K;x5ODz8cI
z8$2;}vwFdUJ&mWsMCC%x-NDbapJpE1;Hn{Yuib3yZ0?Mn-9r{S%YZS-^Mu>`WE{A^
zPAxah&k)v+sd(p>=GkRwJd?47W9rf_(@gAc)%3z97kTrOyHbTC&ty#Jw#cUFvyD|T
zYL0a4q7U8OKOEFN5^;#{*>Q&62@QtI*NU8T&h&}n6N+mTFRYq0J)@Y3y35LB_~_P=
zae3((JACtzL6uLHI-WG0dxy)5RPT)y(>5xUnY`pZtdhs-G^Od8vg<6n{7ILzr)kaG
zzvw;-&*N`H1$o!KdKw`2;rQjyns%>)*cW4;%@{n`JltkFo}Re!Vj}D}M|WG<Wpj>L
zWS;B&fT&wN?4!R$@9;s3*X_Q{+wxRPL-V5=-}-fWosS<sEHpS(++aL^rmae5XJTDJ
zF>brIKT#=^Su9p`TwMLobG))P<F=_d`J?ZzI&HJ%z`el=ZMoRK)AOpD+H=3!1{33F
z4SnjTUc5BSWggo)8$D%Wy&revgOU5DikfwDcN18XYEhD_?~bc^vNi<z$+qvd)#T}j
z=0^|MOQt>0o1Rcki#_)Im^p!#Y)?#`3`}gxXlNK${K%eIf43)hFDDy{Ar;<ibnV=@
zswVNb(Whs^a_??GA{QxVf9lmhiqiA=fi)Vnr=A6^I3qDRP|8>*kUJ=mpvQf}5((Z}
zlG}?{Wtw<)qt8TS_nk&rtBht5!_4I*qf^|w))}kmYg{qdQYn=`qfA(Jyq#&P;M7aO
zjho{>6uM1r5PWR3O=IM6`{ByNDIv*hfu{~Ron9xE?Gbrt%V(V9CUL{vtFU*zTwklU
zzK;2R_QUsC&5>U+KGG|Qc10fFAAC_bOjgKMcn3OeZrP(9=M?)dl|DXprR_;;y|Lbx
z5Z9H&SA4B+iK^0idlP)`sq=E1*afV=eBsr>?t2fcEgJ)R^gKCNR^%|^RzI5$|Ef-p
zW=*V>$yBT~CY4J$Z<oUEQ5Gv~Djj9XCX7GK{qW+-+k`hFY=PSYPo8`EfMvylQRz<J
zbxaRkpSlkbb4|X!e&;7!5RbJg{E*U~>#f+D5cal~-=6Qj;|Y)Aog!Rc9--*@4_kjp
z&OH$mkTix!I#+@fjSsj(+xjSLl&0Xse#Kc{qVegv)!}hWS9VxvAq67ZW!wcj{0vW9
ziw4nVJGLnAy%}vy%X#=Vn~?Mg6;s9v?&;5EPmb(3x|g@jl4I6`uKV$*vR=PadthdN
zO4E~}7hl)Po6ih!w+6LH9~csGG_^=fPB*U$Iq%A?P~4(XoOn+6(QBp)Ew7GTE%0=-
z3caMG{_0Cp4g26k6X|i$**AR(c@MiICdZJbFLr&J@g6i+w{Y?iLF#@zKE&2zF}WOx
zQ;Au2-?!>Yuf)p@ujFJJP8q(iJU?Btkw8Z_!Y#;i?wY^|%@}`VgzO7ONKT=wTwEN<
z@hm=4%Ne9gfjZ3!2fG7K9+bSQ{#Gvr{QHjo>03^#9yRN@?e8n1!Vlhay7zGYu8VR9
z$r-~Nzx_ji>rOGJ+mXw&&LBFDX;+}S*YZVPuFd}R&bYR2&9V+|ol=2*v|4}D$~T?i
zQ4%lY?{B}##KNv+7*HM6>QyDQm2fTa9bIhFva70X`gbaHt71fU?f={_V`?lxo1<;Y
z^42rJvsv+;-vhl3s(0)K&Zw>&y(HO-*u5>hd9SV={lxw_1wo<D>v*u}SnrFqyi%c>
znVuu%qKBiRf{Qwy8Xe{}I}%99fAM9^wc!n}On~1_tH@(Y%7-X$EhRcv<-rc5Z}6;%
z>0#k*?Ar*nt0JtfcLt?ZKkN^(9B$>2y%oYV_~4@OO+Hiq^R_Jcogoa@T12m*xwPl^
zJzR<Say3F%f_Z$y&@wFZ!$X+B&?CVX<TE%@e=l1Nq;I0&a{13`Ebqb@Eaa}=o&+U(
z&5qpXP$jeK5IByj9qoBh2+eDEk8HN?Ol4Tr`c^JiMDWPFxvBV_ALLi<=Qh7as-7n`
z+vO8@y~i$!dsIq3xX!WMo71WPIQ?i)EM9EY?Si5bcK$UtZdo43oHoyGf4;5boGdfj
znDIrS>uAKO-ZRa`jH{I}+XY$g7^NDho(?TJR4mb;cKb7ru7&mWa{chB$IH&H6C#Q!
zY(HXqhWn-cUL8XT;jt~QziCTFUb67onR%&dueq&}R9(3J@GPs?)%*&5lzBn-z~!kB
z4rxzq*&>%p#VspwJgu?{2j}Q+X9?&jr&iYn3m76PR(q4D^4K82qZnB3e@2WM{EY>;
zeoyfCv0ai`Mc)h({8LkiGnO}!9?6P2vGV`+_<-QvH2chFBO{0q=GdrNoPTOotd|x0
zgylxb-)db?*sU3;<fUz&DpR6iK58N*mbdvtHO;v~ap~Q4x19H@JbB7t6>vdW)#H=m
z1Abc`Iaj;3R3VjyTdFQkq8y@E%x*<bzen-u`rXQES>}76`NYWJSAn<^XI;-t=Mr09
z2&}QVCamQm!(=2%6jtfJ`eIAc)67VuqER_`GzP|Gm!yq(;6XN1&F_yNaB+6Gadx-R
z^EzYWW=3|>!eb5Ez$)gK5e3KB>~P+*@$#Lir@f5o(d<UUM^3($_UdZK<ZGA+XKcLq
z%Dn7xjl#B}!Zcibe)S5@+aDxl#cS^E&AGJG-}qWsHSUWxS9GQ0qso&aQ|eaArFXVY
ztxo@7trKJC8aj=LbZDlH5xi%c%vQJWvyDkTqXWHG^se5qY`sd`39snmY_f66R;-S3
z!9o70l!wco+l5?uSs@&C?W29o3734c29-~z%amoe$*&XVe1~P(A=)~bPILd2MA>+w
z@cl6hj--bn`!~FLcUDtFR?yC2RepZo&Sd>vqdPDg`?${>mhdp}4-hVu5oeD{z%c9x
z*G2U|4@ni2R$;r_7Nq^irb)1o?qE%w$Pn5mxax{W?VgxzNappCgBSeE>@xS<WV=Bc
zY4i(xBtO`IwMAD@P(OXOKz9c~oM$=Nz-X6o(fm<cGFaIM(1Sl?0PeaDoXnp;pwhH<
zwe%pTegE?XrPTUf%D1)apQUI4*?+EA|EN^Im-21(N3L`K`1oahFXjKNdcPO=ZIVka
z8vpoQ%%TYVzJ&Z<z_(cqIT!xpGn7LS@R!W^dkNoON#yM3kB<Uy1b~d&|K>v9|LC`o
zlzeCX@p)SCzi|A|4fg#He;ZWD!S;{O!N-&z{tuz|dpX~FEI9=I@i|}gr-1bR4}NQO
hf5zVO2@TEv;oiDh^dNVnp<x35+ySAmy_o#n{{!m*<)i=r

literal 9475
zcmeHN1zQ|h)@~evq;Y}-cemi~-e_=lcY*|I2u|<-K?8x{?iwU$Ah>%VxYM|NotfR8
znaq5@V7K~t>ULMvIen|{`yMTj0vtRJ01<!;0077VriYo<hA;p?96SJk4M2v~lW=l$
zw{Ubf((rb+a5G?e<zP>i3lB?|1Av8I|G(|O_z9FI4JmiC0i`Zw?<6*u<rk|(k+~1R
zeOL^t!k>E*dyCEVvTSS~vm$PR;vaBrd8)9!E&6ht3|m(_I@E*1dt21dqJsKAYZ?;q
zuzu;=r|!Uimf)(ZbCiQaB+CBG$SB4#9gynM(5=QLxh5uGN@$IXCmi@abG}atbEUTl
ztys5^uYaL)Rat8plXtLa0{DFld(zg1-q-N#JF^^o6ov01o~L0xh+JEp-c+s0^(IB3
z-Hoo1bIRBZc9|_St_@>pWCgLMo#(j{7h!c#<ax1fZ=4-tho8QmPY2!GsB_Rw^9x*S
zBWArU(I9g0_$&Zq7gdW_#^Lzwb&m*cp5oAP7unJ+^%^#D&kB)wb5?AexiSHT1Ji1L
zUzVf_9}ffA|5N`!BkyOG12bYj$AU4W4S1=mN1O}Ho#wO8;=qB=<W#T24p#ej1bp{L
zH}!%KPu}eWa6BLa0FRGw0MK7(S*OWHc@D*zB9wKgP+A(fTG+d>vi#itkB<Mv9Q@O*
zmnJBwbhDv_9?9N?^<Pdc#R0_?yu@T%$Tj=}<rbgT#pF>DEp^Zm12qVP;ba2Z{O<-A
zmIPyV`^hiXxk{t3a0Dppy~;vUZd^Q&7-(GINxPJ;^<a8VL8dO!WaPc+JlkR!N*W74
zC=9GnN>7|fRsp}Uyd*@y&L<AV6G{ux?N!oQHoYo`nG#n&C=0D@;K|ud{FWXt^R8eA
zT_l`Oaeq7wx8KdwYOdU`-<}+DO{l4E&1X|-n&rw*;caAY|M^TZy#xE+k6AgRUyXtb
z>x$!>OdoX)BtW;8>tra?yN3s*yQKek031bHxD54Be<w+ha8k+{^ocY>NkRxfhIwVr
z`a4g&oLucpot*4`dar+T1_tWFpj!UBw^B7Fg&sCw8|p(Cn^(FgF6Nv&E5*L%-c#g(
zTKWYVa!&vA6(WXa1MO)ARye0n@1x;9&r5EMbvSHDCu3nG7Q7F({gD8I)9~3a9J1*_
z*>kWA0yftE?q10OD#m*^>?Yxaex@uO-XB+V)X&253MeGco5n-AY)9BUIBeZUNd}>q
z8LHg~ya`d?F9X*$G?2Zgx7>Vel32Jv%m#atj-5S2krPDs28?Y_k~3a)N?jnIw%%DP
zd5_q2=G~xe5|=1EFXk5V3w0+8>z5%7pigky%uQ?2JX&)Xza6CSSU6=GIzO`980ec?
zfv)u5AyW>A{q+$FmkFrVeG0t-3YkBHrBrjlF^>)S+Q{Y+<~q|9jy&+aMiAA!d`n63
zOp0tWoN^UxYMoMI@ovXaYRK~GxC0MGJ34W88sBr$Z2OY&W-B!p)mR{3SHGzTjjQ2G
z%;?nSB1U{ZSDBk`<olRWIQ4DwyZeO`>3)b>cpU<uj_`x{9*rk)GHz+^t}It6;*flQ
zq;2Y;fDCuSm_BawPO-awG~B1$R%w9{ZGU))QY}F<_4qp65(tK5b%Je9#gpa2=VgP!
zurF1c9Ek+5HQ|5?hOYOcK@=r}>k}=yvdv7L2h7j3^-xp*0pJfVx0#>aD>c7x(kE%}
zPzHK>etddIJ4?Qygj^rSenpUQB<uN22_su)U^TH6Y*o675WUKphZ(2!DVYF#DOcOc
z$%7vg`?A%1Mqo#`*2aHg(7aeuOD;KUQ@_S9B$N%8=)zL0UTORktCZye5!1Ezo2zi5
z)`(UuGlUwsDJ(1z6Fy#m%?Zp#lW$pF@IF6xI;XqM$Y@GGEE5kF$1$@;ggFHb18*DE
z@69_)c7tNhV$_o4P2~KOb@`xMRBHKhJoSQUU9PA|2b-xR`xE(`^JA{NU`ZRxJI~K2
zBuz_KuYrMi(Z0{1QAp>N`wh05i`Wr4d)$LxfTIfeX-`WT=d;8Gnf*`8=Fia&sHh?i
zkW8#;spJpVjGs%YZg@usyn?kd2U>yan`gHcMPuWvG;Ws9qa1xvJ6(p(@CjpIJ=Q2a
zmhU*I^qQzImGdnW;(MeP)wQj8u)N5Wd0Nq%?sy%#)eN|#pmXk@FS|FsD+iR5Bci0u
zo6yCKeuuwB!RYSyoFJ=w9l%l3&6T+Tlct=&caqzKD!?$p$YKD4plskYmATETs7ehg
zQd*J1*Wq~K+dq-vKDQ?_WSth&uQby}fVuBU8|VO0$?xkM4Q}Thr4-IWbJ<vU^#k2r
zBwAnKTxdr5zDR%w&1yntoVr&ZaPmkOocZ<pgC#o?Dgz|{;~e2(o?E?qAuRO)F>DrD
zPgdPT0QUpxKXK(Q-bU~kYBC)W005ldx#DJR;%Z^8?(S;iXyx|Py83B|IWDjPTk*F^
zk(cfGY*cICP*KWaZj63}Sv+R|Z46S7C7dR3m9C^D*w2t35OZfxTUmJ}Ra_KP3Wzes
zuxt;T%Ar_0hD@e|+aJ8I&SS9lQt?VT37_x>=9ip)4_nlg5ihGpaLC*XFi+cLrnAH^
zKq65l432C%j!6G{fvh--_qm9r#ek*5GEz<ng~zZ3?BA5%W7h<67J<v|nBZur{%X)<
zMyInRmes`ZP1?SfsKA`3r_cetx!8=`{UjbRq<X>PPDo0hCT>q!GhInrK#p9`qZ{bS
zzBX4v=)6G}OOY!7k%n-ipbWjfH@tBbli*30?ROFse;1&n?9h$ys-m0r7X&ZAy<is;
zGU9|MK$J&>u6*^OJcc4>=h$)dJhqvxmUaIu#)vn9O6a}YQ9G~uSorQDxfKK-EUr8_
z*kwm46@KuFI3ya90_#yvTgZ{bnGPqvA!ILK`4Dy@te?$s#ro5fGzm8^X79&-xl-^i
zoXq`%gQW?4rHv)4W&8GvY((}QYrzvcVD_%<@*EZS%ahCv<zfbNd1{R9-L{Ea1!}t$
zu0V2_i8nK!1aN7G?=yR%6@-&XFI&vkc(_Bj3}SbC8hV~*i%@;H-K4BBa|g<z=X^^P
zCWv*y@|c#ydq~+7`A2Koi4Sa7MgjnO$$ln}zgbgvYYPVp*5CH*KLN6@GaN<4gVTY3
zBZB7Ub;tcZmU?;hn|<OEm3d|oab5kssum|lLMstAEHxiQjqYQ9inx<d(zqxbdfRy{
z3RUe6=@{+sEM?gyRl2>rt|xkw%tPC!PnTK#K4<PH<87%vGO4It3Ga;BL8n3)(X**k
z6Ym1-c<H$ORAiH)F)dIWuTh!q6c)1mT`?U7ko#ugt|je1yd#z4TVTNZf*cy(_}P*-
zXoV)aPqvFP8?TR;BzQR$k1=1ZjDRxX$`EV{@_o%gPPvbsEFa)o)T*+^9xsj_O}Fy0
zxQhBi)%Wgd@$fg>YKJ7`^QR_R>;li%eaA29u(15Cuc`01@Ech1#<XZ8HxYFt9CIEy
zniP%ww8z{|cRFpy$&iC}ee;dr3ibOSd-u8>_2ZvlthvC+1@*K1d&!P*Cg`A>sShnL
zk2HtymPd^YYMMxjW8ci=XarP-lA<-QN}*PW(F^N$hh<uRvf7);!7<Y7o>4e31T~!7
zfh6Tz8$(&%)Y*D9&EuMPZNJ4{Mhg~eOQ8Rz8i!u8ucof3O~JFN8-2(j3<!i(qmo-6
z_=2V~id@|oMaQ?=vp_w8jO7%HMPuBkL60u4c~v1C^iV(<S<lAtG1<U4LYqkK;+1L7
zfMWd}W6l&08Ecl1@5AxVSy+cq!1?xdw^4Od9fN`+61BSe;Z&^A<NZDUvQfvw@$L!F
z&Lr(gS5L>?^-xO3;|V{ca(xk(wf*(!=}sd4%4^7$N-W9z0x?PIF?mGQarv6r5lxgy
z5XS8Zj7Vk=n|M!xDCV|j;o(p}tf3y+ZkI>pLDvGYb}vG!V29mYGwDea)!VcR=_-Up
zvuIBOFaFiy_e00W&RL2}iDyj_EfJ&fc84tTrGU#V&YYL)YI8A_7C+D<u_6k1JIB>K
zswARGN?IhsH)n)6))gxw&JTeV!Qm6s60XM7YAm%9rr|?f7Gxpwr^Cw*72Sn)Q$l{`
zlqS%5u=$4<ZT1dXv#9Q?@kz3Cle9;fZ*aH<bjr|_vr<X=MADz#m@$PY{NN9R5Q=p?
zLHmwz``n=CMS_Cs_IOhi0cX6B=WGl}&~08Zp})tU27_EG-YZxR-!FDfKvGD87*x%^
z*nm>sb#F=0h_GS%K8ZH`#$tq|sx>;TjTGM<Tp49CFIYcYHypt!z<*YhJl{f~?jGGs
z;M*YVrafxHIkeR@_L9OlnPgwSl(BzA6Ov&JW06p7H%;%Fg3M@fd6MK%Y31YseuYOD
zfw}VWnox2{-hg*AL&GQYEr!x6H|!?qM$`oT48k^BLQ99-UJSC1Rf-SZp`U>>qrX#4
zpRv)h&_O%=Ge6sBWETw=!$4I#u%JmO@)I=tC2%<IgT7>DiLU)&Qu=KAi>Gin(pqiU
zi5oFrzC~2i-gyl^_kwXlM2OWpxlQ6vr?c3S45~r7BxSPmvCdlj?3_^QHtntHW;k{A
zcw1~aVJKW-F=Cf?rrQg-fQZ?qwfY4O(j1*`XQ{MSZE}()9S$LUX%Y8&4c|Hzjl@>C
zpxR8^WD7GwarK@%m1!}FlKHy}jR-BreC#Niu7t(X=Zr{2h{h{UnjEu_VIGXQ*`sB*
z%4e@)V<wcXno67B7oj2~T)(2%kC8}`FWA-<I$AE9-1Fbo@X|>^q??-{Fj2H5QuQEE
zHNp_bF|-OXoJ-RlbJrdN?WTOtm3G;D!sdXB`)c!IRjO?>Ol)2()RH)9%MABZZCYz|
z`IC_}X`e*SqBIzgDJv&gth@SLvx~Q_hfQ&t)JJB@X!n{JwsAHv{u-0O@Vi@`-sZHh
zNe-1J(<UNU&fS=&n08VWw2eVDH0q;00*=>pw#W?(lw5Y#*xLl%Gp`VvC@1ysbJZI?
zpUGu8UU`|kdxl>fCYi*qpQt>D$R3~So7BT>#2k=}&NW7y>%jOj5Gbts{k<q7X}Sy0
zU7-IJM<=CC=n{cymNIG3ntHkOL-Cgtl2WQU;;uH*nAkQr{w*HNkJ{R-j7V=I0;7Um
zcZb=7(kpS}H?O_cjR&n~S|i8#lHOACM}a(ZQ_ZuwxFgEHj;Sz`5~$3*@BFaGBA8kX
zchRP@#6vnY=!R(X!>Zs5!|tSe;!c>r271Y<#AG!?zT>?zvun8>OA`jxl(&5A+T`mf
zxK1|a?5`Y3I<3mxku^1{3$>g~$Y?5)FRmOsq<Mu-%4tRVGr#J3h%)WTXI|Y5F1Ait
zB6$S~`Zx#hep1^8i94lG(%p;`^(VbBj#^CAi9udz<)dYO^ryE+T9Th-P9ikv0BQuQ
zeZZ_QdE-f-HFRI8zw5#9bk#UsRUczw?*>NSWK_!2rlN0#<?#C^^Y9zYs3=9FulRLq
zH|y>CbAB#Im}Hr^b%QxN4xYAeEbD~m;M<h*M)#-r-x!wZ9ijUyRgMu09=B1VW6V!E
zg7$cx)VVh3A=^@0_~+>qA|=ZU6gCju=iHMqni+4>zcz0NT-vtOKmKF>+ZCJ{g8~Nt
z_(Ds$=>H1P+`a8Bev8anwHDq^KvNl+byB7dD>oapd4_?=dLkQYQP~#R*5-%_-93ek
zMrwqUqi8pq8eP0W@GG1Bs@Hy&BVQX&JSchjK?a=E*!xD_1gdEz-~k7)$dc6vTHZWR
z2Ut#}bR0i@#sB)Ap?o-gqJ<<M5hkP*yOpy*x6v{4sE`bjTwEBEtY#yIrU;oXV^oq;
zU625`1Z^o9h^6+Bbct`I1S02>UL+?ns$zD(h~{*&uVTZxUiV~7rXj-6AQGYCv%M?A
z0Of@#=<X%@!VlFIYuc0pW;87ZTyK&N7c*O^L?~fShvM$~Az+zyo|`waA4+zDbgrEV
zQ{>+hZrZXcfoVl2Lyb?!rts6|s6mY@$-R)5?qtMF!k!bnFZFHAMft<^?cyaz9s44k
z>&L!2GDaBR&8ETGSx+5aq99f^NY9*Z&qg1fWGznUK6DE`_GeF*5#E_*#O5wO8z&ea
z12J=IOWj{RXp8YuYbfL6Y2O?imeI(FgtLf%7)PEk?s-Badz75as&mkpu>{feRxw{P
zz8osK5A-F<N3}+lAe@WdQMCDLV<T!bTrY6TT?}4{;XsU}i9waFm&bDCH0B+93V87;
zV`Z-3q{%O2DM|KFismcxXz+!Zn-u|Uh5ziD2X>T*^j@V*B{}H9O?xtl_HIl0_HzX-
zt}z#l2Y-yL=1CqikDly3+Q_+u2Mh=N8mxJEmz%bzgRwWe7LjWBnrxvAM<(oB`%apx
z;DbG4T}4u^+Br_g)Vm1DKpiftv4vuudYOhD=VpXLyjm(>$3vAU6yeyF3Ge~J)%4L#
zKgM7!@aKWK#q&=uhHT81r$)n8qb}Z4Uo8xu4*R`ML>T$1H<IBjPHFX=c}5wh{N0|%
zi%VE1$m?^pyDtJ`!uDkGq%5`=6%mJ-2Lmga4k*u+_-`CyU=P?Yz1bkk((PO3*x$Um
z=+pRWcBovd`=3rvID2DTjD`E2cU|_lz3%W$W4g9BNzKU^5GxV;P=zZA-eJvfMxtIk
z>j*uE#-;yI0Qex-w1Wigb*y3l00h5t=4S!G&Dz4k-Hr9P;kURoBW2<3IxjHv=;gdu
zxZl$V31zabLW%dw@s{~hSwH6C;Z$ka(+Rext(RX9VXT2p$b3E?DkEn<o*HR-E>5U8
zS(uQ#TH45sL?PktS=Xe|@~(>*5D8#K#H=D5D8^-!{9<-GLUd|#vBx@*S7?;ZyfqH{
zrZ{3iYjCNjKHYvuVH)kr+n2|~x|7t2$5qR-!{tBh^O2I@9Pld}r!ZB>mar9(jsf>P
zvQ9M2Zxdct;}&^$Qhn{1`_WRM&R8R}A+ObO=oPG(BoL?lLyBdkj;?CZ{?uDN;yp9!
z@x8RrI~^zPyT)UI-LCDeHd%|Tsa#AuK6s0kOt+PX+2;#P0*sJ*5h@9xmLFmIxW^Qm
z4~t2K0n@Imrg_;os3WEf1`zY?3e!_&bitK?$h*$|Sa49v#|JVL{2elRa1&>Md>$KG
zN8+4&vc#KY#*!a<se)qzVE&#gB@ej!^fNOz4=1_$yC{6YL}D<=RIci_YsPgXih_n-
z5QN@>v#uF)hZYUTPADY)#W?Nj)7E^WK*xs(Rio{VH~fYhVL?wEvdxTEyw0?@4IlIB
zwfu%J-eg3r+qEYwq)JMBgLH>C3-7ewsS^i$zqVvFsXx}Z95aVxozevNhVG!lgvO=O
ziIP6(T9j+ianblr%$SuZb(2FfMCEu+4Im8W0t-B9NuRdQKTa@+n$*GS3m_bsJ;|xS
zUG-6O7AaiK#DRW6J{LaweBR9h(@EEi)}egNhgxjxaN|CwMl)xx8<mH^sFeJwZ?avA
z7G|*z{&dW;j5$x*-DA<@Di~G_$wGc#uBgrcKM^tOx#h^DaN#j6#SZrQyVOgR%Xc89
z=-g<>h%Mo@C9EjnwQLk3S2tzg$M5`NKOXk)7_~1+xE%LZq|_B|klQ4ubux&6T=$cK
z@N`J!^p8=FImN@&XFP8|WRiN78gCE`bMH{%P+K^H#N^~|kzWXM5FYj}v7-%bxpY5i
z=N1$v$shpQ&jzky5drsSIr$F}mt9IP`b#teI*M?kiSuyN2%yJ*o{j@@*EzW_qH7Q>
zLFP4y=DS}kEIpmyZ1t3Rb+${1V`1tj8W%PRq!WJumpAOVn%UK*x8~CKMB2_Px_(c1
z+|6DzF0(dvwK=r^Sn1gm<H;Ha13{Yj5Dj#C9U*AQ@=EhE&bX9jxGgST#k>#UCJ2<>
zbS-kEJI`Je<{YZrBFhh)&004SdG)aoTZ@29l_-bkE+Zm3?WTHiq-D|3q$0c#e@v(Q
z$CRl1=skmMT6j6>wFrqd$W)Om9IxoK4V3gUtd^Ezv{jn#UTBmat>IK;cPTgEV7;wf
z`ow%kJFvFBiDt5;i%Q<|)RtB7(TV?-^q-7J?#@=HDAX0}K`V%u(1NqMlNrd>$=Qw7
z%*oZ_XSNIN&HS&<47IA!3Bx~Ig&{|>tr8o)rnLFUrBulPh$J;tr061(?}BcRNHx06
z%5z#92@s$2`N)1l4P#1Fn{5KCvmv3u2SG|YnBkZ>AH5GL5RNvnh^LCE(*)?a{DCr2
zH>bH9?_9sH4m?9;kv*29vQcR&8)bo4V88G~io9mxcgNxBrN>*JaHz7l3wD6P579S6
z2tvUlI1DTziP#Ru@spfanK=h^vUBB#BE_CD^@%J4l&?jId@R;AIEd{RcL=-&@%(@?
zm&-$Av-J+sBR2%>0dH5dV!z!N7fmje@#Zw+WVj+R5xn%BkTqJD%WpC4_S60%;Y1bQ
z(mmkLBB@5|_c=(`6o(&PgubHYHVlF_g+MPW|HDRX`Z~jKvo^KE%Pj!nH5LlySAKk2
zwH^M&Aw)TxR@7j<<_Hu3jpqJdw8mWZfk}kIjvjgz_-ELeI6MCjbx^qdYs*Mba$5M=
z5rexRMOz}`TLPg4mFCLwoL8E_tk+v<7MOjgrV1~OKc7*l9_!KZ-Hjn-H58_xF28JJ
zMhv%ZEtz#yt%l9Gh;eC&T$<@%@vnrHYm$a`s7;YXJ()ZFG1Ir<Bsl`5s-3l~-qMxw
z$}EXhILFVkc<7S)O3}v%94<^-H$ramk!0?wnJReqQS{-4rFaRe2VA&Et(1r=I7x*k
z!{P$-3x(+Q(x02tU(sXokZb4R=Fbd?NXx{w=dW)W2IKlI<3#wN-cS?ro5y-H)a&YK
ze+sJB#1lJK7h4P(99pEqR*ekOg0nuY5<PoA?L81l`zDT^@kOC^QeH^9g*r#?3o@ze
z?eCnPfDkZkrv`C%ljrmFBUipBYR)WQ5wT@$GbpD+nO0Xk^C(`6wq{_*qG2C})C~Jg
zeC1oY+Thv|IjTDfb`6{4mF|e~?Y#xv>Pa2fkDTSsdNPP7vN-EsR*@Z!)8q})>?t>q
za5=rdjPbh*+u0i0oXWk^Drgz81!q4r-a(_U-+>GR%M7g^|MTl6|6aI%kN@!U2}t3u
z3jW#{|F_`JF$KzwKefq!75r<n@Xvy+&|c90-#YwN&#xV%KQtXd)39IqNxusJT2lW*
zm<a7R;lCBwf7S47$@LEnLePj7`uD#UV1HHcYts0Kf>zw$r|_Q?@>kJcW9L6akD;OT
zzi$0+k@T-x{^~^k&;bB2lK=pJbE&_I|J4}&S^Oi^Xa7h1U#1bHfB;=x0N@Gq6A1O%
J4irCs{U3X3h&ccN


From 1180a49a135e7739ab94c7e33acc6d43ca5a8a7c Mon Sep 17 00:00:00 2001
From: zerinahuang <huangsis@student.hu-berlin.de>
Date: Tue, 16 Jun 2020 17:04:57 +0200
Subject: [PATCH 3/7] resolve conflict

---
 DESCRIPTION | 2 --
 1 file changed, 2 deletions(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index 85a59b8..012a22c 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -25,11 +25,9 @@ Depends:
   magrittr,
   maptools,
   tidyselect,
-<<<<<<< HEAD
   table1,
   checkmate,
   gridExtra
-=======
   data.table,
   checkmate,
   zoo

From fb27138f1c99dc1904712441fc7a982d9d8351e1 Mon Sep 17 00:00:00 2001
From: zerinahuang <huangsis@student.hu-berlin.de>
Date: Tue, 16 Jun 2020 17:06:51 +0200
Subject: [PATCH 4/7] =?UTF-8?q?modify=20labe=C3=83ls=20of=20factor=20vars?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 .Rproj.user/shared/notebooks/paths |  15 ++-------------
 DESCRIPTION                        |   3 ---
 docs/mexample/mex_vars.xlsx        | Bin 48263 -> 69105 bytes
 3 files changed, 2 insertions(+), 16 deletions(-)

diff --git a/.Rproj.user/shared/notebooks/paths b/.Rproj.user/shared/notebooks/paths
index ad7dbf1..c33c885 100644
--- a/.Rproj.user/shared/notebooks/paths
+++ b/.Rproj.user/shared/notebooks/paths
@@ -1,13 +1,2 @@
-/Library/Frameworks/R.framework/Versions/3.6/Resources/library/dashdash/rmd/child.Rmd="FBA5C26F"
-/Users/sisihuang/Documents/GitHub/dashdash/DESCRIPTION="FDD3ECA9"
-/Users/sisihuang/Documents/GitHub/dashdash/NAMESPACE="FD370DEC"
-/Users/sisihuang/Documents/GitHub/dashdash/R/plot_aggregates.R="E20DCDED"
-/Users/sisihuang/Documents/GitHub/dashdash/R/temp.R="24E8D678"
-/Users/sisihuang/Documents/GitHub/dashdash/docs/index.Rmd="88DAE09A"
-/Users/sisihuang/Documents/GitHub/dashdash/docs/mexample/mex_dashboard.Rmd="A04F261E"
-/Users/sisihuang/Documents/GitHub/dashdash/inst/rmd/add_maps.Rmd="99D69A53"
-/Users/sisihuang/Documents/GitHub/dashdash/inst/rmd/child.Rmd="1498AD5"
-/Users/sisihuang/Documents/GitHub/dashdash/inst/rmd/dashdash.Rmd="EC2CBF22"
-/Users/sisihuang/Documents/GitHub/dashdash/inst/rmd/ft_plot.Rmd="FDE79D64"
-/Users/sisihuang/Documents/GitHub/dashdash/man/hello.Rd="F4426691"
-/Users/sisihuang/Documents/GitHub/dashdash/man/plot_disaggregates.Rd="1BF18FD8"
+C:/Users/huang/Github/dashdash/DESCRIPTION="6C509801"
+C:/Users/huang/Github/dashdash/docs/mexample/mex_dashboard.Rmd="E122CEBA"
diff --git a/DESCRIPTION b/DESCRIPTION
index 85a59b8..7894555 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -25,14 +25,11 @@ Depends:
   magrittr,
   maptools,
   tidyselect,
-<<<<<<< HEAD
   table1,
   checkmate,
   gridExtra
-=======
   data.table,
   checkmate,
   zoo
->>>>>>> 5c540cdc8fc167b60d2ae77193f4ade6a49bed29
 Suggests: 
     testthat
diff --git a/docs/mexample/mex_vars.xlsx b/docs/mexample/mex_vars.xlsx
index c5ed13be145912af50203c954b8c107b5fe1abe5..749a09f563ec2c9bb639908a8960b15a14d6c51d 100644
GIT binary patch
literal 69105
zcmeHQ2|QG9_a8giDoOUGEJ;X(2w5tVP!eTLrO3XoW70x}l1Yjf)kspPl-*Ry8fqlU
zmJpL=$k>_r-#aAA@6GbQZ~tE7_xaU)CeL&4eeQYAInO!Y^F4dCsHj&!Xd(0v2t*Ka
zxGUPqi~<4)rG`M*AoP^R>JIj<miDgZ`d*HfE~b*6cD4eys42x_A(X)HlYbWR3f#X^
zqLU}Rbo+qjsCx7IUA2$4(QocNRj^!quky2(i2Qp;jAN{=i81F#ma5%kKOy&Ud3mjm
zOi!uRBYV52r_SYP=`jWQ7e3o>#w{oHs-Qy{&A}PwY;+J8yMlY$22OMHkYiDhYffo-
zdYd#FRd?OzvSMGUe6lI}V}Zf4hWresdq#J+6xKZdq+?LOOujgwVrkP`ws$A2*ZP?C
zHm!$J2MPJqu5>qx+aq{j-`c}^8P3BITDdM_=^HB#9ign34hYR*sVi%s&B~SI)854O
zDB%MBo>6|N%{sKNiLW<W>|zjp&v2$JyOsHR<Cty!f~PRmkUcg*sVg7I*q6gzs<7YQ
zUDEwRpl(FCk&WkN1NYI)m`kBYbyf-4NqmYch|$p9A}4;zFTSuSUH+MF=Mf%X`#W#x
znyI%B5?Ayu!)EqAQ(Ic}OmGb>u=7(PR?(;9O^fmAuAZw{xD0_70wEHqAbX~5%P0G#
zSK|R$+YRhGMqpc-J6qbiNJ)Z!lDFd`-h)#f{eGCXZk{w#08Vo>uyCNVE_A7ymWQfl
zmY}}hNoXzWlaSkMxa-iOJWKVtPE+lK=lG2l*VJtd`C2I0|9R8>pyewRS3mW55D+o!
z<VGhh;(T?7)BVPm%iJsbD*LbR+~p<ao^we&G5zjMt)hn2J1TlK9xg4HG~{Ani{lAc
zsdU}nC|~<v{o%nRib}P8oeu(1(&S>lBFdxSRafs|nN`kh+1-J;&R*zp`1pq;-$Gl#
zz9Fvt`>eKDryP!PRuJ+sKWh7|S0f6|Hs-rt=SHEP(5B^sGUYo9gk$^QMyZ>6N}|19
z$}!|67Iqh%3gW+84_K&QH;KRUm55$oMKXa+!UdtH@U)d0-zOdp&Nhb~9Be@A^?lD!
z045BWWpV%9*VEQ|DZMm@kq{{D5#`Rl?1QV6P{;muR{EmUwKXDw8~yMN+~S$02i|K*
zQ8@&7;YthK2R5^Oref=RzV7aY<<#D6wm3x^htl3sD*D5n5BN^)q+wg$@wGj%laVFT
zg)KultWY9mh5VO6F=5WY+joRC@EMqZO()8v-DFO<yx}bdWTqsw`Q-4KeH{-@rKY6`
zM6Ny7Ld;OF>8C}W^5TEn%gF%U%IpPs+xAXy-Qe@>{q*0mM~`WHmDxPMJ<Qa?lc>da
zZ?lqbfU7`Y;ZA<|+Ax=vTi3Jp;~HJnMvB*>YraX8;Bm*AiwY_mfH(cC$Run&#uo;N
z3k9HcS%KdGL}se6p!7|3You4ekg3E&LrQCOtPd?)E55!?{9ytYm6?!Wl@oW+%QD+Q
zT0z1{5}TeF%;JzRA+x9_V}P##QE^A&jZ)PPvFnGNmmYd4yzhEwJGJ@Pb+3X|oLZJU
z7=^t~@uxqJznyHZBfG0%eR!riL_qtLi%nwn0CR~KwABAzI(5k|Y?#r3uTLDrORbMN
zm)RX0v{<U)2R-|eSM7eo>6-@Yo)79j%xuQE3q*3fql6)Xit$#$KCC9tK2uY#-Qn!p
zB(@87s54&JTl9IzNL)LDCcQ3H@WiIA%d*#;l<d%@tf=1`cgTqI$s;;Qrw3|aRMcO$
zP=`KpY*jWZ_D$8OSvrsXL2TRU`?uB`;3;>U(!ISb)F3f@)u{p1)W)mE=XQ#&+uPl)
zlX=ddQpzZEH~T8~ch$YS55x!$(qBE1=OOEA8eMq{VzY`#=+xL-gEB^D#=^1m6ceoz
zLmE&<J)b*-g9o2fBTW3yy>%d@t&Gg8qhRn?e6w$5MclzXQMZja7-C*x!zoxRvhO%Y
z`*Fx7M_BLB?yBFk?=?!;!RjFUR+zA6W-@^oy2escNLl0Nk&mSfJE-Z~(<AC$oS^O<
z!c(fjp*X>1q4uAu>MOQrL^9b6S8T|D@$l1C2yg}Gh;5DZ4t#6d5gl^8wZ6GyQ0!cp
z=sp=1<TFm*SG(VS{8GNf{S5=3{Qlg{V<>G0K~<BWj<fkkx@)(}<zl^S5H8jGAKN^a
z`?8(c{(L02;KnD`O5UEE8&YfJgdT69x2C6IzHN`A<7nqeU;b@9k3#0nrYoO#B`YqL
zFh#az@=6lc$=JQ3*6TcXH1V63;dX{A$K;+izS1n{Vp1wMQXLs{2wrJ>^D=jBplVc2
zuJ<Lvj2h29aeJExAii>d_^uciUl%J2XUn7eT%E1$kGp^h?~J~=LxuEG_|DIY2fQS;
zRZqUTaz{<Qf^XGsuBOe-9a=}$KHY~jebNx4g>ieu(h|1|SB6$;?PZTT-Br!UBX0Bl
z!$^zxkwa&~i*2hu^d@I{n9Bsja2F}s9E#?pc&t6tukGK)8NE5Z%m_CUwRPv)Q(w|k
zl~xsRdT-r@O|JP;t@vrVF(f%_H19;;mMW9$!3^BN=EwQZ3$J>@=;*V=x44*c|G`1$
z^61ZQblba1g!m8d%WgDsE0DkNz%BQyC$s5|u#+zm>Jb(4ar?PG2i`rA;&WPw;~nj{
z)1Uf7!<jki6;`e;6Q@u5!tmB(-QbNotr?#;6rL-mDPRj!*bYyHwH@o>$9xu*m#&fi
z_TG5)^Fh?vN;8IJ*X<$iib873Xpm|ZC#j0^S4XYt88|1Ga?$G!Q}6neixr-{{#ohu
zCi@**52YPd;g;R?e6agctc~MwnWKY3UGUULnCDQ<=B*~@4<GK2Y5G(~kx0Q5CE(QU
zoBDhM)rp$-@1MLcZoWShc<ONrw3xk|!!=?zmRIX+;Yds-t4x{SzW5b#LYyaEmg|iT
zP>XUV+jR#UoQ^#&5Oe<6vt3NOxU5^Z4&)g=WK31ETF2l?bG>miQCcKA0q5@;!gxz<
z>4r|WbDyrLJgRzh^qHi6Xj1sLQ(BpL&tse-J^GtJ#RPPJYzZ#++mN-B%P5yuA^_R^
zwwk81Q+}5*{L>8$Ny%I@p(Cmtg7L4+XO^qd$7|VQsUVPW7Vs2EQj4xumUfm>q(3)+
zV)fe4)Zyc}YFyd^YvEoZuD^aor$q(op>?^4ld@64dE1I4qF+_jPzpnE(rvxQv+@O1
z1p_8Xo1`T8@z*{mwL4poBRN4yxV?PM7R5~&#NLA8iZ~o}yQk)XGHfmU4hC)JJL<Uo
znD|Z3zC+3p8)XLA;w~JFUrn`2<eQL`SfIyVNts)p_P&hX6DoQx>Y)z0hSx(T%(<ay
z&FPe=GkU^f+u8dss@f)@_~@@yx5cK0F!OtJ32x6em1$I3E<2Dl*rOPf$Z|a#a_3|E
zX1`q~4D|fN@t*}xCdk@L@lk3neJ1(QhBXjDa6XV^=l{Cgy(6pg=;pR9p6dv)uZE7H
z&@6naB7~H)=E)JEo9QkIoaTSheY*zRSsVg>PU}W=m7b7y`n+1qVlCY2xbG%DiNw11
zp<>68x_R6y?wT83G!rV$P%zlZnNj|V3&K@+ZdXQp3?tWN$O#wdflT&<W4gz#@c6J5
z<~f`UWK-4}ib|?H6Br()ePoG@996?DF=nxtOfgH_+cBJDLK_%lj$5Y(sOr;QGKamm
zK<#(+utNHQr8k<+n~d$+{|Kr{!O+pT<e`Lm0cM>u108$dTd6iP+bb3kuu^rGJ3dOV
zyCIZecaLQ&-YZbuWcj8Ey6?4{XX@!y%yB}otpr8}n+*{!KS9nzH`9xchER8PNJ!kF
zJ7Ds)J6u2ff}8kBqX$cP)?c!!;Aal;_m&X|4lojJiVM#)y75>XCUO0B(n(2t@FPmD
zxcJESx1HF!>v}%^7#4=aT9f4loFZ#bmTn(;TW=WYazlB&71%4St*mxSHmKRy3Hj7N
zOYd9}?4#=f-@58~rJ%s8+Dp&2H6AzE)~U%i!e_Cec0Hx=Ykzpi;}vT6*e{=l%12&w
zIxVqZ-&3OWOK!cNDRc1cK!G$fex}B{u&7fHvgMowGS|t32yuxSyW3EY2vI(33^C;K
z4XQ9_eZR4nw=f6#Le!ze{j;L~a&B#J1%C^1_EauJsWki5%bWYss;=#-QF8QoXS2*;
z4XQ)z>2+@TNGokR<m)>ROH?VNSEQF)uCC3`d`|GFQmVVxXD?A<>wTw5Jky3xwj#~u
z+sec{=N0Y;yEWBm$(qSM$Yxp6cPK*st(*Cqr4lDf53_78O}ESY__$<m#79mkY6Fq{
zo!<-w&YiyQY1bO)HL^dETf;5+<&l#_#!eN-p?<#CM`)_By!$XFx8dtlKVgnbHb1fZ
z^zIe^jDAjNJWGWlu%UaFKp@N$hQig$){<l)?i);QWx&fRr8`3*q))?@peL$*3(<dK
zx#*Lx)t8SPs7@v3+K7hYv*KF(tL6GLT8C@fYd?6II;P&fcUVuOTBTR|meA$3Y+h&J
z^)Jg--QLA^dATG_NOz3Epf91X<UYnnrz-8r3F@V{E_6S5-}25avH9vslmbGSy;}rv
zPk`%=xJRPi-Y|n>`<~Z5>)m0mdhHqWi&V{eO1-6SY3rjkRtmqh&6BV22|By?^6q43
zLG}-hu|^~6VX+_i6CjmeKfN^KA6k3h)=}Y&FxvE_*D_b%6u63Zy%dH9QWwSx4&7|0
z891C=d0tc9@GbAgZ;e9|2sJ~o%f>fXk20T&Tz##cVaWL97k07Qq{#AnDpot?5BPSJ
z9Y5c!C&-L>UUV=>fX2?iL~KX;!Dg<}d@Tp`fED_Q>qx|z$03Iu)b<RCyl@)XsHnWH
zNp)2+#<NdAhyLYbbUAbLO+JIGOI$5(@K^G$y7^ohse0Y&o(2=!yNeF}!i5sCx48Fq
zWEvW@Ug#JT@Er-*<$RTE<<Pgi&UP^=8A`WAswCEqoUE4Bi*wZCbykGb=5IneMOtgF
zc=gS=_uZp2#E^Gf;$F&HoJDa0wJ4lL0anqNUf{}}vZ^mEqv5;<uYbO`am~~1CT)qE
zUN}ZYhHYUIyyadkZ6y+LkpIE+uICqZPi=R5udv#(Xy6V(+j6yH)+Y%L8oS-wK5coQ
zQr~vyBxSI|`$KSs`evh6TZ<<)$>FVADMpWbD{R>vdS9w+qeZUc(bJNltVfttmaX%Z
zdOvc}(Uo$4RDWn&&WTJzt%7^ozN}l?_{2^_|D#rJ=~buFmu%tGcdhFx?~I99S8!I}
zQyQiS(TlvizDlkjVp&&ygLUy!nxn_FzS7k|?F5BtLy}8dnl8O=(X@e?J~vz*W0iQ|
z4AD$7SKA=M=~Hmdt7=XbtG3-QUKKM0mb^N_uABYLn9$xQ%HO7At4Pz*!5YsV$hYIk
z^QX;K(abuJqc-6?D_K%UYDJ$HX3@jS&(p==n06lR2;O=6&3Sc|10exHCDJTDwRvn=
ztIGSv?(oYr=OrAYY1z$_sv!0*?Ubf8Optyc_DoIRy<XysyDTsZH(bySfwXL*hpZak
zW#DPT#mdss)kTW*7s+<suQf)jXuTQNICB0Pahsz<to-fJ)V!m`UdqT`mYY|%+b-qW
zru_2d=)l2B?WWg#2A;+m3P+#m!on--`t&M|)Cm1(LQhv`G};t4IQV5OxuH&}&c|_}
ztTH*dfr$T7h4%CCXd`}$Z}q_Wj^e*oA<c4N#P&)L529CJPZu0UL=&sh;BaCiT7}^3
z)`z{A)ZJcy>mq!^RyZ`&qKQ3yQieD)SoQ!REz#Vqq#UP`?b8P(_U4)6;G>;+m5InC
z9KNe_ERdCNYYwriGRhoRZ_*gWN-Wx3PaN%ysxoXGsY0W(hWjc?w=0|E!1|#4!~*mB
z(f*$P6F4)XXoSze*E~3pP=ho>!v~@ydzzxs9F)g;hi`e{vVF$1zg3wxz&-n#jA8Xe
zc_qKT;W8EFw&cKJ-0hmc4EL>=EV*QrY~moHRd>L(WkimDqskb^fO##vZ@46UaEQ1w
zVvABPvGJ>eLz(U;v}9j*yE3W*Aywr)m>i@uTpXk{=KQcXqCHOzjUK{gWf2FSw-QI8
zD#$XGt%FspX=!8VtOoc<1-DXOYx&o*z(gcEYoxV8t{s}zkV70xt6~UoNForNdfOF|
zW@FW+IXT{A*j=nHnLe#1ZI^Hj#DSqhLf)}Ke%Z>7xowG6$okPv@pSKz{;aGX=m+?y
zO4TJ7!V|vFgouJ_!f<~N!P(Sptg-A;va%Tsu0hAaZx|oMryntd{n~1XMvtXF4;+Y5
z_Wjlp&_CADlqd%uYe8JpGA9yxDn>laHO%8(tQtn~<=tPKY}k`nN9yx>>F~p2#!8uf
z*}Yw*Lmu}iVSSgP%6ofH!!tg1?(7}1m-Bej>jk458yzV3@btvJeGG?-DmhenV9Jp=
ze77skm0)YH+!b^QKiC_M?`>67@^Zp8G;B{ZQz?5a<>A$@;%Dn^k(qnRk1#5IiLX`>
zuB>7P8^uS+wI<`xW76ieeyTBqa#nBRmqd7-#^BeAMBwXg0?q@^ZNS>olV;c&fv%8a
zb-URf-`A7VYuNUgE#Y{#Z<-1c=K*toUE{B8X~>0lcaEXgKB+?LW;dU&AZR>eV;vAx
zi}6fV>7mlyT8|uL)ZO|4dCp$vZlV;jq+;y+HPM((-8FKee5M>e1j;y;>*`&5<gc)V
zt9QPUPi2W#$4Scvvmo+1QsnP*rziL4Qs0#tk$k3AskHZy+=pmgxQ8Kn1A6QJ^7V=_
zo)#Z^UKV|1mg0Hn2~XeROehQ`nA_w0a!b27>T3J(!+!3@zCJZ*<*WktH5obhA)3C-
zje)NPJ;Zo+1s30Qx8gAhEW7Ekif2b)k%jvKp7+ch3Kfda_}e;sy&FChnMIkI$sd-|
zd46_v|JN1uJa23ABVu*?zv1&rFPFsCDZhxr*xP5BeC)J~!gTa%*-MSZZTi=<@2W_w
z;1}!k{kZF~2Qq@=Vs(wKW8=9T=>Xv4x+Ye+ostpmJ_A~Db+zvMB6F_frwwG4iaBZW
z$^_QlbQI$i5Bzx3$%<DYu-?LP6|YF(2MebIaw+Y*8p6i>lgi=;OqKAsH=fPSrl#o^
za#o)OCe<neC-rdi8K_ad#huQB;Md{N``7n)7?U;(7r4`F9aL1`4lV%B4O{>-4&Y;Q
zfJ!Y-22Vw2om7q{aFauw-ThBXYi`2)iaO)a*}MuzSu)fc_bBMIJW+3Yqu|PtllMtl
zVK>X;yw552hYTZg(}t+xqIHd}`y=t+UM!R9e6b9!nC<wofyLpXiNyNMjLvU~@4%T_
zwxIr{U{pVGskcvSe~BhW<@I7=ikC*$<6bN?7nbDdIr#a-vIb%Miza^InK>hIh6zzM
z-~ynfOn*10TO787)zwYe&h!IgSqbCL>_o<$qjkW%@PVu?&KZd{S>|8AetBAAT33(L
zGGs|m{}QUWf+bG9Wsl+}mIvysZxoqWZs#>iD@w4m)4H3QmUk0}7~l6ftt)Bhl#G5j
z@aPkU(`O^2)D17&<cli4$}amN`bHw8IOJO`$95tevPbJG;{u;Dt}!q39U?3VQ+3v)
zSS!em3fL675~J!}2;mfDI~pLdbnG#zTuQ4IUj5iqU$-@(FHv?ZDx|+BV%bPbUtF1g
zz4AJWHD@$JSA}iU)1)mDq(Pn059PvaGt#8P3Q`?CvpbaY(YE&wI*_>D=Ar%NX_w-q
zbR}myqI(b+p?hr(BLqkzg61&d*Z^>iWVlp0d|T77gDIhp(7F8cZtC-b3~SCF4dv0>
zwo8*HL68}B)-{w*X4{TJ>g$4xN9&3SL&{Re&HH>uXa~MEFW;u7Ihzs5rr-$s{yB`;
z1CEI4o5Kioa6}n?mLs}`{5<&%=YAQ=&24fw^<rQU5L|QWWhix+nv5pPS^;6ysdu5Y
z7&Qe=R!)J{M^C*DrFmp;N%S?Zt%@-rzO5s6=&HkqDuP$l@?}zoE?usASd$Ve$hjtP
zMd)%p)f1Xj)`GmKK&H@TGOEW4DG#PSV*T{_Q~!R7L;gPJXjqo3328Dx1=g-P-5g4(
zrzWn+Y%Q=Jbs8T^A)_Wz$aGMk-JqYs#N<=1IApgo>xLrLSuC^i$sk0nA<fB<E<srZ
zP5Sc!8`k)vLYczUmuNC12y90Ar-rg%)M*RpuM2EE>VMz(1D&JO?U8#B>5tLGx~MTL
zItIaIYXa7UuK1@N5$d*X1R{CS-JBg_kll+8w4_KsBhNOQ2fr`?JotN`a|c;x_ux1B
zfCumJWqsH?%Li9%03N&%Cm5hIn+K=qZu{Ilu$jWd+&Ya~jdC_a=p3t;57KK1tT}lm
zlzzGTa?K@00$WfguY@kqQ|HoT#0n@KJsBLzAfvvrFf$wm30&`gDTO@se_=sPA(vQ<
zDU*{^jVT3ZrCq7yZ5e!ng_q7sbt#|ByZWr)0D0=~+W$YeAd)9Vfo)S|_;I~|C}dW8
zg6Ao<^7G~Nv(nuB&n&b)u}P4p{%*?tgA2m(tOD3J?dv+PZqtO!%Brv!Qz8#DoSCH|
zO%d*1OP+d)XYn6f5XMg*fNj$k?midGS3W1p$3&ibibn=`8UL9Dq3Iq4q-1zk)?6%K
z>zpj#Me@{>r#_OG@t;``N>8Wi<({y(y17_B#<^I&+-Kyee;mUAFXKP6Anp`5_;_S#
z>P=3h(S%XzX<pFWuvRb*6?_G;L=SpTb8~{=6V%0b2wIG0q~=Cz!3T<uWLRqGby=mC
zhv^3(^*D9J^PraU2~48ljVPHL`T>Yy$KQVWP;gySN>4W)(k=+K99%nxkyEb04cv$^
zJ8&cG7I-5WJ$Q)E>V@4%jUaF%8VkG;|8IB*qwvCR#8?uz5z__U2(%Xui4s}ZjnpUr
zH{!m48@UPNjBk>C)2`Jiw`Y$d<yq9Z6^P|}yNWfpBnX6~F6bk;^t8TeDp?DJpw4eX
zti)ulUe}cEKi2=X>JpH9f%WcbxH$R^iuQKKjS?UC4i8*H)}w=x>qq;zaP>n4*q+3y
zi3oi=kWcA;o)hSSCieG5vo_R?^<tYDYqY|OyZ6mQxB(HBJ!*MFF6DG__gU?^ZjI>z
zUdCOmYB~7g&TKc<l+hFWGMM=wXDf3@tc<V4zIp9c(v<lD_k(+B-S=?jrp#@pPrIQb
z>IV5<REl?*%&TXoC#H@5u4X{xk?qf`A0TBrzqdnDQq`g1PW8`N#Pc|0=cj&1>uXzB
zEbnlLF1(R3Y8Gm5#>WA^lueatYINdm>x=8>788^ASJTtD0A*M!Y>B#|AG%9#`#mUg
zg0LGZW>e@6j7B7s(Yo$3c=H#%N<G^cYf9KO7otPSBKE7%`X3are~(7`7}3*~&Ws<{
z8)06t;>I??wL-5@XRd_F=;?@S3MU9vq5|H9Dd_2PX|A>wDn*@5?IP`ug6v~kzn$%D
zVL-`@UYXZEA#1Ujm+k+R7W?;z*dv*Lheqlw@${{w^@b&k(Jon{6C1kX@?kx-T~N-o
zqU@+J{mUox)K5Tp6GWL&mp5HLhEX%}Al>{CvyFTsFZ#bx>v8(+nwRA!8_JoN?cZc5
z|38V?zsIlYx7@nLo+>BzogWnqjp&})9KV45u_2jL*Vn?wi!y;pB~IoBL1mr$r7Lt{
zc6(iS3EwmKh+x#vJoyrNW@#jGTfNQ`L_?-M0I|e;bPCzWsb{GfF1SBH|MwsAcU*ZW
zo1$)+o-(UnpFX9n2B!^`qJ99Q@vN^mIRW{?vwcORC0p21M_7)I)Y1;OCYCU}zA24Y
zO+zT_4$ENeF=MDesJSRC3NMef#`K~hpvj0_-Qf*bJ4`tghw#%LzJ?z;C3eK_&~f{G
zv}tvc3iCZC^SMb1`9=R1U-Tc_%z%WoE?C0gCS(bl)#h4^dkT=SfrU#LS%;DRf|>Pk
z{tiIGT<odFdMjIK723X3#MVHOqOj|(a#%l19ttpw+TJ(to3LJ(5>yqmL3HdIUKZPm
z8i1ljV7rH5s-WuKDA&Z#@w8p{w0NH3EFG{3hv?xl%lph7dpIR+=QfV?Ho5oae|*Lg
z-uS}c_YU8r14h2^e|@RnZs#<F^VV!54phFPRlpv@bfU@;xw|u?Tvf0Z7(l2*lytl!
z@msN$n06H4e(m;-!n<HbQ053_k+EEX;se~(m!q8eA{cA>P{rN*=jL=T%!B-6js^L`
zvs2jPrv%r7`SC8?ZOCLvxi_kEhNtaCVKI11OdV<j%8JO<8J5L5VJc9qP$`6&C=7`|
zf~i3v5%r>Dk@yYR0UA(^l+_07O4?Q#l2zExn)288un3j*TT4#ER@pZy=BD<sr|pwy
z>vV><VoOk2&;bOW2rL?JhiO8^L(36nA~`z4%Gd%_8dOCzM|XHL_6P>Ycq{mce{=??
z;hz*RcbJ>-teotr@1Ja8=dxrA+ZU!+dj>L?@#TgQ+-<Q@iSr9qH2g^sBfDX<kd}oB
z$wE9{K!*_(()<ZSU!AFVU0pV}xno+P<|1|4nMk}ewjJew;1gBS_Kv~JVBIhSP!*9J
z?cpt07$zCYkMJ{J3OeeqO9w$OtTLADhW++cFG9x?aKnhvfS>Q{mf_EmnZf0%i0ws5
zA-Y8BbiJ?P-7sm;ONbZ|C0+09cm?bTiXTxgGIj&6jIBalf}*9)$-Jj^|8i^;NtUqL
zB{CMLgrUprV&S=&wcF_GOqesH@m`n+s0X4;RB89H0=5QK0M$jri016}j>f|<m!J*^
zKOJu*-Ud^EYTzK{ZCo}II$yZMHs6);-9NXu0ofb+t<swkWBPN3Zb306zzst#_$WzC
zPcbzo=Zt>8y~q*$%K61x(PT$|imv%JMlt!#U#f-{>geBCup8DyHj=Xdk^s??Md%io
zUg;SyFOYphgt<NR*U7v-4@bZG*ytEJqEB}8XWnDB(<AzD)_FPl${8u9M5VvW(I-AW
zj4M1S@PTW4{JT26{cc&B%hY1&V(HEeu{L)#D-0z!-O2i_VWfx|1WwC$nK+&nhl;D;
zV@i-g&H6)d2ncNoEOxX=oYOecFISU}>5J;ZZI6P9pgrCCBdlQ$gw6(l942t&w3rC}
z=W3Gz{~(sEUIYmJZ<!X>C?CAUSQDS98s13GU(UScC*8Tl8P=!-WB>amWB*+uuoxgc
zUIG9x_`avdYsQn~VDQWiNRK0@0Tl_s>o}h3g89qDSu2A7>V`HG*&i?s9WwRo=ejXL
zCVMVg?8s^m7I0I>q<XH}4|r%<Fd@e)o_F@a9JJ<ys{BhYoGH;X48q6~NKjbt(CGny
zVS&iMB>=!+{T}(Z8;|>g!82JP@?Sm;<O9!tLRMj9hizu<4LWS*V1`_GGDDsj1;l2@
zfcSr|4iNnxM_N0K<E%lTPa24{)|r|iAKFN8wis~*BC~T+1?u<64$Yi=z`xXmlPnn|
zq4^i2!hi%hGKuylOEeYoF!Kgqgi)jgMbQ@$zWQSq1{359_wx(Rc2<B1@_TdhEf%3q
zvM9YU^umo~`-^_;i9ME{<n-ll@{x-%GJCZL4W=*SCy}sq+5lA14@i=m11a(eD1X{G
zkRJs4)BsR^m1#)WQBI-@*$tc3VRSJ%o|47sgsO+kcp@^hdYfq7?#yVQRHPR`TAPDF
zSm_C*b%O{AXARbjIDkm&8&e?|-;SFQO8_$op!vyG@;8FE2>k*eR?#rUO48No%;zZC
z30O&QvXz_+tN!DM#c3r;AfIt7Sq0RK%*RSP0ag;oE|G&3zllC9N-J5C4q~mn#<A8)
z0M@z=D0=Gx3M&B|Y~BP)5g;G{F^XVSQjRu&QgoSywMII%kX6{s(Z-*3*`icoPB5@)
z_Z_Kf*ZWN;P>h5WtpoWj+5vWpaiBF&_y)qP!Kx&nrcxQG+nrKVd0nOHBjAMf{jbI<
zux@(O&dAe+Bn>f_Oxfa8VT0{IQbv9AOBtDi@m4x=y!E$wY!OD7fp{w%`2$zM2cXF2
zfvc$bU)Eti!FvAE<ntd3^a3Zze}kW&o&w9{)8{n%O|<c+%+XYM!*6&0BwTso!(zg~
zjPb8?zZgYV1~R-=7Qy$QU`(kjF=#qQpz@0HV?ev@yTiy4EW7Fk3D)wL8e#xK1_$bv
z&`7Xu2{wHEO&@R?04Oj(<m@;d*@VLemM~31$iPB!0OeykUVDk`NoK4mfRmG#<aF)N
z>OwR8A(*@bYA@j`AV_f-Umn{&PUEu?3m!c|9*l|VUa$;v^27-qKY{3fCW&MPI1s3C
zJiSC@y2q3}H&hkbF3lc&``6;nZU@OE5#*ox6NvjbxZ6;=h@^3rl~NQ4CIbsFC$dW*
zqYtS76U2~#h2%i=znw&<xRVf^sA5vBtV5QtpFF!?A>4~_Pu(t&A#4SrW`1DQ439lA
zKPwpzSV=O_dKP?Yi^<6x_uapv6dOn=MP*aw%otMrxEun^0FZbv#)+ax<gnk<<0R5M
zAT~SB<1>y@^dzGce~)kaOP%!vRk%!`6h}xXMWEoLYMgTzB)uDFi<;oN1Nl}a<Fa6o
z7Qn)~jk77j^8u71e=^z8Cp-H8;OGM=#R*5>b#t5dIE~LZ5Ci1w9H+n_v66kqUy#5U
z0GwZPoMfeZ5I`w5kx`1XsFYcp_=~SV;D2E%ES&6x{S*-Vq0R8JQ>vX7r=PF9a259H
zMSl+&20IHj-06wWSsV<eq}Tt_v=qSN1Hxc&B!CZ4@L{S;;_HlprhR848?Q%72I;N8
z7gU1O!(iF&I3esf43_NY|29yuIP0$fKOf}fUzm{uSbWHS{;xjnuiyNoYG@&4P}2kY
z^Y!z~$$tJU6xd%IlV4C3e5P1a9zV$91OIxMDjIK%nR`;Q5ZTkn3gnFD1g0WY(*LDJ
zsAT4pUo#c|_)RsC_Ewpa_LiPstfB(YVS!}klwYml&)+QifIe)Ms}hNF*j@xI8X@%;
z87Jl^HG%j}J3#9724G>w31NGWj{-pJp1l869PCf_ZxO~D7G@<Sns7gklFCf;OBuOa
zj0{?ktC6Ne7JgP<6aTarf)zdR`_)^Vc?+Lxf4dfHzF(tAcooI1BXqZ-iQ5P|#YJgJ
zQC%0ftvfZFrY#q#Q<vK$=6|>%RtjMc)Lc%1kWFxqfy_`qLnWVy)|MnXvh?o|A1RKf
z<w$aF=|?p7pTL=m^UOH~kxkgtR)UHG>c*$o(g^||u#hB1WGrT)X&1=lqdb{g0ub4~
z@nnDP9~9h_tia;**GQeZNP*cZBrVWra3fH#GzCF6&Ot^h7_UGzeCP59p=1T$1G7i~
zLI&p|BeJK6(lkpksoUm`K?k}#elN=ZOC3c3^ABb($C>W>;#GkTHy};t4;1V~)g_7a
zViR^?qAeV$0MqF^00YQgwu0>}|DSRx{({aWM^k<}<@{qz0<2YD7%mCK@|OWUNMb-N
zzbTvxpinFYXga4L$R_Ajz;a$)grDw2OC^wLg@5wM+4Q1+sDgat{7vcjA`Q$+H2t87
z0-DbQHND3Gn$9V?%W*1L631{n6fHW@QVC>*y)=nZ1Zbkj5;hxL{$hmqh&6pB5%?>S
z2>iijsdLp~0Ey2SK;qLo=`Z|Cl}n2GPi*!@xZZ!P0`iYtcp8aMQu6#9eIgJx^Ccs#
z$w=#|>SJ7`2ZsO%j2~2YK<8$#oDv{c`GK>ZV7~x>)tj-_7~DjAUJ?;T6R8~OI3XCM
zx+6>2ES%?s`OFJ~)c>)ZD<EOzleGNpiSs*3!hv7~*b9zaQu!NS>@STsEX2Zs1#drS
zqF|fn7jFf<Ffx{(jOCxfO^^lLFfe;L&IdbRBZ)R8tFT`}ZZkzL7N-hR275k_H%H2y
zUo^}Y==(tS!pL6O3|zRNpFf34ah^6Zoh)Fp3(x%5-TX<GzMqq!b7~2-ppX*ig>9K6
z>zt>AffbcxFYGriK1l`_^sW{J<ywfVzMu;OUf7g?{(OUBZe$}lgMpYSH1x+J27m0r
zlEs6q3l8Xy_JZKB{|uI&fMn0wSxi;*R7@c*sVnJ(<5{6IFOh4gDZi+MrtK>)axj&v
zW0%8xyqtgepIq%ls5t(Z##+dQr$;qhHn;TxP2lWBNrVJHsK`j&Qjq|@XDkvAGOgf9
zjUr$s-^uQP=FsGRsWZcRCh<L_4?jCj|Ac3p36C~+fY21o(Vx38&}<M5)Rl}wFzQU0
zNyWW208$Ya1vDf1&Vexj^KS*ZSd!?-d`Qi1en2ol=2&vvj2t)nhq#%_lpZ9sFfc{l
z3BY`EwWrjTOfW<B0%%x}%V$`L)R^}N1Oov1kUMov(HQ@z&K3jef4ctV1}F*|CL^<Q
zhNqQ5>V9_s=F=cDg^Fx~lfVmrl7Xb10OEQY5|#*@3CImo$$_&O&PAjI`Lu?qB*x)r
zAVr=wm9KN0dknxR+5p(!DgaD29SKWrm^urF6;Q=3&T^4y4O2;6ifKT<X8?KegVlP1
zd#oHRN&=}?21u=+f0T=m8>apm!kF=!MR@)N0%!1ryJ4+lH*9u?!bRzZIsK@q{Bq(=
zE6~TXP6sF$shP^xInI-=qzfR)z#{Sn#PpiVV)99H7CsoD)c!IRhP5NLkot97xGGLz
z@cWmUHB$akc`~~+&uEwv*v*nmb~g)G?ALcSJJt6WyKtsgoW_!maJLavNMQc!^KiqO
z%hL&9z!e(axPKOlJmpCL=YoJ5oHkU7`T>l_bGu<M2Jx4MJ^$Df1Myb#DQ+0u{Gwq1
z27}x$bryE=zmCE9eoue!!XTaEB-A>pT@?v*N(G25K$i3_kvd)PYj}{bbE28ZR%{ii
zNfJ<633j!d1oOkQ$ep@o)ue1O>c0rf(bmbj@Y256c}2rOFuy4)8O;A(W6T(*06{>D
z6A4T3nWX3W;yu5kBtQvEZkRefRWilfoRUCVoblEv^gJ1S^KkUPln;^{rv9VWntqc1
z%Yqf-I(cD=7l^k`YnVE}q$IgvDoKH1hz}1-W$i_I@B}!}I8pfDKPF*$jN+<%Bx1|;
zXwfE$D-1i{?6p^MxE`!OHfnP)D`_WEx$pCSw{}C$nN{ATT6`!}d_XoOy4cYoah9??
z1(<tanWY4GwT@+a%B+0F>0qP#=VY!j+s4b7RR0r7Z_1T^E|D?N;4Gnix{p)Rc5Y1w
zNYA}aL9!`+O!iGw;zhYPssp;T(K_DJ*hbV&1fQ<A3>J%e3@sN?LgEi&N}$Oi(YoGB
z*iuv)qF&ou1$!71xcXMGB~?vpbPs~DCI<nqlO@ao_%h{L{?=6^J$3>U$J4nzF8Jz#
z+4tr@^6#8yh~<LVkq^(@#q-WSm;qliWnq6767ZjnY`^l*_K;$D;|qh|ZH37_G5KL(
zo8zq$rwT63zuv?x+n*&9F4N|UISpkMRf@!WVh~VW(P(XNS?mys17W7)y&3C^X@@$9
z<V54`F(Xh8gfb6lZz<z~k*3vM(Lf_r-MQ_t{J(V7{!*3l=QhX168R4fR5=-6J*jwI
ziAUdHQFI7C9q&!p9+W5|Mn@qEZ;R=LN{Qs$z@NYjp{fw|yS){$b*KS^qzFu&r2b*`
zoT8Gp13CbgXZ+lh@gLk?WI>s3Pp2GcCKcF}5A)XtLD2Ar3U2!O4Y>L`JL)l_>CSa+
z0d);270f;<7OZj|Zv&L-Q$)G@UGvIhJ3a&`HKcHG_dDmA*;Nk(<kY9gare9D)!S8%
zFlSY#uom>MzOLAyVrt5(BgGnlCN#CT6eK<_ao|^h5Bas1C#tZZYja1^{33E;gh6a_
zd0>08+(+};h9uU&b~v#QkNx^>AkjgoF1N3sudlJ7KvAV@D_UW+wf#Z612Q?6N0Jqp
zj2?9!DKC*i!-=geRf#px8NChd4#dnMJ~V+90wEHqAbYf^s8>K}A@mRkL=e&<)8ZjW
z0fAtF|Cd4NDULcE+2ics=puE*!P!#M)6Q1l7Bz)fECl%H#r<P@*<3eIV8yEj?NJtH
z-1@l6SD{yhGdqfeMRbn)u69gY#wdK!eXRdc()*#-Wo3;X<x2X!r|rX79nGHH*|DZ%
zFXfI@z3ZkSG4D(8w8F}ctGz0??(SvfEB(;2U08zs!D+fGBS%$#U7;dRaodo7!2=f_
za`?QdJ^t3>R=QpE7eT%{7Guf!K^Di$tsCzPIu=nC>^yWrREX=c-fqp2u1E?2ngH5O
z*FJ41q9^pzI({UM9NJTM!{}^%esq3%tL<8y&&|r7n>n+RN-~|#E$d|)eUu63G0+a*
z;w}t%ctnMHz=A!oRy;IK$#|>bAkI$sRcO%Hx7T0p#johl`gp}7sBig0A*pYhka0(!
ziWuS}--Klw49cBkKH}%cGD1C*T=A|ra~uH(4L218vUI9kSvWe9#p=gax)Ju=zDAlU
z07uo&63`WL!(J?4o59{xZtv<8h?9@uQH7NvS^<SzMKQ-6FdXabR-dovOyw>@4iB9V
z%dAUNZWp{6baQFRc1am}Sp&(AB|Z9nS;ImyYuLn_j+|8EfxLP^7*u_*uS4K6)$3}Z
zLxNnl?1hCt(i)v+yh^psZTAB~oeG`&O!t+1w_w(Sq1k1<+zdXa_Ncm5Ml-!?PXCI9
zYbRRKDf>#Y@>1FC-yxIhy1vb%$mLd7W|^YRIfrDpe3Vdr<fCLCMzf-fyVty_`h~YB
zF!A;3+uiSRET?j_+j=Uj^^`aDMhO=?6SW84Mtz6Y-eIb9Fl&8M_>|V-nS_Qz*hc?V
z9#&Cd8~S<mFdo*77aiNpiAz=W!m>mxnOf<-JRG?nafFI4BINXQjl37a$FYS}g!@$@
zZ&gwvTskgWoQiRjWrk>PZ1ru*@xmzLaFU}h;*)||13slcE4lS?lZfgoMV0k~`g<;A
zXEoCyM)J?_>KDYI&o*Wt<IzbGazUf}%A~d=uJs~R4l{ojWD3glkRK}Ya96aI86e7`
zfS|Mecykk<jMW|NT`lch&Go$;EnQ4O+1{fyeS#<ZrB~yDU*Am$fiO;+AOhGO=FXP3
zE>e=<pFa=uSH2R_3k=8v269asm`w|Tc-l&hkM(eHwmIzJU;|!z#(5GpAL9!H=AZyZ
z0ajqj4-T*bz&ulD`1vN>6SudC0E6X#!7HW=g+P*khXDq=SXnq*9^L2aY;AwsWv1sZ
zeY}<}7I@NdmY)}p7Wf93!PUyr&T{<E4Kqy;8qZRp2u#qk1OfqG(v+X7W#hNt>Sb#=
z<Fx~`aKi=N5J<}=ddR9N10fJ4_Q^+gv9h#ubpaj(_-n=+m~JJfPNP6e0r|yd{=9_K
imEqLkVf0gmPpHN{S~S2?Lm*3l|4sr6Z_Ef9-~R(2+qHfG

literal 48263
zcmeHw2{_d2+doNUEtF6sTS%66Ypb=;WX}?jH40@nm7<cJRKih~Y{{0alO$V=rIN%X
zNwyJVA2aiRW}NpuozDAfp6mKMSLb&!=Ul~A?sI=X&wby|y?pNP(bb|`&PBt>$Vjtt
zd%Z5rH=lLjYfmR>YgbDTduLm>|M^08tLJH__+~TbXEH1dUpa@_^t<g%)^Q%-GH=$F
zVf!HB%oh<>&vyU4e~ac$dmmc<(+w)Kqm9n)k7o{Aarz1k=5f$_uPGQa6Ji^6$&cB*
z`%?RffErcP@M>p#0nd(XbXnS_5g+rkyw!d;s!TKul;l6iv3zMOVEwc)HBvr(Ws}Bv
zgQm>EL*siH@Ay1_k|_Fdu#)Z$T`!J!r2X>a9Zb{v;@8jZ7QDRHYL0&T)Q7BehKEO$
zbmwVbATMpZzAR|xO^GK%;vMSy35qLs6L}}QY7rInuPti3xN2xO=u~YfKHyy&lq+gp
z5oM$5fxTE{N4Mc(L+z8@Gre885_LNZH%mI@ns;Zv%->XGp{vEf$Y5n3Ku=3U!$3zv
zqe~4+4;NQQH#-{}cQ<LuZxkr+c6LU7es%HTkfhP{hYw|}#pvNjN+$)23u6PP;<kyV
zb{^#Gr77veVY#=SIm)X;I9x5C+fyeP@oLw+?br%p7ikW^3pv|}L{4^1TOjf67^LfT
zCt7*7(GW=(?^N+4w3B8CVz>zx()e7RO9iPX7)2ZiM)~5~bNoqlq}f5d4zXQ;n1~^u
zi!g-#X(VwlQ@|hB%S@ajjH=Ay*j467EK~>+cxlr7>s=PUq)r#o)N2dmd_4+@@7iTC
z|Ft*Ke_9~XpHwtjG51ktlz;BCbYeGhssopX@g1AAP?;TICCzokc=+N+NyN!mixiCi
ztOdq*vR%O6yUxRc&=)M=KR<;c;o6aSVxkNF^Jp11E(bM_?HolBrUm@*eMOl0`BVW^
zfV2u>aMZ$o63geU<aYq$>(!?)_c?f!h(i&lq*W@$T~z$JN%$d@FQJO$HSJf9Y($cX
zQKUI+4rvajK<pzFjfL3~Cu>kd6mc4$*58A|D4F9cW~+Vi6C)E{Bm#DTgo(o{<0r6N
zy<hio6HQD>k1J-z32_z0Q+K9==Y0<mzm|IBuwV#19!UI0l?q<eoF(!247N>W9@{oe
z#IoPaLCqzOs?79a=6mlDM_o_^G;&^JEDeJk?+_amnEN`6D(BnoI~^xY8o~=y5JX9X
zL!=o1GZEbrg_$47M3O$Dh~o#wM=ajtkS3}Ukp*~+vP#)>PbbL>IWtf++D+^$Le3Jq
zki_{sr1CU4)Y-Wl6~Z((5;=__;c$ljUSE5|-jn8Q3DV%Vsh&y0M6a3I+d<Rl_ZY$y
zwg-GWKYP1o8m(APm>Mt?@S2;Ah@B2Ao5xh-w<ijC5&A|yV@XplJ5`YM3A01Kb8R`(
zr95rY{xcuhQFv@8X|~aW<T+KtP3&bSVgxYbgi;T}lh$dKK_sasALBQNA$d;pb0+$H
z#QJU;drp`=ICw1xcTL6n<CyP9jN+KPas<KsBQbyz-OpJpX5J)rJyCn!otsE&!=le}
zj^zl;X%;gU!9e9e!9dwS@xVQSB7r*sr2>@#d+BB-YC0!~nq4RqVtQ0t(f@1kJg=F!
zPT3*DdQOj)^1~{w!X>wm^8>YQI_+~sEzHD`L}|}yyZP6{X*tTs`OH}r)Lf;7VhOHV
z#ezf>t=6s9t!aMV{Gz#fmDQJ%>#WwDyk&Lkq>+`;$+uQ-PwrN}(00Vz6B)&SclX@;
znRy|#d+ec~z^^)?6KO)y0{qvM<%u(2Gd%`+3`bk5a=KF(MiKMr6RR*O>oV32uDi4D
z-MW%>`&s;04zQeLImY6~qQ&CKa-7A7rKT#RbYh0MRmq$AV^~Vq`fDn&imn34t$v@>
z=Zhz1fW$E%v6sQ)nk}y83wP?(q#H@slR}fOC50pf3qEhIk$EojLZ(`#=F#&<FCJAt
zsyU<B{bY~Ms7q5+fNJ7oqR-_xTtv~qM4JJ%Q1C0#ckXo@j*HM}ql5A`{@8nng(}no
zFKoR0k;VyKGIN%=Ss+ElDH7=EFPto}hr=&{Fg9x_-JoLebu8?5zXc&;5}o7!l{*aU
zGq#@k!{flij}y0+%ZweEXSe0=0go-!g1$dNM)rwH#r!+7dUO9tx6dMT$EB?{pL}5T
z;G~_E-N`RjjItB5EV4Ib56ixk-6ESM>m)lYyIy)1_QepsbZpRi%q0XE05N+^E%Z5R
z2eCF{rsxH5$2~YSx9_~$=Sf4CCP!a4>JoEyIX89U<8YsUYeC;c1CbSbz(W&eG{Bd0
zf@3vB7Ug?fP~L9c{*#}}s&|P6$^}XU$_I)D?hM=-xaxpF)vBs>Ra{l;t2nB7tJYTW
zSB;(T{rui<N^8sf4Gn?1D*}5C$jsOBME0mPtzuQde;}SYKpY`Rb}PN4pPOwca&E?_
zVJrlb4@xAf@+KdW7v88Ow^2w=a9iF+$vi;?SKrP3T9f-ORs<)^t=9<WstaE)9?p>-
z&TAjOb|C!1MD2wewU=MkUdpNs9IhQpy30K;GSgjcKk6pD4<UTOHF>XQ@_vWpeJ05V
zmbD7e$!+446JpNW#Fr;j)0N%iJ*{O|9vtwlU;R?Ddf+GZi_z*=Ua1EZs0S@iR$F0x
zP}Ev=t@WXu)@q@p$Is!gv1MM|LD}et<r)zzbrH+NBbd@7R@g_dtyB+Vsl9r*_Qsal
z>rS<y>jmn)DlO!C%}nEz)i{I?$qB15{l~|9-=&H4Koy`$pN#p23aekYRuAP;zow@i
zvRyscU45^&^<Gu${im$=8CV}U|LIBTn)g_Lac7US*Ji1Lan?gJxQozQjs3W3d{5*?
z@kqfvh>ao$!5ys|rCJ4P2O?;BB39mxpf`?S?TF~b8YGn9Q*^qjZ9c+4ci5ezC0Y`u
z@RT}q_~S=D6KjyKNV67id}qfz6vj~4S${KcR;oG?4RVT6sK;BS7^ofmS!8D4dll2;
zu}uL~F+{!g!V2VMYtikedNvq`z0*4FZ&KI=S4M8)i4>woY+8d5Vr|{Dfg_xsCw%qo
za316EH67s__F!EmlaTWmxrbR=3NUijrlo;gNeH>;Qt<7LL#=nisaf50(VaFzXW_Yl
zqg1UKe_Uy>CtqtwxjBQXSoR{5*HwiElY29%K9}Nq2YvQ-lh<_FOw<l+>`bP<lBuIU
zdw~R1N3F^>m^_oMue7+zg1B-nr!a%TWDQk2>@mpne)1-R-%g(@vO&kQ2YXC1y?@iE
zdbIq`g&9GP*@G7iu28dC&nK@l_<^!&5Xz1LWy^rF_SBWF0m_a6Ws@P4bt%lK0m?=|
zC|mZoD9hegh6QG*4q=Af4*Frh422-f&=Z)Uxubp<gc<e%GxP*z*h<}J!hp}T0c8(D
zDBI<ruLG3jgizKUC~M}ZuLGfM8&K9ADBD6^S)IQ}*`&Me<!>?)AbchbnBf30!+X@t
zFah{X8Zg6a5N25NIwRp>VTKrl&kO*csQ}7C_)I@gb`~g`3ZX3UnSP+`Z3ty6fU>~B
zZ6TDM{ach(j>eS$Gu#GYhQ7cIEgbdH5N3!2X6Osdu#LJIqJbIWfX^I;@EMGQzBEvl
z8A4gtO#O0j&qzZk+W?ex&DJl6xM!q+vJF7l{nV8$1DE38plpz<`7|)YB<f~p4typS
znBf%&Gc10cVGewT8^R3xfEgCQ$uNg-@L1q8lR()N2xWoKv;$>hAe1c!$^xG;giv-8
zC<~&IIfR3^|1HYS=r#?3dnO0M42OUjdIK|rxMy;J84dw6)PyiYa4F^hpOJ*{8E@b-
z;GS`TP_`2&dmbnYanHB_Wjlegsu0S8OVI@=%Lk$C`M*V3P{MTqGYo++!_wCo-N0vd
zL73qPFvHR}8Ql;*Qv}R#1o+H->ORvA9K00$usXw|zX`8-En4$-wAK|p%@{qckXM@V
zT*>CV$w%)b8=EBSze_fg*XC;U&$cR8;6`iLL?XnaT+_of(<2?yBTUkxF1^wU*sdA1
zT`RaiGp<0Z=GwiEoW5+2{*N6iO%W0{h^=c7;`#`w9SF&Dh;VQFa8>)rQ}z)C_EF~t
zb|2l2FT_q_O%)aTv@}x=*Qe~4NYTtlQFTbsW<p4_wr)Psx<#s0;&kiQ4Pw_%q1Ha{
zjt{mKyQYyItx>F}o}#Bw_)0zdmBzlolzqG@8h26-nWP+fm(qK%Ww>3lqttC|xIj)k
zMov7IDLq;u{U&dEjJ&vd`F8dD+cokF)H4e-O5N{nzC$qC@8hvGA^xgp3PQ9GAsB-Y
zd5sV%M2OL+$F8uC7PY^*);?yZeQYS_p?nKR$I+(h{A2COdiBYs63K{+WD|#EgTdsD
zldT&=T7?^1H)Xeqj<lY=XE){8GSXG-c|I==2HY1EaKoagf!maiG0SrIFp%FILG7>J
z>yS1mQIOmatxg>-Zpp6r7&c9arwWe2Hfb`5K%8u~riX1x00+bYSf!Nax9)>6!ray_
z<AL7}LfDGY05;2AcN4^sE;^k39isqwA86#up^@)~M&1P)`66iKk3%D$4U7CVv>`7t
zoVa0jVDkac$XCK5KYaogd7nqH$SWDaBF_(P^X$;bGe8^i;=<YDHB|$mO$#*gcF@Qd
zKqGGgjXbo?he0E+295lEXhU9HIKL?3+p0CEt)Y?6gGL@Y&L=?Iybd(-V$jG(K_g!W
zZODrYr+Wfn)+)v4F*NefaXtas=F!l|+d?Cs4~={WH1bZ+hP=3N%A<*{xvk~Uao!x-
z=B1&L=Y~c;7#jI%XymP+k<W!S<VA)v-WCZYnnT-s4m9$H(8y;(BmWv2c?W3Z3!#yR
zzBU&b&Zc}6D34sAk>3T4d>l0LjnK%Sf<_*?JSvC2HoKui$Rfj;)-kG5YB10puYleP
zQ%4qRPLn$XG1?GSA6aa$ZCWc#hd`o>+#%4DhbT}@QYak)O)-daGSi*XAsB$Dr5$6i
z<PL#EJWPk6mC_+dq1qt;?HBzLa{DFS9im8w23H>K@9|$zeYXt%vdxTmTNDcPJ)m!>
zpH_X_O@YGh*KB4q<*S%xxwAvxP(Q2s2CZ38*!`N#jQ$P*(7^lWSKpv_4GOzovzdV#
z)&X(;pI?20$w_Xj5_DGfZ)#?M23|ji^Z)$n8;q8W27b+E258_lfH?opufD<TEz4aR
z`r7<AH8Vg1ZxY1$e}45%nK=HM%?!}MI}aLo&~g5!Ro|5I=+|s!#GgXW43kTFtYRt5
zP`rJqLqH~I{N(lvxS_g!St`MQNizf7P((oDSX?T>9BEyyi>a(D&DBeWCVpb#{L6Z4
z$B0A*<Gnm-9I02D<b85FnI*e|V%Rd0H!d)CCK1t*f1>xOr@3nsO;}Hqls{_q1Je~v
zrr()J(uc$~zNIY%xogI{Yw4)|vLa_k60gKy+cX*U5#bBOE^l#7jX$x#l8==nANQ8?
z?lLzTPzFsV5&8vAReJ2b=;Ut+SO?@&v`SLM?zfLDiCio!=cjU>X-?au1W1UhFR<Rq
zxl)AxM3HM1H*1wr;wg8Q&T_Xfkbe+)X@Sl6O6#cRpV(=F@vS0Vtx+vQQ%fQj3CpAY
zcn`}IJeUf{aQ#jRG{26B{FXn+HW0ma;AX-N^CE785*Nu0dK&u{sE&gvn??S_iwxHu
zh;$yP`*O}_N#p{(^8Xvl%_u_JqgDd+6%Yn{t1O8m6MKJnox)%ljUkqT^MUps40L?!
zguT-I0q+GaKY(}M)3EUx1%00uL0jgcf(Zg#BDgJTV9_K(yP5!WC_D*^CKAlH;j$AL
z+oWWV1VB513+*b<rn$Ia&W<2KI&1-rrXw_((6*TaZJVH(1&1aI8qIcS(**1kI7eSx
zFl~yE1Ve)X;>dVs3dDcEL81%Qg$L{a>Ip@xehIR4dIWG8sON^6?xgdhoq!xbJ<TWU
z+Ff*P0HVCgY9(}*y8z+^^_<2y1z+TY(N2k?o}T7uPP<H3#A||849fP#4=N3t7%T?s
z2UsH1D?Dgm$2*a03`*cr=>}K}^ap)H2nzu2EDi0>(4_$iIylBcyECBm!nyO}f?4lE
z+MMMs039MMVME@MNU#O=<GK+BOYj<|wFV_R&^8Q4*>GmGBoeI1{kU#~!E(G4#U$AU
z?dE>aVQWbw*dP3HHxdTR*%1urpg~tK70`*=l1Q+*`ojh%6qfT-<eCV&EKz~JsFp;6
zwcZ~#IAO2^HR~uiA82D=>Hv_Jzkht~FD{s%W(60}QU`#%NdLod^t0M2eMKaxEO#XI
z#j?}^Ait2{hmmV>!Hn)A5-i9ib%RSR%xGw-{D&_8&5Qnyz6z*W^^FFWIsnwKnxE88
z0i&Y(OKgFK7q<LxuJe<a7hqImyhK2t)(`!8%nK0UB$fyWl=mq8IF*L(*jhl>jW8lX
zQ*McX@DFBQfT;thiQos5(1X?`k<^-UP-KqT5fm8A{E8fa1;W_kb^s`Z%f$r~)U4v5
zW`!Pe!TZHOo&!KZ^B><%0U2BoAp87^8~_SAb8$NW3-pvl1@q{6JQ_)!sBcA?!H}!}
zmDB&fr~C)(>A!(i0cuu5z!il_|0ovtFX8}D=;;6acFO!z7#Kys49zJAv_wFlI*C|R
zEWxPA7B~>h(44~GULqhY3IPEcOAz2PK~oN9Ximw2mIw&cYMsT!5~OryMgveobIMi_
zbP@4iB=QQ02P~{ro+U4=y_3aMbL>UjD{CjP=RLL76VYUjKR1=U5v-ko#<%g{cQ4o`
zuU3`*Rx={~`#zfq6WC+}@3xL6vwZ%tTE*=Bo|w0=&z6z0NFpU%NWR7kYhAAq;b5T)
zyo7rTAol-d!^o_;cPjSxO))8Yup<WEe_apAE`QxHqE~W8E{R+uEMtn0<-d1T9mLg-
zYLeejepCL>Zz!j17;XJ>7T>V2DVBco64(&~Z(g?n)8)Tx7-28*7lAyG(p+2;`TvV$
zeJ9G|_qDD<uH?-k;NAG*T7XOOmnBo~i6;b`g-tO%t$koe47`>;4~&fevbXB7FRXJ(
z<YHmjH=+W9E2Y%~6I>~sK&arlB$C=i1%>6usT@)_d5vNGJorCLP>pb<<jsIGuo*!8
zvhpBr26%zZ0P4p%N?y6Zft3sDo{1sr+7DJPAc8EJbAcwWTu{F+4Z+Gq0(s?vx{*Ev
zD;G-Sl?&?e#*Dmj(G6BE77timFMJM211NbmbzSpX3FH+4>ac=<2Y(?^2m;hGHC|v_
zP(OYUAf(A$b?ShE08Z|;K%9M+JEhk`-Aor9%)Sxwjf5f34yhkI$QURoITV`YMM)?$
zDSdq?G|7vSaA=aLXi#Vtk+)Z%Oq0AQ31ym#3ua6a$;)_v!t8@WlhW6RLX%7%hC-7v
zB!NN`{+c5XNubbFfi_Lbq9lxIE-sjQ-9+%l1w46C5)Msh+suKsO>$o!3QZI=nv_LJ
zC^X57l2E2eS(Jn_%|!(hTtYP<a*;cMPzNLcjnR@wYIP$FmJiAZIN(6!t}2ubQ@W~9
zX0#-dTHOePB?xenppiuGszSLrbhfu7l4_q1220SC1CuRE3l!>-hECy@L{e>V!e9w9
zxUwvF_&f$WFIy5xwZRF4<@HV!$%kB0*Mm1MP>*m+<v;!>_f<g6YQEF~fEfP#tab{B
zc;H5&EJ{-MC(ut>>Htt3kS#8lAf@XEDK|`Xq>O)-IsnvXHH!)+s97<f*SFLGpgNhP
z&?KSq-o*v8Z$#kd&Efxs(f+?p<oFaCI1uGkwJ=>QW$3QllE}p%bASNXzC=Ly=Q1xq
zQw|KTD6gu8YRbW<aL{v<C6Pbihky(Y2j->ZwJxX>8-6mgB$68W4hBmJXVUB_d7>@}
z-nalUcKA0={{aWk<G+Sh0cuw7Uz7ttVUSrsPrZH;p#nra@{RN>asVh4*~RSuEbt2#
z6-<!QC4!V2COT4z4a&=sp^^*uM)yzR04$)ns2zX>0`=m8**Ag&WFHi?r~i9601Ig5
z{L={)fWHk!MFP+Vv_wEy3<AOe7aj)7`c4(#Krln|g@~|3Kv)a{0z8&|BNm`32QxHZ
zXm>4f8mQGei;Ly>)F{XhV20+DlxK;6uqXrsXe>bnhXzf#Kk^s?=4$!y<CV)#aQUxk
zkk+-;(6^=IXt%u3Q*nRC*`q>xZ%O1}-iAuB+O8dbnU)(efgW6*9L^Q7TwGKGv0qbz
zM<c=&u}?x{O}glgWP|&S!wQn|)tU@>8f<kUUc!l7;rkH>Ig)P)YpfI(u@OF0uR)(K
zte<@6Rk%sW&iv6V_qCE6YDM=5$9{_NMeJqLSgjFm6)7x|9336OB`&rmIZ`je0dc@#
z$Gevm`K`uT?i=Gig_}mIjcd?~3m+2RcU>bgIvjyeMI_(V3)e&(%Ftj<e{Hu7-=t}q
z+j`L{@_?%bf1Mcpuc~lChlO^U-)*dyu0Z#R$Cc{?idW!RKJ#snF|vD9d*a!N+{)xi
zj)0UE4J@fFH~F$;jO-uPpD3*44Ja&88m%ho9Idd3cOEfEzHE?r=xQEhU*^YutJG1t
zq)+}vQ5D*rP{!ZiJ8;&xJJo(97T-qTnC$8!Rr!z}D{F6HZ@@_?Dd)7!Pj=;C^a*nw
z%7+`8!yG+GRk*QoKItNhuJ;(U=}qj(bvZ$O_%nM1xJl#Vo_%5VvpCP5cBHNr1EY2_
z)6U^^8k(?71{z&0y5(FnjEsylE4SC{(tPs~0$+PNNqe}sI=b1}*tok%Te#Xdxk*#L
zk=^Qf+G#8K`w+Ai(=(Y>D?V^~2FdtDy}5FA`-tjg=M?@E>Z$Bb{K8``opB-eK0NDt
ziT16s*ulOnpYO`<J(5YE=w<Ti2kO{3n!3)G)2-z+3CYhFwoGC?Ql6o`{bc>Fvv+;1
zd2)|FyA_FHUj15qg^)*rleRZEOR8evK2JUF_3BR7tt6kN(N4zJnMes1lq`QEl|alj
z!{}UR(>7!6nCQLIOgma^Br3}iEqsRfuDmMJcI`p4YdO~^ImsAgKNvca51vqhmgWZ-
za4ulrZfA4aMw;>~<-r>bkGs5+;Ud!G*>7Un-!sxK*OTHJv207uwMUDd<;V%;>_{~u
z5!Q>X>VIP(8N<Z>wg$6@*i@~2%8Rh;{s&sOeXfr$HN~*fp0ea$eKYGrPGTu~8{_4J
zTlR0a^`uXHbfJAnN2?%Qyh%oP@bH#qrc}gQ<_3-=4xzI#+_%yTclYx|I@EJYe*ALu
zcH@J-cT=zGS6M!K)1T9V?!9%{GcKrxWt%Zi&#g`A4}zn)mMsgEt3I1(wT0d^QN8=9
zsl!#oDnteQ4jli^5|4U;%BZS9*RL18Fuj|j%bskNr+YBmdw%X%uftyV(F$vH_VDD{
z4L-aVp6PnEV0`3OzHdx^!TX!T+akXr*2f8L&-kXw`H3&2QBq~?AH?Y1?+OW9@ql+u
zsSK%r>UunaXZ3$q#W2-)o}=I^Z#3c=7QcErt^4z*5gv~IiH3%+D{OdTjty+vW1z+}
z7ln&o_T^K?xb<G;HM>=lo}FGL!k}Hx+Pv(3Zj3HVj?o4jkL75I;mK~f_&0*J?^e$|
z3`+~$dw6qKgV=Qx(~-lUq7N#FyyDDuXY-86uq-!Yjy;oHbD@8HSHytwp)2oRv?vJQ
z+ZoTO`)Pk4Yv{W-NqbIV#veq=Hw~~z&<pbwk0ka<gy%(S2c+IYf1cd3T9np;&rfOP
z$^4xwT`nB_P#${uq{a1W-wV|*y+W_pSRdNJd!e4~qmG2?-pf}%K6rU71zC@+-lnwn
z<>OB51s_~pwOrRG%jn~AmyZUDUq55$+hdCEuS!49V81+ny0-8&if^+c`ssanw}hOR
zmme5a8kspb+*(tgaAM{1tD=KR9QE?eB)5Dn(^@GGd-^u57!ps!Ejmp({h?F5n;oC*
zaXx`Gb#=q{9%>pC<*AWn>${qKJEO3^_QN1wWuLH$L@R!~_i_gBPb%R|(E__|XoNO>
z+H+@hkLuZ7M~6)fCy%c892ux#kwWNsaN*=~K6v}4o}5X#eZD*|aKESe`PeTd(vs)4
zHb$)AxY2Dj+Wv{vpj$=~`SoEOdbq#zc_-hceW!OGZsbed`9@*u%to2VaiPx}H#C0c
zE8SP*Ak}M@ZX2(1Myzg5fb3}o1!*GUbTl-@Y(Mfet_4qXv$J%yu|DSRYVU08MvgI8
z^eUY@WmpK82y{tqoMH!ZS+De-_@X=U$eF$b%UjE_f%%cJTJ)t)qhiIzcTCJZw7P|6
z`896$&HbkE_P&r!<8`Ti<`s6AW9pp@hiBWnhMDQc->Y{U2S}bjXf-r=K;x5ODz8cI
z8$2;}vwFdUJ&mWsMCC%x-NDbapJpE1;Hn{Yuib3yZ0?Mn-9r{S%YZS-^Mu>`WE{A^
zPAxah&k)v+sd(p>=GkRwJd?47W9rf_(@gAc)%3z97kTrOyHbTC&ty#Jw#cUFvyD|T
zYL0a4q7U8OKOEFN5^;#{*>Q&62@QtI*NU8T&h&}n6N+mTFRYq0J)@Y3y35LB_~_P=
zae3((JACtzL6uLHI-WG0dxy)5RPT)y(>5xUnY`pZtdhs-G^Od8vg<6n{7ILzr)kaG
zzvw;-&*N`H1$o!KdKw`2;rQjyns%>)*cW4;%@{n`JltkFo}Re!Vj}D}M|WG<Wpj>L
zWS;B&fT&wN?4!R$@9;s3*X_Q{+wxRPL-V5=-}-fWosS<sEHpS(++aL^rmae5XJTDJ
zF>brIKT#=^Su9p`TwMLobG))P<F=_d`J?ZzI&HJ%z`el=ZMoRK)AOpD+H=3!1{33F
z4SnjTUc5BSWggo)8$D%Wy&revgOU5DikfwDcN18XYEhD_?~bc^vNi<z$+qvd)#T}j
z=0^|MOQt>0o1Rcki#_)Im^p!#Y)?#`3`}gxXlNK${K%eIf43)hFDDy{Ar;<ibnV=@
zswVNb(Whs^a_??GA{QxVf9lmhiqiA=fi)Vnr=A6^I3qDRP|8>*kUJ=mpvQf}5((Z}
zlG}?{Wtw<)qt8TS_nk&rtBht5!_4I*qf^|w))}kmYg{qdQYn=`qfA(Jyq#&P;M7aO
zjho{>6uM1r5PWR3O=IM6`{ByNDIv*hfu{~Ron9xE?Gbrt%V(V9CUL{vtFU*zTwklU
zzK;2R_QUsC&5>U+KGG|Qc10fFAAC_bOjgKMcn3OeZrP(9=M?)dl|DXprR_;;y|Lbx
z5Z9H&SA4B+iK^0idlP)`sq=E1*afV=eBsr>?t2fcEgJ)R^gKCNR^%|^RzI5$|Ef-p
zW=*V>$yBT~CY4J$Z<oUEQ5Gv~Djj9XCX7GK{qW+-+k`hFY=PSYPo8`EfMvylQRz<J
zbxaRkpSlkbb4|X!e&;7!5RbJg{E*U~>#f+D5cal~-=6Qj;|Y)Aog!Rc9--*@4_kjp
z&OH$mkTix!I#+@fjSsj(+xjSLl&0Xse#Kc{qVegv)!}hWS9VxvAq67ZW!wcj{0vW9
ziw4nVJGLnAy%}vy%X#=Vn~?Mg6;s9v?&;5EPmb(3x|g@jl4I6`uKV$*vR=PadthdN
zO4E~}7hl)Po6ih!w+6LH9~csGG_^=fPB*U$Iq%A?P~4(XoOn+6(QBp)Ew7GTE%0=-
z3caMG{_0Cp4g26k6X|i$**AR(c@MiICdZJbFLr&J@g6i+w{Y?iLF#@zKE&2zF}WOx
zQ;Au2-?!>Yuf)p@ujFJJP8q(iJU?Btkw8Z_!Y#;i?wY^|%@}`VgzO7ONKT=wTwEN<
z@hm=4%Ne9gfjZ3!2fG7K9+bSQ{#Gvr{QHjo>03^#9yRN@?e8n1!Vlhay7zGYu8VR9
z$r-~Nzx_ji>rOGJ+mXw&&LBFDX;+}S*YZVPuFd}R&bYR2&9V+|ol=2*v|4}D$~T?i
zQ4%lY?{B}##KNv+7*HM6>QyDQm2fTa9bIhFva70X`gbaHt71fU?f={_V`?lxo1<;Y
z^42rJvsv+;-vhl3s(0)K&Zw>&y(HO-*u5>hd9SV={lxw_1wo<D>v*u}SnrFqyi%c>
znVuu%qKBiRf{Qwy8Xe{}I}%99fAM9^wc!n}On~1_tH@(Y%7-X$EhRcv<-rc5Z}6;%
z>0#k*?Ar*nt0JtfcLt?ZKkN^(9B$>2y%oYV_~4@OO+Hiq^R_Jcogoa@T12m*xwPl^
zJzR<Say3F%f_Z$y&@wFZ!$X+B&?CVX<TE%@e=l1Nq;I0&a{13`Ebqb@Eaa}=o&+U(
z&5qpXP$jeK5IByj9qoBh2+eDEk8HN?Ol4Tr`c^JiMDWPFxvBV_ALLi<=Qh7as-7n`
z+vO8@y~i$!dsIq3xX!WMo71WPIQ?i)EM9EY?Si5bcK$UtZdo43oHoyGf4;5boGdfj
znDIrS>uAKO-ZRa`jH{I}+XY$g7^NDho(?TJR4mb;cKb7ru7&mWa{chB$IH&H6C#Q!
zY(HXqhWn-cUL8XT;jt~QziCTFUb67onR%&dueq&}R9(3J@GPs?)%*&5lzBn-z~!kB
z4rxzq*&>%p#VspwJgu?{2j}Q+X9?&jr&iYn3m76PR(q4D^4K82qZnB3e@2WM{EY>;
zeoyfCv0ai`Mc)h({8LkiGnO}!9?6P2vGV`+_<-QvH2chFBO{0q=GdrNoPTOotd|x0
zgylxb-)db?*sU3;<fUz&DpR6iK58N*mbdvtHO;v~ap~Q4x19H@JbB7t6>vdW)#H=m
z1Abc`Iaj;3R3VjyTdFQkq8y@E%x*<bzen-u`rXQES>}76`NYWJSAn<^XI;-t=Mr09
z2&}QVCamQm!(=2%6jtfJ`eIAc)67VuqER_`GzP|Gm!yq(;6XN1&F_yNaB+6Gadx-R
z^EzYWW=3|>!eb5Ez$)gK5e3KB>~P+*@$#Lir@f5o(d<UUM^3($_UdZK<ZGA+XKcLq
z%Dn7xjl#B}!Zcibe)S5@+aDxl#cS^E&AGJG-}qWsHSUWxS9GQ0qso&aQ|eaArFXVY
ztxo@7trKJC8aj=LbZDlH5xi%c%vQJWvyDkTqXWHG^se5qY`sd`39snmY_f66R;-S3
z!9o70l!wco+l5?uSs@&C?W29o3734c29-~z%amoe$*&XVe1~P(A=)~bPILd2MA>+w
z@cl6hj--bn`!~FLcUDtFR?yC2RepZo&Sd>vqdPDg`?${>mhdp}4-hVu5oeD{z%c9x
z*G2U|4@ni2R$;r_7Nq^irb)1o?qE%w$Pn5mxax{W?VgxzNappCgBSeE>@xS<WV=Bc
zY4i(xBtO`IwMAD@P(OXOKz9c~oM$=Nz-X6o(fm<cGFaIM(1Sl?0PeaDoXnp;pwhH<
zwe%pTegE?XrPTUf%D1)apQUI4*?+EA|EN^Im-21(N3L`K`1oahFXjKNdcPO=ZIVka
z8vpoQ%%TYVzJ&Z<z_(cqIT!xpGn7LS@R!W^dkNoON#yM3kB<Uy1b~d&|K>v9|LC`o
zlzeCX@p)SCzi|A|4fg#He;ZWD!S;{O!N-&z{tuz|dpX~FEI9=I@i|}gr-1bR4}NQO
hf5zVO2@TEv;oiDh^dNVnp<x35+ySAmy_o#n{{!m*<)i=r


From 6219b38f61edae2e2bd7db2dd9c026d67f50a7cc Mon Sep 17 00:00:00 2001
From: zerinahuang <huangsis@student.hu-berlin.de>
Date: Thu, 18 Jun 2020 15:48:11 +0200
Subject: [PATCH 5/7] remove temp file

---
 .Rproj.user/shared/notebooks/paths | 16 ++++++++++++++--
 R/plot_disaggregates.R             | 27 +++++++++++++++++++++++++++
 R/temp.R                           | 15 ---------------
 3 files changed, 41 insertions(+), 17 deletions(-)
 delete mode 100644 R/temp.R

diff --git a/.Rproj.user/shared/notebooks/paths b/.Rproj.user/shared/notebooks/paths
index c33c885..8186e9c 100644
--- a/.Rproj.user/shared/notebooks/paths
+++ b/.Rproj.user/shared/notebooks/paths
@@ -1,2 +1,14 @@
-C:/Users/huang/Github/dashdash/DESCRIPTION="6C509801"
-C:/Users/huang/Github/dashdash/docs/mexample/mex_dashboard.Rmd="E122CEBA"
+/Library/Frameworks/R.framework/Versions/3.6/Resources/library/dashdash/rmd/child.Rmd="FBA5C26F"
+/Users/sisihuang/Documents/GitHub/dashdash/DESCRIPTION="FDD3ECA9"
+/Users/sisihuang/Documents/GitHub/dashdash/NAMESPACE="FD370DEC"
+/Users/sisihuang/Documents/GitHub/dashdash/R/plot_aggregates.R="E20DCDED"
+/Users/sisihuang/Documents/GitHub/dashdash/R/temp.R="24E8D678"
+/Users/sisihuang/Documents/GitHub/dashdash/docs/index.Rmd="88DAE09A"
+/Users/sisihuang/Documents/GitHub/dashdash/docs/mexample/mex_dashboard.Rmd="A04F261E"
+/Users/sisihuang/Documents/GitHub/dashdash/docs/mexample/mex_data.csv="D1791882"
+/Users/sisihuang/Documents/GitHub/dashdash/inst/rmd/add_maps.Rmd="99D69A53"
+/Users/sisihuang/Documents/GitHub/dashdash/inst/rmd/child.Rmd="1498AD5"
+/Users/sisihuang/Documents/GitHub/dashdash/inst/rmd/dashdash.Rmd="EC2CBF22"
+/Users/sisihuang/Documents/GitHub/dashdash/inst/rmd/ft_plot.Rmd="FDE79D64"
+/Users/sisihuang/Documents/GitHub/dashdash/man/hello.Rd="F4426691"
+/Users/sisihuang/Documents/GitHub/dashdash/man/plot_disaggregates.Rd="1BF18FD8"
diff --git a/R/plot_disaggregates.R b/R/plot_disaggregates.R
index 7decab4..d61c486 100644
--- a/R/plot_disaggregates.R
+++ b/R/plot_disaggregates.R
@@ -17,10 +17,36 @@ row_function <- function(num) {
   return(row)
 }
 
+# convert some vars to factor vars
+factorize_vars <- function(df, my_vars){
+  vars_vec <- names(df) %in% my_vars$variable
+  factor_vars <- c()
+  for(i in 1:length(vars_vec)){
+    if(vars_vec[i] == T && as.logical(my_vars[my_vars$variable == names(df)[i],]$factor)){
+      factor_vars[i] = T
+    }else{
+      factor_vars[i] = F
+    }
+  }
+  # convert to factor vars
+  df[, factor_vars] <- lapply(df[, factor_vars], factor)
+  # extract labels of all factor vars
+  factor_label <- my_vars[my_vars$variable %in% names(df[, factor_vars]), ]$label
+  # extract factor vars name
+  factor_var_name <- names(df)[factor_vars]
+  # change levels of each factor var
+  for(i in 1:length(factor_var_name)){
+    levels(df[[factor_var_name[i]]]) <- unlist(strsplit(factor_label[i], ","))
+  }
+
+  return(df)
+}
+
 
 
 plot_disaggregates_row <- function(df, my_vars, pd = ggplot2::position_dodge(.1), switch = "y", nrow = NULL){
 
+  fac_var <- as.logical(my_vars$factor)
   vars <- pull(my_vars, variable)
   var_labs <- my_vars  %>% pull(short_label)
   names(var_labs) <- vars
@@ -39,6 +65,7 @@ plot_disaggregates_row <- function(df, my_vars, pd = ggplot2::position_dodge(.1)
     mutate(se = sd / sqrt(n), ymin=mean-1.96*se, ymax=mean+1.96*se) %>%
     left_join(ranges)
 
+
   # Row num for layout
   nrow <- row_function(length(unique(df2$id)))
   row_id <- split(unique(df2$id), rep(seq(nrow), each = length(unique(df2$id)) /nrow))
diff --git a/R/temp.R b/R/temp.R
deleted file mode 100644
index 39632d1..0000000
--- a/R/temp.R
+++ /dev/null
@@ -1,15 +0,0 @@
-vars_vec <- names(my_data) %in% my_vars$variable
-factor_vars <- c()
-for(i in 1:length(vars_vec)){
-  if(vars_vec[i] == T && as.logical(my_vars[my_vars$variable == names(my_data)[i],]$factor)){
-    factor_vars[i] = T
-  }else{
-    factor_vars[i] = F
-  }
-}
-my_data[, factor_vars] <- lapply(my_data[, factor_vars], factor)
-factor_label <- my_vars[my_vars$variable %in% names(my_data[, factor_vars]), ]$label
-factor_var_name <- names(my_data)[factor_vars]
-levels(my_data[[factor_var_name[1]]]) <- c("rural", "urban")
-levels(my_data[[factor_var_name[2]]]) <- c("female", "male")
-levels(my_data[[factor_var_name[3]]]) <- c("no", "yes")

From 9bd4eceb7c0c6771b0c2194f82de495aaa366ad4 Mon Sep 17 00:00:00 2001
From: zerinahuang <huangsis@student.hu-berlin.de>
Date: Thu, 18 Jun 2020 16:03:09 +0200
Subject: [PATCH 6/7] add a new arg nrow

---
 R/plot_disaggregates.R | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/R/plot_disaggregates.R b/R/plot_disaggregates.R
index d61c486..ee69808 100644
--- a/R/plot_disaggregates.R
+++ b/R/plot_disaggregates.R
@@ -46,7 +46,7 @@ factorize_vars <- function(df, my_vars){
 
 plot_disaggregates_row <- function(df, my_vars, pd = ggplot2::position_dodge(.1), switch = "y", nrow = NULL){
 
-  fac_var <- as.logical(my_vars$factor)
+  # fac_var <- as.logical(my_vars$factor)
   vars <- pull(my_vars, variable)
   var_labs <- my_vars  %>% pull(short_label)
   names(var_labs) <- vars
@@ -67,8 +67,13 @@ plot_disaggregates_row <- function(df, my_vars, pd = ggplot2::position_dodge(.1)
 
 
   # Row num for layout
-  nrow <- row_function(length(unique(df2$id)))
-  row_id <- split(unique(df2$id), rep(seq(nrow), each = length(unique(df2$id)) /nrow))
+  if(is.null(nrow)){
+    nrow <- row_function(length(unique(df2$id)))
+    row_id <- split(unique(df2$id), rep(seq(nrow), each = length(unique(df2$id)) /nrow))
+  }else{
+    row_id <- split(unique(df2$id), rep(seq(nrow), each = length(unique(df2$id)) /nrow))
+  }
+
   # subplot to 4 parts
   subplots <- list()
   for(i in 1:nrow){

From 6c22a61610a60a456c05679bb5b2b5c947be675d Mon Sep 17 00:00:00 2001
From: zerinahuang <huangsis@student.hu-berlin.de>
Date: Tue, 23 Jun 2020 17:49:46 +0200
Subject: [PATCH 7/7] fix the error from description file

---
 .Rproj.user/shared/notebooks/paths | 10 +++++++++-
 DESCRIPTION                        |  2 +-
 2 files changed, 10 insertions(+), 2 deletions(-)

diff --git a/.Rproj.user/shared/notebooks/paths b/.Rproj.user/shared/notebooks/paths
index 8186e9c..d8b9c00 100644
--- a/.Rproj.user/shared/notebooks/paths
+++ b/.Rproj.user/shared/notebooks/paths
@@ -1,8 +1,9 @@
 /Library/Frameworks/R.framework/Versions/3.6/Resources/library/dashdash/rmd/child.Rmd="FBA5C26F"
 /Users/sisihuang/Documents/GitHub/dashdash/DESCRIPTION="FDD3ECA9"
 /Users/sisihuang/Documents/GitHub/dashdash/NAMESPACE="FD370DEC"
+/Users/sisihuang/Documents/GitHub/dashdash/R/current_means.R="A42285E3"
 /Users/sisihuang/Documents/GitHub/dashdash/R/plot_aggregates.R="E20DCDED"
-/Users/sisihuang/Documents/GitHub/dashdash/R/temp.R="24E8D678"
+/Users/sisihuang/Documents/GitHub/dashdash/R/plot_disaggregates.R="54B0D33C"
 /Users/sisihuang/Documents/GitHub/dashdash/docs/index.Rmd="88DAE09A"
 /Users/sisihuang/Documents/GitHub/dashdash/docs/mexample/mex_dashboard.Rmd="A04F261E"
 /Users/sisihuang/Documents/GitHub/dashdash/docs/mexample/mex_data.csv="D1791882"
@@ -12,3 +13,10 @@
 /Users/sisihuang/Documents/GitHub/dashdash/inst/rmd/ft_plot.Rmd="FDE79D64"
 /Users/sisihuang/Documents/GitHub/dashdash/man/hello.Rd="F4426691"
 /Users/sisihuang/Documents/GitHub/dashdash/man/plot_disaggregates.Rd="1BF18FD8"
+/Users/sisihuang/Documents/ga_blog/_layouts/page.html="A1250034"
+/Users/sisihuang/Documents/ga_blog/_layouts/post.html="9DEDC53C"
+/Users/sisihuang/Documents/ga_blog/_posts/2020-06-23-my-post.markdown="4ADB0B20"
+/Users/sisihuang/Documents/ga_blog/_posts/2020-06-23-welcome-to-jekyll.markdown="FBCDB4E6"
+/Users/sisihuang/Documents/ga_blog/about.markdown="36178E39"
+/Users/sisihuang/Documents/in_progress.R="A11F17F3"
+/Users/sisihuang/Downloads/surveys-master/_site/index.Rmd="CB066735"
diff --git a/DESCRIPTION b/DESCRIPTION
index 7894555..564f38e 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -27,7 +27,7 @@ Depends:
   tidyselect,
   table1,
   checkmate,
-  gridExtra
+  gridExtra,
   data.table,
   checkmate,
   zoo