inst/demo/ui.R

In lrodriguezlujan/shinyga: Google Analytics for shiny

fluidPage(
  shinyga::useGoogleAnalytics(debug=TRUE),
  tags$head(tags$style(HTML("
                            .shiny-text-output {
                            background-color:#fff;
                            }
                            "))),
  h1("Shiny Widgets Gallery"),
  a("Source", href="https://shiny.rstudio.com/gallery/widget-gallery.html"),
  br(),
  br(),

  fluidRow(

    column(4,
           wellPanel(
             h3("Action button"),
             actionButton("action", label = "Action"),
             hr(),
             p("Current Value:", style = "color:#888888;"),
             verbatimTextOutput("actionOut"),
             a("See Code", class = "btn btn-primary btn-md",
               href = "https://gallery.shinyapps.io/068-widget-action-button/")
           )),

    column(4,
           wellPanel(
             h3("Single checkbox"),
             checkboxInput("checkbox", label = "Choice A",
                           value = TRUE),
             hr(),
             p("Current Value:", style = "color:#888888;"),
             verbatimTextOutput("checkboxOut"),
             a("See Code", class = "btn btn-primary btn-md",
               href = "https://gallery.shinyapps.io/070-widget-checkbox/")
           )),

    column(4,
           wellPanel(
             checkboxGroupInput("checkGroup",
                                label = h3("Checkbox group"),
                                choices = list("Choice 1" = 1, "Choice 2" = 2,
                                               "Choice 3" = 3),
                                selected = 1),
             hr(),
             p("Current Values:", style = "color:#888888;"),
             verbatimTextOutput("checkGroupOut"),
             a("See Code", class = "btn btn-primary btn-md",
               href = "https://gallery.shinyapps.io/069-widget-check-group/")
           ))
  ),

  fluidRow(

    column(4,
           wellPanel(
             dateInput("date", label = h3("Date input"), value = "2014-01-01"),
             hr(),
             p("Current Value:", style = "color:#888888;"),
             verbatimTextOutput("dateOut"),
             a("See Code", class = "btn btn-primary btn-md",
               href = "https://gallery.shinyapps.io/071-widget-date/")
           )),

    column(4,
           wellPanel(
             dateRangeInput("dates", label = h3("Date range")),
             hr(),
             p("Current Values:", style = "color:#888888;"),
             verbatimTextOutput("datesOut"),
             a("See Code", class = "btn btn-primary btn-md",
               href = "https://gallery.shinyapps.io/072-widget-date-range/")
           )),

    column(4,
           wellPanel(
             fileInput("file", label = h3("File input")),
             hr(),
             p("Current Value:", style = "color:#888888;"),
             verbatimTextOutput("fileOut"),
             a("See Code", class = "btn btn-primary btn-md",
               href = "https://gallery.shinyapps.io/073-widget-file/")
           ))
  ),

  fluidRow(

    column(4,
           wellPanel(
             numericInput("num", label = h3("Numeric input"), value = 1),
             hr(),
             p("Current Value:", style = "color:#888888;"),
             verbatimTextOutput("numOut"),
             a("See Code", class = "btn btn-primary btn-md",
               href = "https://gallery.shinyapps.io/074-widget-numeric/")
           )),

    column(4,
           wellPanel(
             radioButtons("radio", label = h3("Radio buttons"),
                          choices = list("Choice 1" = 1, "Choice 2" = 2, "Choice 3" = 3),
                          selected = 1),
             hr(),
             p("Current Values:", style = "color:#888888;"),
             verbatimTextOutput("radioOut"),
             a("See Code", class = "btn btn-primary btn-md",
               href = "https://gallery.shinyapps.io/075-widget-radio/")
           )),

    column(4,
           wellPanel(
             selectInput("select", label = h3("Select box"),
                         choices = list("Choice 1" = 1, "Choice 2" = 2,
                                        "Choice 3" = 3), selected = 1),
             hr(),
             p("Current Value:", style = "color:#888888;"),
             verbatimTextOutput("selectOut"),
             a("See Code", class = "btn btn-primary btn-md",
               href = "https://gallery.shinyapps.io/076-widget-select/")
           ))
  ),

  fluidRow(

    column(4,
           wellPanel(
             sliderInput("slider1", label = h3("Slider"), min = 0, max = 100,
                         value = 50),
             hr(),
             p("Current Value:", style = "color:#888888;"),
             verbatimTextOutput("slider1Out"),
             a("See Code", class = "btn btn-primary btn-md",
               href = "https://gallery.shinyapps.io/077-widget-slider/")
           )),

    column(4,
           wellPanel(
             sliderInput("slider2", label = h3("Slider range"), min = 0,
                         max = 100, value = c(25, 75)),
             hr(),
             p("Current Values:", style = "color:#888888;"),
             verbatimTextOutput("slider2Out"),
             a("See Code", class = "btn btn-primary btn-md",
               href = "https://gallery.shinyapps.io/077-widget-slider/")
           )),

    column(4,
           wellPanel(
             textInput("text", label = h3("Text input"),
                       value = "Enter text..."),
             hr(),
             p("Current Value:", style = "color:#888888;"),
             verbatimTextOutput("textOut"),
             a("See Code", class = "btn btn-primary btn-md",
               href = "https://gallery.shinyapps.io/080-widget-text/")
           ))
  )

    )