Nothing
#' @export
print.graph = function(x, ...) {
cat("< Graph > \n")
invisible(lapply(names(x), function(y) {print(x[y])}))
}
#' @export
summary.graph = function(object, ...) {
query = "MATCH (a)-[r]->(b) RETURN DISTINCT head(labels(a)) AS This, type(r) as To, head(labels(b)) AS That"
df = suppressMessages(cypher(object, query))
print(df)
}
#' @export
print.node = function(x, ...) {
cat("< Node > \n")
cat(getLabel(x))
cat("\n\n")
if(suppressWarnings(any(!is.na(names(x))))) {
invisible(lapply(names(x), function(y) {print(x[y])}))
}
}
#' @export
print.relationship = function(x, ...) {
cat("< Relationship > \n")
cat(getType(x))
cat("\n\n")
if(suppressWarnings(any(!is.na(names(x))))) {
invisible(lapply(names(x), function(y) {print(x[y])}))
}
}
#' @export
print.path = function(x, ...) {
cat("< Path > \n")
if(suppressWarnings(any(!is.na(names(x))))) {
invisible(lapply(names(x), function(y) {print(x[y])}))
}
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.