if (FALSE) {
## Create a file. NOTE: The line endings from writeLines gives
## LF (line feed) on Unix/Linux and CRLF (carriage return, line feed)
## on Windows. The example use writeChar to have more control.
path <- tempfile()
f <- file(path, "wb")
writeChar("Hello, world!\n", f, eos = NULL)
close(f)
## Generate hash
hashfile(path)
identical(hashfile(path), hash("Hello, world!\n"))
}
Run the code above in your browser using DataLab