fix: initialXY might not be available

dalmolingroup · Oct 11, 2024 · 285b3a8 · 285b3a8
1 parent 9a15db1
commit 285b3a8
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/R/app.R b/R/app.R
@@ -102,10 +102,10 @@ start_app <- function(graph, layout) {
     igraph::as_data_frame("vertices") |>
     dplyr::select(
       id = name,
-      initialX = x,
-      initialY = y,
       component,
-      tidyselect::any_of(c("color", "size"))
+      tidyselect::any_of(
+        c("initialX" = x, "initialY" = y, "color", "size")
+      )
     )
 
   graph_json <- jsonlite::toJSON(list(