troubles plotting in shiny.

[picousse]

i have code that works in terminal.
however if i want to put it in a shiny, the plots doesn't show.

ui.R file:

library(collapsibleTree)
iibrary(shiny)

ui <- fluidPage(

  # Application title
  titlePanel("Tree"),
  
  sidebarLayout(
    sidebarPanel(
      width = 2,
      textInput("tr", "tr (comma seperated): ", value = "xxxx", width = NULL, placeholder = NULL),
      
      actionButton(
        "tr_update",
        "Draw Tree",
        icon = NULL,
        width = NULL
      )
      
    ),
    mainPanel(
      collapsibleTreeOutput("d3", height = "700px")
    )
  )
)

server.r file

library(shiny)
library(inbioseR)
library(collapsibleTree)
require(data.tree)

# Define server logic required to draw a histogram
server <- function(input, output, session) {
  p <- eventReactive(input$tr_update, {

... code to create correct dataframe (which seems in order)    


t #final dataframe to return with a column, compare_str to be used as attribute
    
    
  })
  
  output$d3 <- renderCollapsibleTree({
    t <- p()
    collapsibleTreeNetwork(t,  collapsed = FALSE, linkLength=100, tooltipHtml = 'compare_str')
    })
  
}

why doesn't this show up?