Question

我需要将一些参数传递到自定义rhandsontable渲染器中。在RStudio中执行时可以正常工作，但在Shiny App中使用时不会呈现任何内容。

这是设置粗体字体的自定义渲染器的代码：

renderSheet <- function(df, bold) {
    rhandsontable(
        df,
        col_bold = bold$col,
        row_bold = bold$row) %>%  
    hot_cols(renderer = "
        function(instance, td, row, col, prop, value, cellProperties) {
          Handsontable.renderers.TextRenderer.apply(this, arguments);

          tbl = this.HTMLWidgets.widgets[0]

          col_bold = tbl.params.col_bold
          col_bold = col_bold instanceof Array ? col_bold : [col_bold] 
          row_bold = tbl.params.row_bold
          row_bold = row_bold instanceof Array ? row_bold : [row_bold] 

          if (col_bold.includes(col) && row_bold.includes(row)) {
            td.style.fontWeight = 'bold';
          }

          return td;
    }"
    ) }

以下是在RStudio中运行它的方法：

df = data.frame(a = c("a1", "a2"), b = c("b1", "b2"))
bold <- data.frame(row = c(1, 1), col = c(0, 1))
renderSheet(df, bold)

这是一个最小的闪亮应用程序，用于演示它不会呈现：

library(rhandsontable) 
library(shiny)

df = data.frame(a = c("a1", "a2"), b = c("b1", "b2"))
bold <- data.frame(row = c(1, 1), col = c(0, 1))


ui <- shinyUI(fluidPage(  
    rHandsontableOutput("hot") 
))

server <- shinyServer(function(input, output, session) {           

    output$hot = renderRHandsontable({
        renderSheet(df, bold)   
    }) 
})

shinyApp(ui, server)

在Shiny应用程序内部导致问题的行是tbl = this.HTMLWidgets.widgets[0]，我不知道如何解决。

是否有将参数传递到自定义渲染器中的其他方法？

注意：rhandsontable的帮助页面指出，在Shiny应用程序中，我们必须小心，但是我无法使用帮助页面（jrowen.github.io/rhandsontable/#custom_renderer）中提供的代码段

HTMLWidgets.widgets.filter(function(widget) {
  // this should match the table id specified in the shiny app
  return widget.name === "hot"
})[0];

如何将以上代码片段应用于我的问题？

将参数传递到Rhandsontable中的自定义渲染器无法在Shiny App中使用

0 个答案: