try({
assert_dataframe(mtcars) # Passes
assert_dataframe(data.frame()) # Passes
assert_dataframe(1:10) # Throws default error
assert_dataframe(matrix(1:6, 2, 3)) # Throws default error
assert_dataframe(c(1, 2, 3)) # Throws default error: "Error
assert_dataframe(list(a = 1, b = 2)) # Throws default error
assert_dataframe(factor(c(1, 2, 3))) # Throws default error
assert_dataframe(1:10, msg = "Custom error message") # Throws custom error
})
Run the code above in your browser using DataLab