inst/shiny_search/ui.R

In AU-BURGr/ozdata: Import and explore freely available Australian data sets

require(shiny)
require(tibble)
require(shinythemes)


myUI <- shinyUI(fluidPage(
    theme = shinythemes::shinytheme("cerulean"),

    titlePanel("Search data.gov.au"),

    sidebarLayout(
        # Sidebar panel which contains the input options for user selection
        # Define sidebar panel width
        sidebarPanel(
            helpText("Welcome to the R Project interface for searching Australian government open data."),

            # text search input box
            textInput("text",
                      label = h5("Input search keyword"),
                      value = "Enter text..."),

            # # Insert date range selection option
            # fluidRow(
            #     column(12,
            #            dateRangeInput("dates", label = h5("Date range")))),

            # Insert drop down box with data.gov.au catetegory selections
            selectInput("select_organisation",
                        label = h5("Organisation"),
                        choices = group_var,
                        selected = "All"),

            # dropdown for ids
            selectInput("oz_id",
                        label = h5("Package ID"),
                        choices = NULL,
                        multiple = FALSE),

            actionButton("button_get_data", "Get data"),

            hr(),

            # Insert BUGr image and licence conditions
            img(src="highres_456807711.png", height = 40, width = 40), "BURGr UnConf 2017",
            p("Insert licence conditions - e.g. GPL2", style = "font-family: 'times'; font-size:7pt")
        ),   # end 'sidebarPanel'

        # Define shiny Main Panel
        mainPanel(
            tabsetPanel(
                tabPanel("Search Results",
                         h4("Metadata", align = "center"),
                         p("This area will be used to display search output tables"),
                         # Call in
                         textOutput("value1"), br(),
                         textOutput("text1"), br(),
                         textOutput("text2"), br(),  # Reactive output from server.R file
                         dataTableOutput("table_metadata")
                ),
                tabPanel("URLs",
                         verbatimTextOutput("react_test")
                )



            )   # end 'mainPanel'

        )   # end 'sidebarLayout'

    )))   # end Shiny UI definition