launch.browser <- function(url) {
url <- sprintf('%s/?lang=%s',url, 'en')
invisible(.Call("rs_shinyviewer", url, getwd(), 3))
}
#
library("shiny")
runApp(system.file('shiny', 'app2', package='gettext'), launch.browser=launch.browser)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.