dfHasSchema <- function(df, ...) {
declaredSchema <- unlist(list(...))
realSchema <- unlist(lapply(df, class))
all(realSchema == declaredSchema)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.