error in registershinydebughook 28params 29 3a attempt to set an attribute on null

1ui <- fluidPage(
2  pageWithSidebar(
3    headerPanel("Analysis"),
4
5    sidebarPanel(
6      sliderInput("ABC", "ABC Range",
7                  min = 0, max = 400, value = c(0,400), step = 10),
8      sliderInput("DEF", "DEF Range",
9                  min = 0, max = 400, value = c(0,400), step = 10),
10      pickerInput("HIJ","HIJ",
11                  choices = HIJ.unique,
12                  options = list('actions-box' = TRUE),
13                  multiple = TRUE),
14      pickerInput("Year","Year",
15                  choices = Year.unique,
16                  options = list('actions-box' = TRUE),
17                  multiple = TRUE)
18    ),
19
20    mainPanel(
21      plotOutput("myplot")
22  ) 
23 ) 
24)

1server<- shinyServer(function(input, output, session){
2
3
4  output$myplot<- renderPlot({
5
6    filteredData <- ORIGINAL.TABLE %>%
7      filter(ABC > input$ABC[1], ABC < input$ABC[2],
8             DEF > input$DEF[1], DEF < input$DEF[2],
9             GHI %in% input$GHI,
10             YEAR %in% input$Year)
11
12    p <- ggplot(data=filteredData,
13                aes(x = filteredData$ABC, y = filteredData$DEF,
14                       color = filteredData$GHI, group = filteredData$GHI, fill = filteredData$DMA)) +
15      geom_point()
16
17    p + theme(legend.position = 'none')
18
19  })
20
21
22})