Spyros Marketos
27/11/2016
library(tidyverse);library(plotly)
p <- ggplot(data = diamonds) +
geom_bar(mapping = aes(x = cut, fill = clarity), position = "dodge")
ggplotly(p)
Shiny hosts the control widgets
Leaflet uses data interacting with Shiny's control widgets to generate the map
plotly visualises the output of the interactions converting a ggplot2 object to an interactive visualisation
Thanks for having a look!
You can see the app in action here: https://spymark.shinyapps.io/reactive_leaflet/
Here is the link to the github repo that contains all the code https://github.com/spymark/data_products_proj