如何在R中用零替换特定字符串？

I have a data frame with 30 row and 1000 column. Some column of this data have "nan" and "inf" value. I would like to replace them with zero. I try some code but could not get sufficient result. For instant i create a sample data frame like this I have a data frame with 30 row and 1000 column