График, созданный edgebundleR, отображается в консоли, но не в Rshiny Tabset

Question

Я использую edgebundleR для создания сюжета, подобного следующему: Диаграмма сетевых аккордов в R

Я успешно создал график в R Console, но при попытке отобразить его в Rshiny tabset он не отображается.

Я также пытаюсь сбросить графическое устройство, выполнив dev.off() и получив:

нулевое устройство 1

Вот часть моего кода:

Server.R

  output$ghompoz <- renderEdgebundle({
  g <- graph.data.frame(edges, directed=F, vertices=nodes)
  totalGroups<-length(unique(V(g)$group))
  clr <- as.factor(V(g)$group)
  qual_col_pals = brewer.pal.info[brewer.pal.info$category == 'qual',]
  col_vector = unlist(mapply(brewer.pal, qual_col_pals$maxcolors, rownames(qual_col_pals)))
  set.seed(400)
  levels(clr) <- sample(col_vector,totalGroups)
  V(g)$color <- as.character(clr)
  V(g)$size = degree(g)*6

  values$edgebundleg<-g
  checking<-edgebundle(g,tension=input$tension,
             fontsize=input$fontsize,padding=input$padding)

  saveEdgebundle(edgebundle(g,tension=input$tension,
                            fontsize = input$fontsize,
                            width=input$width),file="edgebundle.html")
  checking
  })

output$circlesplot <- renderUI({
edgebundleOutput("ghompoz",width = input$width, height=input$width)

UI.R

...............

  tabPanel(title="Circle_Plot",value="CP",
   fluidRow(
   column(3,
      wellPanel(
         sliderInput("tension", "Tension", 0.3,min=0,max=1,step = 0.01),
         sliderInput("fontsize","Font size",12,min=6,max=24),
         sliderInput("width","Width and height",600,min=200,max=1200),
         sliderInput("padding","Padding",100,min=0,max=300)),
      wellPanel(
             downloadButton("export",label="Download")
                                                 )),
         column(9,
                uiOutput("circlesplot")
                )))

........................

Я должен также упомянуть, добавив кнопку загрузки, я могу загрузить график в формате HTML, но, опять же, он не отображается динамически в Tabset.