expectDataFrame = function(data) {
data %>%
when(is.data.frame(.) ~., ~stop("Object is not a data.frame!"))
}
is_longer_than = function(e1, e2) {
length(e1) %>% is_greater_than(e2)
}
is_true = function(x){
stopifnot(is.logical(x))
x
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.