R/ui.R

In czeildi/shinypackage: a simple shiny app

shinypackage_ui <- function(launch_param) {

    fluidPage(

        title = "EU births shiny demo",

        sidebarPanel(
            sliderInput(
                inputId = 'period', label = 'Period to show:',
                min = 2007, max = 2015, value = c(2007, 2015),
                sep = '', step = 1
            ),
            p("launch_param: ", launch_param),
            width = 2
        ),

        mainPanel(
            tabsetPanel(
                tabPanel(
                    title = 'table',
                    dataTableOutput(outputId = "birth_dt")
                ),
                tabPanel(
                    title = 'summary plot',
                    plotOutput('birth_summary_plot', height = "700px")
                )
            ),
            width = 10
        )
    )
}