Question

我希望在基于＆＃34; rhandsontable＆＃34;的表格时创建一个验证方案。已更新。我有两列：Min和Max，当我更新Max列中的一个单元格时，只有它允许更新，其值大于同一行中的前一列Min或者反之亦然。也许可以使用hot_cols渲染器并通过大于零的减法等进行验证，但我不熟悉＆＃34; rhandsontable＆＃34;或者＆＃34; hansontable＆＃34;总的来说虽然我认为这是可能的，但我不知道如何。谢谢。

玩具示例：

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

这就是我在评论中提到的。您可能会发现它很复杂，但server side这就是rhandsontable质量控制的样子。

在这个阶段，您可以自由地提出您需要的最复杂的功能。

作为一种更复杂（但可能更有效）的方法，您可以使用不同的合并语句，例如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)

如果有用，请告诉我。

使用rhandsontable R封装对细胞进行数值验证

1 个答案: