library(errorlocate)
library(magrittr)
rules <- validator( if (x < 1) y < 1)
data <- data.frame(x=0, y = 1)
locate_errors(data, rules)$errors
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.