# NOT RUN {
results_csv <- tempfile("results", fileext = ".csv")
x <- data.frame(a = 1:3, b = 4:6)
add2csv(x, file = results_csv)
add2csv(x*10, file = results_csv)
add2csv(x*100, file = results_csv)
read.csv(file = results_csv)
# }
Run the code above in your browser using DataLab