if (FALSE) {
library(shiny)
ui <- fluidPage(
tableOutput("table")
)
server <- function(input, output, session) {
board <- board_local()
data <- pin_reactive_read(board, "shiny", interval = 1000)
output$table <- renderTable(data())
}
shinyApp(ui, server)
}
Run the code above in your browser using DataLab