R/create_protein_db.R

In nicohuttmann/htmnanalysis: Analysis of Omics Data

#' Combines protein information from raw data frames
#'
#' @param raw.data raw.data list
#'
#' @return
#' @export
#'
#'
create_protein.db <- function(raw.data = raw.data) {

  protein.db <- raw.data[[1]][,1:3]

  for(i in 2:length(raw.data)) {

    protein.db <- rbind(protein.db,
                        raw.data[[i]][!rownames(raw.data[[2]]) %in% rownames(protein.db),1:3])

  }

  saveThis(protein.db, name = "protein.db", destination = "info")


}