subset a part of a list of files by using names in r in r

main.r
# List of files
file_list <- c("file1.csv", "file2.csv", "file3.csv", "file4.csv")

# Subset files containing "file2"
subset_files <- file_list[grep("file2", file_list)]
subset_files
183 chars
7 lines