Looping in R with tidyverse - loops

Question

I am trying to read multiple csv files with date in the format dd-mm-yyyy. I want to convert the months into seasons, for which I have used the following codes (for one csv file):
x= data %>%
dplyr::mutate(year = lubridate::year(UDATE),
month = lubridate::month(UDATE),
day = lubridate::day(UDATE))
x %>%
mutate(season = case_when(
month %in% c('3', '4', '5', '6') ~ 'Summer',
month %in% c('7', '8', '9', '10') ~ 'Monsoon',
month %in% c('11', '12', '1', '2') ~ 'Winter'
))
Now I want to run this for the multiple csv files simultaneously and export those files with the converted data frames such that my month is converted into seasons.
Can someone please suggest me how to put that in a loop function for multiple csv files simultaneously.
Thank you

Answer 1

Without data to reproduce it is a little hard to help, so I wrote some generic code that might need a few tweaks to solve your problem.
First, I would create a single function that import, transform and export the data.
prep_data <-
function(file_name){
data <-
read.csv2(file_name) %>%
dplyr::mutate(
year = lubridate::year(UDATE),
month = lubridate::month(UDATE),
day = lubridate::day(UDATE),
season = case_when(
month %in% c('3', '4', '5', '6') ~ 'Summer',
month %in% c('7', '8', '9', '10') ~ 'Monsoon',
month %in% c('11', '12', '1', '2') ~ 'Winter'
)
#I put "_new" as prefix to not overwrite the original .csv
write.csv2(file = paste0("new_",file_name))
}
Then I would create a vector with all my files names.
all_files <- list.files(pattern = "*.csv",path = "your path with the csv files",full.names = TRUE)
Lastly, apply the function for all files.
purrr::map(.x = all_files,.f = prep_data)