inst/examples/R/data/interactive_graphics/example_ggobi.R

In sigbertklinke/shinyExample: Create and run simple (interactive) programs as Shiny apps

# Do not run 
library("MASS") # for Boston Housing data
if (interactive()) {
  library("rggobi")
  g <- ggobi(Boston)
  # now do some brushing
  col <- glyph_colour(g["Boston"])
  table(col)
}