Shiny : récupérer valeurs CheckboxGroupInput.

Bonjour à tous,

Je débute sur R et sur Shiny également.

Voici mon problème : je cherche à récupérer la/les valeur(s) cochée(s) dans un CheckboxGroupInput afin de dénombrer les occurences correspondantes dans la table de référence.

A savoir que les données de ma tables sont toutes au format caractère.

Je parviens à afficher le résultat de mes coches dans un "renderText", mais je n'arrive pas à les récupérer dans une variable afin de lancer une recherche dans la table de référence.

Je suppose qu'il faut "jongler" avec les guillemets, mais j'avoue que je cale déjà.

Si vous pouviez donner un petit coup de pouce à un noobie svp...

Merci infiniment.

Bonjour,

Je ne suis pas sûre d'avoir bien compris la question mais peut-être que l'exemple qui suit pourra vous aider :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 # ui.R fluidPage( checkboxGroupInput("checkGroup", label = h3("Checkbox group"), choices = list("Choice 1" = 1, "Choice 2" = 2, "Choice 3" = 3), selected = 1), hr(), fluidRow(column(3, verbatimTextOutput("value1"))) )
Code:

1 2 3 4 5 6 7 # server.R function(input, output) { output$value1 <- renderPrint({ input$checkGroup[1] }) }
En effet, vous pouvez récupérer les valeurs sélectionnées dans le "CheckboxGroupInput" dans un vecteur : values <- input$checkGroup et y accéder comme pour n'importe quel vecteur R : values[1], par exemple.

HTH ! :)

Cordialement,

A.D.

Bonjour,

Pardon pour cette réponse tardive, et merci beaucoup pour votre réponse, elle m'a bien aidé.

J'aimerais si vous le voulez bien vous demander une dernière chose : maintenant que je sais récupérer les valeurs des cases à cocher, j'aimerais créer plusieurs data frames en fonction des cases qui auront été cochées dans le checkboxGroup Input, mais je ne parviens pas à les créer.

Voici mon code (package shinydashboard) pour l'interface Ui.R :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 library(shiny) library(DT) library(shinydashboard) ui <- dashboardPage( dashboardHeader(title = "TEST",titleWidth = 500 ), # dashboardHeader close dashboardSidebar(## Sidebar content sidebarMenu( menuItem("Level", tabName = "level", icon = icon("arrow-down")), menuSubItem("Country",icon = icon("globe"), tabName = "country"), menuSubItem("County",icon = icon("circle-o"), tabName = "county"), menuSubItem("Town",icon = icon("spinner"), tabName = "town"), menuItem("datas", tabName = "datas", icon = icon("list-alt")), menuItem("Maps", tabName = "maps", icon = icon("th")) ) # sidebarMenu close ), # f. de dashboardSidebar # Body content dashboardBody( tabItems(# Country tab content tabItem(tabName = "country", fluidRow( box(title = "Click on datas tab", width = 9, background = "olive") ) # fluidRow close ), # tabItem close # County tab content tabItem(tabName = "county", fluidRow( box(title = "Counties", width = 3, solidHeader = TRUE, status = "primary", checkboxGroupInput("dynamic_counties", label = "", choices = list("First county" = "North", "Second county" = "South", "Third county" = "East")) ) # box close ) # fluidRow close ), # tabItem close # Town tab content tabItem(tabName = "town", #h4("Check one or more box(es)", checkboxGroupInput( "dynamic", label = h4("Check one or more box(es)"), choices = list("01. Town 1" = "01", "02. Town 2" = "02", "03. Town 3" = "03", "04. Town 4" = "04", "05. Town 5" = "05", "06. Town 6" = "06", "07. Town 7" = "07", "08. Town 8" = "08", "09. Town 9" = "09", "10. Town 10" = "10", "11. Town 11" = "11", "12. Town 12" = "12")) ), # tabItem close tabItem(tabName = "datas", fluidRow( box(title = "General datas", solidHeader = TRUE, status = "primary", DT::dataTableOutput("df")) ) # fluidRow close ) # tabItem close ) # tabItems close ) # dashboardBody close ) # dashboardPage close
Et le code côté Server.R :
Code:

