renderD3tree not giving correct opening view for multilevel d3tree2 objects

[ellisp]

You might know all about this already. When you print the object tmd3, as created in the code at the bottom of this comment, straight from the R console it correctly renders in the browser like this:

When it's rendered in a Shiny app, it looks like this:

It's trying to show all the levels at once, not just the top level of the hierarchy.

library(shiny)
library(treemap)
library(d3treeR)
library(htmlwidgets) # see https://github.com/timelyportfolio/d3treeR/issues/11

Var1 <- letters[1:5]
Var2 <- LETTERS[1:5]
Var3 <- c("Tiger", "Lion", "Bear", "Penguin", "Eagle", "Aardvark")

ThreeLevels <- expand.grid(Var1, Var2, Var3)
n <- nrow(ThreeLevels)
ThreeLevels$Size <- abs(rnorm(n, 12, 3))
ThreeLevels$Colour <- rnorm(n, 0, 1)

tm <- treemap(ThreeLevels, index = c("Var1", "Var2", "Var3"), 
            vSize = "Size", vColor = "Colour",
            type = "value", palette = "Spectral",
            fun.aggregate="weighted.mean")

tmd3 <- d3tree2(tm)            


shinyApp(
  ui = fluidPage(
    sidebarLayout(
      sidebarPanel(p("Hello world")),
      mainPanel(d3treeOutput("tree"))
    )
  ), 
  server = function(input, output) {
    output$tree <- renderD3tree(tmd3)
   }
)

[timelyportfolio]

Well, if I continue to have d3tree and d3tree2 then I will need to also add separate Shiny render functions for d3tree2. I'm not crazy about having two versions of d3tree, but I have not yet thought of a better way.

[timelyportfolio]

See c0e312c for a temporary solution.

[timelyportfolio]

@ellisp, going to close for now. Let me know if you would like to reopen.

[ellisp]

works fine for now, thanks