## Not run:
# if( require(shiny) && interactive() ){
# app_dir <- file.path( system.file(package = "ggiraph"), "shiny/cars" )
# shinyAppDir(appDir = app_dir )
# }
# if( require(shiny) && interactive() ){
# app_dir <- file.path( system.file(package = "ggiraph"), "shiny/crimes" )
# shinyAppDir(appDir = app_dir )
# }
# ## End(Not run)
Run the code above in your browser using DataLab