Using st_write in a for loop to export multiple shape files

Question

I am trying to create multiple shapefiles (and dataframes) based on unique field values within FIREYEAR. I have been able to produce individual dataframes based on each year