if (FALSE) {
# argument to check
arg <- as.list(1:10)
check_types(arg, "character")
# customize error message with `glue::glue()` syntax
specific <- "`{name}[[{i}]]` is an {feature}, oh my god!"
check_types(arg, "character", specific = specific)
}
Run the code above in your browser using DataLab