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