https://github.com/cran/pkgdown
Tip revision: 74b598025322cd572dcd58326f0c5fb465f503ab authored by Hadley Wickham on 23 June 2022, 13:00:02 UTC
version 2.0.5
version 2.0.5
Tip revision: 74b5980
utils-io.R
# Reading -----------------------------------------------------------------
read_file <- function(path) {
lines <- read_lines(path)
paste0(lines, "\n", collapse = "")
}
# Inspired by roxygen2 utils-io.R (https://github.com/klutometis/roxygen/) -----------
readLines <- function(...) stop("Use read_lines!")
writeLines <- function(...) stop("Use write_lines!")
read_lines <- function(path, n = -1L) {
base::readLines(path, n = n, encoding = "UTF-8", warn = FALSE)
}
write_lines <- function(text, path) {
base::writeLines(enc2utf8(text), path, useBytes = TRUE)
}
# Other -------------------------------------------------------------------
file_equal <- function(src, dst) {
if (!file_exists(dst))
return(FALSE)
src_hash <- digest::digest(file = src, algo = "xxhash64")
dst_hash <- digest::digest(file = dst, algo = "xxhash64")
identical(src_hash, dst_hash)
}