sales <- data.frame(
sale_id = 1:5,
item_code = c("a_1", "b_2", "c_2", NA, "NULL")
)
try(expect_regex(item_code, "[a-z]_[0-9]", data = sales)) # Codes match regex
try(expect_max_length(item_code, 3, data = sales)) # Code width <= 3
Run the code above in your browser using DataLab