Using R how do I read csv from a directory only the files that begin with certain characters and assign a df name based on the last 4 letters?

Question

I have a directory path

directory<-"C:/User/Files"

in the directory i have these files

dir(directory)

"R_folder