Nothing
ViewEvo <- function(simulation){
if(simulation == 'wf.model') shiny::runApp(system.file("wf.model", package='evobiR'))
if(simulation == 'bd.model') shiny::runApp(system.file("bd.model", package='evobiR'))
if(simulation == 'dist.model') shiny::runApp(system.file("dist.model", package='evobiR'))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.