# NOT RUN {
if (require(plotly)) {
manipulateWidget(
{
if (length(species) == 0) mydata <- iris
else mydata <- iris[iris$Species %in% species,]
plot_ly(mydata, x = ~Sepal.Length, y = ~Sepal.Width,
color = ~droplevels(Species), type = "scatter", mode = "markers")
},
species = mwCheckboxGroup(levels(iris$Species))
)
}
# }
Run the code above in your browser using DataCamp Workspace