Import multiple text files in R and assign them names from a predetermined list

Question

I just started using R and I am having trouble performing the following task: I have approximately 130 language samples in separate plain text files sitting in my working di

Answer 1

            files <- list.files(pattern = 'Patient*.txt')    
            for(i in files) {
            x <- read.table(i, header=TRUE, comment.char = "A", sep="\t")
            assign(i,x)  
            }