If all your files share the same column structure, you can read them all at once and then separate them into individual data frames, obviously, I can't test the code since I don't have access to your files but it would be something like this.
library(tidyverse)
all_weeks_list <- list.files(path = 'x:/full/file/path',
pattern = "week\\d\\.csv$",
full.names = TRUE)
all_weeks_list %>%
read_csv(id = "file_name") %>%
mutate(id = str_extract(id, "week\\d(?=\\.csv)")) %>%
group_nest(id) %>%
mutate(data = set_names(data, paste("DF_", id))) %>%
pull(data) %>%
list2env(envir = globalenv())