Tableau dynamique avec Rmarkdown

Postez ici vos questions, réponses, commentaires ou suggestions - Les sujets seront ultérieurement répartis dans les archives par les modérateurs

Modérateur : Groupe des modérateurs

Maxime Terrier
Messages : 3
Enregistré le : 12 Déc 2017, 08:09

Tableau dynamique avec Rmarkdown

Messagepar Maxime Terrier » 12 Déc 2017, 08:37

Bonjour,

A partir d'un fichier Excel avec plusieurs données sur des magasins, j'aimerai créer une page HTML dynamique. Sur une seule page, l'utilisateur pourrait rentrer dans une barre de recherche le nom de son magasin et retrouverait plusieurs informations appartenant à son magasin dans un tableau.

Je sais qu'il y a des structures de page HTML déjà défini avec RmarkDown. Quels sont ces différents formats ? et est-ce bien possible de créer une page HTML avec une barre de recherche avec ce package ? Peut-être qu'il existe d'autres solutions ?

Eric Casellas
Messages : 767
Enregistré le : 06 Jan 2009, 14:59

Re: Tableau dynamique avec Rmarkdown

Messagepar Eric Casellas » 12 Déc 2017, 08:49

Bonjour,

Cet exemple de la galerie officielle semble correspondre à ce que tu demande : https://shiny.rstudio.com/gallery/basic-datatable.html

Eric
Eric

Maxime Terrier
Messages : 3
Enregistré le : 12 Déc 2017, 08:09

Re: Tableau dynamique avec Rmarkdown

Messagepar Maxime Terrier » 12 Déc 2017, 16:58

Merci pour ta réponse, c'est bien un tableau de ce type qu'il me faut.

Je n'arrive cependant pas bien à structurer mon code (je suis encore débutant sur R). Comment bien utiliser les codes server.R et ui.R pour avoir le tableau ?

Merci par avance,

Serge Rapenne
Messages : 1426
Enregistré le : 20 Aoû 2007, 15:17
Contact :

Re: Tableau dynamique avec Rmarkdown

Messagepar Serge Rapenne » 12 Déc 2017, 21:47

Bonjour,

Shiny est un monde un soi. Un bon point de départ : https://shiny.rstudio.com/articles/

Serge

Maxime Terrier
Messages : 3
Enregistré le : 12 Déc 2017, 08:09

Re: Tableau dynamique avec Rmarkdown

Messagepar Maxime Terrier » 13 Déc 2017, 13:14

Merci pour le lien,

J'ai testé ce code :

Code : Tout sélectionner

```{r echo=FALSE, fig.align="center", fig.height=6, fig.width=9, results='asis'}


Outil_Positionnement<- read.csv2(file.path(chemin_data,"DATA.csv",dec=".", na.string="")


ui <- fluidPage(
  titlePanel("Outil positionnement"),

  # Create a new Row in the UI for selectInputs
  fluidRow(
    column(4,
        selectInput("CODEPDV",
                    "Code du magasin:",
                    c("All",
                      unique(as.character(data$CODEPDV))))
    ),
    column(4,
        selectInput("NOMOP",
                    "Tract S2 2017:",
                    c("All",
                      unique(as.character(data$NOMOP))))
    ),
    column(4,
        selectInput("FILIERE",
                    "Filière:",
                    c("All",
                      unique(as.character(data$FILIERE))))
    )
  ),
  # Create a new row for the table.
  fluidRow(
    DT::dataTableOutput("table")
  )
)

server <- function (input, output) {

  # Filter data based on selections
  output$data <- DT::renderDataTable(DT::datatable({
    data <- Outil_Positionnement
    if (input$CODEPDV != "All") {
      data <- data[data$CODEPDV == input$CODEPDV,]
    }
    if (input$NOMOP != "All") {
      data <- data[data$NOMOP == input$NOMOP,]
    }
    if (input$FILIERE != "All") {
      data <- data[data$FILIERE == input$FILIERE,]
    }
    data
  }))

}

shinyApp(ui, server)


Et il m'indique une erreur que je ne comprends pas du tout :

Line 47 : Error in parse(text = x, srcfile = src) : <text>:6:1: unexpected symbol 5: 6: ui ^ calls: <Anonymous> ...
evaluate -> parse_all.character -> parse De plus : There were 14 warnings (use warning() to see them)

Si quelqu'un pouvait me l'expliquer, ça m'aiderait beaucoup :)

Serge Rapenne
Messages : 1426
Enregistré le : 20 Aoû 2007, 15:17
Contact :

Re: Tableau dynamique avec Rmarkdown

Messagepar Serge Rapenne » 13 Déc 2017, 14:51

Rmarkdown et shiny n'ont pas grand chose à voir l'un avec l'autre.

Rmarkdown permet de générer des rapports automatiquement et shiny permet de réaliser des applications web sous R.amha la 1ere ligne ne sert pas à grand chose.

Je pense que l'erreur n'est pas là mais sans les données de Outil_Positionnement, il est difficile de faire des tests. Peux tu fournir la sortie de la commande dput(Outil_Positionnement) s'il n'y a pas trop de ligne ou dput(Outil_Positionnement[1:10,]) si le data.frame est trop grand
cf : viewtopic.php?f=1&t=3302 et viewtopic.php?f=1&t=7638

Serge


Retourner vers « Questions en cours »

Qui est en ligne

Utilisateurs parcourant ce forum : Aucun utilisateur enregistré et 1 invité