title: Data input via shinyTable in R shiny application
body: <p>I want to build a shiny app that gets matrix data as input and returns a table based on some operations on it as output. By search I find that ShinyTable package could be useful. I tried below shiny codes but the result app appears gray out and without result.</p>
  
  <pre><code>library(shinyTable)
  shiny::runApp(list(
    ui=pageWithSidebar(
      headerPanel('Simple matrixInput')
      ,
      sidebarPanel(
        htable("tbl")
        ,
        submitButton("OK")
      )
      ,
      mainPanel(
  
        tableOutput(outputId = 'table.output')
      ))
    ,
    server=function(input, output){
      output$table.output &lt;- renderTable({
        input$tbl^2
      }
      , sanitize.text.function = function(x) x 
      )
    }
  ))
  </code></pre>
  
  <p><strong>Any Idea?</strong></p>