#' @rdname ggraph-extensions
#' @format NULL
#' @usage NULL
#' @export
StatFilter <- ggproto('StatFilter', StatIdentity,
setup_data = function(data, params) {
if (any(names(data) == 'filter')) {
if (!is.logical(data$filter)) {
stop('filter must be logical')
}
data <- data[data$filter, names(data) != 'filter']
}
data
},
default_aes = aes(filter = TRUE)
)
aesIntersect <- function(aes1, aes2) {
structure(
c(as.list(aes1), aes2[!names(aes2) %in% names(aes1)]),
class = 'uneval'
)
}
dataType <- function(data) {
type <- attr(data, 'type_ggraph')
if (is.null(type)) {
if (inherits(data, 'layout_ggraph')) return('node_ggraph')
else return('other')
}
type
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.