Nothing
#' Retrieve Relationships from Nodes
#'
#' Retreive a list of outgoing relationship objects from a node object, optionally filtering by relationship type.
#'
#' @param node A node object.
#' @param ... A character vector.
#'
#' @return A list of relationship objects.
#'
#' @examples
#' \dontrun{
#' graph = startGraph("http://localhost:7474/db/data/")
#' clear(graph)
#'
#' alice = createNode(graph, "Person", name = "Alice")
#' bob = createNode(graph, "Person", name = "Bob")
#' charles = createNode(graph, "Person", name = "Charles")
#' david = createNode(graph, "Person", name = "David")
#'
#' createRel(alice, "KNOWS", bob)
#' createRel(alice, "KNOWS", charles)
#' createRel(charles, "KNOWS", david)
#'
#' createRel(alice, "WORKS_WITH", david)
#' createRel(bob, "WORKS_WITH", david)
#' createRel(bob, "WORKS_WITH", charles)
#'
#' outgoingRels(david)
#' outgoingRels(alice, "WORKS_WITH")
#' }
#'
#' @seealso \code{\link{incomingRels}}
#'
#' @export
outgoingRels = function(node, ...) UseMethod("outgoingRels")
#' @export
outgoingRels.node = function(node, ...) {
url = attr(node, "outgoing_relationships")
type = c(...)
if(length(type) > 0) {
stopifnot(is.character(type))
url = paste(url, paste(type, collapse = "%26"), sep = "/")
}
result = http_request(url, "GET")
if(length(result) == 0) {
return(invisible())
}
outgoing_rels = lapply(result, function(r) configure_result(r))
return(outgoing_rels)
}
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.