#' @rdname hides
#' @export
hides_mat <- function(x, ...){
UseMethod("hides_mat")
}
hides_mat.environment <- function(x, ...){
hides_mat.list(x, ...)
}
hides_mat.list <- function(x, ...){
hides_df(x, ...) &&
length(unique(sapply(x,typeof))) == 1
}
hides_mat.data.frame <- function(x, ...){
length(unique(sapply(x,typeof)))
}
hides_mat.default <- function(x, ...){
FALSE
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.