# NOT RUN {
iris %>%
group_by(Species) %>%
e_charts(Sepal.Length) %>%
e_line(Sepal.Width) %>%
e_line(Petal.Length) %>%
e_highlight(series_name = "setosa", btn = "myBtn") %>%
e_button("myBtn", "highlight stuff")
# }
Run the code above in your browser using DataLab