R/virtualArrayBuildSingleSampleInfo.R

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

virtualArrayBuildSingleSampleInfo <-
function(x){
								cat("\nNow setting up pData of ",as.character(x),"...\n")
								sample_names <-sampleNames(eval(as.symbol(x)))
								chip_names <- as.character(x)
								single_sample_info <- cbind(Array.name=sample_names,Sample.name=sample_names,Batch=chip_names)
								#print(single_sample_info)
								sample_info<-NULL
								return(single_sample_info)
								}