inst/examples/radioGroupButtons/ui.R

In aghozlane/shinyWidgets: Custom Inputs Widgets for Shiny

# ------------------------------------------------------------------------ #
#
# Descriptif : Radio Group Buttons : fonctions R
#     Detail : http://getbootstrap.com/javascript/#buttons-checkbox-radio
#
#
# Auteur : Victor PERRIER
#
# Date creation : 01/07/2016
# Date modification : 01/07/2016
#
# Version 1.0
#
# ------------------------------------------------------------------------ #



# radioGroupButtons ----------------------------------------------------

library("shiny")
library("shinyWidgets")

fluidPage(
  tags$h1("radioGroupButtons", style = "color: steelblue;"),
  tags$h3("Des radio en forme de boutons."),
  br(),
  tags$h4("Usage classique"),
  fluidRow(
    column(
      width = 4,
      radioGroupButtons(inputId = "test1", label = "Juste avec les labels", choices = c("Choix 1", "Choix 2", "Choix 3")),
      verbatimTextOutput(outputId = "res1")
    ),
    column(
      width = 4,
      radioGroupButtons(
        inputId = "test2", label = "Avec des values différentes des labels",
        choices = c("Choix 1" = "A", "Choix 2" = "B", "Choix 3" = "C")
      ),
      verbatimTextOutput(outputId = "res2")
    ),
    column(
      width = 4,
      radioGroupButtons(
        inputId = "test3", label = "Avec des choix par défauts",
        choices = c("Choix 1" = "A", "Choix 2" = "B", "Choix 3" = "C", "Choix 4" = "D"), selected = "B"
      ),
      verbatimTextOutput(outputId = "res3")
    )
  ), br(), br(),
  tags$h4("Avec des statuts bootstrap"),
  fluidRow(
    column(
      width = 4,
      radioGroupButtons(
        inputId = "test4", label = "Juste avec les labels",
        choices = c("Choix 1", "Choix 2", "Choix 3"), status = "primary"
      ),
      verbatimTextOutput(outputId = "res4")
    ),
    column(
      width = 4,
      radioGroupButtons(
        inputId = "test5", label = "Avec des values différentes des labels",
        choices = c("Choix 1" = "A", "Choix 2" = "B", "Choix 3" = "C"), status = "danger"
      ),
      verbatimTextOutput(outputId = "res5")
    ),
    column(
      width = 4,
      radioGroupButtons(
        inputId = "test6", label = "Avec des choix par défauts",
        choices = c("Choix 1" = "A", "Choix 2" = "B", "Choix 3" = "C", "Choix 4" = "D"), selected = "B", status = "success"
      ),
      verbatimTextOutput(outputId = "res6")
    )
  ), br(), br(),
  tags$h4("Avec effets de style"),
  fluidRow(
    column(
      width = 4,
      radioGroupButtons(inputId = "test7", label = "Taille", choices = c("Choix 1", "Choix 2"), size = "lg"),
      verbatimTextOutput(outputId = "res7")
    ),
    column(
      width = 4,
      radioGroupButtons(inputId = "test8", label = "Vertical", choices = c("Choix 1", "Choix 2", "Choix 3"), direction = "vertical"),
      verbatimTextOutput(outputId = "res8")
    ),
    column(
      width = 4,
      radioGroupButtons(inputId = "test9", label = "Justifié", choices = c("Choix 1", "Choix 2"), justified = TRUE),
      verbatimTextOutput(outputId = "res9")
    )
  ), br(), br(),
  tags$h4("Update !"),
  fluidRow(
    column(
      width = 4,
      radioGroupButtons(inputId = "test10", choices = c("A", "B", "C", "D")),
      verbatimTextOutput(outputId = "res10")
    ),
    column(
      width = 4,
      selectizeInput(inputId = "maj", label = "Update radioGroupButtons", choices = c("Aucun", "A", "B", "C", "D"), selected = "Aucun")
    ),
    column(
      width = 4,
      radioGroupButtons(inputId = "test11", choices = c("A", "B", "C", "D"), checkIcon = list(yes = icon("ok", lib = "glyphicon"))),
      verbatimTextOutput(outputId = "res11")
    )
  ), br(), br(),
  tags$h4(icon("thumbs-up", "fa-2x"), "Icons !"),
  fluidRow(
    column(
      width = 12,
      tags$div(
        style = "width: 100%;",
        radioGroupButtons(
          inputId = "test12",
          choices = c(
            "<i class='fa fa-bar-chart'></i>" = 1,
            "<i class='fa fa-bar-chart'></i> (stacked)" = 2,
            "<i class='fa fa-bar-chart'></i> (dodged)" = 3,
            "<i class='fa fa-pie-chart'></i>" = 4
          ), justified = TRUE
        ),
        verbatimTextOutput(outputId = "res12")
      )
    )
  ), br(), br(),

  fluidRow(
    column(
      width = 4,
      tags$h4("radioButtons de shiny"),
      radioButtons(inputId = "verif", label = "Classique", choices = c("Choix 1", "Choix 2", "Choix 3")),
      verbatimTextOutput(outputId = "resverif")
    ),
    column(
      width = 4,
      tags$h4("Conflicts with DT"),
      dataTableOutput(outputId = "verifDT")
    )
  )
)