rhandsontable R 패키지를 사용하여 셀의 수치 검증

Question

"rhandsontable"을 기반으로하는 테이블을 업데이트 할 때 유효성 검사 체계를 만들고 싶습니다. 저는 두 개의 컬럼을 가지고 있습니다 : 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

이것은 내가 내 댓글에 언급 된 것입니다. 복잡한 것을 발견 할 수도 있지만 품질 관리는 rhandsontable과 같습니다.

이 단계에서 필요한 가장 복잡한 기능을 자유롭게 구상 할 수 있습니다. 당신이 dplyr 또는 data.table 비 동등 또는 1 차/2 차 조인을 SQL처럼 작동 가입, 또는 사용할 수있는 다른 병합 문을 가질 수이 할 수있는 더 복잡한 (하지만 아마도 더 효율적으로) 방법으로

.

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) 

유용한 경우 알려주십시오.