R/hsvdrg_data.R

In ojcharles/hsvdrg: Herpes Simplex Virus 1 and 2 Drug Resistance Genotyping

#' Returns a dataframe of the cmvdrg database
#' @return dataframe of the hsvdrg database
#' @export

hsvdrg_data <- function(){
  
  file = system.file("db", "hsvdrg-db.csv", package = "hsvdrg")
  dat = utils::read.csv(file, stringsAsFactors = F)
  colnames(dat)[[1]] = "mutation_id"
  return(dat)
}