Question

如何使用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")

有什么想法吗？

Answer 1

应该可以通过按钮选项：Button options
并更改sFieldBoundary值。

$(document).ready( function () {
    $('#example').dataTable( {
        "sDom": 'T<"clear">lfrtip',
        "oTableTools": {
            "aButtons": [
                {
                    "sExtends": "ajax",
                    "sFieldBoundary": '"'
                }
            ]
        }
    } );
} );

但我无法让它在闪亮的工作中发挥作用。

RStudio闪亮的数据表保存csv unquoted？

1 个答案: