diff --git a/R/force_explorer.R b/R/force_explorer.R index bf7ff1b..5b4aa0e 100644 --- a/R/force_explorer.R +++ b/R/force_explorer.R @@ -43,6 +43,12 @@ force_explorer <- function(data) { max = 80, step = 1 ), + shiny::textInput( + inputId = "node_label", + label = "node_label:", + value = "id", + placeholder = "id [default]" + ), shiny::numericInput( inputId = "strength", label = "strength:", @@ -122,6 +128,7 @@ force_explorer <- function(data) { width = input$width, height = input$height, node_size = input$node_size, + node_label = input$node_label, strength = input$strength, distanceMin = input$distanceMin, distanceMax = input$distanceMax, @@ -145,6 +152,7 @@ force_explorer <- function(data) { width = input$width, height = input$height, node_size = input$node_size, + node_label = input$node_label, strength = input$strength, distanceMin = input$distanceMin, distanceMax = input$distanceMax, diff --git a/inst/force_network.js b/inst/force_network.js index 24e56e8..2615fef 100644 --- a/inst/force_network.js +++ b/inst/force_network.js @@ -2,6 +2,7 @@ var node_color = eval(options.node_color) || d3.scaleOrdinal(d3.schemeCategory10), node_size = options.node_size || 4, + node_label = options.node_label || "id", link_color = options.link_color || "grey", strength = options.strength || -300, distanceMin = options.distanceMin || 1, @@ -101,12 +102,12 @@ function ticked(transform) { context.font = font; context.fillStyle = d_color; context.strokeStyle = "white"; - context.strokeText(d.id, dx, dy); + context.strokeText(d[node_label], dx, dy); context.shadowColor = shadow_color; context.shadowOffsetX = 2; context.shadowOffsetY = 2; context.shadowBlur = 6; - context.fillText(d.id, dx, dy); + context.fillText(d[node_label], dx, dy); }); }