Merge pull request #6 from dreamRs/update-apexcharts

Update apexcharts

DESCRIPTION

@@ -1,5 +1,5 @@
 Package: apexcharter
-Version: 0.1.3.900
+Version: 0.1.3.910
 Title: Create Interactive Chart with the JavaScript 'ApexCharts' Library
 Description: Provides an 'htmlwidgets' interface to 'apexcharts.js'. 
   'Apexcharts' is a modern JavaScript charting library to build interactive charts and visualizations with simple API.

R/apex.R

@@ -23,7 +23,8 @@
 #' @example examples/apex.R
 apex <- function(data, mapping, type = "column", ..., auto_update = TRUE, width = NULL, height = NULL, elementId = NULL) {
   type <- match.arg(type, c("column", "bar", "line", "area", "spline", "area-spline",
-                            "pie", "donut", "radialBar", "radar", "scatter", "heatmap"))
+                            "pie", "donut", "radialBar", "radar", "scatter", "heatmap",
+                            "rangeBar"))
   data <- as.data.frame(data)
   if (identical(type, "heatmap")) {
     mapping <- rename_aes_heatmap(mapping)
@@ -210,6 +211,7 @@ config_line <- function(curve = "straight", datetime = FALSE) {
 config_scatter <- function(range_x, range_y) {
   config <- list(
     xaxis = list(
+      type = "numeric",
       min = range_x[1], max = range_x[2]
     ),
     yaxis = list(

inst/htmlwidgets/apexcharter.yaml

@@ -1,7 +1,7 @@
 dependencies:
   - name: apexcharts
-    version: 3.10.1
-    src: htmlwidgets/lib/apexcharts-3.10
+    version: 3.15.5
+    src: htmlwidgets/lib/apexcharts-3.15
     script: apexcharts.min.js
   - name: d3-format
     version: 1.4.2

vignettes/advanced-configuration.Rmd

@@ -668,7 +668,8 @@ heatmap <- heatmap %>%
       "function(seriesName, opts) {
       if (seriesName == 'Missing') return null; else return seriesName;
       }"
-    )
+    ),
+    itemMargin = list(vertical = 5)
   )
 ```
 
@@ -701,7 +702,7 @@ heatmap <- heatmap %>%
           text = "Vaccine Introduced", 
           orientation = "horizontal",
           position = "bottom",
-          offsetY = 10
+          offsetY = 0
         )
       )
     )
@@ -789,7 +790,8 @@ apex(vaccines, aes(year, state, fill = count), type = "heatmap") %>%
       "function(seriesName, opts) {
       if (seriesName == 'Missing') return null; else return seriesName;
       }"
-    )
+    ),
+    itemMargin = list(vertical = 5)
   ) %>% 
   ax_yaxis(
     labels = list(
@@ -811,7 +813,7 @@ apex(vaccines, aes(year, state, fill = count), type = "heatmap") %>%
           text = "Vaccine Introduced", 
           orientation = "horizontal",
           position = "bottom",
-          offsetY = 10
+          offsetY = 0
         )
       )
     )

vignettes/starting-with-apexcharts.Rmd

@@ -113,8 +113,7 @@ apex(data = mtcars, type = "scatter", mapping = aes(x = wt, y = mpg))
 Color points according to a third variable:
 
 ```{r scatter-fill}
-apex(data = mtcars, type = "scatter", mapping = aes(x = wt, y = mpg, fill = cyl)) %>%
-  ax_xaxis(tickAmount = 5)
+apex(data = mtcars, type = "scatter", mapping = aes(x = wt, y = mpg, fill = cyl))
 ```
 
 And change point size using `z` aesthetics: