library(TrenaViz)
PORT <- 5899
tv <- TrenaViz("TrenaProjectAD")
runApp(createApp(tv, port=PORT))
url <- sprintf("http://0.0.0.0:%d", PORT)
later(function(){browseURL(url)}, 2)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.