subset a part of a large list of files by using the numbers in the filenames in r

# Example list of files
files_list <- c("file1.txt", "file2.txt", "file3.txt", "file4.txt", "file5.txt")

# Function to extract the number from filename
get_number <- function(filename) {
  gsub("[^[:digit:]]", "", filename) # extract digits from filename
}

# Extract numbers from filenames
file_numbers <- as.numeric(sapply(files_list, get_number))

# Subset files based on numbers condition
subset_files <- files_list[file_numbers > 3]

# Output the subset of files
print(subset_files)
489 chars
17 lines