server <- function(input, output) {
output$plot_temp <- renderPlot({
plot_temp_history(input$code)
})
output$table <- renderDataTable( obhistory(input$code))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.