R/ingredient_list.R

In diogocamacho/cauldron: Cauldron: making data for DRUID

#' Ingredient list
#'
#' This function 
#' @return A sparse matrix with the computed combined tf-idf
ingredient_list <- function(add_new = NULL) {
  
  if (!is.null(add_new)) stop("Not ready for that yet.")
  
  cmap_data <- "data/cmap_dataset.RData"
  ctd_data <- "data/ctd_dataset.RData"
  lincs_data <- "data/lincs_dataset.RData"
  small_molecules <- "data/small_molecules_dataset.RData"
  natural_products <- "data/GSE85871_natural_products.RData"
  
  return(list(cmap = cmap_data, 
              ctd = ctd_data, 
              lincs = lincs_data, 
              small_molecules = small_molecules, 
              natural_products = natural_products))
}