表不保留列

【问题标题】：Table not retaining columns表不保留列
【发布时间】：2020-04-05 17:46:35
【问题描述】：

我可以将我的结果表下载为 csv，但是没有列。所有数据都只是在一列中，因此它失去了下载的有用性。如何在下载中保留结构和标题？

output$Table <- 
    renderTable(
      myData() %>% 
        mutate(searchmatch <- str_extract(DocumentText, paste0("([^\\s]+\\s){50}",input$SearchPhrase,"(\\s[^\\s]+){50}"))) %>%
        select(-AHEADER,-AHEADER)
    )

  output$DownloadResults<-downloadHandler(
    filename = function(){"queryresults.csv"},
    content = function(queryresults){
      write.csv(myData(),queryresults)
    }
  )

出于发布目的，我已将标题名称替换为 AHEADER

【问题讨论】：

标签： r csv shiny dplyr

【解决方案1】：

不要使用write.csv，而是使用write.table 并指定sep 参数。根据您的系统，您可能需要sep = ","、sep = ";" 甚至其他东西。

如果您愿意，还可以使用 open.xlsx 包将输出另存为 xslx：只需使用

content  = function(file) {
      openxlsx::write.xlsx(myData(), file, creator = "Your_Name")
    }

【讨论】：