shiny datatables update streaming

Readme.md

Let's say you have streaming data, and you would like to update a DT::datatable in Shiny without completely re-rendering the table. Here is some code to illustrate how this might be accomplished. Hope it helps.

library(DT)
library(shiny)

ui <- tagList(
  tags$script(HTML(
"
Shiny.addCustomMessageHandler(
  'updateTable',
  function(e) {
    var row = e.row,
      col = e.col,
      value = e.value

    if($('#tbl table').DataTable) {
      $('#tbl table').DataTable().cell(row - 1, col - 1).data(value)
    }
  }
)
"
  )),
  DT::DTOutput("tbl")
)

server <- function(input, output, session) {
  output$tbl <- DT::renderDT(
    {
      DT::datatable(
        data.frame(
          id = LETTERS,
          value = round(runif(26, 20, 40), 2)
        ),
        rownames = FALSE
      )
    },
    server = FALSE
  )
  
  observe({
    invalidateLater(100, session)
    session$sendCustomMessage(
      "updateTable",
      list(
        row = floor(runif(1,1,26.99)),
        col = 2,
        value = round(runif(1,20,40), 2)
      )
    )
  })
}

shinyApp(ui, server)

code.R

library(DT)
library(shiny)

ui <- tagList(
  tags$script(HTML(
"
Shiny.addCustomMessageHandler(
  'updateTable',
  function(e) {
    var row = e.row,
      col = e.col,
      value = e.value

    if($('#tbl table').DataTable) {
      $('#tbl table').DataTable().cell(row - 1, col - 1).data(value)
    }
  }
)
"
  )),
  DT::DTOutput("tbl")
)

server <- function(input, output, session) {
  output$tbl <- DT::renderDT(
    {
      DT::datatable(
        data.frame(
          id = LETTERS,
          value = round(runif(26, 20, 40), 2)
        ),
        rownames = FALSE
      )
    },
    server = FALSE
  )
  
  observe({
    invalidateLater(100, session)
    session$sendCustomMessage(
      "updateTable",
      list(
        row = floor(runif(1,1,26.99)),
        col = 2,
        value = round(runif(1,20,40), 2)
      )
    )
  })
}

shinyApp(ui, server)

very useful. thank you.