r dataframe convert factor to numeric

 breast[,'class'] <- as.numeric(as.character(breast[,'class']))

indx <- sapply(breast, is.factor)
breast[indx] <- lapply(breast[indx], function(x) as.numeric(as.character(x)))

breast$class <- as.numeric(as.character(breast$class))