R/somaticflags.R

In somaticflags: Database of Somatic Flags

read_somaticflags <- function(){
  path = system.file(package="somaticflags", "extdata/somaticflags.csv")
  utils::read.csv(path, header = TRUE, sep = ",")
}

update_data_objects <- function(){
  if(!requireNamespace("devtools", quietly = TRUE)) stop("Please install `devtools` before running `update_data_objects()`")
  if(!requireNamespace("usethis", quietly = TRUE)) stop("Please install `usethis` before running `update_data_objects()`")

  somaticflags_df <- read_somaticflags()
  somaticflags <- somaticflags_df[["Gene"]]
  usethis::use_data(somaticflags_df, overwrite = TRUE)
  usethis::use_data(somaticflags, overwrite = TRUE)
  devtools::document()
}