From c06317c800dca736a239771ced527429ef2de3ca Mon Sep 17 00:00:00 2001 From: CJ Yetman Date: Sat, 16 Dec 2023 15:36:14 +0100 Subject: [PATCH] change sankey default display to "internal" --- R/sankey_network.R | 2 +- inst/sankey_network.js | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/R/sankey_network.R b/R/sankey_network.R index 523eae4..0398937 100644 --- a/R/sankey_network.R +++ b/R/sankey_network.R @@ -13,7 +13,7 @@ #' @md #' @export -sankey_network <- function(data, width = NULL, height = NULL, ..., viewer = "browser") { +sankey_network <- function(data, width = NULL, height = NULL, ..., viewer = "internal") { data <- as_sankey_data(data, ...) data <- jsonlite::toJSON(data, null = "null", na = "null", auto_unbox = TRUE, diff --git a/inst/sankey_network.js b/inst/sankey_network.js index 132495c..7bb9f93 100644 --- a/inst/sankey_network.js +++ b/inst/sankey_network.js @@ -1,4 +1,4 @@ -// !preview r2d3 data = jsonlite::toJSON(list(nodes=data.frame(id=c(0,1,2,3,4,5,6),name=c("node0","node1","node2","node3","node4","node5","node6"),group=c("grp1","grp1","grp2","grp2","grp2","grp3","grp3")),links=data.frame(source=c(0,1,1,1,0,2,2,3,5),target=c(2,2,3,5,4,3,4,4,6),value=c(2,2,2,2,2,2,2,4,4)))), dependencies = "inst/lib/d3-sankey/d3-sankey.min.js", d3_version = 6, width = 600, height = 300, options = list(linkStrokeOpacity=0.3,linkMixBlendMode="multiply",linkPath="d3.sankeyLinkHorizontal()",linkColor="source-target",nodeAlign="justify",nodeGroup="group",nodeWidth=15,nodePadding=10,nodeLabelPadding=6,nodeLabelFontFamily="sans-serif",nodeLabelFontSize=10,colors="d3.schemeCategory10"), viewer = "browser" +// !preview r2d3 data = jsonlite::toJSON(list(nodes=data.frame(id=c(0,1,2,3,4,5,6),name=c("node0","node1","node2","node3","node4","node5","node6"),group=c("grp1","grp1","grp2","grp2","grp2","grp3","grp3")),links=data.frame(source=c(0,1,1,1,0,2,2,3,5),target=c(2,2,3,5,4,3,4,4,6),value=c(2,2,2,2,2,2,2,4,4)))), dependencies = "inst/lib/d3-sankey/d3-sankey.min.js", d3_version = 6, width = 600, height = 300, options = list(linkStrokeOpacity=0.3,linkMixBlendMode="multiply",linkPath="d3.sankeyLinkHorizontal()",linkColor="source-target",nodeAlign="justify",nodeGroup="group",nodeWidth=15,nodePadding=10,nodeLabelPadding=6,nodeLabelFontFamily="sans-serif",nodeLabelFontSize=10,colors="d3.schemeCategory10"), viewer = "internal" r2d3.onRender(function(data, svg, width, height, options) { let linkStrokeOpacity = options.linkStrokeOpacity;