如何在 rhandsontable 中将逻辑值显示为 UI 上的复选框

Question

我有一个问题是如何在 UI 上将 rhandsontable 中的逻辑值显示为复选框。这是最初来自 (https://cran.r-project.org/web/packages/rhandsontable/vignettes/intro_rhandsontable.html).

的代码

library(rhandsontable)

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;
  }")

如您所见，bool 列未显示为复选框ex，它们也不可编辑。有谁知道如何 (1) 将逻辑列显示为 UI 上的复选框，以及 (2) 如何使该列可编辑？我们将不胜感激您的任何意见。

Answer 1

这是因为您不能使用文本渲染器来渲染布尔值。您需要改用 CheckboxRenderer。修复方法如下：

library(rhandsontable)

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) {
    console.log(typeof value)
      if(typeof value === 'boolean') {
         Handsontable.renderers.CheckboxRenderer.apply(this, arguments);
      } else {
        Handsontable.renderers.TextRenderer.apply(this, arguments);
      }
     
      
      tbl = this.HTMLWidgets.widgets[0]
      console.log(value)
      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;
  }")

如何在 rhandsontable 中将逻辑值显示为 UI 上的复选框

How to show logical values in rhandsontable as the check boxes on UI

r

shiny

rhandsontable