R/read_binary.R

In rscherrer/speciomer: Import Speciome Data into R

#' Read a binary file
#'
#' @param filename Path to the file
#' @param nbytes The number of bytes constituting one value (e.g. 8 bytes
#' for a double)
#'
#' @return A numeric vector
#'
#' @examples
#'
#' root <- system.file("extdata", "sim-example", package = "speciomer")
#' read_binary(paste0(root, "/time.dat"))
#'
#' @export

read_binary <- function(filename, nbytes = 8) {

  # Number of values to read
  n <- file.size(filename) / nbytes

  file <- file(filename, "rb")
  data <- readBin(file, numeric(), n)
  close(file)

  return (data)

}