R/virtualArrayBuildSampleInfo.R

In ShixiangWang/arrayConnector: Connect high throughput Array data from different platforms

virtualArrayBuildSampleInfo <-
function(x){
								cat("\nNow combining pData of all data sets...\n")
								sample_info <- NULL
								single_sample_info <- sapply(x,virtualArrayBuildSingleSampleInfo,simplify=FALSE)
								#print(single_sample_info)
								for (i in 1:length(single_sample_info)) {sample_info<-sample_info;sample_info<-rbind(sample_info,single_sample_info[[i]])}
								sample_info <- cbind(sample_info,Covariate.1=c(1:nrow(sample_info)))
								return(sample_info)
								}