R/load_annovar_file.R

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

load_annovar_file <- function(file = NULL, colheader=get_annovar_colnames()) {
  if (is.null(file)) stop("Mandatory argument file is missing")

  data <- read.table(
    file = file,
    header = FALSE,
    as.is = TRUE,
    sep = "\t",
    quote = "\"",
    skip = 1
  )
  colnames(data) <- colheader
  return(data)
}