Como remover linhas com inf de um quadro de dados em r

df <- df[!is.infinite(rowSums(df)),]
Arno Deceuninck