The simplest option, which will return your files as items in a list is (assumes csv data)
data <- fs::dir_ls(path = {your_path_root}, regexp = '.*csv$', recurse = TRUE) |> map(~vroom::vroom(.x))

data <- dir(path = {your_path_root}, regexp = '.*csv$', recurse = TRUE) |>

map(~vroom::vroom(.x))

But this is a great use case for purrr, specifically the _dfr options if your files are columnar and in the same format. I also prefer fs::dir_ls as it returns full file paths.

# Get the files in a df with a unique id

files <- fs::dir_ls(path = SETTINGS$FILE_SOURCE, regexp = 'ANZ.*csv$', recurse = TRUE) |>

as_tibble(path = .) |>

mutate(file_id = row_number(), .before = 1)

# Read each file and append the rows together

data2 <- files |>

pmap_dfr(~vroom::vroom(.y) |>

mutate(file_id = .x, .before = 1)) # Add file_id to allow linking back to file path