Interactive TreeMap с d3treeR не рендеринг в Shiny

Question

Я новичок в блестящем, и я пытаюсь использовать d3TreeR HTML Widget для отображения интерактивной TreeMap

Я использовал следующий код и он побежал отлично в R:

library(readxl) 
budget_map <- read_excel(path = 'Trader Dashboard Data Prep Sample.xlsx',sheet='v2',col_names = TRUE) 
library(treemap) 
budget_treemap <- treemap(budget_map,index=c("Sales Agency","Agency","Advertiser"),vSize="Booked Revenue Net",vColor="Sales Agency",palette = "Set1",type="categorical",title="Australia Budget Map",fontsize.title=22) 
library(d3treeR) 
d3tree2(budget_treemap) 

Я пытаюсь получить его, чтобы сделать в Shiny и я использую следующий код:

library(shiny) 
library(readxl) 
library(treemap) 
library(htmlwidgets) 
library(data.tree) 
library(d3treeR) 
budget_map <- read_excel(path = 'C:/Users/rahul/Desktop/30k foot view/Trader Dashboard Data Prep Sample.xlsx',sheet='v2',col_names = TRUE) 
budget_treemap <- treemap(budget_map,index=c("Sales Agency","Agency","Advertiser"),vSize="Booked Revenue Net",vColor="Sales Agency",palette = "Set1",type="categorical") 

ui <- fluidPage(
    d3tree2Output("au_budget_map") 
) 


server <- function(input,output){ 
    output$au_budget_map <- renderD3tree2({budget_treemap}) 
} 

shinyApp(ui = ui, server = server) 

Прикрепление выборочные данные сделайте его воспроизводимым: https://drive.google.com/open?id=0B2LJXtBTsuhhcnZJeXI3T0kwYW8 Я знаю, что, возможно, мне не хватает чего-то очень очевидного - но я не могу его обнаружить! Любая помощь будет действительно замечательной! Благодаря!

Answer 1

renderD3tree2 принимает результат d3tree2 в качестве входных данных:

output$au_budget_map <- renderD3tree2({d3tree2(budget_treemap)})