0byt3m1n1
Path:
C:
/
Program Files
/
R
/
R-4.4.1
/
tests
/
[
Home
]
File: reg-IO.R
## NB: this file must be a DOS (CRLF) format file ## Keep comments and original formatting options(keep.source=TRUE) ## simple tests that multiple lines are read correctly print(2+3) print(4+5) ## generate some files to source z <- c("# line 1", "2+3", "ls()", "pi", "# last line") ## ======== LF file cat(z, file="testIO.R", sep="\n") readLines("testIO.R") source("testIO.R", echo=TRUE) unlink("testIO.R") ## ======== LF file, incomplete final line zz <- file("testIO.R", "wt") cat(z, file=zz, sep="\n") cat("5+6", file=zz) close(zz) readLines("testIO.R") source("testIO.R", echo=TRUE) unlink("testIO.R") ## ======== CRLF file cat(z, file="testIO.R", sep="\r\n") source("testIO.R", echo=TRUE) readLines("testIO.R") unlink("testIO.R") ## ======== CRLF file, incomplete final line zz <- file("testIO.R", "wt") cat(z, file=zz, sep="\r\n") cat("5+6", file=zz) close(zz) readLines("testIO.R") source("testIO.R", echo=TRUE) unlink("testIO.R") ## ======== CR file cat(z, file="testIO.R", sep="\r") readLines("testIO.R") source("testIO.R", echo=TRUE) unlink("testIO.R") ## ======== CR file, incomplete final line zz <- file("testIO.R", "wt") cat(z, file=zz, sep="\r") cat("\r5+6", file=zz) close(zz) readLines("testIO.R") source("testIO.R", echo=TRUE) unlink("testIO.R") ## end of reg-IO.R: the next line has no EOL chars 2 + 2