R Shiny: объект типа «замыкание» не является поднабором - не реагирует

Question

Я знаю, что этот вопрос задавался много раз прежде, но большинство из этих вопросов, похоже, используют «реактивный», который я не использую.Я не знаю, должен ли я быть, я очень плохо знаком с блеском.Читая некоторые другие посты, я представляю, что мне нужно где-то добавлять скобки, но я не знаю, где их поставить.

Я вставил свой код ниже:

ui <- fluidPage(

  titlePanel("Hello Shiny!"),

  sidebarLayout(

    sidebarPanel(

        selectizeInput(inputId = 'lsoa', 
                     label = 'Choose your lsoa', 
                     choices = c('Ealing' = 'ealing', 
                                 'Camden' = 'camden') , 
                     selected = 'camden', multiple = TRUE),
      uiOutput(outputId = 'tim')

    ),


    mainPanel(

      leafletOutput(outputId = "map")

    )
  )
)


server <- function(input, output) {

  output$map <- renderLeaflet({
    l = leaflet(data = noise_lsoa) %>% 
      addTiles()%>%
      setView(lng = -0.083449, lat = 51.512573, zoom = 09)%>%
      addMarkers(lng = ~longitude, 
                 lat = ~latitude, 
                 popup = ~as.character(lpaeq_T), 
                 label = ~as.character(lsoa11nm))
      #addAwesomeMarkers(
      # lng=-0.4, lat=51.078039,
      #label='Testing additional labels',
      #icon = icon.glyphicon) %>%
    if (!is.null(input$lsoa)){

      l %>%

        addPolygons(data = subset(main_shape, grepl(paste(input$lsoa, collapse = '|'), 
                                                    tolower(lsoa11nm))), 
                    color = "#444444", 
                    weight = 1, 
                    smoothFactor = 0.5,
                    opacity = 1.0, 
                    fillOpacity = 0.5)
    }else {
      l
    }
    output$tim <- renderUI({
      minimum = min(noise_merge$full_date_time, na.rm = TRUE)
      maximum = max(noise_merge$full_date_time, na.rm = TRUE)

      sliderInput(inputId = 'time', label = 'Select your time',
                  min = minimum,
                  max = maximum,
                  value = minimum,
                  timeFormat = '%F %T')
    })
  })
}

Спасибо