if (FALSE) {
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