Rshiny et powerpoint

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

G.A. [Compte désactivé]

Rshiny et powerpoint

Messagepar G.A. [Compte désactivé] » 02 Fév 2016, 08:02

Bonjour,
Est il possible d'intégrer une application shiny dans une powerpoint?
Si oui quelqu'un a t'il un exemple à me présenter?

Merci d'avance

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

Re: Rshiny et powerpoint

Messagepar Eric Casellas » 02 Fév 2016, 08:23

Bonjour,

Pas dans un fichier powerpoint à proprement parlé mais plutôt via des pages html il y a des choses comme knitr / rmarkdown : http://rmarkdown.rstudio.com/authoring_shiny.html, https://support.rstudio.com/hc/en-us/sections/200130218-R-Presentations
Eric

G.A. [Compte désactivé]

Re: Rshiny et powerpoint

Messagepar G.A. [Compte désactivé] » 02 Fév 2016, 09:02

Merci
Donc, c'est ce que je craignais on ne peut pas les intégrer comme des vidéos ou des images.
Je connais un peu rmarkdown. Je vais voir comment s'y pendre avec

Merci

Vincent Guillemot
Messages : 451
Enregistré le : 05 Mai 2010, 15:11

Re: Rshiny et powerpoint

Messagepar Vincent Guillemot » 02 Fév 2016, 10:45


G.A. [Compte désactivé]

Re: Rshiny et powerpoint

Messagepar G.A. [Compte désactivé] » 02 Fév 2016, 13:24

Merci ça marche. ça passe toujours par une page web que tu arrives à inserer grâce à liveweb.

Par contre j'aurai une question pure shiny.

Comment faire afficher un graphique en fonction des radioButton?
Je m'explique

J'ai trois radioButton 1 ,2,3

Si je choisi 1 , afficher le plot 1

si je choisi 2 , afficher le plot 2
si je choisi 3 , afficher le plot 3


Merci d'avance

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

Re: Rshiny et powerpoint

Messagepar Eric Casellas » 02 Fév 2016, 15:20

Bonjour,

Comment faire afficher un graphique en fonction des radioButton?

par exemple :

Code : Tout sélectionner

//ui.R
radioButtons("n", label = h3("Radio buttons"),
    choices = list("Choice 1" = 1, "Choice 2" = 2, "Choice 3" = 3),
    selected = 1)

//server.R
output$plot <- renderPlot({
   if (input$n==1) {
   // le code pour plot1
   } else if (input$n==2) {
   // le code pour plot2
   } else if (input$n==3) {
   // le code pour plot3
   } else {
   return(NULL)
   }
  })
Eric

G.A. [Compte désactivé]

Re: Rshiny et powerpoint

Messagepar G.A. [Compte désactivé] » 03 Fév 2016, 11:35

Merci, ça marche parfaitement.
Par contre le code pour ploter pour une condition donnée ne marche pas si les données ne sont pas générées dans la condition.

Je m'explique

Code : Tout sélectionner

if (input$n==1){plot(hist(2,3,4,1,1))}

ça marche mais si je fais

Code : Tout sélectionner

