RosettaCodeData/Task/File-input-output/R/file-input-output-1.r

src <- file("input.txt", "r")
dest <- file("output.txt", "w")

fc <- readLines(src, -1)
writeLines(fc, dest)
close(src); close(dest)