在 RHandsonTable 中启用注释但禁用上下文菜单？

Question

我想向我的 rhandsontable 添加评论，但我不想启用上下文菜单（允许用户添加和删除行、编辑评论等）。我该怎么做？

library(rhandsontable)

vt <- mtcars
modrows <- c(3,6,9)
modtext <- LETTERS[1:3]
vttooltips <- matrix(ncol = ncol(vt), nrow = nrow(vt))
vttooltips[modrows, 2] <- modtext

rhandsontable(vt, 
              comments = vttooltips) %>% 
  hot_context_menu(allowRowEdit = FALSE, allowColEdit = FALSE, 
                   allowReadOnly = FALSE, allowComments = TRUE, 
                   allowCustomBorders = FALSE, customOpts = list())

Answer 1

这是你想要的吗？

library(shiny)
library(rhandsontable)

vt <- mtcars
modrows <- c(3,6,9)
modtext <- LETTERS[1:3]
vttooltips <- matrix(ncol = ncol(vt), nrow = nrow(vt))
vttooltips[modrows, 2] <- modtext

shinyApp(
  ui = fluidPage(
    rHandsontableOutput('table')
  ),
  server = function(input, output) {
    tbl <- rhandsontable(vt, readOnly=TRUE,
                         comments = vttooltips)
    output$table <- renderRHandsontable(tbl)
  }
)

有更多关于组合 Rhandsontable 和 shiny 的信息here。

Answer 2

这是解决方案，感谢@DzimitryM https://github.com/jrowen/rhandsontable/issues/334

t <- rhandsontable(vt, 
              comments = vttooltips)
t$x$contextMenu <- list()
t

在 RHandsonTable 中启用注释但禁用上下文菜单？

enable comments in RHandsonTable but disable context menu?

r

shiny

rhandsontable