Remova todas as linhas em que o comprimento da string é maior que n

Tenho um dataframem e quero remover todas as linhas em que of_name tem uma entrada maior que 3. Suponho que posso usar algo semelhante a

m <- m[-grep("nchar(m$f_name)>3", m$f_name]