Question

我正在尝试在Shiny应用程序中使用Rhandsontable来制作一个8x12表，该表将用作与97列数据帧匹配的输入。表中的每个单元格对应于数据帧中的1列（x轴为-1）。

这是我目前的测试代码：

server <- function(input, output) {

  mat = matrix(, nrow=8, ncol=12, dimnames= list(LETTERS[1:8],1:12))

  output$table = renderRHandsontable({
    rhandsontable(mat, readOnly = T, selectCallback = T) %>% 
      hot_cols(colWidths=22) %>%
      hot_context_menu(allowRowEdit = FALSE, allowColEdit = FALSE)
  })

  output$selected=renderPrint({
    cat('Selected Row:',input$table_select$select$r)
    cat('\nSelected Column:',input$table_select$select$c)
    cat('\nSelected Cell Value:',input$table_select$data[[input$table_select$select$r]][[input$table_select$select$c]])
    cat('\nSelected Range: R',input$table_select$select$r,'C',input$table_select$select$c,':R',input$table_select$select$r2,'C',input$table_select$select$c2,sep="")
  })

}

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(width=5,
                 rHandsontableOutput("table"),
                 verbatimTextOutput("selected")
    ),
    mainPanel(

    )
  )
)

shinyApp(ui,server)

这适用于基于班次点击的多重选择，整行，整列和单个单元格的选择。但是，我需要能够在标准的cntrl + click方式中选择不连续的单元格块。这在rhandsontable包中不可行吗？我找不到任何关于它的文档，也无法在SO上找到任何其他内容。关于哪些包/工具可以实现这一目标的帮助或建议将不胜感激。

在闪亮的应用程序中Rhandsontable非连续细胞选择

0 个答案: