Help with loop to write out all data frames in memory to csv files

General
1

Task: Write out all data frames in memory to csv files.
Test data: Created six data frames all from the Iris dataset loaded into memory

dataframe_env = names(which(unlist(eapply(.GlobalEnv,is.data.frame)))) env.
count <- 0
for(i in dataframe_env){
count <- 1 + count
name <- paste(directory_out, dataframe_env[count]) # works correctly
name <- paste0(name, ".csv") # works correctly
write.csv(noquote((dataframe_env[count])), name ) # csv file giving unexpected results
}

Results: the name variable of the csv is working as expected.
the noquote((dataframe_env[count])) function is resolving correctly as df1 - df6
However when I open the csv files that was created instead of seeing the Iris data in a
csv format I get this for df2.csv:
"","x"
"1","df2"
....and this for df3.csv:
"","x"
"1","df3"
and so on for the rest.

Thanks for the help!
Jade