library(data.table)

files<-list.files("C:\\Users\\steph\\Dropbox\\Locke Data\\Presentations\\pres-powerbi\\multiread", full.names=TRUE)

allFiles<-lapply(files, fread)
names(allFiles)<-files

combinedData<-rbindlist(allFiles, use.names=TRUE, fill=TRUE, idcol="file")