我正在尝试使用DataTables的TableTools扩展来获取一个工具栏,其中包含我的Shiny App中表格上方的复制,保存,打印和其他选项。
这是我的服务器.R:
output$table <- DT::renderDataTable({
DT::datatable(datasetInput(),extensions = 'TableTools',options = list(
"sDom" = 'T<"clear">lfrtip',
"oTableTools" = list(
"sSwfPath" = "//cdnjs.cloudflare.com/ajax/libs/datatables-tabletools/2.1.5/swf/copy_csv_xls.swf",
"aButtons" = list(
"copy",
"print",
list("sExtends" = "collection",
"sButtonText" = "Save",
"aButtons" = c("csv","xls")
))
)
))
})
这是输出:
如您所见,没有复制按钮。此外,当我点击“保存”按钮时,它下面会出现一个小条,屏幕变灰,但接下来没有任何反应。
仅当我尝试使用Run in Window
(R Studio)运行应用时才会发生这种情况。如果我在Chrome中将其作为External
运行,那么就没有任何问题。任何帮助将非常感激。谢谢!