library(data.table)
df <- data.frame(matrix(nrow = 100, ncol = 10))
coln <- colnames(df)
rown <- rownames(df)
setDT(df)
is.data.table(df) # Returns TRUE = OK
sum(c(coln == colnames(df), c(rown == rownames(df)))) # Returns 2 = OK
setDF(df)
is.data.table(df) # Returns FALSE = OK
sum(c(coln == colnames(df), c(rown == rownames(df)))) # Returns 2 = OK
Run the code above in your browser using DataLab