## Save the 'penguins' dataset in a (temporary) file
filename <- tempfile(fileext = '.csv')
pwrite.csv(penguins, file = filename)
## check first few lines of the raw file
writeLines(readLines(filename, n = 10))
Run the code above in your browser using DataLab