inst/shiny-examples/myapp/server.R

server <- function(input, output) {
  output$plot_temp <- renderPlot({
    plot_temp_history(input$code)
  })
  output$table <- renderDataTable( obhistory(input$code))
}
floatgreen/weatherstar documentation built on May 11, 2019, 3:12 p.m.