R/read_float.R

In barefootbiology/heyexr: Import, Transform and Visualize Optical Coherence Tomography Volumes in R

#' Read a float from a binary connection
#'
#' Reads 4 bytes in little Endian and converts to a float
#'
#' @param con a file connection
#'
#' @return a numeric
#'
#' @importFrom magrittr %>%
read_float <- function(con) {
    readBin(con = con, what = "raw",
            size = 1, n = 4,
            endian = "little") %>%
        readBin(what = "numeric",
                size = 4,
                endian = "little") %>%
        return()
}