library(cellauto)
.ex <- paste0(
path.package('cellauto'),
'/examples/search.R'
);
source(.ex)
library(shiny)
.ex <- paste0(
path.package('cellauto'),
'/webapp/'
);
runApp(.ex, port=8080, launch.browser=T)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.