R/get_read_depth.R

In Bio-Core/BioCore.Annotation: BioCore Variant Annotation Package

Defines functions get_read_depth

Documented in get_read_depth

get_read_depth <- function(data=NULL, delimiter=':', depth_index=4) {
  if (is.null(data)) stop("Mandatory argument data is missing")

  return(as.numeric(unlist(strsplit(x = data, split = delimiter))[depth_index]))
}