Hi! Thank you so much for your help. I ended up using the lubridate package. Here's what I did if anyone is curious!
my_data_inflow = my_data_inflow %>%
mutate(Date = ymd(Date)) %>%
mutate_at(vars(Date), funs(year, month))
I appreciate your time, have a great day!