as_validation <- function(x){
assert_that(is.list(x) || is.logical(x))
chk <- unlist(x)
res <- all(chk)
attr(res, "errors") <- names(chk)[-which(chk)]
res
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.