Bug no. 1 (bonus content)

[AndrzejRomaniuk]

In app.R in bonus code:

output$downloadData <- downloadHandler(
filename = function(){
paste("results.txt")
},
content = function(file) {
writeLines(paste(capture.output( {SummaryData()} )), file)
}
)

successfully creates a populated output only if SummaryData() contains summary() function results.
Else, if print() is used to provide infromation, it simply creates an empty file.

Checked capture.output(), but it seems both outputs are in fact captured.
paste() also seems to be working.

if so, most likely the issue is writeLines() function, but alternatives seems not to work at all.

Keep the issue opened.