fawaz-dabbaghieh

deepblue_extract_metadata <- function(epi_mark,epi_project, auth_key) {
  
  #get sample ids
  experiments_ids <- deepblue_list_experiments(epigenetic_mark = epi_mark,
                                               project = epi_project,
                                               user_key = auth_key)
  
  #extracting all information
  metadata <- deepblue_info(deepblue_extract_ids(experiments_ids), user_key = auth_key)