Создайте .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 предоставить мне с этим форматом. Они оба помещают заголовки столбцов (Age, Sex, Size) в верхней части страницы. Также, когда я просматриваю csv в Excel, первая ячейка отображает только «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'