if (input$n==1){plot(hist(data$Var)}


il ne marche pas et ce même si mon data est déjà loadé dans mon environnement de travail.

Comment faire intégrer ça à shiny?

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

Re: Rshiny et powerpoint

Messagepar Eric Casellas » 03 Fév 2016, 12:53

Comment/où est-ce que tu as chargé ton objet data?

voir : http://rstudio.github.io/shiny/tutorial/#scoping
Eric

G.A. [Compte désactivé]

Re: Rshiny et powerpoint

Messagepar G.A. [Compte désactivé] » 03 Fév 2016, 13:44

Je viens de tenter toutes les possibilités de ton lien (merci pour le lien) mais les graphiques ne s'affichent toujours pas.

j'ai sourcé le fichier. R contenant mes objet dans le server.r (en local comme en global)

j'ai loadé mes fichier. Rda aussi mais ça marche toujours pas.

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

Re: Rshiny et powerpoint

Messagepar Eric Casellas » 03 Fév 2016, 14:12

attention quand tu source dans le server.R il faut le faire avant l'appel de la fonction shinyServer() et non pas dedans...

http://shiny.rstudio.com/tutorial/lesson5/
Eric

G.A. [Compte désactivé]

Re: Rshiny et powerpoint

Messagepar G.A. [Compte désactivé] » 03 Fév 2016, 14:44

Oui c'est ce que j'ai fait. Je crois qu'il y a un bug dans mes fonctions finalement sinon, je ne comprends plus rien

Code : Tout sélectionner

les_pairs=c(1,2,3)
library(shiny)

shinyUI(pageWithSidebar(
headerPanel(""),


sidebarPanel(
radioButtons("choice", "Affichage:", choices = c("Groupe", "Par paire")),
conditionalPanel("input.choice == 'Groupe'",
                 selectInput(inputId="Temps", label="Duree",
                             choices=c("Duree de Contact", "Duree Intercontact")
                 )
),
conditionalPanel("input.choice == 'Par paire'",
                 selectInput(inputId = "n_breaks",
                                            label = "Paire 1",
                                            choices = liste_pairs,
                                            selected = liste_pairs[1]),
                                selectInput(inputId = "n_breaks2",
                                            label = "Paire 2",
                                            choices = liste_pairs,
                                           selected = liste_pairs[2])
)),
  mainPanel("Les graphiques",
    plotOutput("testPlot")
  )
))



et

Code : Tout sélectionner

library(shiny)
library(ggplot2)
library(lattice)

load("exemple.Rda")



# Define shiny server
shinyServer(function(input, output) {

  output$testPlot <- renderPlot({
    testPlot<-if(input$choice=='Par paire'){
     
      visu=subset(exemple,exemple$Paires %in% c(input$n_breaks,input$n_breaks2))
     
      ggplot(visu, aes(y = Freq, x = Var1,color=Paires))+
      geom_point()+ scale_y_log10()+scale_x_log10()+ggtitle("main") +xlab("Var1") + ylab("Freq")
         
    }
     else if(input$choice=='Groupe'){
       
       if(input$Temps=="Duree de Contact"){
         ggplot(temps_contact, aes(y = Freq, x = Var1))+
         geom_point()+ scale_y_log10()+scale_x_log10()+ggtitle("main") +
           xlab("Durée") + ylab("Frequence")}
       
       
       if(input$Temps=="Duree Intercontact"){
         ggplot(temps_Intercontact, aes(y = Freq, x = Var1))+
         geom_point()+ scale_y_log10()+scale_x_log10()+ggtitle("main") +
           xlab("Durée") + ylab("Frequence")
       }   
     }

})

plotOutput("testPlot")
})



Je n'y comprends rien

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

Re: Rshiny et powerpoint

Messagepar Eric Casellas » 03 Fév 2016, 15:20

Je n'ai pas ton fichier exemple.Rda donc je peut pas tester mais en tout cas dans ton code du ui.R il y a une erreur tu déclare au début les_pairs au lieu de liste_pairs
Eric

G.A. [Compte désactivé]

Re: Rshiny et powerpoint

Messagepar G.A. [Compte désactivé] » 04 Fév 2016, 09:27

Oui effectivement c'est liste_pairs au lieu de les_pairs.

Je crois que c'est au niveau du conditionalPanel que ça bugg

Soit mon fichier exemple

Code : Tout sélectionner

Var    Paires  Freq

2       1         5

3      1         10

4      2        15
6      3        10


Est ce que ça marche chez vous?

G.A. [Compte désactivé]

Re: Rshiny et powerpoint

Messagepar G.A. [Compte désactivé] » 04 Fév 2016, 09:53

J'ai trouvé le bugg.

Au fait il fallait juste mettre print(ggplot .........) pour afficher le graphique

Merci pour votre aide


Retourner vers « Questions en cours »

Qui est en ligne

Utilisateurs parcourant ce forum : Google [Bot] et 1 invité