#' @title Edge Style
#' @description Any recognised cytoscape style option can be passed to the node style. For available
#' options see the \href{http://js.cytoscape.org/#style/edge-line}{cytoscape documentation}.
#'
#' @param cytoscape object
#' @param ... additional parameters passed to the style edge object
#'
#' @return
#' @export
#'
#' @examples
#'
#' nodes <- data.frame(id = c('a','b'))
#' edges <- data.frame(id = 'ab', source = 'a', target = 'b')
#'
#' cytoscape(nodes = nodes, edges = edges) %>% edge_style('line-color' = '#ff0000')
#'
edge_style <- function(cytoscape, ...){
es <- jsonlite::fromJSON(cytoscape$x$edge_style)
es <- modifyList(es, list(...))
cytoscape$x$edge_style <- jsonlite::toJSON(es, auto_unbox = TRUE)
return(cytoscape)
}
#' @title Node Style
#' @description Any recognised cytoscape style option can be passed to the node style. For available
#' options see the \href{http://js.cytoscape.org/#style/node-body}{cytoscape documentation}.
#'
#' @param cytoscape object
#' @param ... additional parameters passed to the style node object
#'
#' @return ctytoscape object
#' @export
#'
#' @examples
#'
#' nodes <- data.frame(id = c('a','b'))
#' edges <- data.frame(id = 'ab', source = 'a', target = 'b')
#'
#' cytoscape(nodes = nodes, edges = edges) %>% node_style('background-color' = '#ff0000')
#'
node_style <- function(cytoscape, ...){
ns <- jsonlite::fromJSON(cytoscape$x$node_style)
ns <- modifyList(ns, list(...))
cytoscape$x$node_style <- jsonlite::toJSON(ns, auto_unbox = TRUE)
return(cytoscape)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.