1 2 3 4 observe({town<-renderText({input$dynamic}) if (length(input$dynamic) = 1){paste("BI14_",town)<-subset(BI14,PC %in% input$dynamic)}})
J'ai une grosse table de 250 000 lignes et 190 colonnes appelée BI14, et afin d'accélérer les traitements, j'aimerais créer une nouvelle data frame à partir de la table BI14, à chaque fois qu'une case est cochée durant la sélection.

Exemple : si je coche les cases "town 2" et "town 10 dans l'onglet "Town", j'aimerais que les tables BI14_02 et BI14_10 soient créées. C'est le champ "PC" de la table BI14 qui sert à faire la sélection de ce qui nous intéresse.
Autre exemple, si je coche les cases "First county" et "Second county" dans l'onglet "County", les tables "BI14_North" et BI14_South seront créées.
Par contre, si je clique sur l'onglet "Country", c'est la table BI14 qui servira de base de sélection et les traitements se feront directement dans cette table.

Je suppose qu'il faut mettre en facteur les valeurs des checkboxGroup Input pour créer ces tables, mais lorsque j'éxecute mon code, ça n'a pas l'air de fonctionner car je ne vois pas apparaître de nouveaux objets data frames dans l'environnement.

Je crois que mon niveau actuel sur R est bien insuffisant pour pouvoir faire de telles choses.

J'espère que je vous ai exposé clairement mon cas, et que vous voudrez bien me donner un coup de pouce.

Merci infiniment.

Bonjour,

Si j'ai bien compris votre problématique, le problème vient de cet élément :

Code:

paste("BI14_",town)<-subset(BI14,PC %in% input$dynamic)

En effet, paste("BI14_",town) renvoie une chaîne de caractères, il n'est donc pas possible d'assigner une table "dans" une chaîne de caractères.
Il y a ici plusieurs manières de procéder :

Soit utiliser la fonction "assign" :

Code:

assign( paste("BI14_",town), subset(BI14,PC %in% input$dynamic) )

Soit passer par une liste, par exemple :
Code:

1 2 3 4 5 6 7 maliste <- list("") maliste[[ paste("BI14_",town) ]] <- subset(BI14,PC %in% input$dynamic) # puis pour accéder à un élément en particulier, par exemple : maliste$BI14_North
HTH ! :)

Cordialement,

A.D.

Bonjour A.D,

Merci infiniment pour votre réponse qui m'a bien éclairé et m'a bien fait avancer.

Juste une dernière question svp : je pensais voir les nouvelles tables apparaître dans l'environnement mais ce n'est pas le cas. Est-ce normal ?

Encore merci pour votre gentillesse.

Bien à vous.

Bonjour,

Citation:

Envoyé par Axe_Débutant

je pensais voir les nouvelles tables apparaître dans l'environnement mais ce n'est pas le cas.

Vous voulez dire, dans l'environnement local ? celui de RStudio ?

Ici vous êtes dans une appli "shiny" donc lorsqu'elle est lancée, vous n'êtes plus dans l'environnement R "de travail".
Désolée si mon explication n'est pas très claire (je ne suis pas informaticienne ^^) mais en tout cas c'est tout à fait normal il me semble :)

Bonne continuation !

Cordialement,

A.D.

Bonjour,

Pardonnez mon ignorance, du fait que lorsque l'on crée une fonction, celle-ci apparaît dans l'environnement de travail (le Global environment) c'est à dire la fenêtre en haut à droite dans R-Studio. Je pensais donc y voir également les tables nouvellement créées.

Mais j'en prends note.

Merci pour vos réponses et votre patience.

Bonne continuation à vous aussi.

Bien cordialement.