Shiny App, Предупреждение: ошибка в максимуме: недопустимый «тип» (список) аргументов

Question

Я пытаюсь создать блестящее приложение с 3 раскрывающимися списками, в которых можно выбрать переменную. Приложение работает, с точки зрения я получаю приборную панель, но я не получаю желаемый результат. При выборе конкретной переменной в таблицу или дерево не вносятся изменения.

Я изменяю ранее существующий код, который работает для двух переменных, добавляя новую переменную "Год". Я получаю следующее сообщение

"Прослушивание Предупреждение: ошибка в максимуме: неверный тип (список) аргумента 96: collapsibleTreeSummary 95: func [O: \ DIVISIONAL DRIVES \ Research / 2019] 82: origRenderFunc 81: выходной $ участок 1: runApp "

Ниже приведена часть кода моего сервера

---

observeEvent(input$reset_input,{
p <- NULL
output$plot <- renderCollapsibleTree({
  dat <- data.1()
  p <- collapsibleTreeSummary(
    dat, hierarchy = c("Sector  Area","Sub-sector  Area"," Organisation"), root = "Framework", attribute = "Number of attempts", inputId = "node", zoomable = FALSE,
    fillFun = colorspace::heat_hcl, fontSize = 11)
  p
})

session$sendCustomMessage(type = "resetValue", message = "node")
})

---

Или это будет что-то еще?