Demo on conditionalPanel. References: https://groups.google.com/forum/#!topic/shiny-discuss/paxy-rwJng4 https://groups.google.com/forum/#!topic/shiny-discuss/gTKtTAYXNkk

global.R

# global.R


c1 <- c("16681","16892","18586","18921","18923","19731","19775","20275","20965","22873")
c2 <- c("20267","24093","24095","25386","25359","25388","25396","25397")

server.R

# server.R

library("shiny")

shinyServer(
  function(input, output, session) {
     
     output$showPanel <- renderText({
         out <- 1
         if (input$SiteNo %in% c1) { out <- 1 }
         else { out <- 0 }
         return(out)
     })
        
  }
)

ui.R

# ui.R

shinyUI(
  pageWithSidebar(
    headerPanel("Testing & Debugging")
    , 
    sidebarPanel(
      selectInput(
        "SiteNo"
        , "CenterID"
        , c(c1,c2)
      )
      ,
      conditionalPanel(
        condition = "output.showPanel == true"
          , selectInput("WeekNo1", "Batch", c("1","34"))
      )
      ,
      conditionalPanel(
        condition = "output.showPanel == false"
          , selectInput("WeekNo2", "Batch", c("1","34","37"))
      )
    )
    ,
    mainPanel( h4("Debug:"), textOutput("showPanel"))
  )
)