使用数据框时如何解决“coerceValue”错误？

Question

 shinyApp(
  ui = fluidPage(
    DTOutput('x1')
  ),
  server = function(input, output, session) {
    x = iris
    output$x1 = renderDT(x, selection = 'none', editable = list(target = 'row', disable = list(columns=c(1,3,4))))

    proxy = dataTableProxy('x1')

    observeEvent(input$x1_cell_edit, {
      info = input$x1_cell_edit
      str(info)
      i = info$row
      j = info$col
      v = info$value
      x[i, j] <<- DT::coerceValue(v, x[i, j])
      replaceData(proxy, x, resetPaging = FALSE)  # important
    })
  }
)

我收到以下警告：

Warning in DT::coerceValue(v, x[i, j]) :
  The data type is not supported: data.frame

Warning: Error in [[: attempt to select less than one element in integerOneIndex

如何确保 coerceValue 正在编辑和保存我的新输入？

Answer 1

快速提问：您似乎使用了here 中的大部分示例，但不是全部。这有什么原因吗？您可以使用那里的代码，如下所示，更简单：

library(shiny)
library(DT)
shinyApp(
    ui = fluidPage(
        DTOutput('x1')
    ),
    server = function(input, output, session) {
        x = iris
        output$x1 = renderDT(x, selection = 'none', editable = list(target = 'cell', disable = list(columns=c(1,3,4))))

        proxy = dataTableProxy('x1')

        observeEvent(input$x1_cell_edit, {
            info = input$x1_cell_edit
            str(info)
            x <<- editData(x, info)
            replaceData(proxy, x, resetPaging = FALSE)  # important
        })
    }
)

PS：Stéphane Laurent 提到的 target = "cell"。