## Not run: ------------------------------------
# ## https://github.com/rstudio/shiny-examples/tree/master/050-kmeans-example
# app <- ShinyDriver$new("050-kmeans-example")
# expectUpdate(app, xcol = "Sepal.Width", output = "plot1")
# expectUpdate(app, ycol = "Petal.Width", output = "plot1")
# expectUpdate(app, clusters = 4, output = "plot1")
## ---------------------------------------------
Run the code above in your browser using DataLab