R/shiny_app_ui.R

In thisisnic/noticeboard:

#' Shiny app server object
#'
#' @import shiny
shiny_app_ui <- fluidPage(
  
  titlePanel("noticeboard"),
  
  sidebarLayout(
    
    sidebarPanel(
      
      helpText("Select package and labels to search from the options below"),
      uiOutput("package_choices"),
      uiOutput("label_choices"),
      actionButton("search", "Search")
    ),
    
    mainPanel(
      dataTableOutput("packageTable")
    )
  )
)