# \donttest{
# Create a temporary binary file
tmp <- tempfile()
writeBin(rnorm(100), tmp, size = 8)
# Read from existing connection with offset
con <- file(tmp, "rb")
reader <- BinaryReader(con, byte_offset=0,
data_type = "DOUBLE", bytes_per_element = 8L)
close(reader)
# Clean up
unlink(tmp)
# }
Run the code above in your browser using DataLab