Error in registerShinyDebugHook(params) : attempt to set an attribute on NULL
ui <- fluidPage(
pageWithSidebar(
headerPanel("Analysis"),
sidebarPanel(
sliderInput("ABC", "ABC Range",
min = 0, max = 400, value = c(0,400), step = 10),
sliderInput("DEF", "DEF Range",
min = 0, max = 400, value = c(0,400), step = 10),
pickerInput("HIJ","HIJ",
choices = HIJ.unique,
options = list('actions-box' = TRUE),
multiple = TRUE),
pickerInput("Year","Year",
choices = Year.unique,
options = list('actions-box' = TRUE),
multiple = TRUE)
),
mainPanel(
plotOutput("myplot")
)
)
)
server<- shinyServer(function(input, output, session){
output$myplot<- renderPlot({
filteredData <- ORIGINAL.TABLE %>%
filter(ABC > input$ABC[1], ABC < input$ABC[2],
DEF > input$DEF[1], DEF < input$DEF[2],
GHI %in% input$GHI,
YEAR %in% input$Year)
p <- ggplot(data=filteredData,
aes(x = filteredData$ABC, y = filteredData$DEF,
color = filteredData$GHI, group = filteredData$GHI, fill = filteredData$DMA)) +
geom_point()
p + theme(legend.position = 'none')
})
})