Why R's ifelse statements Return Error in write.csv()?

I want to save CSV file with ifelse function

my_data<-data.frame(fruits = c("orange","banana"),prices=c(2,3))

ifelse(5>3,write.csv(my_data,"mydata.csv",row.names = F),1+1)

I am getting this error in R console:

Error in ans[test & ok] <- rep(yes, length.out = length(ans))[test & ok] : 

Anyone can help?