7 lines
133 B
R
7 lines
133 B
R
|
src <- file("input.txt", "r")
|
||
|
|
dest <- file("output.txt", "w")
|
||
|
|
|
||
|
|
fc <- readLines(src, -1)
|
||
|
|
writeLines(fc, dest)
|
||
|
|
close(src); close(dest)
|