Блестящая реактивность в конгломерате функций предварительной обработки и построения графиков

Question

Проблема : Ниже вы можете увидеть модуль Shiny. При запуске этого модуля в Shiny Application отображаются только параметры selectizeInputs. Сюжетная фигура, генерируемая filter_data_entry_finish_date, не отображается. Эта функция вызывает себя как selectizeInputs, предварительно обрабатывает данные в соответствии с ними, а затем строит графически график. Функция работает за пределами Shiny.

Вопрос: Какие настройки я должен внести для входов, чтобы работала функция «как есть»?

Большое спасибо за помощь!

example_UI <- function(id){
  ns <- NS(id)
  tabPanel("Panel 1",
           fluidRow(
             box(width = 12, title = "Some title", status = "info", collapsible = TRUE, collapsed = FALSE,
                 column(3, uiOutput(ns("filter_stakeholder"))),
                 column(3, uiOutput(ns("filter_aggregation_type"))),
                 column(3, uiOutput(ns("filter_dates_quarter"))),
                 column(3, uiOutput(ns("filter_dates_week"))),
                  column(12, plotlyOutput(ns("plot_open_closed_plot"))
                  )
             )
          )
  )
}

example_server <- function(input, output, session){

  output$plot_open_closed_plot <- renderPlotly({
    req(input$select_visualize_aggregation,
        input$select_quarters,
        input$select_weeks)

    if (input$select_visualize_aggregation %in% "quarter"){
      visualizeBy <- input$select_visualize_aggregation
      selectDates <- input$select_quarters
    } else {
      visualizeBy <- input$select_visualize_aggregation
      selectDates <- input$select_weeks
    }

    filter_data_entry_finish_time(data,
                                  data_name = "number1",
                                  department = reactive({input$select_stakeholder}),
                                  visualize_by = visualizeBy(),
                                  select_date = selectDates(),
                                  process.FUN = processing_function,
                                  plot.FUN = plotting_function)


  })

  ############################################################################
  ## Input UI Elements
  output$filter_stakeholder <- renderUI({
    selectizeInput(inputId = "select_stakeholder", 
                   label = "Department",
                   choices = unique(data$stakeholder), 
                   selected = "Herstellung", 
                   multiple = FALSE)
  })

  output$filter_aggregation_type <- renderUI({
    selectizeInput(inputId = "select_visualize_aggregation", 
                   label = "Visualize by",
                   choices = c("quarter", "week"),
                   selected = "quarter",
                   multiple = FALSE
    )
  })

  output$filter_dates_quarter <- renderUI({
    selectizeInput(inputId = "select_quarters", 
                   label = "Select",
                   choices = unique(data$entry_date_quarter),
                   selected = "2019 Q4",
                   multiple = TRUE
    )
  })

  output$filter_dates_week <- renderUI({
    selectizeInput(inputId = "select_week", 
                   label = "Select",
                   choices = unique(data$entry_date_week),
                   selected = "2019 W51",
                   multiple = TRUE
    )
  })

}