使用前几行中的源/版权信息创建.csv或.txt，以便从闪亮中导出

Question

我正在创建一个闪亮的应用程序供人们下载我们的研究结果。我已经设置了闪亮的内容，供用户创建自己的数据库和下载按钮，以返回结果的csv。但是，我需要在输出的csv文件的顶部包含一些版权信息，理想情况如下：

Source: Data from us.
Copyright: Us.

Age   Sex      Size  
1     Male     10
2     Male     4
[...more rows...]
100   Female   1 

我很难让write.table或write.csv向我提供此格式。他们都将列标题（年龄，性别，大小）放在页面顶部。此外，当我在Excel中查看csv时，第一个单元格仅显示“Source：D”。当我在na=" "

中使用write.csv时，我似乎无法将文字继续转到下一个空单元格

Answer 1

您应该使用文件连接。对于content内的downloadHandler子，这类似的东西：

content = function(filename) {
  fh <- file(filename, "w")
  cat(copyright_str, file = fh)
  write.csv(data, fh, row.names = FALSE)
  close(fh)
}

，其中

copyright_str <- '"Source: Data from us."\n"Copyright: Us."\n\n'