if (FALSE) {
sd <- SharedData$new(iris)
renderPlot({
df <- sd$data(withSelection = TRUE, withFilter = TRUE)
ggplot(df, aes(Sepal.Length, Sepal.Width,
color = selection_factor(df))) +
geom_point() +
scale_color_selection("#444444", "skyblue1")
})
}
Run the code above in your browser using DataLab