wip #302

jbkunst · Apr 27, 2017 · bbf0b78 · bbf0b78
1 parent d1500a1
commit bbf0b78
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 3 deletions.
diff --git a/R/api-hc-hc_add_series.R b/R/api-hc-hc_add_series.R
@@ -535,7 +535,7 @@ data_to_options <- function(data, type) {
     (type == "treemap" & "color" %in% names(data)) | (type == "heatmap")
 
   # series marker enabled
-  opts$series_marker_enabled <- !(type %in% c("line", "spline"))
+  # opts$series_marker_enabled <- !(type %in% c("line", "spline"))
 
   # heatmap
   if (type == "heatmap") {

diff --git a/R/hchart.R b/R/hchart.R
@@ -52,8 +52,7 @@ hchart.data.frame <- function(object, type = NULL, mapping = hcaes(), ...){
              categories = opts$yAxis_categories) %>% 
     hc_plotOptions(
       series = list(
-        showInLegend = opts$series_plotOptions_showInLegend,
-        marker = list(enabled = opts$series_marker_enabled)
+        showInLegend = opts$series_plotOptions_showInLegend
       ),
       scatter = list(marker = list(symbol = "circle"))
     )