R/assimilate_data.R

In IOBR/IOBR: Immune Oncology Biological Research

#' Assimilate data with similar columns
#'
#' @param data_a original data frame
#' @param data_b manipulated data frame
#'
#' @return  data_b
#' @export
#'
#' @examples
#' pdata_a<-as.data.frame(array(3,c(5,9)))
#' colnames(pdata_a)<-LETTERS[1:dim(pdata_a)[2]]
#' pdata_b<-as.data.frame(array(2,c(7,4)))
#' colnames(pdata_b)<-c("A","C","E","F")
#' assimilate_data(data_a = pdata_a,data_b = pdata_b)
#'
assimilate_data<-function(data_a, data_b){
  data_a<-as.data.frame(data_a)
  data_b<-as.data.frame(data_b)
  miss<-as.character(colnames(data_a)[!colnames(data_a)%in%colnames(data_b)])
  ncolumns<-length(miss)
  nrows<-dim(data_b)[1]
  missdata<-as.data.frame(array(NA,c(nrows,length(miss))))
  colnames(missdata)<-miss
  data_b<-as.data.frame(cbind(data_b,missdata))
  data_b<-data_b[,match(colnames(data_a),colnames(data_b))]
  return(data_b)
}