# Scan current directory for CEL files
files <- list.files(pattern="[.](c|C)(e|E)(l|L)$")
if (length(files) > 0) {
header <- readCelHeader(files[1])
print(header)
rm(header)
}
# Clean up
rm(files)
Run the code above in your browser using DataLab