Bonjour à tous,

J'ai découvert R il n'y a une semaine et j'ai décidé de me lancer dans le développement d'un petit outil pour une mission. Mais mes capacités sont limités pour le moment et la doc trouvée sur le net ne pas beaucoup aidé pour mon problème.

Dans mon shinydashboard, j'ai un bouton qui permet l'import d'un fichier .ods, et j'ai des selectInput juste en dessous. J'aimerai pouvoir récupérer les entête de champs du fichier directement dans les selectInput. Par exemple pour la première sélection les entête de C1 à F1, etc. Je ne sais pas comment récupérer ces données.

Ensuite dans mon fichier .ods, j'ai pour chaque champs des cellules remplis avec "Oui" ou rien. J'aimerai qu'a partir des sélections ci-dessus il me sorte les lignes ou la valeur est égal à "Oui". En gros si on a sélectionné C1 dans un des selectInput, il extrait les lignes ou la valeur de C1 = "Oui".

Cette extraction est affiché ensuite dans un tableau avec des champs sélectionnés.

Je sais pas si c'est très clair.

Voilà mon code pour le moment :

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
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
 
library(DT)
library(readODS)
library(shinydashboard)
 
  ui <- dashboardPage(
    dashboardHeader(title ="Test"),
    dashboardSidebar(
      fileInput("odsFile", "Choisissez un fichier .ods",
                accept = c(".ods")),
      selectInput("perimetre", "Territoire", "test"),
      selectInput("echelle", "Echelle", "test2"),
      selectInput("doc", "Document existant", "test3"),
      actionButton("submit", ("Extraction"))
    ),
      dashboardBody(
        fluidPage(
          fluidRow(
            column(width=12,
                    tableOutput("mydata"),
                    DT::dataTableOutput("Extraction_table")
            )
          )
        )
      )
  )
 
  server = function(input, output) {
 
    #Initial Dataframe
    FinalData = eventReactive(input$submit,{
      Testdata = data.frame("Sous.Themes" = input$perimetre, "Donnees" = input$echelle,
                                  "Validation" = "", "Fiche donnee" = input$doc)
    })
 
    #Extraction
    output$Extraction_table = renderDataTable(FinalData())
 
    #Fichier source
    mydatarea <- reactive({
      inFile <- input$odsFile
      if (is.null(inFile)) { 
        return(NULL)
        read.ods(inFile$datapath, sheet = 1, header = input$header)
      }
    })
  }
 
  shinyApp(ui, server)
Pour le moment dans les selectInput je n'ai réussi à afficher que des valeurs fixes "test", "test2", "test3" mais pas les variables des entêtes.

Si une âme généreuse pouvait m'orienter

Merci d'avance !!!