Передача параметра в пользовательский рендер в rhandsontable не работает внутри Shiny App - PullRequest
Новая
       13

Передача параметра в пользовательский рендер в rhandsontable не работает внутри Shiny App

0 голосов
/ 15 февраля 2019

Мне нужно передать некоторые параметры в пользовательский 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)

Вот минимальное приложение Shiny, демонстрирующее, что оно не будет отображаться: 

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];

Как мы можем применить приведенный выше фрагмент кода кмоя проблема?

...