inst/examples/02-matrix/server.R

In trestletech/shinyTable: Handsontable for Shiny

library(shiny)
library(shinyTable)

#' Define server logic required to generate simple table
#' @author Jeff Allen \email{jeff@@trestletech.com}
shinyServer(function(input, output, session) {
  cachedTbl <- NULL
  
  output$tbl <- renderHtable({
    if (is.null(input$tbl)){
      rows <- 5
      # Seed the element with some data initially
      tbl <- round(matrix(rnorm(rows^2), ncol=rows), 5)
      
      # So RJSONIO clips numeric data after a few digits? 'Cause why would
      # anyone want more than a few digits of resolution anyways?
      # (Can we get a real JSON parser for R yet?) </rant>
      
      cachedTbl <<- tbl
      print(tbl)
      return(tbl)
    } else{
      cachedTbl <<- input$tbl
      print(input$tbl)
      return(input$tbl)
    }
  })  
})