data <- data.frame(x = 1:3, y = letters[1:3])
# Write as CSV
tabular_write(data, tempfile(fileext = ".csv"), format = "csv")
# Write as Excel
tabular_write(data, tempfile(fileext = ".xlsx"), format = "xlsx")
# Write as SPSS
tabular_write(data, tempfile(fileext = ".sav"), format = "sav")
Run the code above in your browser using DataLab