【发布时间】:2019-03-02 07:53:00
【问题描述】:
我有一个 Shiny Server 应用程序,用户可以在其中编辑数据表,之后会相应地更新一些反应性摘要统计信息。我在一个相当慢的框架上托管这个应用程序,这就是为什么我想使用客户端处理进行 DT 渲染,即 server = F 传递给 DT::renderDataTable。让我分解一下我的问题的要点:
当
server = T被传递时,代码完全可操作。传递
server = F时,当用户编辑DT中的单元格时,浏览器会抛出以下错误消息:
DataTables 警告:表 id=DataTables_Table_5 - JSON 无效 回复。有关此错误的更多信息,请参阅 http://datatables.net/tn/1
有趣的是,当这个错误窗口被关闭时,依赖的摘要统计信息会根据编辑正确更新,Shiny 应用程序会继续。因此,除了错误之外,一切正常。我应该注意,我访问了错误中提到的网站,却没有变得更聪明。
下面的可重现示例:
library(shiny)
library(DT)
dt = data.frame(V1 = c(1,2), V2 = c(3,4))
server <- function(input, output, session) {
val = reactiveValues(mat = data.table(dt))
output$testDT = renderDataTable({
DT::datatable(val$mat, editable = TRUE)
}, server = FALSE)
proxy = dataTableProxy('testDT')
observeEvent(input$testDT_cell_edit, {
info = input$testDT_cell_edit
str(info)
i = info$row
j = info$col
v = info$val
if (j == 1){
val$mat$V1[i] = DT::coerceValue(v, val$mat$V1[i])
replaceData(proxy, val$mat, rownames = FALSE)
}
})
}
ui <- fluidPage(
dataTableOutput('testDT')
)
shinyApp(ui, server)
谢谢!
【问题讨论】:
标签: r json shiny shiny-server dt