【发布时间】:2019-08-20 19:05:40
【问题描述】:
我无法弄清楚我的问题是什么。下面的代码不起作用,数据表卡在显示Processing... 并带有浏览器控制台警告:
"加载资源失败:服务器响应状态为400 (错误请求)”
在服务器上:
output$dt <- DT::renderDataTable({
dtdf <- data1()[,-13:-14] %>%
mutate(Action = paste('<a class="go-map" href="" data-lat="', Latitude, '" data-long="', Longitude, '" data-zip="', ID, '"><i class="glyphicon glyphicon-pushpin"></i></a>', sep=""))
action <- DT::dataTableAjax(session, dtdf)
DT::datatable(dtdf, extensions = 'Buttons', options = list(ajax = list(url = action), dom = 'Bfrtip', buttons = c('excel', 'pdf'), pageLength = 25, columnDefs = list(list(className = 'dt-center', targets ="_all"))), escape = FALSE)
})
在用户界面上:
DT::dataTableOutput("dt")
只需更改为选项server=FALSE,如下所示,即可按预期工作。但是,我的数据集太大而无法禁用服务器端处理。
output$dt <- DT::renderDataTable({
dtdf <- data1()[,-13:-14] %>%
mutate(Action = paste('<a class="go-map" href="" data-lat="', Latitude, '" data-long="', Longitude, '" data-zip="', ID, '"><i class="glyphicon glyphicon-pushpin"></i></a>', sep=""))
action <- DT::dataTableAjax(session, dtdf)
DT::datatable(dtdf, extensions = 'Buttons', options = list(ajax = list(url = action), dom = 'Bfrtip', buttons = c('excel', 'pdf'), pageLength = 25, columnDefs = list(list(className = 'dt-center', targets ="_all"))), escape = FALSE)
}, server = FALSE)
我做错了什么?
【问题讨论】:
标签: r shiny datatables