# ------------------------------------------------------------------------ #
#
# 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")
function(input, output, session) {
lapply(
X = seq_len(14),
FUN = function(x) {
output[[paste0("res", x)]] <- renderPrint({
input[[paste0("test", x)]]
})
}
)
observeEvent(input$maj, {
if (input$maj != "Aucun") {
updateRadioGroupButtons(session = session, inputId = "test10", selected = input$maj)
}
})
output$resverif <- renderPrint({
input$verif
})
output$verifDT <- renderDataTable({
head(iris)
})
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.