R/file_read.R

In archive: Multi-Format Archive and Compression Support

#' @rdname file_connections
#' @export
file_read <- function(file, mode = "r", filter = NULL, options = character(), password = NA_character_) {
  options <- validate_options(options)

  if (!inherits(file, "connection")) {
    # `raw = TRUE` disables R's own magic-number detection
    file <- file(file, raw = TRUE)
  }

  description <- glue::glue("file_read({desc})", desc = summary(file)$description)

  archive_read_(file, 1L, description, mode, archive_formats()["raw"], archive_filters()[filter], options, c(password), sz = 2^14)
}