try({
x <- list(a = 1, b = 2, c = 3)
assert_includes_name(x, "a") # Passes
assert_includes_name(x, c("a", "b")) # Passes
assert_includes_name(x, c("a", "b", "d")) # Throws default error message
assert_includes_name(x, c("a", "b", "d"), "Custom error message") # Throws custom error message
})
Run the code above in your browser using DataLab