R/get_bergseng_et_al_2015_sup_1_epitope_sequences.R

In richelbilderbeek/bbbq: The Bilderbeek Bianchi and Bogaart Question

#' HIERO Get the table of Supplementary Material 1 from
#' Bergseng et al., 2015.
#' Will download the file if needed.
#' @inheritParams default_params_doc
#' @param xlsx_filename the XLSX filename
#' @param url the download URL,
#' as returned by \link{get_bergseng_et_al_2015_sup_1_url}
#' @return a \link{tibble}[tibble], with columns named
#' \code{cell_line},
#' \code{infected},
#' \code{epitope_sequence},
#' \code{epitope_length},
#' \code{copy_number},
#' \code{source_protein},
#' \code{gene},
#' \code{best_allele},
#' \code{best_allele_rank},
#' \code{best_allele_predscore},
#' \code{normalized_copyno}
#' @export
get_bergseng_et_al_2015_sup_1_epitope_sequences <- function(
  url = bbbq::get_bergseng_et_al_2015_sup_1_url(),
  xlsx_filename = file.path(
    rappdirs::user_data_dir(appname = "bbbq"),
    "251_2014_819_MOESM3_ESM.xlsx"
  ),
  verbose = FALSE
) {
  t <- bbbq::get_bergseng_et_al_2015_sup_1(
    url = url,
    xlsx_filename = xlsx_filename,
    verbose = verbose
  )
}