2 ## simple 0d 0a -> 0a converter to suppress a warning on Windows
4 filename <- commandArgs(trailingOnly=TRUE)[1]
5 if (!file.exists(filename)) q()
7 con <- file(filename, "rb")
8 bin <- readBin(con, raw(), 100000)
9 bin <- bin[ which(bin != "0d") ]
14 con <- file(filename, "wb")