How to convert all column data type to numeric and character dynamically?

Question

I convert my columns data type manually:

data[,\'particles\'] <- as.numeric(as.character(data[,\'particles\']))

This not ideal as the da

Answer 1

We can use data.table

library(data.table) 
setDT(df)[, lapply(.SD, function(x) if(is.factor(x)) as.numeric(as.character(x)) else x)]