fix: rendered fixes #415

Author: JohnCoene

R/facets.R

@@ -14,10 +14,10 @@
 #'                  "temperature" = runif(group_size * n_groups, 10, 40),
 #'                  "location" = rep(LETTERS[1:n_groups], each=group_size))
 #' 
-#' df %>% 
-#'   group_by(location) %>% 
-#'   e_charts(day) %>% 
-#'   e_line(temperature) %>% 
+#' df |> 
+#'   group_by(location) |> 
+#'   e_charts(day) |> 
+#'   e_line(temperature) |> 
 #'   e_facet(rows = 4, cols=4, legend_pos = "top", legend_space = 12) 
 #'
 #' @details Each serie, i.e.: \code{\link{e_bar}} will be plotted against a facet.

R/themes.R

@@ -32,49 +32,14 @@
 #' @export
 e_theme <- function(
   e, 
-  name = c(
-    "auritus", 
-    "azul", 
-    "bee-inspired", 
-    "blue", 
-    "caravan", 
-    "carp", 
-    "chalk", 
-    "cool", 
-    "dark-blue", 
-    "dark-bold", 
-    "dark-digerati", 
-    "dark-fresh-cut", 
-    "dark-mushroom", 
-    "dark", 
-    "eduardo", 
-    "essos", 
-    "forest", 
-    "fresh-cut", 
-    "fruit", 
-    "gray", 
-    "green", 
-    "halloween", 
-    "helianthus", 
-    "infographic", 
-    "inspired", 
-    "jazz", 
-    "london", 
-    "macarons", 
-    "macarons2", 
-    "mint", 
-    "purple-passion", 
-    "red-velvet", 
-    "red", 
-    "roma", 
-    "royal", 
-    "sakura", 
-    "shine", 
-    "tech-blue", 
-    "vintage", 
-    "walden", 
-    "westeros", 
-    "wonderland"
+  name = c("auritus", "azul", "bee-inspired", "blue", "caravan", "carp", 
+    "chalk", "cool", "dark-blue", "dark-bold", "dark-digerati", "dark-fresh-cut", 
+    "dark-mushroom", "dark", "eduardo", "essos", "forest", "fresh-cut", 
+    "fruit", "gray", "green", "halloween", "helianthus", "infographic", 
+    "inspired", "jazz", "london", "macarons", "macarons2", "mint", 
+    "purple-passion", "red-velvet", "red", "roma", "royal", "sakura", 
+    "shine", "tech-blue", "vintage", "walden", "wef", "weforum", 
+    "westeros", "wonderland"
   )
 ) {
   name <- match.arg(name)

inst/htmlwidgets/echarts4r.js

@@ -56,6 +56,10 @@ HTMLWidgets.widget({
           mapboxgl.accessToken = x.mapboxToken;
         }
 
+        if(!x.mainOpts)
+          x.mainOpts = [];
+        x.mainOpts.renderer = x.renderer;
+
         chart = echarts.init(document.getElementById(el.id), x.theme, x.mainOpts);
 
         opts = evalFun(x.opts);

man/e_facet.Rd

@@ -124,12 +124,6 @@ p |> e_theme("halloween")
 p |> e_theme("azul")
 ```
 
-## bee-insipired
-
-```{r}
-p |> e_theme("bee-insipired")
-```
-
 ## blue
 
 ```{r}