Download data

result <- summary(data) # Write the results to a file write.table(result, file = "result.txt") # Allow the user to choose a file name and location for downloading download.file(file.choose(), "result.txt", overwrite = TRUE)