From 17d04f396fc498ddd2016fe27d7f80d4afd3a5bf Mon Sep 17 00:00:00 2001
From: Joshua <jbkunst@gmail.com>
Date: Thu, 25 Feb 2016 18:43:58 -0300
Subject: [PATCH] starting 0.2.0 release

---
 .Rbuildignore                              |   2 -
 DESCRIPTION                                |   4 +-
 NAMESPACE                                  |   3 +
 NEWS.md                                    |  29 +-
 R/api-hc-extras.R                          |   6 +-
 R/data-usgeojson.R                         |  13 +
 R/hchart.R                                 |  36 +-
 R/shortcuts.R                              |  32 +-
 cran-comments.md                           |  10 +-
 data/usgeojson.rda                         | Bin 0 -> 13744 bytes
 man/hc_add_series_map.Rd                   |  29 ++
 man/hc_add_series_treemap.Rd               |   2 +-
 man/hc_defs.Rd                             |   2 +-
 man/usgeojson.Rd                           |  19 +
 no_build/data.R                            |  30 ++
 no_build/get-issues.R                      |  22 +
 no_build/index.R                           | 104 -----
 no_build/test-hchart.R                     |   5 +
 vignettes/replicating-highcharts-demos.Rmd | 520 ++++++++++-----------
 19 files changed, 473 insertions(+), 395 deletions(-)
 create mode 100644 R/data-usgeojson.R
 create mode 100644 data/usgeojson.rda
 create mode 100644 man/usgeojson.Rd
 create mode 100644 no_build/get-issues.R

diff --git a/.Rbuildignore b/.Rbuildignore
index b3789fdb..740c5d1f 100644
--- a/.Rbuildignore
+++ b/.Rbuildignore
@@ -4,6 +4,4 @@
 tests/
 no_build/
 ^\.travis\.yml$
-^NEWS$
-^NEWS\.md$
 fort.6
diff --git a/DESCRIPTION b/DESCRIPTION
index 986fa3c8..4d511579 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,12 +1,12 @@
 Package: highcharter
-Version: 0.1.0.9000
+Version: 0.2.0
 Type: Package
 Title: A Wrapper for the 'Highcharts' Library
 Description: A wrapper for the 'Highcharts' library including
   shortcut functions to plot R objects. 'Highcharts' 
   <http://www.highcharts.com/> is a charting library offering
   numerous chart types with a simple configuration syntax.
-Date: 2016-01-12
+Date: 2016-02-25
 Author: Joshua Kunst <jbkunst@gmail.com>
 Maintainer: Joshua Kunst <jbkunst@gmail.com>
 License: MIT + file LICENSE
diff --git a/NAMESPACE b/NAMESPACE
index 1feb9349..7d2db12c 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -96,6 +96,7 @@ importFrom(dplyr,select)
 importFrom(dplyr,select_)
 importFrom(dplyr,tbl_df)
 importFrom(grDevices,colorRampPalette)
+importFrom(graphics,hist)
 importFrom(htmlwidgets,JS)
 importFrom(htmlwidgets,createWidget)
 importFrom(htmlwidgets,shinyRenderWidget)
@@ -110,6 +111,7 @@ importFrom(rlist,list.merge)
 importFrom(rlist,list.parse)
 importFrom(stats,ecdf)
 importFrom(stats,is.ts)
+importFrom(stats,qnorm)
 importFrom(stats,time)
 importFrom(stringr,str_extract)
 importFrom(stringr,str_replace)
@@ -117,6 +119,7 @@ importFrom(stringr,str_replace_all)
 importFrom(stringr,str_to_lower)
 importFrom(stringr,str_trim)
 importFrom(tidyr,gather)
+importFrom(utils,tail)
 importFrom(viridisLite,viridis)
 importFrom(xts,is.xts)
 importFrom(zoo,as.Date)
