R/calc_parameter_chunk_size.R

In opusreader2: Read Spectroscopic Data from Bruker OPUS Binary Files

#' Calculate the parameter chunk size in bytes
#' @param ds data set with one of classes `"parameter"`, `"text"` or "`data`"
#' @return Number of bytes as length 1 numeric vector
#' @keywords internal
#' @export
calc_parameter_chunk_size <- function(ds) UseMethod("calc_parameter_chunk_size")

#' @keywords internal
#' @export
calc_parameter_chunk_size.default <- function(ds) {
  return(ds)
}


#' @keywords internal
#' @export
calc_parameter_chunk_size.parameter <- function(ds) {
  ds$chunk_size <- calc_chunk_size(ds)
  return(ds)
}

#' @keywords internal
#' @export
calc_parameter_chunk_size.text <- function(ds) {
  ds$chunk_size <- calc_chunk_size(ds)
  return(ds)
}

#' @keywords internal
#' @export
calc_parameter_chunk_size.data <- function(ds) {
  return(ds)
}

#' calculate the full chunk size
#' @param ds dataset
#' @keywords internal
calc_chunk_size <- function(ds) {
  chunk_size <- ds$next_offset - ds$offset
  return(chunk_size)
}