在Shiny中使用多个Rhandsontable小部件

Question

在介绍Rhandsontable之后，我尝试使用以下代码为我的rHandsontableOutput widgtes中的某些行着色：

DF = data.frame(val = 1:10, bool = TRUE, big = LETTERS[1:10],
            small = letters[1:10],
            dt = seq(from = Sys.Date(), by = "days", length.out = 10),
            stringsAsFactors = FALSE)
col_highlight = 2
row_highlight = c(5, 7)
rhandsontable(DF, col_highlight = col_highlight, 
          row_highlight = row_highlight,
          width = 550, height = 300) %>%
 hot_cols(renderer = "
   function(instance, td, row, col, prop, value, cellProperties) {
  Handsontable.renderers.TextRenderer.apply(this, arguments);

  tbl = this.HTMLWidgets.widgets[0]

  hcols = tbl.params.col_highlight
  hcols = hcols instanceof Array ? hcols : [hcols] 
  hrows = tbl.params.row_highlight
  hrows = hrows instanceof Array ? hrows : [hrows] 

  if (hcols.includes(col) && hrows.includes(row)) {
    td.style.background = 'red';
  }
  else if (hcols.includes(col)) {
    td.style.background = 'lightgreen';
  }
  else if (hrows.includes(row)) {
    td.style.background = 'pink';
  }

  return td;
 }")

这在Rstudio中工作得很好。但是，如引言中所述：

在闪亮的应用程序或具有多个小部件的文档中使用此方法时，小部件搜索逻辑将需要更强大。

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

我的问题是如何将其纳入我的代码中？

非常感谢。