ci fix

mahdis-z · mahdis-z · commit 9f5fbefd0aef · 2020-02-24T18:42:55.000-05:00
diff --git a/ggplot2/2017-10-18-extending_ggplotly.Rmd b/ggplot2/2017-10-18-extending_ggplotly.Rmd
@@ -54,14 +54,14 @@ library(plotly)
 p <- ggplot(mtcars, aes(x = wt, y = mpg)) +
    geom_point() + geom_smooth()
 
-fig <- fig %>%
+fig <- p %>%
   ggplotly(layerData = 2, originalData = F) %>%
-  add_fun(function(p) {
+  add_fun(function(fig) {
     fig %>% slice(which.max(se)) %>%
       add_segments(x = ~x, xend = ~x, y = ~ymin, yend = ~ymax) %>%
       add_annotations("Maximum uncertainty", ax = 60)
-  }) %>%
-  add_fun(function(p) {
+  })
+fig <- fig %>% add_fun(function(p) {
     fig %>% slice(which.min(se)) %>%
       add_segments(x = ~x, xend = ~x, y = ~ymin, yend = ~ymax) %>%
       add_annotations("Minimum uncertainty")
