require(shiny)
require(rCharts)
shinyServer(function(input, output, session){
output$map <- renderText({
source('code.R', local = TRUE)
h = L1$html('map')
Encoding(h) <- 'UTF-8'
h
})
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.