cat("TITLE extra line", "2 3 5 7", "", "11 13 17", file = "ex.data",
sep = "\n")
readLines("ex.data", n = -1)
unlink("ex.data") # tidy up
## difference in blocking
cat("123\nabc", file = "test1")
readLines("test1") # line with a warning
con <- file("test1", "r", blocking = FALSE)
readLines(con) # empty
cat(" def\n", file = "test1", append = TRUE)
readLines(con) # gets both
close(con)
unlink("test1") # tidy up
## Not run: ------------------------------------
# # read a 'Windows Unicode' file
# A <- readLines(con <- file("Unicode.txt", encoding = "UCS-2LE"))
# close(con)
# unique(Encoding(A)) # will most likely be UTF-8
## ---------------------------------------------
Run the code above in your browser using DataLab