如何使用Save
到CSV
扩展名保存RStudio Shiny DataTables表的输出,但保存的内容不带引号,而不是使用双引号的默认值:
例如,对于一个有两个条目的单列,我得到一个file.csv
,如下所示:
"column_name"
"foo"
"bar"
相反,我想:
column_name
foo
bar
或者更好,没有标题:
foo
bar
我当前的代码如下:
output$mytable <- renderDataTable({
entries()
}, options = list(colnames = NULL, bPaginate = FALSE,
"sDom" = 'RMDT<"cvclear"C><"clear">lfrtip',
"oTableTools" = list(
"sSwfPath" = "copy_csv_xls.swf",
"aButtons" = list(
"copy",
"print",
list("sExtends" = "collection",
"sButtonText" = "Save",
"aButtons" = list("csv","xls")
)
)
)
)
)
编辑:
我尝试了其中一个建议的答案,但不允许使用ajax
,当我单击SaveTXT时,页面会抱怨。如果我做了以下操作,它仍然会把事情放在双引号内:
list("sExtends" = "collection",
"sButtonText" = "SaveTXT",
"sFieldBoundary" = '',
"aButtons" = list("csv")
有什么想法吗?
应该可以通过按钮选项:按钮选项
并改变CCD_ 5值。
$(document).ready( function () {
$('#example').dataTable( {
"sDom": 'T<"clear">lfrtip',
"oTableTools": {
"aButtons": [
{
"sExtends": "ajax",
"sFieldBoundary": '"'
}
]
}
} );
} );
但我无法让它在闪亮的环境中工作。