Como converter todas as colunas de um quadro de dados em fatores em r

DF[sapply(DF, is.character)] <- lapply(DF[sapply(DF, is.character)], 
                                       as.factor)
Worrisome Wombat