beds <- dir("~/mvv/PCAWG_all_Collaboratory_VCFs_and_BEDs/", pattern = "\\.bed$")
tt <- data.table::fread("~/DBSverify/data-raw/collaboratory_bams_2021_07_13.csv")
bbb <- gsub("_merged_PCAWG_DBS.bed", "", beds)
bb <- tibble::tibble(aliquot_id = bbb)
xx <- dplyr::left_join(bb, tt)
data.table::fwrite(xx, file = "~/DBSverify/data-raw/collaboratory_bams_2021_07_16.csv")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.