This function extracts file headers from
files. Recommended is to use this function
with the results from extractFilenames
Examples
if (FALSE) {
prompt <- "how do I perform PCA on data in a file called test.txt?"
filenames <- extractFilenames(prompt)
fileHeaderPrompt(filenames)
}