rhandsontable Rパッケージを使用したセルの数値検証

Question

"rhandsontable"に基づくテーブルが更新されたときに検証スキームを作成したいと思います。私は2つの列を持っています：MinとMaxと私は、列Maxのセルが更新されると、同じ行の前の列Minより大きい値で更新することができます。 hot_colsレンダラーを使用し、0より大きい減算などで検証することは可能かもしれませんが、一般的には "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

これは私が私のコメントでに言及されたものです。あなたはそれが複雑であるかもしれませんが、server side品質管理はrhandsontableのようになります。

この段階では、必要な最も複雑な機能を思いつくことができます。あなたはSQLが参加、またはdplyrまたはdata.table非エクイまたは参加するプライマリ/セカンダリを使用するように働くことができるさまざまなMERGE文を持っている可能性があり、これを行うために、より複雑な（しかし、おそらく、より効率的な）方法として

。

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) 

有用である場合はお知らせください。