show/hide

Author: DivadNojnarg

NAMESPACE

@@ -30,7 +30,7 @@ export(g6_add_edges)
 export(g6_add_nodes)
 export(g6_behaviors)
 export(g6_canvas_resize)
-export(g6_focus_element)
+export(g6_focus_elements)
 export(g6_options)
 export(g6_plugins)
 export(g6_proxy)

R/proxy.R

@@ -335,6 +335,21 @@ g6_canvas_resize <- function(graph, width, height) {
   graph
 }
 
+#' @keywords internal
+g6_element_action <- function(graph, ids, animation = NULL, action) {
+  if (!any(class(graph) %in% "g6_proxy")) {
+    stop(
+      "Can't use g6_focus_element with g6 object. Only within shiny and using g6_proxy"
+    )
+  }
+
+  graph$session$sendCustomMessage(
+    sprintf("%s_g6-element-action", graph$id),
+    list(ids = ids, animation = animation, action = action)
+  )
+  graph
+}
+
 #' Focus on specific elements in a g6 graph via proxy
 #'
 #' This function focuses on one or more elements (nodes/edges) in an existing g6 graph instance
@@ -361,16 +376,14 @@ g6_canvas_resize <- function(graph, width, height) {
 #'
 #' @seealso \code{\link{g6_proxy}}
 #' @export
-g6_focus_element <- function(graph, ids, animation = NULL) {
-  if (!any(class(graph) %in% "g6_proxy")) {
-    stop(
-      "Can't use g6_focus_element with g6 object. Only within shiny and using g6_proxy"
-    )
-  }
+g6_focus_elements <- function(graph, ids, animation = NULL) {
+  g6_element_action(graph, ids, animation, action = "focus")
+}
 
-  graph$session$sendCustomMessage(
-    sprintf("%s_g6-focus-element", graph$id),
-    list(ids = ids, animation = animation)
-  )
-  graph
+g6_hide_elements <- function(graph, ids, animation = NULL) {
+  g6_element_action(graph, ids, animation, action = "hide")
+}
+
+g6_show_elements <- function(graph, ids, animation = NULL) {
+  g6_element_action(graph, ids, animation, action = "show")
 }

inst/demo/app.R

@@ -90,7 +90,9 @@ ui <- page_fluid(
   div(
     class = "d-flex align-items-center",
     actionButton("canvas_resize", "Resize canvas"),
-    actionButton("focus", "Focus node 1")
+    actionButton("focus", "Focus node 1"),
+    actionButton("show", "Show node 1"),
+    actionButton("hide", "Hide node 1")
   )
 )
 
@@ -184,7 +186,17 @@ server <- function(input, output, session) {
 
   observeEvent(input$focus, {
     g6_proxy("graph") |>
-      g6_focus_element("node1", animation = list(duration = 2000))
+      g6_focus_elements("node1", animation = list(duration = 2000))
+  })
+
+  observeEvent(input$show, {
+    g6_proxy("graph") |>
+      g6_show_elements("node1")
+  })
+
+  observeEvent(input$hide, {
+    g6_proxy("graph") |>
+      g6_hide_elements("node1")
   })
 
   observe({

inst/htmlwidgets/g6.js

@@ -68,13 +68,13 @@ HTMLWidgets.widget({
             }
           })
 
-          // Focus element
-          Shiny.addCustomMessageHandler(el.id + '_g6-focus-element', (m) => {
+          // Focus/hide/show element
+          Shiny.addCustomMessageHandler(el.id + '_g6-element-action', (m) => {
             try {
               if (m.animation !== undefined) {
-                graph.focusElement(m.ids, m.animation);
+                graph[`${m.action}Element`](m.ids, m.animation);
               } else {
-                graph.focusElement(m.ids);
+                graph[`${m.action}Element`](m.ids);
               }
             } catch (error) {
               Shiny.notifications.show({ html: error, type: 'error' })