How to filter out the top Nth value of each row in a R dataframe?

There is a R dataframe, I want to filter out the top Nth value of each row with the rest values being set to 0.