diff --git a/NEWS.md b/NEWS.md
index e333eb99..374b0dac 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -1,4 +1,31 @@
-# highcharter 0.1
+# highcharter 0.2.0
+
+* Implemenation of highcharts with boost module `highchart2()` (#43). 
+This include highcharts.js, exporting.js and boost-module.js.
+
+* Highstock implementation/support (#10)
+
+* Highmaps implementation/support (#25)
+
+* Adding themes (#35): 538, economis, dotabuff, google, theme null (#19)
+
+* Plugins: Add font awesome integration (#45), fill-pattern (#31),
+draggable-points (#28)
+
+* New `hchart` function. Generic function to chart acf, forecast,
+ts, stl, xts, ohcl objects (#2) (#27)
+
+* In highmaps prevent scrolling when cursor is over the map (#38)
+
+* Import rex-export %>% (#15) 
+
+* Heigth scale in the container in rstudio IDE (#14)
+
+* Avoid duplicate css calls (#6)
+
+* Add uscountygeojson, usgeojson, worldgeojson, unemployment data
+
+# highcharter 0.1.0
 
 * Data: city temp. favorite bars, favorite pies.
 
diff --git a/R/api-hc-extras.R b/R/api-hc-extras.R
index b7e4b56f..6bd2f371 100644
--- a/R/api-hc-extras.R
+++ b/R/api-hc-extras.R
@@ -216,7 +216,7 @@ hc_mapNavigation <- function(hc, ...) {
 #' 
 #' 
 #' @param hc A \code{highchart} \code{htmlwidget} object. 
-#' @param ... Arguments defined in \url{https://github.com/highcharts/pattern-fillhc}. 
+#' @param ... Arguments defined in \url{http://www.highcharts.com/plugin-registry/single/9/Pattern-Fill}. 
 #' 
 #' @export
 hc_defs <- function(hc, ...) {
@@ -234,5 +234,7 @@ hc_defs <- function(hc, ...) {
 #' 
 #' @export
 hc_annotations <- function(hc, ...) {
-  highcharter:::.hc_opt(hc, "annotations", ...)
+  
+  .hc_opt(hc, "annotations", ...)
+  
 }
diff --git a/R/data-usgeojson.R b/R/data-usgeojson.R
new file mode 100644
index 00000000..119a4c5a
--- /dev/null
+++ b/R/data-usgeojson.R
@@ -0,0 +1,13 @@
+#' US States map in Geojson format (list)
+#' 
+#' This data comes from the \url{https://code.highcharts.com/mapdata/countries/us/us-all.js}
+#' and is used in highmaps examples.
+#'
+#' @docType data
+#' @name usgeojson
+#' @usage usgeojson
+#' @format A \code{list} in geojson format.
+#' @examples
+#' data(usgeojson)
+#' usgeojson
+NULL
diff --git a/R/hchart.R b/R/hchart.R
index 7b469833..342ee6b1 100644
--- a/R/hchart.R
+++ b/R/hchart.R
@@ -23,6 +23,7 @@ hchart.default <- function(object, ...) {
        " are not supported by hchart (yet).", call. = FALSE)
 }
 
+#' @importFrom graphics hist
 #' @export
 hchart.numeric <- function(object, breaks = "FD", ...) {
   
@@ -109,6 +110,7 @@ hchart.forecast <- function(object, fillOpacity = 0.3, ...){
   
 }
 
+#' @importFrom stats qnorm
 #' @export
 hchart.acf <- function(object, ...){
   
@@ -161,7 +163,7 @@ hchart.mts <- function(object, ...) {
 }
 
 #' @export
-hchart.stl <- function(object, widths = c(2, 1, 1, 1), sep = 0.01) {
+hchart.stl <- function(object, ..., widths = c(2, 1, 1, 1), sep = 0.01) {
   
   tss <- object$time.series
   ncomp <- ncol(tss)
@@ -205,6 +207,8 @@ hchart.dist <- function(object, ...) {
   
   df <- as.data.frame(as.matrix(object), stringsAsFactors = FALSE)
   
+  dist <- NULL
+  
   x <- y <- names(df)
   
   df <- tbl_df(cbind(x = y, df)) %>% 
@@ -238,27 +242,29 @@ hchart.dist <- function(object, ...) {
     hc_colorAxis(arg  = "")
 }
 
-# #' @importFrom seasonal original final trend outlier
-# #' @export
-# hchart.seas <- function(object, outliers = TRUE, trend = FALSE, ...) {
-#   
-#   hc <- highchart() %>% 
-#     hc_add_serie_ts(original(object), name = "original", zIndex = 3, id = "original") %>% 
-#     hc_add_serie_ts(final(object), name = "adjusted", zIndex = 2, id = "adjusted") 
-#   
+# # @export
+# hchart.seas <- function(object, ..., outliers = TRUE, trend = FALSE) {
+# 
+#   hc <- highchart() %>%
+#     hc_add_serie_ts(seasonal::original(object),
+#                     name = "original",
+#                     zIndex = 3, id = "original") %>%
+#     hc_add_serie_ts(seasonal::final(object),
+#                     name = "adjusted",
+#                     zIndex = 2, id = "adjusted")
+# 
 #   if (trend) {
-#     hc <- hc %>% hc_add_serie_ts(trend(object), name = "trend", zIndex = 1) 
+#     hc <- hc %>% hc_add_serie_ts(seasonal::trend(object), name = "trend", zIndex = 1)
 #   }
-#   
+# 
 #   if (outliers) {
-#     ol.ts <- outlier(object)  
+#     ol.ts <- seasonal::outlier(object)
 #     ixd.nna <- !is.na(ol.ts)
 #     text <- as.character(ol.ts)[!is.na(ol.ts)]
 #     dates <- zoo::as.Date(time(ol.ts))[!is.na(ol.ts)]
 #     hc <- hc %>% hc_add_series_flags(dates, text, text, zIndex = 4,
-#                                      name = "outiliers", id = "adjusted") 
+#                                      name = "outiliers", id = "adjusted")
 #   }
-#   
+# 
 #   hc
-#   
 # }
diff --git a/R/shortcuts.R b/R/shortcuts.R
index 1d324b85..92722d0d 100644
--- a/R/shortcuts.R
+++ b/R/shortcuts.R
@@ -174,7 +174,7 @@ hc_add_serie_labels_values <- hc_add_series_labels_values
 #'   (\url{http://api.highcharts.com/highcharts#series}).
 #' 
 #' @examples 
-#' 
+#'  
 #' \dontrun{
 #' 
 #' library("treemap")
@@ -269,6 +269,33 @@ hc_add_serie_treemap <- hc_add_series_treemap
 #'   
 #' @examples 
 #' 
+#' library("dplyr")
+#' library("viridisLite")
+#' 
+#' data("USArrests", package = "datasets")
+#' data("usgeojson")
+#' 
+#' USArrests <- USArrests %>% 
+#'   mutate(state = rownames(.))
+#' 
+#' n <- 4
+#' colstops <- data.frame(q = 0:n/n,
+#'                        c = substring(viridis(n + 1, option = "A"), 0, 7)) %>% 
+#' list.parse2()
+#' 
+#' highchart() %>% 
+#'   hc_title(text = "Violent Crime Rates by US State") %>% 
+#'   hc_subtitle(text = "Source: USArrests data") %>% 
+#'   hc_add_series_map(usgeojson, USArrests, name = "Murder arrests (per 100,000)",
+#'                     value = "Murder", joinBy = c("woename", "state"),
+#'                     dataLabels = list(enabled = TRUE,
+#'                                       format = '{point.properties.postalcode}')) %>% 
+#'   hc_colorAxis(stops = colstops) %>% 
+#'   hc_legend(valueDecimals = 0, valueSuffix = "%") %>%
+#'   hc_mapNavigation(enabled = TRUE) 
+#' 
+#' \dontrun{
+#' 
 #' library("viridisLite")
 #' library("dplyr")
 #' data(unemployment)
@@ -289,6 +316,9 @@ hc_add_serie_treemap <- hc_add_series_treemap
 #'             valueSuffix = "%") %>%
 #'   hc_mapNavigation(enabled = TRUE)
 #'   
+#' }
+#'   
+#' @importFrom utils tail
 #' @export
 hc_add_series_map <- function(hc, map, df, value, joinBy, ...) {
   
diff --git a/cran-comments.md b/cran-comments.md
index 1df814c5..ba0066d8 100644
--- a/cran-comments.md
+++ b/cran-comments.md
@@ -1,9 +1,7 @@
-## Resubmission
+## Resubmitting new version 0.2.0
 
-This is a resubmission. In this version I fix/have:
+Adding imports: hist, qnomr, tail
 
-* More dateiled descriptions in manual pages.
-* Adding examples for every exported function (whithout \dontrun).
-* Adding "<>" to link highcharts.com in the description.
+Modify examples which take too long
 
-Thanks. Regards,
+thanks a lot again!
diff --git a/data/usgeojson.rda b/data/usgeojson.rda
new file mode 100644
index 0000000000000000000000000000000000000000..2558eb28d2b939e0fa3ab7fe0493e4c3211a9d6b
GIT binary patch
literal 13744
zcmV;hHBZX@H+ooF0004LBHlIv03iV!0000G&sfajS>iQwT>vQ&2UJ%g<Ze>RpOV<(
z8GtbNUF2l<+B;F?T=IUnlgmr9eQ~L-BYncR8kj|%a@}`xm*_=hbFu2xbmd?CeXc1+
z9(X8+Y(ae9XFK74D@r6u+~>HP=Vw=PXL0g<kO6^ll1ccP>{rWlpnd!Ym4SVKFJMDY
zF0qIuE(#!l87VMBs;8)At^LKz9C{9Fd)2`Ethb-7M}i$uFT;#P4vW?B5hMn5?Bo93
zo@RQb?T28KG~J1X!5P}A0ELKm)iq4)XrS{iMWcw|KdGKJOe(9~Yrf9YmIWdi`JA|O
z2nZm;q3KVuD_l+?5aqoJ1y%xNaGV}djk-e{AfWuP>*?y!V%BsSNx$|nkKGGEFc5r2
zt^Y!JL`qH^oYei6%Q^Xr;fS$2#rPeUYFM(<-@LK*9y1uF?~4C(Gtgg&UG8OeY1j*S
zp88~-3Mv7_O_8kX%9}4R|L~q*UMOSY%t^52fLv{Nt76hu1_nENHEV*JWbLxy@UDI+
z1$u&-IfPneAgi@5c~s)7@L;3PJbmjQ2_uvZK;+pWI&LQOtZUFwX(=Y8nksI_l=?r9
zGgBlTu~&m+yvWmMuECpO{kAgrCK_U*ZQ>+A&(WM^2Y~vR7+2oz4N?j}wIbZ6R_H4*
zndnnawjtaX%I_rsrk$#R7811&ftNY3!VOE+Gpn%C{ylWzgPmD^Y}(DVF0ld>MWSmM
z!b+KAHr!r+`7$NSdrpn^@*jFzM;=x&ww7@m5iQNMNxmDL5&Lt(i`;bdP<vjiBUnne
zmR1t>VD{>PoJ9DQwH3F~a$+il_EJo1>5&UFD}yL#XaRE=P{=ic?%Ml1C+!e$^b3{N
zoXn3L<!1IL+T7ktguqhaPzXJJ)kg%k&*xlq?_%N!ky92etwWug0A10<e9iFd7=fkU
zEa=YIVa!axKzCZO?&wiuD&GEpi#(J@`>saHD>3`u%2IFc_jcja92`fTdu?Y1ZpM<U
z(5`2#l~nB9gcypZaM85a9LLJ|_cga_l{q$~p%^hhcRd8OjX<aJ@9pOv{4q7l;xTbs
z;;b}SoMzcv9vZH^Mg_ltFlo!5omfJau)ToIAl>M`d$nC7T-?h6Wo<BA2Yv*7U-z*N
zh{<vE;ykVUnRpW7;%0fj+FX*FwbL+}NRybCA+VvfGO)3#4>#rEcTVp<>4-zuj*_@w
z1;Si{X{Uj8-8gZuDdyFMy!8LNZn;|3cLkAMAm4&Bsqq<npdT&w1vW8Fkz~WboHm&W
zy=2q)#>p~tytn6N?pv#)Xm^#+Fx+so(11spJwq03okYrreIf%Y=xpG2cpWEabpOCT
zaZ9jw%pBFNcbzq5$GAv_Ts9K&q8I-FKE_}&nE6KHa5AvUfdaw2$zeQ80iPSHBGUYz
zir<5pkJ2yiE$G3FG6yJ@1OBm^`u1$*Lxx6rWbo|aHk_Fi;Fh%7_PHKQf}}FtkRo0g
z3X{+CE6w?*7+=AZ%L^$tKx`)OESaEef)yW9?nrr_cR7e5AfFna535K5(^SE?M@-O-
zTv#ikDZs+gY+P@O|BMusMgs+*)g(zyGD|~A{bbvNHeODy=7fitDdrzGa20sNo{Ah-
z*v3Y;Tkf6Au;dFB^DHGQfHg02DUBR}c&2vHvUdy92mU2}H@`Bjoz}}fN(JSc-gcr!
z|E##PS5_>uU&Ea`Y^5#AOD~;lK8GM4*0L$q74b`MRJG#~_+u=zVn0f`k73lxO<QfJ
zMss);h-s#5T(3ML4)LRGUM1zi?U=aJIq9LD*cPANiBA>C^FH(O>zd?*AZ%#Zr9qiP
zasgehWRcFzecJRr7L!@mieCCY`>@M!LE&B#|Dhh)F%uIRF6%mP?Z#2DBVYM-2Um)Y
zOD3B`$4ax1<>MX>p|lTfi$Wji^=aTMtJM4`lA3Z3&?DxDzR^>V9#*0>gq2(|I1zoS
z4$eGx@KQ-DM%x7qr`?k#?+Pu$^R}`%RWpVT&hUk1;5Q#da?L1$|Ea*RDz}7H_rC}U
zI<2K>CJ-aaaEp}jcStX@eL0N|lN_h+Rk2S2<uZ`kHA%@a0z&3qKIXW-v7uhWcx7qI
zS5AoqCX7i0U%aPc@s8lT8K=rR{9zpv&%P#s4SPs*fO3Xwf49X8?Pm%LKW#N_?H)>Q
z|J7xwVKQtk-W0Hq)whg`XqDh>Ttepf@n9;a>d0`)7!8;dTeqQ>854#cejnKtRTHOH
z)mp(3Bsc-W<dJZ#2IbuIk1eb?vm+M#mB@cb+~7LM=OPOu4f22*1uW_eG5u|DajDGz
z7Wb09Gk}jWP)5Lcy&sztK|HaQy%?6K{zNLoaY%YJK3}yXgWKr?<)qH}d9(=wqzC5(
zPuvvIqv5s$7+ucdRL99sf6vNLsHPa1bYYT3ZdMJuX1XB}bW6UVQ$2YnPK%hS6v)4m
zW6&vo&*n=>6WMIML<U@CZmn}|-+)As4V>_m*^lkSdy(ODI<6UXM&A`ftRyzYDG;4%
zffOTyOsm>Jh4zQ6$lfDUC5-Gqj6s=36;IV{-f+Ms^wT!{78am&m?WphJKZbg(+V-~
zWgC8f*YLu2yUiti9Jyah*!s|58V*t63eArzA=YeGf$Yki=B<AxB`#*Lc_H}bm3gw0
z#<y)cMJ#rxy9#g>d5X>?7w-!w3l|h}JDeLaW@-}WIBRtJ)4D`Z3HHKz@Fn&M&Jg>C
zS-0gWTyq+03;i}r=bObh-aTaIlRfJ5(3w&F=+nGGbq~uy40xgSN&dznRH!VVR&l*z
zEE$kY9KK@7DgbZ}W~b)~+H`L>l<pbNqIRVCFjZ*R&^}DWdF2222SOZ;bq8lppY54$
zohALUw(Cz!$2xDp*x&{N`mt%6tiqR1%j44WIRqoC(#}}X%zkiaER7fPeYVH|0Ahll
z-l!LC`3aCiE!TqZ90D31oZ)ZUvnE^co3`XqO4&fK9d*p%AMtf-aJ)49CWP`ZI5LQW
z-&rT^;vZ!E1~yq{?a*Y{e7c8zInJffGmwdAi3_y%LR&X@bebjZka2UU^qeoKH6uAg
zZzw=OW`f;)4N8GsdtD4B>_vsJiC;gQh{+l4{7QEAboshVqYkdjn`Nw7?r529mzd)<
zmcgDl9QPZ{2jJB#|2;0{?oZgTepI{k$PVssK1q)-P%&zK1@Cn;`MR_f(oo6hg*yOU
zn<QK+GK?YH2~tS^(lzRQ4^RQ{X+;Nw_f=}N5WjNTs8Yp)IW<d7>Mywy-aKze6%dXS
zFr~+d(X1&<ZDhb;{9i>ZbbGl-P52*xID0r5e4Gat8Y9fI-`S<(m<zT#DNeQ+*Z5{G
z*>UHf92HbL@AKc_nb(5s<xRV|u}R!$+WtX7)(4tCy!^S^$nER1zKa0v<<X$v!pcJ0
zj%W~Rw6M}1Y%&Jw<v}mncWR~<C622eaR-q7#pz@x_zzJ4MOi8;7&X8%*L=Caa7kTm
zb#F{Nat{1q>RNeW^FE&>SQcax?t1=_9=3k9OQSXE(qbO6xK>7B)~T>zT>5IxUs7VQ
zoL&<q)2@FVh<lw_%{n;9J%{GGEg#s2+7ncj@uwhvjzpZWJyKx3ICO$g0Rhpfou{lM
zy~>T!5FzHu%A0qHVAIhgLmr{?<7@BS8|surd5~0r1)pwq`lfqF;yH#Bcu);(0i<rH
zkJf2Mz-#$O@eK{|4fnNY6wY6QA)V_|=4ZEAl|vw|4P30_!Kn;($jkX%kqa|UahaLc
z{1;&1+xb3z!8e_+0i(=)lXP2#%;fi3w$OOYZSext46Bgg-a%>ssNubqpc$@bV=k#4
zsJ~*pUzeyvB}<3zR=*>(Hh)fbi|8xo3mTMC*AIzki?1HCylf`C`uM&Wl~X7Kq}a4?
zmY^NQ$<1I@x`&RYrUvBBc~!>-3JRjD|Mvqo^T0xI+HOC~j#}>D8Sp8u32T&i`_G6w
z0|!~hBVT4|ei1%{HA6Fv>9~xwGgPz;v^pEESaW{sI9==4KPpB`o6z+2G#uUJ)t8YD
z1F%#s{871wj>GDDL&_UPRv4)y|Ac0F1^;4d^n)mSQRxcI)GNciW}frPLL_tf+}Jd~
zthLJFZ|1UURt`QivS}D{zO4(45qYB$-fSiJ(K)iX<DVuB;U`}$t(j9l(9B<S?V`Df
z$p3)AyOF%j;oby3oH8MN;!7}#n6cxZ{)2MZXiR$|_TnxYmC{__^P;p_o>jlMz~?@D
zs+HUX<<nI9P1k1?Jx)^$5(7~b$=x^5$;e6jB^h<GP08*9)5i<eoU{!o7eaa6!^s+D
z4@pE6t#_kH!<5-4cM?G^sW$@)Dj8eizEzF3BIj?xG5N!@_-n$fJYDb9cmJJ<0nP8^
zE%R`=Je0<&q3I*62lU4UXp{GE{iEkUyZ)L+_7(<S)U0v#bNzbS>_-P#4@JH%dt}1j
z)9sP%LAf;|w?;#8htI`H>dN};TI$(Z7dKyAn^yM6>v%M#?2s{QEKzdQE0@p5nZ(L~
z-4?DQZIB;NEw@)1+c2AG8SI-fm{b|Nvd=y2nP>bv8dGeI`FYNDMzL}cI+##otuh+~
zCDaqoUwT&}K!8<X5b6ttb54>WPI5{1%^qD^zgS!Is*p*S5x-}_#Gjgt&vxfpDMBXq
zPOHESZy>AKyf9t}Ck*?uL!W-$H!l!Lu=-1plJz;(<olByI{6AWjHwd-(L(h{)OvLy
zR}5j2JcrS;mMa(T{T1_U_z!lRD96yXGngQ`Bgu~3u^0t(W4KmN$rpJo173W~K%ipp
z!Y%2xW>3uYmapr72pNLVyl|!$hYI)=t>mTNcj@e`#&j@Vkq{j_Wz1+!cSsr@8s&iB
zT}qf1Ev_1CYE*?PAvTq!burF3wa5ayBS0@uk`S<Xq^3!xo>amT9L?`aj|XBdJ(Xuv
z%R=8)jIy)|7pb~TB2S)fPQaa}iU$4<U779S@l-M@ST#6%Z2Wv4xCwn&UHL=b2Iwpz
z)yXvSeI^v;)W8Z4>nks+g4|s}?N8eG?1_K>#uhp;!CcQjYKCYk<00li2UJ99BRRzi
z9!GF~Qy$!8%o!cr+=Jt?r+ujhAp?w)K1_ggbtr7^BpjmryV9cxWwmW5!x9Qxw#W4j
zH^bKkRu?^+gdJ{WsqxNc5CC$BCMynS`cyXyO^>+-s6Y5#*p$DtVg4-y;U<;fc3)fB
z#FV1XSURuxOJPTWMY+1j$fJf=Lzl5SoJ09n#8>qg=*3lLI+PqYjt%x6J^lK7(Ftlg
z3UHoExWD;aBE!D-bToBG&pf%exB;QagpH$7wf-Q-Jk`CKoL_zOQD^+*P#ajFuUohL
zhPaOR)<%{0U~q5WNBO>Q<zE5DG}Euqfp5ATJ%CQmCBik^^nD^!{`g0KTJIMq3s!M+
z{OK-`OJipD?5O*~qChxcu!hFN&l<|i{IM(fSC~~p6JxA1RBUX7>b6n?!B!_iKXJ)9
z3-6EBoQL}%6fRG$>d;8*Ac~BaG$z+bMNdR$z+UJu@Qg)4i65I(@*G~i*KRX1fy7eS
z;^@lw+7#0h7>ifLwELTi^xK}J9q)pd8a>$UY|23tp7{i~DwhGBeN~C;8~os(kWqkz
zZ7=AXQcHWO@HNtebOH1H5Sq2zE7$=rGypsH$d)q5SX7vM!M;QtFTJU3%pT;LdJ5L!
zvF?m%K`LRRoToWmce5=@n~74Rs68G63GzKa_rKU7-lZ586NX6Z#(hAnaqto`u|CB0
zD*rT2Tk6QsbN@jV+A&h&@6(IDa}izP2<Y1&SC#WcN_u#1PJ=ps!v*@y1K*So%6{&L
zYj&TCCEC7=GFp3D_%uedpddK9<23jWSKiUyLUzR%WsjN5k(tbNeLdBSf&mSl{mr5q
z^FS?Kcee@}dlOi^C?hOYT~>f~a<P}4K>2&;1Zy~OQl*b{!nWTlne=wP(9wv<yk2?#
zf))n4Lk=!`>bbQZU)Xj#7z0xqP^rPdJWEIhBDMc7LyCFbUwa49sfNw=A<n!)6f(>0
z)NRINo3s$p*H__9&{0C`fq}P0ukkCKJ)9jDkiw*gIz+=2M=${K$@zVDMUBsNAGkqQ
z5uIr0V9~%_Rorbkoc)FDuOX$M!ptL<2eN5Eg6+mi)=7PNa;vzxodXez@}fG0rlAo-
z)?NMJk=+pOnKsxlw1INw3T9D1(g<8sfkOs-^T&G5(uk)>R_M;Mf#7qAx6qSmny}G_
z^8cAz*#twK?0{y-MKvtA#zk2J;#h1kV$3{**jN)%{LAe+ZfquBEP!UH^J2Gp4vyK7
zXLeulipeBgeSPtLpO*9e;cB>mM1?oV7hFw3q^)|dQ~J(J%N#ZxJ=t|iEaiYDHvhM^
zU;t9LJn`zg4O(mKP#KxL_NK_R`}?tgE6U{stV~``P9en~sUy;5$2et(30D(YZ$!dM
z-5*Dd78`8ic#dZBV1sRjV!DW%eLB&)e=TMWwMH3`@)ZjsCDh?4RCI<WDTnHlD4avG
zh|u`_>Sk>Z93=yXpx6J!&Lo}u8Oqa~lxzd;wQd&X7;GiL<{zjec%&=9S_sIHUX(@T
zaVirY50FTBQTvYI6uDqVS0QW$wFla6!iBpYIzEVu7q3RRCo$|)HK;CS?{GOgNh{80
znGxv>YKSvGbpn`7t=#KJ{o-Toufuo{5t`12i=E}|nQ*+ngLB2-;;!#IhfFwC@J=C2
zm^U}L`lRd9OluQx9PCl!v=BxFdr$tfVr7r@d<g=6j}`gnffmYW#*b>QKNfAi;2~Kv
zIV*$IEono}o?mkc#DAzJoNn6!MmbG6F|nn|0=m%#wI1@Ki|YRr|NaV_!y{#fp_JHx
z2rQP(SNbz_Sh53q^7jfGc-aaH<2PlL#J%#1jF4$wu4~d*78z4BQZY1}tqH5g7@-=0
zqXP{(u0k=NZMBI%lY~MPz_R4@84u%?eE`^TSw1PQOgMS3(ESk?2J+s%m6rwiW;c{z
z`bm_`zZ8^p)C-NewPrPMGt5Fw;XG)p7<(1BSBW>w@GbZRtfX%~_8KiZEhK>a6jU0e
z*AXOQ=Iu^Yq#i2(L_o;|?&lps)As0RPJjOWtpQ6T1|kaXPn`04_z=`pxN$i$^G~6<
zZX~}7&3j0DPA2?24}ry~+QSu1+C=Hlng>IjTql+^Y2+t?WZs!W2|NyE-AJ*9q@R5#
z01}b0Y^ZP6iA;%hHGhk;%x_dOhcC5tbZe|AMB%Vb$(f>4;<WK<@Hh@|YQDQ@k)^o*
zUm->OtP7_<q$%c-v%4FQ(c*mLDKuX6X4Z`WOtbi<7wC-+gP9GU_Kzz@YN_#dU~XdD
z+-ZgJ&60sdFoXCMj(P4HwZ-<EF@Srx+a8HLzxq!;>x63Uy2pc`rdD;sZ#`XlAV`o{
z_$&G54~te(4WtcC_QH6hEFJq6n)7bCkKuGNUq0+EH(EN@1U;+|jd{}WjTnt~^W0bl
zRkMQC@Sr?m{WKuF?xugnL~Q9IrOciwP-oW*YGtw-okhQ|Izk-YnYbeEjzmnOE%8`&
zAjhVT6enAMJQ|ui*sTHL19ko<8nBvjrXGg8SE1mqn5xD<lX}sZ{OR+sOVxn>HW>}>
z`ry7v=aUq~eZ3ymAt;NF+{Qg{h@cO)5Y)usA}a|sE(yxvoI74&bnIPSFR~^zdpvs|
zu{#ypi2|+x)&)^FET`YZ1q7Ceh{i~*KRuOKw8jy#=n4QM4R-n}i#3ZEVWf0(K-U*x
z4iO~TpHvpT(cj{l0mYP6&Q8<ex=%+G`gzG5t>LRqB$pfQAiy9TWSMMIsPs9bYa4S_
z!|zRSnrz7fWlPy+qoxB2F5HhWxDucX`|7op+94^lUnQU(Mj6vIaO{oPkSyHnvl9mK
zhQDw{z#WY{^$@{ZafxC?!z<;IJWwBG3tQwhi0QxF#@y4P=t}jd$yEB#n=mJ2meko~
zJVi#H=d|ZX-n6y782(Tge*RZH3)I?da|J=tb{53(LRg5P+L}uiW%TxR6Vj(C&7L-J
zy9CjbctZz{ayy%~1&B*S<WA;OIu7)BL6c`)Wi$LXNKWM}B%YKJuLelAP|h-g345$S
zp3wNJ1c2yZ<LS2%!IU@nAKdIrp_*<#?TNWwP>jKH2kkxlmU5Wl{h%Y`2ebbjE;!Vv
zLXU-tvE9?1)$m#x^#i%m3myHMw1i1{PTO?W0vhH9@HKXmGlGbwkYhwr@2c3b0O(;u
z^mup()gF_Pt%#+f?0H=Wq0KMd(h+r<?e?eI14)-pHP<pxJ>E0!ON>i*&R}q9&Z2s#
z>R^=YaD%4BptfnfPji)1nGIc+im1M$cfcKUSCLWOB6)m6p}?h8UZEi2$X;TH6?QXR
zznsIgW(wbe@p%RP!f+x%_adgM)5X0MD5=XyBG#3Pi~yzzF*mL}m)G3!C1PYbINjd@
zMRpF~D?Zqq)6au9fMs-cDL-0$ogo7uG`kHxNnt^v-^^|kVRHzK<EIxtG9!KMwIfl*
zyAxX{`A5+B#?M3N5O)#o0Cyxj?rQoOHhAFPhujIqE+K_uC=)BXXPVcJ2V5b2YE5I5
zpa#B%i0P=C_~;fF!X~zS_7?aO660CiIe1B`fcs1r%{NW76z~VF>(=E?`h(C@ssk1c
z8|YuL&Y=EJtNLt}GToF~o}GjPQ3|V;wb<u0W5yGj6(2TYw+D-nh19r;NyJ80ym3{e
zk6YzKf_(bTSl87ks?C1Nnn*ngKTj8_nqLSo(w;%^Rx=#2u-eALwVF#UAQk1NwXb*r
zLPmObEG|<SAUrr0prbq`#F8?tLO+gDZDQ#`H@`U<OEqxX*C!~&S65I!%0b2iR0BH=
z#BNuFOQ=41?66-`=sAqId+ruf0+2zuyQCYytgy$Rv&`(>SYc7&1X^W>ARMaZHrqOM
zyGJPmJO9!rrzI3~5n`L$z25j>%yVYu|Dj60T{BoN%|B2-^<_mLFT_S*39_sAE06hw
zSl%yF)u;>amlFQ=<<HLpuh})(mQ7|f8?pmB8fCzj1e+2xM5z|6QF?#`C!jh2O>)me
zlJFd?$fjA|7ABR7@0vn(RQWfOCcDLEgg!6@-p+K{9UF1-D+Kgyp1>(f1j|n^zZm_x
z^ksV%Ew9XQTqMg9ml<}7i}8^Y#Zwa$WE5T7eeGoiN#Q)URYB3Qv}8R+7-ku$mj9MS
z$`jrNF;u#4Ze3;Btc2()NGZ;u8RvpJwPO9MX;s8U$MB($KL#F62mDX5no@TB1}Bg@
z0~p+Il&WJoU`!gqhB`#vSt-E1csX%bdQ1L%E7hC|{U&N8xssTo7_`KzD!4d_v?T5z
z#rl*xXuYqN{?=SI2jwPDfTvdemvd!h_?uf4>{0LJJmolBW}{{9D8;Hud9y-%SE~Vs
zSgJYxcx#lQa){WPXub0|`RrDP5`eaX=i@0iT{*J$Adap8g>&QAgK;^5Yx<I5iN!GM
zLXN;oqpi>Rvz>Tkc{D(fe%gX8+%x@!zACqXyDj^VJ#)RJwc}V>C&3nyQLu0WTIt2-
z?oD=P1Y#Azeai^9!h={}Ugz<~kX9cU3-C0^$HSZuzEWaooIBT#N-J#^;1W>HKdaX4
z4t@cp@?rOKrG=A79hPT75Q$5!+zAZM(Za@y^7()mZ!|dG;SdsQi3V6rP8;-YodZVY
zlvP3;p8sy`qevid49`&Ry~4o|J<S@izQzuLsA*~e{?$}W!X>Dl#P*`g+!)}975|}4
zWQqEfNWC2J*ESe2wRZ9l+Jta%LfKw6_aImyfjhqG?jpp?md27L9WiGOiI+NXK$Ybu
zQNAJvqGm9h&lpVLi5kF%Xz7E!`*_8D-?SYa!-HK`7DsKdU&<x2=Wq-oq{#P5)Psj$
z-t%(V9&)11(BWvxHKEb%=5Vp?r%#`8LXJ#V$y(8CHOl4)G6k{&QmcwaX|R8Fj(j81
zryGZKFW2*!SFQGW<XSeBhjCZvciSuvA-8>Ef5SRC2ax8~l1!oR`_WkEY*a=mpQgRn
zdSr>UT#QQ=GubQ)kl;0sPCltwhmHuetU;<TesYdKxWxgNG`XK*5_D?9LAB^f4?()o
zLa(knuVWZC6pde_Vw~#CI4#&KJd6OL?L2j$mta=*UA2|4ZBC*+^z}lS7ZQu7v}@Z+
z+l_T%O1O=_vu)}5`1WGOMxJ6v)nBF6ap2K=r%a$e@k4opz#x4Iu&ED-i942DtFqu>
z@ih1wq~rM+r@Owl%q0K)D{AZT8xSpo!n%sE#U?eLWa8KhT#mSFNMNOJT=gxLW|?9k
z>P*;2v`}(DOapv%7lBK#j|kRFvJAodNr|F>5Hr+6MXnPnF0^s>UqqXL+(@WCh|b+)
zPE|Y2#s?a?Y;J_S48Q}feGtN&NJz@3C&JmJvj1)W%|XRU9A|<#TOi8x2%#Rsa>tvb
zTbR<^gd{hN#cR|&v9WHw7B5di^o=j+rA3~-@vC<8ccw))+e!@E|M^iq&L${)r~6+~
zky*8$95U3cxdDOGzTw{x0Pa+Ah!W{3J4lm5X(}N{Q3qLyd?I?pJDQA=rF}}`GYq*F
zlLNIy2Ux7W4LA9C*h6|1j2qfT<U0J0(ASk+uTF+I)oLu4FL*<o1DV}d$CG;J^y)=`
z{~aTx*G<_Lc*sp-xu~2%29~v8HGJR@zVI@La52PNzR!SGnsrPqG|~PWiQ=>>+tfz%
zgUoi~BP|u>yw0_;Hkq1S6D9OsaXC=V(kX%m;hlyk22X=JY7#(F%NOo;xHY(@4>f<)
zRl~AZXB*rvoSWLJPUcZb45!HE!SY|doR%r*C(^1O*O?1wD^`()KBK9=WE_Rwk5s?k
z5QJ0wI2~i{p&tMhoT#mQr>B`LhTik_+L~Pf8J0&SLDp>JNyZ&qPs+B^4_iS8532N!
zh4aGYJ<)zFCA`O}25vnLg&BMX#oZgLF{$FHi~!aa6Umzn8OFaFDOp$t3Z&ODn{Vcg
z!xxVLxV@u?(PlWmHiTmxu)HcRKo<tjNXhXm-<L-eNHEE^8Vz;=QuLeQvA<;igk*Xr
zv7o79b3KRl{(?l)oMo7;Gfj@~B8IhNm7W(#j{uVZ0Epu-nVLyI`a(qN1No<tly4t4
zH6O@?)m+ypBJh+0pjuoJ_u@MjY2z%|n>A>mlV1v+O~fiIDja$P!{+KFQ(|hA1z}^N
zbHJYOjPV=n-dRN89V6+egnv`ckCU&=`d@47Um&R30R>|{5q(~wN*tqbG+RP3_H}~j
za{Y>ufx^(}y&ZLs5}T80^Kvly6T8EZ+VXV-bt5Q7lZQ2tP?JN?v*4Yw#O=^MkL%v0
zwR=h)ANG*3BQX2u_$}e<>H2;^v4=f-K@W*g7{qp!<sf-M!@lUK&@5NhJ}BRyUEegJ
zinp`0F|p&P91>N30xU!`2m_6dGIaEWiy+&}9A0KYWtrSVAz1Brkt=zKyb0X0Ceit<
zOG5XzcWLo)xXx(;)eViGr3b3ZUKkhlc+OUTC3)6{s@5%51J+i?dQ;j-6Et6bdsleU
zIS(@Y`v&9rSCRaF`~3e=Lv_np&v`;qK%WW-^f7*_IMaj?PPH+Qy>nPQ>4h~r{|S}f
zn?2~cDZ!G=PdbzRkAYZ^fE~M3Yo8-b3T5Drfd2MWVON+a5>iIyu_E{+lN*?)B)iqy
z8=zD1-l^AWaT__$RtNw0-f$&fqif=1!ri>DPxPZf^Zn{NbX#e%aSN;s1Ve{0&#fL<
zbR9j4PLW%qI3Etn3nud7#P$v0@DE$J$yHp}FV>_PskTq%3=h#9`qd3GKd>`ty`+^G
zI}0!`{&ZU5D;L%Z2n8sNAkj1Plr;pv!y}depboo`V|PxZ?PXO#8Q?x)R;CXs7OEYD
zdfCMzr53>Q6P#SW6j65sod{kXy9cL$Rp}i{t&iX(HtE&UXxZgOW*Y&lZut&rq|Qoz
zvnndHa$(efFs3l$`C6A7mQ${!1^z4!!~l=dDt%p3VBBh&JXg#R!~K1umTOrQuAihb
z{j_B|hEAOIa-3oGz3;x33|cf3+wTcG0L^}KZ{J03j0=*2Lj4Y~_X)iTNuVtH*vdkY
zD_B;CclBR-iWy)yGk^};pK{x&VchbJY((o`R*?2Lntgtjw+zrPOrn8^H$$IP_25$Z
zKEcI(!qr8`(Ix2aZAr3dUKg%=qL&hso)<}Nxc?<fPLZIQ&{V{PyV5x;*=Sn>F7<90
ztB_JhDBX<WR8L_&9zoGGXS`Be1vc<`12vR@cbCe3i?GLgW(=-hS9^Bkg()Go@llq>
zY0rde159l-zE8UM;Jj`p9<e5(Bv5FbpsO!n&kSO^Hsfi3#!5Je-;_?ZAJ=g}LS2kJ
zWee^JExCbX_wy}w3kRW&02$yT!E0~WJ0UT^1xhy}Z6>x@MTk5#5LjcXmUEH;U^DwX
zWjdCNcS`Ysi3ZDEW)6b>2ZKmXUL}G|!oa9JZqy*ZI|&T*`Ru6pMWnGQL{z`pO?+xX
zIDL>&W3pJ#hVZAxu-XAE^Ii(wg#&qSi_0)o+$o&yGMvzz{DJ595!WKubWXbx1gjW5
z(M&B*Vy(09vg3flnhBGM?TMElEBF&XJsyEIme(J4axZ~6@p<v}<|&cP7Oj0AWgrSA
zHe`Noh$?-38|{aGC6d9;!jE1I+VLjEXty+Y_|qHB_9y;gA~@Vg(Os&LFXt#t95{?t
zS1XF?GRUt_Dg(cCU;y;b62*UH?ML`j6v2D?Cr%eJ>}8f-$r(yC2y_f~<s#5>RiE+>
zMjZ&XL86cw>I^T(wTZA5_zlrO9#^Lt@bdo`UgAEdCDrl3a`gmXc=ZVHr{5g@=rCn1
z@qZr%eq%jHt?%}UUT}cPS;<8`MMx*o|J1&gPs+UZLPhI^0K0Ckqez9G;;xuM71yc8
z!T}H9IE1B#D<4}L(Ka)=sJskb+|`AB<)*|1>-b~0u~F(w8-XT%8O*9_8Fl)IN#`rT
zJ79nHhh_wk@>B65Qed6|gKc`d_tbD6vX+L29StpXxo$uG{wiQiY6^CO=+tw7z8Pzh
z4voEdi_V>Qdw;EHeL*aTrKp%|y3c#C(t#DZk=!NHR;0078jlQ*RH&;jpb}$`K<YFZ
zcr+_bTbWi^6APq0pTD7}5rY2W@#2zrUhE)ouDtD<-j`Nz1peC1zu5c1FZf7VX>GOr
zxK~{It9qw>fNR@Xu#ge<C4q|%G(V`VK97tyg?G8#8HoG+Jt`fpT;p|r1U5Ku@&x@d
zFt2`Ipc%c84qN7v2bo>IJqy6egVxKwmjo0q%B;kO%=kcUeWO7VTLlr6&~om=GiB@y
zYZV>tC(1^ZH0+ykEA`zAp7r+kjXz6#Giq_=7m+6Qj-#j4G|JYeV1%DYFc6vTXn=}E
zZw;nS*9W-NtEAxjErkOWbwL1ZqX*7rb`AGC*?}8tmrL!(MR{W(R#VISChebsG;GB<
zXiv=#fWZl87Kxj_PetzcjBURgDPzW(dfJ(ZXG_(g_>@iYCaDB>=;N!W)q3iFF3Je+
z&D2QeQ9GKSkb4by84s_cg!#UsGScY}P$Y{6uqVi){w^m$9HZeD04a;3%*;L7FVXe<
zC~b)BSD3XEi(Z|xDH4sM7MPi3dlsl@L3DnzwRFPXw1;%6<0JS$p&`ig5X5B6gKwHw
zXuE|1inin}GUotsQIR7Vq1Fm&0TKT&ke^qD`wjfK=R{^f?6hcsU-|_q2+5pCWe#%`
z5}M`bWe(*w`_T^MVs40p^0*=_b9!9~oi>MP!LHun2?$qw^T;1UTm!b7sNWoV&5SLe
z(S~P5bgu~i;Eqchvi8aP<r-<jD<^tO*$w`oNL3t~h{(UQN%(|_4n;ilegJ)n_v%3x
zI}<fZh;KJKUxpng?_|s>w~I2Q^Ph2>Oa<z756zMuUn^st9=_UGz={~-5~}KDhog_%
zdB@!%6&c>G0}3JpTL3<~XK<%f-&4-5^uy5GBnj5e9TNr;S`$m<VQGTnXGm#9<aO)Q
zk45)=8@dIWT?7v&{%Mh-S{q;Y;3YzG5H#(nk?Z;^FUaiU6f5hl0{|ymuqQXO_Lm&W
z`bMjMw*%+k#WL{WnevOEM=L4a&m{AxZsDTrB#3^j?dJBO(<(T)Q442<G<%Aorla*A
zal!CfxZwY9X2+r)pI+L9wambc>KR8(TwH$V&Gi9!+uWl4B&jRvnN@Zjr^^WiejlG*
z13?fy*!@W?*qA@H9ih`eC<6c>SfAHQ<jiQI^N2j`-ve_vY^4<y9663tak17FC<Z4N
z+5<R}R|^Lafx{5_dW{qeVu!|RlhCZf)t+ixA$Em^e7Y9{8(G2i7bB37d&an|pH6sC
zjNSnP2!mLzpFcsmQcm>d*QjmHS${Q%QFm?AB3;;@1zO!y+UYN@{`gKLvh>k8spHQv
zZ*Ene%{TKT28WKeC(Aj4edbQAidbpvq!L^W`3A+eo`|>aO{+bVOb8)dTB;4mOdHrs
z(e{>1j23?PrV+eX=+>`;=)c@mCNRs0Fb3TO8?`@oVMgUE0u5QhK<6i0`bj#olIN3>
zpKjmi(76<QuQ3}kf}L6qpNLrnS%l+YE&uBoL;PyE`*a7)f@V%%6;i5Q9$85u-K~;k
zDw#c`{9aU<=!L}Y)kejS405|YsBSe3Kp)cVdTTg@b`1fbQKa=Yw!<8r*58NaRAUTz
z<flr_+jmQ2Wu&|9K?D2zsZBE%3bwKJ`Ak1*ytXtK7L_Sm8A0h@d&OQ*tk;c#Rn;T>
z;onwCv#yF;(WDEJPsT}YMy~!<20=^+u-$JaBLVg5Y}_nU7w3<Wse!Xl)WsjO$dbEx
zwotKE{dsJcYvZY8UuZR9qCkM}Kb34bm~GDGE9su|hbT$j4YeFLsCf+009eK^G9cM6
zo5|0E=?>}oMVirA7?dP67p(4?0=8^D{{F07zV<}Pij)U{cgVMC!d_b#a5`YNy}`EC
z0lj+|jr}9zVZyP0*352(?on#vXmPK@koGXGe?2^L=_Eo{?QkDP65Z#40)aLi5Q`f3
zmms^i;uCj&T|$;7-G!wjDYcB;C7}GKF0m{83(gM70AdL3ASYP!7>e^eE{4G9AJ1E*
zpRy}>gqGN_8b7kVAD8fQ2Q=BFl|WK^<muI>BpKY;%mcowcos=q?u~`ABQX!|K_IO@
zFDa(fbax?VENneG2Zxnl$JjZwDyo?W1t1rxv=3S~3*a|BNb?r}2>OkwSls2wIVUlq
z^bw!YS)(5}m%@V<2p%B<?$!u5wh9#pM?I6q)aipyTA{;S#|Iv4W040#SGVc-zF=8&
ztP_4YC+vy$K7FdaS%jxhYS02dv3mb#e)u9Wa%Lva%VG~Eva5HH`m$x^U+<f$@B0jP
zsQ_Rr?aeo%Rqy-SaXxuyK9>pV_Z!u?(shJA?Yvc`VwEk(|9;6E1)=B{D}(F07&s~T
z!&d!1diQB)!9rw;NpnOr?P1={iG48#V4BrFJwT+l0B$Zs9Q!~j8H6TP2>=2sovF;y
z3ovJLcU7|o1Tun__9VwWz{p!~qQU))wuqqQ+L_#42R1tmdL;9@v2s_1(l@g*lo0K-
z%z8_hVJonV=w|qwYWtI0_1HgE-uX>Q$oo{mN0ft^P%~=@fr1rx(@b#wcMzJ8Ch!9B
z{}W+$+38zt-)5RZ-VmHSSj&QtTcy87t721=<X4ruO^NYMA4a~(re*ifQwtC^1Y?#)
z>b1%#Geg&%4FsTlVjHj08eurG_&Ufl9^@^rAuNF<1p8;qFuX{WI5&Jo|3j8gV??K$
zV%3qF6*oJwBd;ZxY>Z+#HjR6{wP?`5fg8t-?=G@Gfygl^FS%z6cPPzUgC0u~Nbo0P
zgPlVRVo_iY7xZ-cAMo5e;rT<>9A|Xr++{a?xX8_oDUrSw&R_cqIlHRc4vMNoh=;hh
zp>mOc9coch9`euTunQqc`#reW%*3_f5|@%iJvJ<I?^UgVMsg6xrfSxAl-W6-*6LGg
z{n!KN&=1HQ|5*owt6~Ad+Q4wPdMa&|-s7vc{&}`itRz_5?Mob*ed)L@@;+GA%+Iam
z#_>8*>m04i@jL=;xmxQZV>KxHijRg*V4CNO6s}x4_ZvW2F^kMiT~v1U`rcrH{An@I
z0~`lBCAAbRQBYcYl1R-0NNp<>yOqOBl<i49TS0@(qfRhwavxUcjqxh-?v|o9X#pwF
zDSgzav>&ebU4@1#O-qnKn<<C7`YztTgBG26Igw~O!%$a>gZ<tsKpwEn#ozCu@RkB}
zb3^nQ6Kbgo=UlqXkL!-g*<Fpp9dz~;ENOUUK{J$y&$!6HbpEQpey8}Ead?8X#-rJ5
z<3u{7i(TT|qksE~1Q*O`*?(Uob|6hzgq6k~%}Z62jJ8K%Dj(#<PFOT-Q{vJIy^7`o
zgM}l8YX8@->IO&zh9(A4hl09B^*(f0*J1!Zy5qm>S2&ZsT|UAop^h*WRbCu~HK7Jm
z_ki>cqk>s2J>_q-jf(5hM~$9?%dt}hURhA7xPRz=H-gU1#*_Zt>xY1w>)v>-96cx)
z7T{KGPQ7hK=-|qz*OTwEC(~K2w`zL=pq7Rt0ac_JLG|e{e(-f(bSMY|q`2_ANF2%h
z1yYb*ZDWJpn*#9lI^USpel)D`H@V)|WB`&k&`%Ke+c@{kt)?`yn?<}ysS~-f=+uz2
zKQ=;P0omY_v+jZ}0_O=6e*uqoC9#T4d>)2br0kR``p^2Bo~ZeO%yEAmTwiWg#ePpv
z)YPG^-7Jjlnk*+|=H1Ot)$!xGQ{0f0?={8^7_7a}Ce!NJfT&@h=2d5s?><@M7m37v
za7|(5*mEDw87434fJy3TG#%T;jBC<r1<f=h8!mIzFOy;8`G>ysKqLO_G@Td^l@;Ft
zT=C&m+Us02TR9ooNP%6B{(W-R>?Feh8*)6H=NLB}i$%0ui}(+sSvcYY(X9R$Ix7$q
zbwNvstld&j@cf~*z-CeQO{?f?7}N0>$3+XCndA{|O;dzpw6nk}=;5HVCszxf{>;9#
z!B}yDs{g%M0jFW?;K^*qcz&m)5`3bWBSr4{8Jx;9=9t$RJCvFe>UlVoS)K>@c0{=h
zInJKRF>^*26WSZ%gvP3Q{bpV$BCGi$mm&7~h#D#9)>`)g(_w2r21_hXcDCU4k~-^9
zx`#w~BRc4A6ak~HXMJ0L-dD4>PWC}_)p=b&<0$pn2MS5c-IC@r4}Dx2@6X`ksxb6A
z<MOofBO%OxjimB)G2v#OW@Y&5S#Ib+9T8SH@I{&~;PDKi+7M%lwFdI{Zt*{|o1MhA
z^%oUBa^I2PYN&3acK6~C(p#E@V9BNOifsf_IO(;d{NHmR>$b(G4a(USH~i9#p56$%
zH0;0jz?O{oEg|oh7x_7ly8jGZbs{&up_<RTp_!kbf*h-l$k`=<a*%yIaB5%So!EB<
z2!hz2K0q^xre$hDU7i#I`HDCzA%PZ9_3c6g!k63q5U?K2_b{oN$diB?7aJ2&6Mgn%
zb!1D}y34|%96$geDjX`h6b>ujcs|31>uOjA@wPBs|HUTZCe7#~HKn@O9Y(Ea+73sJ
zXse~j$Ghw!nzu1UWCT1Qc_TJ`rjkmx3?*8>jwDr9x@uM>HHHb-sP@m|7D{QzHhm18
z^H-N6c&4DrIi@tx<(8Xrn=Bf@etWgjeo0f>mkM85@C>BYaY~LjK3BHFo^vFZ)DZ_U
zf$Z*bLXH(r(31vli%^VJ0&|<5`rea4!HcF};=5wM%B;TJ0Du)m{|ca%PcEPoi1HS#
zTTP-1r~%rJ0LS=iSzjndBuHMBPmk%=HLL@#@REAsF0qUh&S^1*Ti)lTkpAavx-$WD
zj~+p&*dXsVwa<+yXQG^j6|tI;uYF(H3@XbzDc*sQXOc$5?eGcmYPkoQ*Dg&3&A(mE
zQjSnC3PZlh_6ObIsC$nT)_BB~a@P&rJ<)E-Zx_&tDzUFL@XLD>FX<_`z~=J(lC7tf
zAhI~|G<#mZMXYBKMV&Mi4`z2wNgt0p6<u40(*%)W|0fKVDjtGh*&IgEHyeD#a*>{f
zS~r>i^KM?FJ*dMT@RP!TIo1mv+Kl-t=H@lw=t)6WV|jENY{7tyK7+HjKmY*5>*&b<
a0gG$nvk3r9W6+B}Fb#_W000000a;phDv#U%

literal 0
HcmV?d00001

diff --git a/man/hc_add_series_map.Rd b/man/hc_add_series_map.Rd
index 8be33139..0130e3a9 100644
--- a/man/hc_add_series_map.Rd
+++ b/man/hc_add_series_map.Rd
@@ -30,6 +30,33 @@ from the package \code{treemap}.
 }
 \examples{
 
+library("dplyr")
+library("viridisLite")
+
+data("USArrests", package = "datasets")
+data("usgeojson")
+
+USArrests <- USArrests \%>\% 
+  mutate(state = rownames(.))
+
+n <- 4
+colstops <- data.frame(q = 0:n/n,
+                       c = substring(viridis(n + 1, option = "A"), 0, 7)) \%>\% 
+list.parse2()
+
+highchart() \%>\% 
+  hc_title(text = "Violent Crime Rates by US State") \%>\% 
+  hc_subtitle(text = "Source: USArrests data") \%>\% 
+  hc_add_series_map(usgeojson, USArrests, name = "Murder arrests (per 100,000)",
+                    value = "Murder", joinBy = c("woename", "state"),
+                    dataLabels = list(enabled = TRUE,
+                                      format = '{point.properties.postalcode}')) \%>\% 
+  hc_colorAxis(stops = colstops) \%>\% 
+  hc_legend(valueDecimals = 0, valueSuffix = "\%") \%>\%
+  hc_mapNavigation(enabled = TRUE) 
+
+\dontrun{
+
 library("viridisLite")
 library("dplyr")
 data(unemployment)
@@ -50,4 +77,6 @@ highchart() \%>\%
   hc_mapNavigation(enabled = TRUE)
   
 }
+  
+}
 
diff --git a/man/hc_add_series_treemap.Rd b/man/hc_add_series_treemap.Rd
index 5489b9a3..8b85e0e7 100644
--- a/man/hc_add_series_treemap.Rd
+++ b/man/hc_add_series_treemap.Rd
@@ -22,7 +22,7 @@ This function helps to create higcharts treemaps from \code{treemap} objects
 from the package \code{treemap}.
 }
 \examples{
-
+ 
 \dontrun{
 
 library("treemap")
diff --git a/man/hc_defs.Rd b/man/hc_defs.Rd
index fdc84e61..6617049e 100644
--- a/man/hc_defs.Rd
+++ b/man/hc_defs.Rd
@@ -9,7 +9,7 @@ hc_defs(hc, ...)
 \arguments{
 \item{hc}{A \code{highchart} \code{htmlwidget} object.}
 
-\item{...}{Arguments defined in \url{https://github.com/highcharts/pattern-fillhc}.}
+\item{...}{Arguments defined in \url{http://www.highcharts.com/plugin-registry/single/9/Pattern-Fill}.}
 }
 \description{
 Helper function to use the fill patter plugin http://www.highcharts.com/plugin-registry/single/9/Pattern-Fill.
diff --git a/man/usgeojson.Rd b/man/usgeojson.Rd
new file mode 100644
index 00000000..7535d16e
--- /dev/null
+++ b/man/usgeojson.Rd
@@ -0,0 +1,19 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/data-usgeojson.R
+\docType{data}
+\name{usgeojson}
+\alias{usgeojson}
+\title{US States map in Geojson format (list)}
+\format{A \code{list} in geojson format.}
+\usage{
+usgeojson
+}
+\description{
+This data comes from the \url{https://code.highcharts.com/mapdata/countries/us/us-all.js}
+and is used in highmaps examples.
+}
+\examples{
+data(usgeojson)
+usgeojson
+}
+
diff --git a/no_build/data.R b/no_build/data.R
index c84e8da4..29848e2d 100644
--- a/no_build/data.R
+++ b/no_build/data.R
@@ -91,6 +91,36 @@ counties
 
 save(uscountygeojson, file = "data/uscountygeojson.rda", compress = "xz")
 
+#### usgeojson all all ####
+url <- "https://code.highcharts.com/mapdata/countries/us/us-all.js"
+tmpfile <- tempfile(fileext = ".json")
+download.file(url, tmpfile)
+usgeojson <- readLines(tmpfile)
+usgeojson <- gsub(".* = ", "", usgeojson)
+usgeojson <- jsonlite::fromJSON(usgeojson, simplifyVector = FALSE)
+
+usgeojson$features[52] <- NULL
+
+usgeojson$features <- map(usgeojson$features, function(x){
+  # x <- uscountygeojson$features[[10]]
+  x$properties$code <-  x$properties$`hc-key`
+  x$properties <- x$properties[!grepl("hc", names(x$properties))]
+  names(x$properties) <- gsub("-", "", names(x$properties))
+  names(x$properties) <- gsub("isoa", "iso", names(x$properties))
+  x$properties$name <- ifelse(x$properties$code == "us-nm-013", "Dona Ana", x$properties$name)
+  x
+})
+
+states <- map_df(usgeojson$features, function(x){
+  as.data.frame(x$properties, stringsAsFactors = FALSE)
+})
+
+states
+
+save(usgeojson, file = "data/usgeojson.rda", compress = "xz")
+
+
+
 #### fontawesome ####
 library("stringr")
 library("dplyr")
diff --git a/no_build/get-issues.R b/no_build/get-issues.R
new file mode 100644
index 00000000..6b8a134e
--- /dev/null
+++ b/no_build/get-issues.R
@@ -0,0 +1,22 @@
+rm(list = ls())
+library("dplyr")
+library("purrr")
+library("httr")
+
+issues <- GET("https://api.github.com/repos/jbkunst/highcharter/issues",
+              query = list(state = "closed", milestone = 1)) %>% 
+  content() 
+
+names(issues)
+
+jsonview::json_tree_view(issues)
+
+dfissues <- map_df(issues, function(x){
+  data_frame(
+    x$title,
+    x$number,
+    substr(x$body, 0, 100)
+  )
+})
+
+dfissues
diff --git a/no_build/index.R b/no_build/index.R
index de6071d1..906ae312 100644
--- a/no_build/index.R
+++ b/no_build/index.R
@@ -8,110 +8,6 @@
 #'     toc: yes
 #' ---
 
-#' <!-- index.html is generated from index.R -->
-#+ echo=FALSE
-## Styles page ####
-#' <script>
-#'   jQuery(document).ready(function() {
-#'     
-#'     var offset = 220;
-#'     var duration = 500;
-#'     
-#'     jQuery(window).scroll(function() {
-#'       if (jQuery(this).scrollTop() > offset) {
-#'         jQuery('.back-to-top').fadeIn(duration);
-#'       } else {
-#'         jQuery('.back-to-top').fadeOut(duration);
-#'       }
-#'     });
-#'     
-#'     jQuery('.back-to-top').click(function(event) {
-#'       event.preventDefault();
-#'       jQuery('html, body').animate({scrollTop: 0}, duration);
-#'       return false;
-#'     })
-#'     
-#'   });
-#' </script>
-#' <script>
-#' (function(i,s,o,g,r,a,m){i['GoogleAnalyticsObject']=r;i[r]=i[r]||function(){
-#' (i[r].q=i[r].q||[]).push(arguments)},i[r].l=1*new Date();a=s.createElement(o),
-#' m=s.getElementsByTagName(o)[0];a.async=1;a.src=g;m.parentNode.insertBefore(a,m)
-#' })(window,document,'script','//www.google-analytics.com/analytics.js','ga');
-#' 
-#' ga('create', 'UA-17670833-9', 'auto');
-#' ga('send', 'pageview');
-#' </script>
-#' <link rel="stylesheet" href="https://fonts.googleapis.com/css?family=Lato%7CRoboto+Condensed:300">
-#' <style>
-#' 
-#'   .main-container {
-#'     max-width: 960px;
-#'     margin-left: auto;
-#'     margin-right: auto;
-#'   }
-#'   
-#'   h1, h2, h3, h4 {
-#'       color: #1A237E;
-#'       font-family: 'Roboto Condensed', sans-serif;
-#'     }
-#'     
-#'   p, ul, .back-to-top {
-#'   font-family: 'Lato';
-#'   color: #222;
-#'   font-weight: 400;
-#'   }
-#'   
-#'    
-#'  .highchart {
-#'    margin-top: 50px;
-#'    margin-bottom: 50px
-#'  }  
-#'    
-#'   a {
-#'     color: #1A237E;
-#'   }
-#'   
-#'   .level2 {
-#'     padding-top: 20px;
-#'   }
-#'   
-#'   
-#'   .back-to-top {
-#'     position: fixed;
-#'     bottom: 2em;
-#'     right: 0px;
-#'     text-decoration: none;
-#'     color : white;
-#'     background-color : #1A237E;
-#'     font-size: 12px;
-#'     padding: 1em;
-#'     display: none;
-#'   }
-#'   
-#'   .back-to-top:hover {
-#'     color : white;
-#'   }
-#'   
-#'   .html-widget-static-bound {
-#'     margin-left: auto;
-#'     margin-right: auto;
-#'   }
-#'   
-#'   
-#'   .table {
-#'      width: auto;
-#'      margin-left: 200px;
-#'   }
-#'   
-#' </style>
-#' <a href="#" class="back-to-top">Back to Top</a>
-#' <a href="https://github.com/jbkunst/highcharter" class="github-corner"><svg width="80" height="80" viewBox="0 0 250 250" style="fill:#151513; color:#fff; position: absolute; top: 0; border: 0; right: 0;"><path d="M0,0 L115,115 L130,115 L142,142 L250,250 L250,0 Z"></path><path d="M128.3,109.0 C113.8,99.7 119.0,89.6 119.0,89.6 C122.0,82.7 120.5,78.6 120.5,78.6 C119.2,72.0 123.4,76.3 123.4,76.3 C127.3,80.9 125.5,87.3 125.5,87.3 C122.9,97.6 130.6,101.9 134.4,103.2" fill="currentColor" style="transform-origin: 130px 106px;" class="octo-arm"></path><path d="M115.0,115.0 C114.9,115.1 118.7,116.5 119.8,115.4 L133.7,101.6 C136.9,99.2 139.9,98.4 142.2,98.6 C133.8,88.0 127.5,74.4 143.8,58.0 C148.5,53.4 154.0,51.2 159.7,51.0 C160.3,49.4 163.2,43.6 171.4,40.1 C171.4,40.1 176.1,42.5 178.8,56.2 C183.1,58.6 187.2,61.8 190.9,65.4 C194.5,69.0 197.7,73.2 200.1,77.6 C213.8,80.2 216.3,84.9 216.3,84.9 C212.7,93.1 206.9,96.0 205.4,96.6 C205.1,102.4 203.0,107.8 198.3,112.5 C181.9,128.9 168.3,122.5 157.7,114.1 C157.9,116.9 156.7,120.9 152.7,124.9 L141.0,136.5 C139.8,137.7 141.6,141.9 141.8,141.8 Z" fill="currentColor" class="octo-body"></path></svg></a><style>.github-corner:hover .octo-arm{animation:octocat-wave 560ms ease-in-out}@keyframes octocat-wave{0%,100%{transform:rotate(0)}20%,60%{transform:rotate(-25deg)}40%,80%{transform:rotate(10deg)}}@media (max-width:500px){.github-corner:hover .octo-arm{animation:none}.github-corner .octo-arm{animation:octocat-wave 560ms ease-in-out}}</style>
-#' [![travis-status](https://api.travis-ci.org/jbkunst/highcharter.svg)](https://travis-ci.org/jbkunst/highcharter)
-#' [![codecov.io](https://codecov.io/github/jbkunst/highcharter/coverage.svg?branch=master)](https://codecov.io/github/jbkunst/highcharter?branch=master)
-#' [![version](http://www.r-pkg.org/badges/version/highcharter)](http://www.r-pkg.org/pkg/highcharter)
-#' [![downloads](http://cranlogs.r-pkg.org/badges/highcharter)](http://www.r-pkg.org/pkg/highcharter)
-
 #+ echo=FALSE
 options(digits = 3, knitr.table.format = "markdown")
 library("printr")
diff --git a/no_build/test-hchart.R b/no_build/test-hchart.R
index 9aaebabb..1bd61126 100644
--- a/no_build/test-hchart.R
+++ b/no_build/test-hchart.R
@@ -37,6 +37,11 @@ class(x)
 plot(x)
 hchart(x)
 
+#' ### lst
+x <- stl(co2, "per")
+plot(x)
+hchart(x)
+
 #' ### xts quantmod package
 library("quantmod")
 x <- getSymbols("USD/JPY", src = "oanda", auto.assign = FALSE)
diff --git a/vignettes/replicating-highcharts-demos.Rmd b/vignettes/replicating-highcharts-demos.Rmd
index dc038b9d..9e2ce1c3 100644
--- a/vignettes/replicating-highcharts-demos.Rmd
+++ b/vignettes/replicating-highcharts-demos.Rmd
@@ -1,260 +1,260 @@
----
-title: "Replicating Highcharts Demos"
-author: "Joshua Kunst"
-output: rmarkdown::html_vignette
-vignette: >
-  %\VignetteIndexEntry{Vignette Title}
-  %\VignetteEngine{knitr::rmarkdown}
-  %\VignetteEncoding{UTF-8}
----
-
-Let's replicate the [line-lables](http://www.highcharts.com/demo/line-labels) demo. If you click
-*View Options* button you'll see the code to create that chart in a html file via javascript. Let's
-take a look to the options which are:
-
-```
-{
-  chart: {
-      type: 'line'
-  },
-  title: {
-      text: 'Monthly Average Temperature'
-  },
-  subtitle: {
-      text: 'Source: WorldClimate.com'
-  },
-  xAxis: {
-      categories: ['Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec']
-  },
-  yAxis: {
-      title: {
-          text: 'Temperature (C)'
-      }
-  },
-  plotOptions: {
-      line: {
-          dataLabels: {
-              enabled: true
-          },
-          enableMouseTracking: false
-      }
-  },
-  series: [{
-      name: 'Tokyo',
-      data: [7.0, 6.9, 9.5, 14.5, 18.4, 21.5, 25.2, 26.5, 23.3, 18.3, 13.9, 9.6]
-  }, {
-      name: 'London',
-      data: [3.9, 4.2, 5.7, 8.5, 11.9, 15.2, 17.0, 16.6, 14.2, 10.3, 6.6, 4.8]
-  }]
-}
-```
-
-The previous code is a javascript object. It's like a dictionary, or if we want we can say is like a named
-list. `highcharter` have the implementation of each option in highcharts like `chart`, `title`, etc. With 
-each of them you can add the requiered parameters to get the chart what you want. First of all we need
-to create the `highchart` object and then add very option what we want.
-
-```{r}
-library("highcharter")
-
-highchart() %>% 
-  hc_chart(type = "line") %>% 
-  hc_title(text = "Monthly Average Temperature") %>% 
-  hc_subtitle(text = "Source: WorldClimate.com") %>% 
-  hc_xAxis(categories = c('Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun',
-                          'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec')) %>% 
-  hc_yAxis(title = list(text = "Temperature (C)")) %>% 
-  hc_plotOptions(line = list(
-    dataLabels = list(enabled = TRUE),
-    enableMouseTracking = FALSE)
-    ) %>% 
-  hc_series(
-    list(
-      name = "Tokyo",
-      data = c(7.0, 6.9, 9.5, 14.5, 18.4, 21.5, 25.2, 26.5, 23.3, 18.3, 13.9, 9.6)
-    ),
-    list(
-      name = "London",
-      data = c(3.9, 4.2, 5.7, 8.5, 11.9, 15.2, 17.0, 16.6, 14.2, 10.3, 6.6, 4.8)
-    )
-  )
-```
-
-Now, let's try other example: [area stacked percent](http://www.highcharts.com/demo/area-stacked-percent). The
-options used are:
-
-```
-{
-  chart: {
-      type: 'area'
-  },
-  title: {
-      text: 'Historic and Estimated Worldwide Population Distribution by Region'
-  },
-  subtitle: {
-      text: 'Source: Wikipedia.org'
-  },
-  xAxis: {
-      categories: ['1750', '1800', '1850', '1900', '1950', '1999', '2050'],
-      tickmarkPlacement: 'on',
-      title: {
-          enabled: false
-      }
-  },
-  yAxis: {
-      title: {
-          text: 'Percent'
-      }
-  },
-  tooltip: {
-      pointFormat: '<span style="color:{series.color}">{series.name}</span>:
-      <b>{point.percentage:.1f}%</b> ({point.y:,.0f} millions)<br/>',
-      shared: true
-  },
-  plotOptions: {
-      area: {
-          stacking: 'percent',
-          lineColor: '#ffffff',
-          lineWidth: 1,
-          marker: {
-              lineWidth: 1,
-              lineColor: '#ffffff'
-          }
-      }
-  },
-  series: [{
-      name: 'Asia',
-      data: [502, 635, 809, 947, 1402, 3634, 5268]
-  }, {
-      name: 'Africa',
-      data: [106, 107, 111, 133, 221, 767, 1766]
-  }, {
-      name: 'Europe',
-      data: [163, 203, 276, 408, 547, 729, 628]
-  }, {
-      name: 'America',
-      data: [18, 31, 54, 156, 339, 818, 1201]
-  }, {
-      name: 'Oceania',
-      data: [2, 2, 2, 6, 13, 30, 46]
-  }]
-}
-```
-
-In this example we'll use the `hc_add_series()` to add every series one by one.
-
-```{r}
-hc <- highchart() %>% 
-  hc_chart(type = "area") %>% 
-  hc_title(text = "Historic and Estimated Worldwide Population Distribution by Region") %>% 
-  hc_subtitle(text = "Source: Wikipedia.org") %>% 
-  hc_xAxis(categories = c('1750', '1800', '1850', '1900', '1950', '1999', '2050'),
-           tickmarkPlacement = 'on',
-           title = list(enabled = FALSE)) %>% 
-  hc_yAxis(title = list(text = "Percent")) %>% 
-  hc_tooltip(pointFormat = '<span style="color:{series.color}">{series.name}</span>:
-             <b>{point.percentage:.1f}%</b> ({point.y:,.0f} millions)<br/>',
-             shared = TRUE) %>% 
-  hc_plotOptions(area = list(
-     stacking = "percent",
-     lineColor = "#ffffff",
-     lineWidth = 1,
-     marker = list(
-       lineWidth = 1,
-       lineColor = "#ffffff"
-       ))
-     ) %>% 
-  hc_add_series(name = "Asia", data = c(502, 635, 809, 947, 1402, 3634, 5268)) %>% 
-  hc_add_series(name = "Africa", data = c(106, 107, 111, 133, 221, 767, 1766)) %>%
-  hc_add_series(name = "Europe", data = c(163, 203, 276, 408, 547, 729, 628)) %>% 
-  hc_add_series(name = "America", data = c(18, 31, 54, 156, 339, 818, 1201)) %>% 
-  hc_add_series(name = "Oceania", data = c(2, 2, 2, 6, 13, 30, 46)) 
-       
-hc
-
-```
-
-A third and slightly more complicated example is the [spiderweb](http://www.highcharts.com/demo/polar-spider) chart. 
-
-```
-{
-  chart: {
-    polar: true,
-    type: 'line'
-  },
-  title: {
-    text: 'Budget vs spending',
-    x: -80
-  },
-  pane: {
-    size: '80%'
-  },
-  xAxis: {
-    categories: ['Sales', 'Marketing', 'Development', 'Customer Support', 'Information Technology', 'Administration'],
-    tickmarkPlacement: 'on',
-    lineWidth: 0
-  },
-  yAxis: {
-    gridLineInterpolation: 'polygon',
-    lineWidth: 0,
-    min: 0
-  },
-  tooltip: {
-    shared: true,
-    pointFormat: '<span style="color:{series.color}">{series.name}: <b>${point.y:,.0f}</b><br/>'
-  },
-  legend: {
-    align: 'right',
-    verticalAlign: 'top',
-    y: 70,
-    layout: 'vertical'
-  },
-  series: [{
-    name: 'Allocated Budget',
-    data: [43000, 19000, 60000, 35000, 17000, 10000],
-    pointPlacement: 'on'
-  }, {
-    name: 'Actual Spending',
-    data: [50000, 39000, 42000, 31000, 26000, 14000],
-    pointPlacement: 'on'
-  }]
-}
-```
-
-Here's the code for the `highchart` object:
-
-```{r}
-highchart() %>% 
-  hc_chart(polar = TRUE, type = "line") %>% 
-  hc_title(text = "Budget vs Spending") %>% 
-  hc_xAxis(categories = c('Sales', 'Marketing', 'Development', 'Customer Support', 
-                          'Information Technology', 'Administration'),
-           tickmarkPlacement = 'on',
-           lineWidth = 0) %>% 
-  hc_yAxis(gridLineInterpolation = 'polygon',
-           lineWidth = 0,
-           min = 0) %>% 
-  hc_series(
-    list(
-      name = "Allocated Budget",
-      data = c(43000, 19000, 60000, 35000, 17000, 10000),
-      pointPlacement = 'on'
-    ),
-    list(
-      name = "Actual Spending",
-      data = c(50000, 39000, 42000, 31000, 26000, 14000),
-     pointPlacement = 'on'
-    )
-  )
-```
-
-
-If you don't get what you hope to get you must check if you passed all the arguments correctly.
-You can compare the javascript object with:
-
-```{r}
-library("jsonlite")
-
-toJSON(hc$x$hc_opts, pretty = TRUE, auto_unbox = TRUE)
-```
-
+---
+title: "Replicating Highcharts Demos"
+author: "Joshua Kunst"
+output: rmarkdown::html_vignette
+vignette: >
+  %\VignetteIndexEntry{Replicating Highcharts Demos}
+  %\VignetteEngine{knitr::rmarkdown}
+  %\VignetteEncoding{UTF-8}
+---
+
+Let's replicate the [line-lables](http://www.highcharts.com/demo/line-labels) demo. If you click
+*View Options* button you'll see the code to create that chart in a html file via javascript. Let's
+take a look to the options which are:
+
+```
+{
+  chart: {
+      type: 'line'
+  },
+  title: {
+      text: 'Monthly Average Temperature'
+  },
+  subtitle: {
+      text: 'Source: WorldClimate.com'
+  },
+  xAxis: {
+      categories: ['Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec']
+  },
+  yAxis: {
+      title: {
+          text: 'Temperature (C)'
+      }
+  },
+  plotOptions: {
+      line: {
+          dataLabels: {
+              enabled: true
+          },
+          enableMouseTracking: false
+      }
+  },
+  series: [{
+      name: 'Tokyo',
+      data: [7.0, 6.9, 9.5, 14.5, 18.4, 21.5, 25.2, 26.5, 23.3, 18.3, 13.9, 9.6]
+  }, {
+      name: 'London',
+      data: [3.9, 4.2, 5.7, 8.5, 11.9, 15.2, 17.0, 16.6, 14.2, 10.3, 6.6, 4.8]
+  }]
+}
+```
+
+The previous code is a javascript object. It's like a dictionary, or if we want we can say is like a named
+list. `highcharter` have the implementation of each option in highcharts like `chart`, `title`, etc. With 
+each of them you can add the requiered parameters to get the chart what you want. First of all we need
+to create the `highchart` object and then add very option what we want.
+
+```{r}
+library("highcharter")
+
+highchart() %>% 
+  hc_chart(type = "line") %>% 
+  hc_title(text = "Monthly Average Temperature") %>% 
+  hc_subtitle(text = "Source: WorldClimate.com") %>% 
+  hc_xAxis(categories = c('Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun',
+                          'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec')) %>% 
+  hc_yAxis(title = list(text = "Temperature (C)")) %>% 
+  hc_plotOptions(line = list(
+    dataLabels = list(enabled = TRUE),
+    enableMouseTracking = FALSE)
+    ) %>% 
+  hc_series(
+    list(
+      name = "Tokyo",
+      data = c(7.0, 6.9, 9.5, 14.5, 18.4, 21.5, 25.2, 26.5, 23.3, 18.3, 13.9, 9.6)
+    ),
+    list(
+      name = "London",
+      data = c(3.9, 4.2, 5.7, 8.5, 11.9, 15.2, 17.0, 16.6, 14.2, 10.3, 6.6, 4.8)
+    )
+  )
+```
+
+Now, let's try other example: [area stacked percent](http://www.highcharts.com/demo/area-stacked-percent). The
+options used are:
+
+```
+{
+  chart: {
+      type: 'area'
+  },
+  title: {
+      text: 'Historic and Estimated Worldwide Population Distribution by Region'
+  },
+  subtitle: {
+      text: 'Source: Wikipedia.org'
+  },
+  xAxis: {
+      categories: ['1750', '1800', '1850', '1900', '1950', '1999', '2050'],
+      tickmarkPlacement: 'on',
+      title: {
+          enabled: false
+      }
+  },
+  yAxis: {
+      title: {
+          text: 'Percent'
+      }
+  },
+  tooltip: {
+      pointFormat: '<span style="color:{series.color}">{series.name}</span>:
+      <b>{point.percentage:.1f}%</b> ({point.y:,.0f} millions)<br/>',
+      shared: true
+  },
+  plotOptions: {
+      area: {
+          stacking: 'percent',
+          lineColor: '#ffffff',
+          lineWidth: 1,
+          marker: {
+              lineWidth: 1,
+              lineColor: '#ffffff'
+          }
+      }
+  },
+  series: [{
+      name: 'Asia',
+      data: [502, 635, 809, 947, 1402, 3634, 5268]
+  }, {
+      name: 'Africa',
+      data: [106, 107, 111, 133, 221, 767, 1766]
+  }, {
+      name: 'Europe',
+      data: [163, 203, 276, 408, 547, 729, 628]
+  }, {
+      name: 'America',
+      data: [18, 31, 54, 156, 339, 818, 1201]
+  }, {
+      name: 'Oceania',
+      data: [2, 2, 2, 6, 13, 30, 46]
+  }]
+}
+```
+
+In this example we'll use the `hc_add_series()` to add every series one by one.
+
+```{r}
+hc <- highchart() %>% 
+  hc_chart(type = "area") %>% 
+  hc_title(text = "Historic and Estimated Worldwide Population Distribution by Region") %>% 
+  hc_subtitle(text = "Source: Wikipedia.org") %>% 
+  hc_xAxis(categories = c('1750', '1800', '1850', '1900', '1950', '1999', '2050'),
+           tickmarkPlacement = 'on',
+           title = list(enabled = FALSE)) %>% 
+  hc_yAxis(title = list(text = "Percent")) %>% 
+  hc_tooltip(pointFormat = '<span style="color:{series.color}">{series.name}</span>:
+             <b>{point.percentage:.1f}%</b> ({point.y:,.0f} millions)<br/>',
+             shared = TRUE) %>% 
+  hc_plotOptions(area = list(
+     stacking = "percent",
+     lineColor = "#ffffff",
+     lineWidth = 1,
+     marker = list(
+       lineWidth = 1,
+       lineColor = "#ffffff"
+       ))
+     ) %>% 
+  hc_add_series(name = "Asia", data = c(502, 635, 809, 947, 1402, 3634, 5268)) %>% 
+  hc_add_series(name = "Africa", data = c(106, 107, 111, 133, 221, 767, 1766)) %>%
+  hc_add_series(name = "Europe", data = c(163, 203, 276, 408, 547, 729, 628)) %>% 
+  hc_add_series(name = "America", data = c(18, 31, 54, 156, 339, 818, 1201)) %>% 
+  hc_add_series(name = "Oceania", data = c(2, 2, 2, 6, 13, 30, 46)) 
+       
+hc
+
+```
+
+A third and slightly more complicated example is the [spiderweb](http://www.highcharts.com/demo/polar-spider) chart. 
+
+```
+{
+  chart: {
+    polar: true,
+    type: 'line'
+  },
+  title: {
+    text: 'Budget vs spending',
+    x: -80
+  },
+  pane: {
+    size: '80%'
+  },
+  xAxis: {
+    categories: ['Sales', 'Marketing', 'Development', 'Customer Support', 'Information Technology', 'Administration'],
+    tickmarkPlacement: 'on',
+    lineWidth: 0
+  },
+  yAxis: {
+    gridLineInterpolation: 'polygon',
+    lineWidth: 0,
+    min: 0
+  },
+  tooltip: {
+    shared: true,
+    pointFormat: '<span style="color:{series.color}">{series.name}: <b>${point.y:,.0f}</b><br/>'
+  },
+  legend: {
+    align: 'right',
+    verticalAlign: 'top',
+    y: 70,
+    layout: 'vertical'
+  },
+  series: [{
+    name: 'Allocated Budget',
+    data: [43000, 19000, 60000, 35000, 17000, 10000],
+    pointPlacement: 'on'
+  }, {
+    name: 'Actual Spending',
+    data: [50000, 39000, 42000, 31000, 26000, 14000],
+    pointPlacement: 'on'
+  }]
+}
+```
+
+Here's the code for the `highchart` object:
+
+```{r}
+highchart() %>% 
+  hc_chart(polar = TRUE, type = "line") %>% 
+  hc_title(text = "Budget vs Spending") %>% 
+  hc_xAxis(categories = c('Sales', 'Marketing', 'Development', 'Customer Support', 
+                          'Information Technology', 'Administration'),
+           tickmarkPlacement = 'on',
+           lineWidth = 0) %>% 
+  hc_yAxis(gridLineInterpolation = 'polygon',
+           lineWidth = 0,
+           min = 0) %>% 
+  hc_series(
+    list(
+      name = "Allocated Budget",
+      data = c(43000, 19000, 60000, 35000, 17000, 10000),
+      pointPlacement = 'on'
+    ),
+    list(
+      name = "Actual Spending",
+      data = c(50000, 39000, 42000, 31000, 26000, 14000),
+     pointPlacement = 'on'
+    )
+  )
+```
+
+
+If you don't get what you hope to get you must check if you passed all the arguments correctly.
+You can compare the javascript object with:
+
+```{r}
+library("jsonlite")
+
+toJSON(hc$x$hc_opts, pretty = TRUE, auto_unbox = TRUE)
+```
+