ci fix

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