Ajouter de simples entrées pour modifier un graphique

Études de cas : créer des applications Web avec Shiny en R

Dean Attali

Shiny Consultant

Application de graphique Gapminder

Champs de texte

ui <- fluidPage( 
    textInput(inputId = "package", 
              label = "What's your favourite R package?",
              value = "shiny")
)

server <- function(input, output) {}

shinyApp(ui, server)

Entrées de texte

str(input$package)

chr "shiny"

Champs numériques

numericInput("years", "How many years have you been using R?",
             value = 4, min = 0, max = 25)

Entrées numériques

str(input$years)

int 4

Cases à cocher

checkboxInput("agree", "I agree to the terms and conditions",
              value = TRUE)

Cases à cocher

str(input$agree)

logi TRUE

Passons à la pratique !

Études de cas : créer des applications Web avec Shiny en R