Rshiny timevis и блестящий ошибка?дерево не отображается при использовании с timevis

Question

Я новичок в R и глянцевая студия, я пытаюсь составить план с фильтрами для курсов.Это уже работает с ванильными флажками, но дерево было бы лучше.Когда я не использую timevisoutputs, дерево отображается, когда добавлено, оно исчезло?Вывод Timevis находится в нижней части кода. Timevis и sparktree являются внешними пакетами, может, они не могут работать вместе?

    library(shiny)
library(shinythemes)

groups <- data.frame(
  id = c("BOP", "probleem oplossend denken", "Netwerken 1"),
  content = c("BOP", "probleem oplossend denken", "Netwerken 1")
)

dataGroups <- data.frame(
  id = 1:9,
  content = c("Opdracht", "Opdracht",
              "Opdracht", "Opdracht", "Opdracht",
              "Opdracht", "Opdracht", "Opdracht", "Opdracht"),
  start = c("2018-05-01 07:30:00", "2018-05-01 14:00:00",
            "2018-05-01 06:00:00", "2018-05-01 14:00:00", "2018-05-01 08:00:00",
            "2018-05-01 08:00:00", "2018-05-01 08:30:00", "2018-05-01 14:00:00",
            "2018-05-01 16:00:00"
  ),
  end   = c("2018-05-01 12:00:00", "2018-05-01 20:00:00",
            "2018-05-01 12:00:00", "2018-05-01 22:00:00", "2018-05-01 10:00:00",
            "2018-05-01 08:30:00", "2018-05-01 12:00:00", "2018-05-01 16:00:00",
            "2018-05-01 20:00:00"
  ),
  group = c(rep("BOP", 2), rep("probleem oplossend denken", 3), rep("Netwerken 1", 4)),
  type = c(rep("range", 9))
)


data <- data.frame(
  id      = 1:4,
  content = c("Item one", "Item two",
              "Ranged item", "Item four"),
  start   = c("2016-01-10", "2016-01-11",
              "2016-01-20", "2016-02-14 15:00:00"),
  end     = c(NA, NA, "2016-02-04", NA)
)


server <- function(input, output, session) {
  output$timeline1 <- renderTimevis({
    timevis(data)
  })

  output$timeline2 <- renderTimevis({
    timevis(data = dataGroups, groups = data.frame( id = input$checkGroup, content= input$checkGroup), options = list(editable = TRUE))
  })

  output$tree <- renderTree({
    structure(
      list(
        'Fase 1' = structure(
          list(
            'OOP'=structure('',stid=1,stclass='study'), 
            'web1'=structure('',stid=2,stclass='study')
          ),
          stid=1,
          stopened=TRUE,
          stclass='project'
        ), 
        'Fase 2' = structure(
          list(
            'web2'=structure('',stid=3,stclass='study'), 
            'OOO'=structure('',stid=4,stclass='study')
          ),
          stid=2,
          stopened=TRUE,
          stclass='project'
        ), 
        'Fase 3' = structure(
          list(
            'pvm'=structure('',stid=3,stclass='study'), 
            'mobiele'=structure('',stid=4,stclass='study')
          ),
          stid=2,
          stopened=TRUE,
          stclass='project'
        )
      ),
      stopened=TRUE
    )
  })
}

ui <- fluidPage(theme=shinytheme("cerulean"),

                titlePanel("Use an existing theme"),

                sidebarLayout(

                  sidebarPanel(
                    h3("Note the button is black. This is different from the previous app."),
                    actionButton("button", "A button")
                  ), 

                  mainPanel(
                    tabsetPanel(
                      tabPanel("Plot"), 
                      tabPanel("Summary"), 
                      tabPanel("Table")
                    ),




                    fluidRow(

                      column(3,
                             shinyTree("tree", checkbox = TRUE,theme="proton")),
                      column(3,
                             checkboxGroupInput("checkGroup", label = h3("Checkbox group"), 
                                                choices = list("Netwerken 1" = "Netwerken 1", "Probleem oplossend denken" = "Probleem Oplossend denken", "BOP" = "BOP"),
                                                selected = "Netwerken 1"))


                    ),
                    fluidRow(

                      column(12,
                             textInput("text", h3("Text input"), 
                                       value = "Enter text..."))


                    ),
                    fluidRow(

                      column(12,
                             textInput("text", h3("Text input"), 
                                       value = "Enter text..."))


                    ),
                    fluidRow(

                      column(12,
                             timevisOutput("timeline1"))


                    ),
                    fluidRow(

                      column(12,
                             timevisOutput("timeline2"))


                    )


                  )
                )
)

shinyApp(ui = ui, server = server)

Заранее спасибо!Кальвин