output$plotSM <- renderPlot({
plot(cars, type=input$plotType)
})
output$summarySM <- renderPrint({
summary(cars)
})
output$tableSM <- DT::renderDataTable({
DT::datatable(cars)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.