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