R/input.3d.r

In jjlynch2/QA3D: Quality Assurance 3D

input.3d <- function(list1 = NULL, filenames = NULL) {
	print("Importing 3D data")
	Rlist <- list()
	pnames <- gsub(".*/\\s*", "", filenames)
	for(i in 1:length(list1)) {
		setProgress(value = i, message = paste("Importing ", pnames[i],sep=""), detail = '')
		Rtemp <- read.table(list1[i], quote="\"", comment.char="", stringsAsFactors=FALSE, header = FALSE)
		if(is.character(Rtemp[1,1])) {
			Rlist[[i]] <- read.table(list1[i], quote="\"", comment.char="", stringsAsFactors=FALSE, header = TRUE)
		}
		if(!is.character(Rtemp[1,1])) {
			Rlist[[i]] <- read.table(list1[i], quote="\"", comment.char="", stringsAsFactors=FALSE, header = FALSE)
		}
	}
	names(Rlist) <- gsub(".*/\\s*", "", filenames)
	print("3D data imported")
	return(Rlist)
}