x <- "1"
y <- 1
### check is successful
input_check_response(
check = checkmate::check_character(x),
var_name = "x",
error = TRUE
)
### alternative checks
input_check_response(
check = list(
checkmate::check_character(x),
checkmate::check_character(y)
),
var_name = "x",
error = TRUE
)
### standardized check response
if (FALSE) {
input_check_response(
check = checkmate::check_character(y),
var_name = "y",
error = TRUE
)
input_check_response(
check = list(
checkmate::check_flag(x),
checkmate::check_character(y)
),
var_name = "y",
error = TRUE
)
}
Run the code above in your browser using DataLab