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()) {
  options <- validate_options(options)

  if (!inherits(archive, "connection")) {
    file <- file(file)
  }

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

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