0
Q:

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")
  ) 
 ) 
)
0
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')

  })


})
0

New to Communities?

Join the community