data-raw/common_samples.R

In shunsambongi/sambcdata: Select TCGA Breast Cancer datasets

library(dplyr)

mutation.samples <-
  tidy_mutations() %>%
  distinct(sample) %>%
  pull(sample)

cnv.samples <-
  tidy_cnvs() %>%
  distinct(sample) %>%
  pull(sample)

phenotype.samples <-
  phenotypes %>%
  distinct(sample) %>%
  pull(sample)

common_samples <-
  mutation.samples %>%
  intersect(cnv.samples) %>%
  intersect(phenotype.samples)

devtools::use_data(common_samples)