test.dt <- data.frame(ID=1:200,Type="RPKG.net")
test.notenv <- list(t=1)
is.data.frame(test.dt) # TRUE
not.data(test.dt) # FALSE
not.data(test.notenv) # TRUE
if(not.data(test.dt)) message("yes") # NULL
Run the code above in your browser using DataLab