powered by
detectFileFormat(file)
folder <- system.file(package="ShortRead", "extdata/E-MTAB-1147") files <- list.files(full.names=TRUE, path=folder) input <- lapply(files, detectFileFormat) sapply(input, class)
Run the code above in your browser using DataLab