4

在客户端用户对其进行编辑后，我想更改可操作单元格的背景颜色。Handsontable 是通过 Shiny 应用程序定义的；所以这确实是一个关于如何在 Shiny 应用程序的 rHandsontable 中定义事件挂钩的问题。我试图完成的一般用例是：用户编辑单元格数据；背景颜色更改以指示它已更改并且正在等待保存到数据库；更改将传递回 Shiny'sobserveEvent(); 更改被发送到外部数据库并保存；rHandsontable 使用默认背景颜色在输出上重新绘制，删除颜色集作为更改。结果是闪烁表示数据已保存。如果出现数据库连接错误或其他问题，颜色将持续存在，表示数据未保存。我已经能够完成一个工作示例，粘贴在下面。

具体问题：钩子目前是使用实现的hot_col(1,renderer=change_hook)，但这不是关于渲染单元格，只是一种允许添加钩子的方式。我假设hot_table()是正确的功能，但它可以用来注册事件吗？更一般地说，是否有更内置的方法来实现这一点？

change_hook <- "
  function(instance, td, row, col, prop, value, cellProperties) {
Handsontable.hooks.add('afterChange', function(changes,source) { 
  if (source === 'edit' || source === 'undo' || source === 'autofill' || source === 'paste') {
    row = changes[0][0];
    col = changes[0][1];
    oldval = changes[0][2];
    newval = changes[0][3];

    if (oldval !== newval) {
      cell = this.getCell(row,col);
      cell.style.background = 'pink';
    }
  }
},instance);
Handsontable.renderers.TextRenderer.apply(this, arguments);
}"

ui <- div(width=300,rHandsontableOutput(outputId="hTable"))
server <- function(input, output, session) {

df<-data.frame(col1=c("Hands","on","Table"),col2=c(100,200,300),stringsAsFactors = F)
hTable <- reactiveVal(df)

observeEvent(input$hTable, {
withProgress(message = "Saving changes to database...", value=0.5, {

  Sys.sleep(1)

  incProgress(1, detail = "done")    
  input_hTable <- hot_to_r(input$hTable)
  hTable(input_hTable)
})
})

output$hTable <- renderRHandsontable({
rhandsontable(hTable(),stretchH="all",height=300) %>%
  hot_col(1,renderer=change_hook)
})
}
shinyApp(ui, server)
4

2 回答 2

2

下面的代码在用户编辑 rhandsontable 单元格后更改其背景颜色。

library(shiny)
library(rhandsontable)

ui <- fluidPage(
titlePanel ('Give it a try and make changes!'),
mainPanel(rHandsontableOutput('table'))
)

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

df <- data.frame(SYMBOLS = c('AAPL', 'ALRM', 'AMZN', 'BABA', 'CRM', 'CSCO', 
                             'FB'),
                 NAMES = c('APPLE', 'ALARM.com', 'AMAZON', 'ALIBABA', 
                           'SALESFORCE', 'CISCO', 'FACEBOOK'),
                 NOTE = c('sale', '', 'buy', '', '', '', 'watch'))

output$table <- renderRHandsontable(
    rhandsontable(df))

rv <- reactiveValues(row = c(), col = c())

observeEvent(input$table$changes$changes, {
    
    rv$row <- c(rv$row, input$table$changes$changes[[1]][[1]])
    rv$col <- c(rv$col, input$table$changes$changes[[1]][[2]])
    
    output$table <- renderRHandsontable({
        rhandsontable(hot_to_r(input$table), row_highlight = rv$row, 
                      col_highlight = rv$col) %>% 
            hot_cols(
                renderer = "
                 function(instance, td, row, col, prop, value, cellProperties) {
                 Handsontable.renderers.TextRenderer.apply(this, arguments);

                 if (instance.params) {
                 hrows = instance.params.row_highlight;
                 hrows = hrows instanceof Array ? hrows : [hrows];
                 
                 hcols = instance.params.col_highlight;
                 hcols = hcols instanceof Array ? hcols : [hcols];
                 }

                 for (let i = 0; i < hrows.length; i++) {
                    if (instance.params && hrows[i] == row && hcols[i] == col) {
                    td.style.background = 'pink';
                    }}
                 }"
                )
            })
        })
}

shinyApp(ui, server)

每改变一个单元格，

  1. 此单元格的行索引 ( input$table$changes$changes[[1]][[1]]) 和它的列索引 ( input$table$changes$changes[[1]][[2]]) 分别附加到反应变量rv$row和rv$col，
  2. rHandsontable 使用反应变量 ( rv) 再次呈现，该变量包括到目前为止已更改的所有单元格的索引，最后，
  3. javascript 渲染器中的for循环一次遍历rv表中所有列和行中的所有索引。如果行索引和列索引都匹配，则此单元格的背景颜色将更改为粉红色。
于 2020-10-24T22:24:08.200 回答
1

搜索了一段时间后，我使用了这些页面（handsontable、htmlwidgets）中的信息来更改已编辑单元格的背景颜色。

在 afterChange 函数中，将保留所有已更改单元格的列表。在 afterRender 函数中，这些单元格的背景颜色将更改为黄色。在 afterLoadData 函数中，改变单元格的背景颜色将被重置为白色并被清空。

library(shiny)
library(rhandsontable)

change_hook <- "function(el,x) {
var hot = this.hot;  
var cellChanges = [];

var changefn = function(changes,source) { 
if (source === 'edit' || source === 'undo' || source === 'autofill' || source === 'paste') {
row = changes[0][0];
col = changes[0][1];
oldval = changes[0][2];
newval = changes[0][3];

if (oldval !== newval) {
  var cell = hot.getCell(row, col);
  cell.style.background = 'pink';
  cellChanges.push({'rowid':row, 'colid':col});
}
}
}

var renderfn = function(isForced) {

for(i = 0; i < cellChanges.length; i++)
{

var rowIndex = cellChanges[i]['rowid'];
var columnIndex = cellChanges[i]['colid'];

var cell = hot.getCell(rowIndex, columnIndex);
cell.style.background = 'yellow';

}


}

var loadfn = function(initialLoad) {

for(i = 0; i < cellChanges.length; i++)
    {
      var rowIndex = cellChanges[i]['rowid'];
      var columnIndex = cellChanges[i]['colid'];

      var cell = hot.getCell(rowIndex, columnIndex);

      cell.style.background = 'white';

    }
cellChanges = []

}


hot.addHook('afterChange', changefn);
hot.addHook('afterRender', renderfn);
hot.addHook('afterLoadData', loadfn);


}  "


ui <- div(actionButton(inputId = "reset_button",label = "Reset")
          ,rHandsontableOutput(outputId="hTable"))


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

  df<-data.frame(col1=c("Hands","on","Table"),col2=c(100,200,300),stringsAsFactors = F)
  reset <- reactiveVal(0)
  hTable <- reactiveVal(df)

  output$hTable <- renderRHandsontable({
    r = reset()
    rht = rhandsontable(hTable(),reset=r,stretchH="all",height=300)%>%
      hot_col('col1',readOnly=T)
    reset(0)
    htmlwidgets::onRender(rht,change_hook)
  })

  observeEvent(input$reset_button,
               {
                 reset(1)
               })
}

shinyApp(ui, server)
于 2019-09-26T00:01:45.077 回答