在 Shiny 中检查 rhandsontable 中的有效输入

Question

问题：我有以下示例应用程序，用户可以在其中更改 rhandsontable 对象。 我想检查用户所做的修改是否有效。 已实现：如果无效，单元格颜色变为深红色。

问题：是否有可能检查 R（不仅是视觉上）整个 rhandsontable 如果它只包含有效输入，即可以返回的一些 TRUE/FALSE 标志并且是 rhandsontable 对象的属性或一些隐藏选项等等？

library(shiny)
library(rhandsontable)

ui <- fluidPage(
    rHandsontableOutput("table")
)

server <- function(input, output, session) {
  
  output$table <- renderRHandsontable(
    rhandsontable(mtcars)
  )
  
  observe({
    str(input$table)
  })
}

shinyApp(ui, server)

Answer 1

您可以使用hot_to_r读取表，然后进行检查。 在示例中，如果您将一个单元格更改为一个字符，则该标志设置为FALSE 。 这是因为字符在输入中作为NA返回（我不确定为什么不返回该字符）：

library(shiny)
library(rhandsontable)

ui <- fluidPage(
  rHandsontableOutput("table"),
  verbatimTextOutput("flag")
)

server <- function(input, output, session) {
  
  # flag for numeric values
  is_table_ok <- reactiveVal(FALSE)
  
  output$table <- renderRHandsontable(
    rhandsontable(mtcars)
  )
  
  observeEvent(input$table, {
    table_object <- hot_to_r(input$table)
    flag <- !is.na(table_object)
    flag <- purrr::reduce(flag, `&&`)
    is_table_ok(flag)
  })
  
  output$flag <- renderPrint({
    is_table_ok()
  })
}

shinyApp(ui, server)