From 44a20377cc4c1cf2782374ff8dedde96f1053c1b Mon Sep 17 00:00:00 2001
From: christophe dervieux <christophe.dervieux@gmail.com>
Date: Fri, 17 Sep 2021 10:35:30 +0200
Subject: [PATCH] Add Rmd test for plotly

---
 tests/manual/test-widget-plotly.Rmd | 108 ++++++++++++++++++++++++++++
 1 file changed, 108 insertions(+)
 create mode 100644 tests/manual/test-widget-plotly.Rmd

diff --git a/tests/manual/test-widget-plotly.Rmd b/tests/manual/test-widget-plotly.Rmd
new file mode 100644
index 0000000..1090198
--- /dev/null
+++ b/tests/manual/test-widget-plotly.Rmd
@@ -0,0 +1,108 @@
+---
+title: "Rmarkdown Presentation including Plotly"
+output: 
+  revealjs::revealjs_presentation
+---
+
+# Setup
+
+```{r, message=FALSE}
+knitr::opts_chunk$set(echo = FALSE)
+knitr::opts_template$set(demo = list(echo = TRUE, eval = FALSE))
+xfun::pkg_attach2("plotly")
+xfun::pkg_load2("ggplot2")
+data(economics, package = "ggplot2")
+```
+
+
+# Simple example
+
+```{r simple}
+set.seed(99)
+plot_ly() %>%
+ add_trace(
+   type = "scatter",
+   mode = "markers+lines+text",
+   x = 4:6, 
+   y = 4:6,
+   text = replicate(3, praise::praise("You are ${adjective}! 🙌")),
+   textposition = "right",
+   hoverinfo = "text",
+   textfont = list(family = "Roboto Condensed", size = 16)
+ ) %>%
+ layout(xaxis = list(range = c(3, 8)))
+```
+
+## Code
+
+```{r simple, opts.label = "demo"}
+```
+
+# Several plots
+
+```{r multiple}
+p1 <- plot_ly(economics, x = ~date, y = ~unemploy) %>% 
+  add_lines(name = "unemploy")
+p2 <- plot_ly(economics, x = ~date, y = ~uempmed) %>% 
+  add_lines(name = "uempmed")
+subplot(p1, p2)
+```
+
+## Code
+
+```{r multiple, opts.label = "demo"}
+```
+
+
+# Events handler
+
+```{r events, message=FALSE}
+xfun::pkg_attach2("htmlwidgets")
+plot_ly(mtcars, x = ~wt, y = ~mpg) %>%
+  onRender("
+    function(el) { 
+      el.on('plotly_hover', function(d) { 
+        console.log('Hover: ', d); 
+      });
+      el.on('plotly_click', function(d) { 
+        console.log('Click: ', d);
+      });
+      el.on('plotly_selected', function(d) { 
+        console.log('Select: ', d); 
+      });
+    }
+  ")
+```
+
+## Code
+
+```{r events, opts.label = "demo"}
+```
+
+# Symbols
+
+```{r symbols}
+vals <- schema(F)$traces$scatter$attributes$marker$symbol$values
+vals <- grep("-", vals, value = T)
+plot_ly() %>%
+  add_markers(
+    x = rep(1:12, each = 11, length.out = length(vals)),
+    y = rep(1:11, times = 12, length.out = length(vals)),
+    text = vals,
+    hoverinfo = "text",
+    marker = list(
+      symbol = vals,
+      size = 30,
+      line = list(
+        color = "black",
+        width = 2
+      )
+    )
+  )
+```
+
+## Code
+
+```{r symbols, opts.label = "demo"}
+```
+