Импортируйте несколько текстовых файлов в R и присваивайте им имена из заранее определенного списка

Я только начал использовать R, и у меня возникли проблемы с выполнением следующей задачи: У меня есть примерно 130 языковых примеров в отдельных текстовых файлах, находящихся в моем рабочем Я хотел бы импортировать их с помощью сканирования и сохранить их имена файлов. В частности, я хотел бы использовать что-то вроде:

Patient01.txt <-scan("./Patient01.txt", what = "character")
Patient02.txt <-scan("./Patient02.txt", what = "character")
...
Patient130.txt <-scan("./Patient130.txt", what = "character")

Есть ли способ использовать такую ​​команду, как * apply, для автоматизации процесса?