如何遍历文件夹中的所有固定宽度文件？

Question

我有一个包含3个平面文件（fwf）的文件夹。我可以使用readr毫无问题地一对一地读取它们，但是我想做的是有一个循环，该循环将读取目录中的所有文件，然后将它们堆叠在一起。我还需要它来剥离文件名，并将其作为数据字段中的新字段放置。 readr包有可能吗？

install.packages("readr")
install.packages("dplyr")
install.packages("readtext")
library(readr)
library(readtext)
library(dplyr)

setwd("C:/Users/...)

file1 <-read_fwf("name of first file", col_types=cols(.default =...))
file2 <-read_fwf("name of second file", col_types=cols(.default =...)) 
file3 <-read_fwf("name of third file", col_type =cols(.default=...))

combined_files <-bind_rows(file1,file2,file3)