reactflow only works with renderReactflow and not when included in UI

[DavZim]

library(shiny)
library(reactflow)

ui <- fillPage(
  h1("Below should be a graph!"),
  reactflowOutput("my_graph", height = "100%")
)

nodes <- list(
  list(id = "start", data = list(label = "Start Node")),
  list(id = "mid", data = list(label = "Mid Node")),
  list(id = "end", data = list(label = "End Node"))
)

edges <- list(
  list(source = "start", target = "mid", id = "start-mid"),
  list(source = "mid", target = "end", id = "mid-end")
)

server <- function(input, output, session) {
  output$my_graph <- renderReactflow({
    reactflow(
      nodes = nodes,
      edges = edges
    )
  })
}

shinyApp(ui, server)

Note the above doesnt show anything due to height = "100%"

[DavZim]

similarly, it only works when renderReactflow is called + its not working in the Viewer outside of shiny...

library(shiny)
nodes <- list(
  list(id = "1", position = list(x = 0, y = 0), data = list(label = "Node 1")),
  list(id = "2", position = list(x = 100, y = 100), data = list(label = "Node 2")),
  list(id = "3", position = list(x = 0, y = 200), data = list(label = "Node 3"))
)
edges <- list(
  list(id = "e1-2", source = "1", target = "2", label = "Edge 1"),
  list(id = "e2-3", source = "2", target = "3"),
  list(id = "e1-3", source = "1", target = "3")
)

ui <- fluidPage(
  h2("reactflow does not work in UI"),
  reactflow(
    nodes,
    edges
  ),
  
  hr(),
  h2("renderReactflow works..."),
  reactflowOutput("flow")
)

server <- function(input, output, session) {
  output$flow <- renderReactflow(reactflow(nodes, edges))
}

shinyApp(ui, server)