Discussion :

[Wallentyne]

Bonjour à toutes et à tous,

Je suis en train de faire un programme de R-shiny et je ne sais pas comment faire quelque chose.
En effet, je souhaiterai afficher 3 boxplot pour chaque variables sélectionnées dans le checkbox.
Pour le moment le code dans le server permet d'afficher les boxplot seulement de la variable pk (pk1, pk2, pk5), mais je ne sais pas comment faire pour que ça affiche en fonction de ma sélection dans les cases à cocher.
Par exemple si je coche pk et f, il faudrait que s'affiche les 3 boxplot pk (pk1,pk2,pk5) et les 3 boxplot f (f1,f2,f5)


UI:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
shinyUI(
    sidebarLayout(      
        sidebarPanel( 
 
checkboxGroupInput("variables", label = h3("Choisir les vaiables qui vous intéresse"),
                                          choices = c("Pk" = "pk1", "f" = "f1"),
                                          selected = "pk1" ,
                             ) #checkboxGroupInput
 
                           ), #sidebarPanel
 
        mainPanel( 
                        tabPanel("BoxPlot", value = "D", tabName="D",
                                 h3("Répartition"),
                                 plotOutput("boxplot"),
                        ) #tabPanel D
                      )#mainPanel
 
       )# sidebarPanel
    )#sidebarLayout  
)#shinyUI

SERVER:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
shinyServer(function(input, output) {
 
#BoxPlot
    output$boxplot <- renderPlot({
       par(mfrow=c(1,3))
        boxplot(data$pk1~data$group )
        boxplot(data$pk2~data$group)
        boxplot(data$pk5~data$group)
 
    }) #BoxPlot
 
}) #ShinyServer

Pouvez-vous m'aider?
Si vous besoin de précision n'hésitez pas

Merci d'avance
Valentine

[comme de bien entendu]

Bonjour,
Il est possible d'utiliser un Conditional Panel qui ne fera apparaitre des elements d'interface que si une condition est remplie en fonction d'un booléen :

Exemple pour un select input :

UI

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
actionButton("do2", "Selection des champs:"),
conditionalPanel(condition='output.bool2',
                               selectizeInput('ListeHeader2',label="ChampsACroiser" ,choices = c("Merci d'activer la liste"))),

SERVER

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
# utillisation de la variable globale
value2=TRUE
output$bool2<- eventReactive(input$do2,{
    value2 
  })
outputOptions(output,"bool2",suspendWhenHidden=FALSE)
observeEvent(input$do2, {
   # changement de la valeur de la variable le "<<-" permet de modifier une variable globale
    value2 <<- !value2 
    updateSelectizeInput(session, 'ListeHeader2', choices =c("1","2","3"), server = TRUE)
  })