使用Rhosontable R封装对单元进行数值验证

Question

当基于“ rhandsontable”的表更新时，我想创建一个验证方案。 我有两列：Min和Max，我希望在更新Max列中的单元格时，只允许其值大于同一行中前一列Min的值，反之亦然。 也许可以使用hot_cols渲染器并通过大于零的减法来进行验证，依此类推。但是，尽管我认为这是可能的，但我总体上并不熟悉“ rhandsontable”或“ hansontable”，但我不知道如何。 谢谢。

玩具示例：

library(shiny)
library(rhandsontable)

if (interactive()) {

ui <- fluidPage(
   rHandsontableOutput('table'),
   tableOutput('table1')
)

server <- function(input, output,session) {
values <- reactiveValues(df=data.frame(Parameter=c('A','B','C'),Min=c(10,20,30),Max=c(20,30,40)))
observe({
  if(!is.null(input$table)){
    values$df <- hot_to_r(input$table)
    output$table1<-renderTable(values$df)
    }
})
output$table<-renderRHandsontable({ 
  rhandsontable(values$df)%>%
  hot_col("Parameter", readOnly = TRUE)%>%
  hot_validate_numeric(col='Min', min = 1, max = 50,allowInvalid = FALSE)%>%
  hot_validate_numeric(col='Max', min = 1, max = 50,allowInvalid = FALSE)
})
}
shinyApp(ui, server)
}

Answer 1

这就是我在评论中所指的内容。 您可能会发现它很复杂，但这就是使用rhandsontable server side质量控制的样子。

在此阶段，您可以自由提出所需的最复杂的功能。

作为一种更复杂（但可能更有效）的方法，您可以使用不同的merge语句，这些语句可以像SQL连接一样工作，或者使用dplyr或data.table非等值连接或主/辅助连接。

library(shiny)
library(rhandsontable)

ui <- fluidPage(column(6, 
   rHandsontableOutput('table')),
   column(6, tableOutput('table1'))
)

server <- function(input, output,session) {

df <- eventReactive( input$table,  {
  if (is.null(input$table))  {

        dfOld <<- df <- data.frame(Parameter=c('A','B','C'),Min=c(10,20,30),Max=c(20,30,40))

    } else {
        df <- hot_to_r(input$table)
        #  Quality control 
        # Rule 1:  
        if( any(df$Max > 9) & any(df$Min < 3) ) {
          df$Max <- dfOld$Max
          df$Min <- dfOld$Min
        } }
    dfOld <<- df
    df
  }, ignoreNULL = F)

output$table<-renderRHandsontable({ 

  if (is.null(df())) return()
  rhandsontable(df())%>%
  hot_col("Parameter", readOnly = TRUE)%>%
  hot_validate_numeric(col='Min', min = 1, max = 50,allowInvalid = FALSE)%>%
  hot_validate_numeric(col='Max', min = 1, max = 50,allowInvalid = FALSE)
})
}

shinyApp(ui, server)

请让我知道是否有用。