some test for tooltip

DESCRIPTION

@@ -1,5 +1,5 @@
 Package: apexcharter
-Version: 0.1.2.900
+Version: 0.1.2.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

@@ -98,7 +98,8 @@ make_series <- function(mapdata, mapping, type) {
     series_names <- rlang::as_label(mapping$y)
   series <- list(list(
     name = series_names,
-    data = parse_df(mapdata, add_names = add_names)
+    data = parse_df(mapdata, add_names = add_names),
+    rdata = jsonlite::toJSON(mapdata, dataframe = "rows")
   ))
   if (is_grouped(names(mapping))) {
     mapdata <- rename_aes(mapdata)
@@ -106,13 +107,14 @@ make_series <- function(mapdata, mapping, type) {
       X = unique(mapdata$group),
       FUN = function(x) {
         data <- mapdata[mapdata$group %in% x, ]
-        data <- data[, setdiff(names(data), "group"), drop = FALSE]
+        serie_data <- data[, intersect(names(mapdata), c("x", "y")), drop = FALSE]
         list(
           name = x,
           data = parse_df(
-            data = data, 
+            data = serie_data, 
             add_names = add_names
-          )
+          ),
+          rdata = jsonlite::toJSON(data, dataframe = "rows")
         )
       }
     )

inst/htmlwidgets/apexcharter.yaml

@@ -1,5 +1,9 @@
 dependencies:
   - name: apexcharts
-    version: 3.8.4
-    src: htmlwidgets/lib/apexcharts-3.8
+    version: 3.10.0
+    src: htmlwidgets/lib/apexcharts-3.10
     script: apexcharts.min.js
+  - name: handlebars
+    version: 4.4.5
+    src: htmlwidgets/lib/handlebars
+    script: handlebars.min.js