I am using the below function to run multiple regression models, need to understand how to export the results to a .csv file so that I can use it in my database.

Faltu %>% 
  group_by(subgroup) %>%
  do(tidy(lm(sales ~ month_year + weekday + sequence, .)))

Where Faltu is my data frame.