is_dataframe(iris) # TRUE
is_dataframe(1:10) # FALSE
is_numeric_dataframe(iris) # FALSE
is_numeric_dataframe(iris[,1:4]) # TRUE
DF = matrix(letters[1:24], 6, 4)
DF1 = data.frame(DF)
DF2 = data.frame(DF, stringsAsFactors=FALSE)
is_string_dataframe(DF1) # FALSE
is_string_dataframe(DF2) # TRUE
is_factor_dataframe(DF1) # TRUE
is_factor_dataframe(DF2) # FALSE
Run the code above in your browser using DataLab