sales <- data.frame(
sale_id = 1:5,
date = c("20200101", "null", "20200102", "20200103", "null"),
sale_price = c(10, -1, 30, 40, -1)
)
# Dates not missing
try(expect_text_nmiss(date, data = sales))
# Date missing if price negative
try(expect_text_miss(date, flt = sale_price %in% -1, data = sales))
Run the code above in your browser using DataLab