# NOT RUN {
# !formatR
# }
# NOT RUN {
library(recharts)
library(shiny)
app = shinyApp(
ui = fluidPage(eChartOutput('myChart')),
server = function(input, output) {
chart = echart(x = rnorm(100), y = rnorm(100))
output$myChart = renderEChart(chart)
}
)
if (interactive()) print(app)
# }
Run the code above in your browser using DataLab