Discussion :

[aleksik]

Bonjour,

Je réalise un programme R Shiny à partir du modèle suivant : http://shiny.rstudio.com/gallery/ret...imulation.html mais je rencontre quelques difficultés.

Pour simplifier pour l'instant, on va dire qu'on a une équation y=ax+b et je souhaite construire la fonction. L'utilisateur rentre ainsi les paramètres a, x et b. Avec x, l'étendue de la fonction.

Extrait du code de server.R

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
plot_nav<- function(x0=200,a=-1.7/10000,b=0.017,inc=0.5) {
  x<-seq(0,x0,inc)
 
  return(list(a=a,x=x))
}
 
plot_nav <- function(x) {
  y<-(a)*x+b
 
  eps<-0.000000001
  y[y<=eps]<-eps
 
  plot(0,0,type="n",xlim=range(x),ylim=c(0,max(y)))
  lines(x,y,col=2)
 
}

J'ai un problème entre le return et le plot_nav<-function(). Comment je peux arranger ça ?

Merci par avance.

[A. D.]

Bonjour,

Quelques questions afin de mieux comprendre votre problème :

1/ Est-ce normal que votre code contienne deux fonctions portant exactement le même nom "plot_nav" ?
En effet, l'une va forcément écraser l'autre à un moment donné...

2/ La seconde fonction "plot_nav" fait appel à des paramètre "a" et "b" qui ne semblent ni passés en arguments de la fonction (ie. spécifiés dans les parenthèses initiales, comme le "x"), ni être définis au sein de la fonction elle-même. Cela ne peut donc pas fonctionner tel quel...

3/ Quel est le problème / l'erreur que vous rencontrez et qui vous pose problème ? En effet, difficile de savoir avec le seul morceau de code que vous nous fournissez.


Cordialement,


A.D.

[aleksik]

Bonjour,

Merci pour votre réponse.

Oui exact, j'avais mal recopié le code, la première fonction avait un autre nom.

Mais finalement, le modèle à partir duquel je voulais m'inspirer n'était pas évident et ne ressemblait pas à la manière dont j'avais l'habitude de coder pour R Shiny.

Donc j'ai tout repris, et voilà ce que ça donne. J'ai de nouveau adapté/simplifié le programme mais je vous montre suffisamment d'éléments afin qu'il puisse être exécuté.

server.R

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
library(shiny)
 
shinyServer(function(input, output) {
 
  mydata <- reactive({
    inc<-input$inc
    x<-seq(0,input$x0,inc)
    a1<-input$a1
    b1<-input$b1    
 
    h1<-(a1)*x+b1
    h2<-(1.4/27^1.4)*x^0.4
 
 
    #replace negatives numbers by 0+ to set a level to not start at 0
    eps<-0.000000001
    h1[h1<=eps]<-eps
    h2[h2<=eps]<-eps
 
    list(x=x,h1=h1,h2=h2)
 
  })
 
  output$graph1<-renderPlot({
    data<-mydata()
    p<-plot(0,0,type="n",xlab="x",ylab="y",xlim=range(data$x),ylim=c(0,max(data$h1+data$h2)))
    lines(data$x,data$h1,col="red")
    lines(data$x,data$h2,col="green")
    lines(data$x,data$h1+data$h2,col="black")
    legend("topleft",c("event 1","event 2","total"),col=c("red","green","black"),lty=1)
 
    print(p)
 
  })
 
})

ui.R

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
library(shiny)
 
shinyUI(pageWithSidebar(
  headerPanel("Simulation"),
  sidebarPanel(
    numericInput("inc", "Precision time: ", 0.5),
    numericInput("x0", "x : ", 200),
    #h1=a1*x+b1
    numericInput("a1", "a1: ", -1.7/10000),
    numericInput("b1", "b1: ", 0.017)
  ),
 
  mainPanel(
    plotOutput("graph1")
  )
))

Maintenant il me reste qq pb :

• le programme mettant du tps à s'exécuter, je ne voudrais pas qu'il s'exécute dès que je modifie une entrée mais plutôt par l'intermédiaire d'un bouton. Afin que je puisse modifier plusieurs entrées avant de l'exécuter ;
• j'aimerai ne pas simplement proposer de fonction affine à l'utilisateur, mais n'importe quelle fonction (comme h2 par exemple).

[A. D.]

Bonjour,

Merci pour la mise à jour du code, c'est plus facile pour tester comme ça

1/ Personnellement ça ne met pas de temps à s'exécuter chez moi, c'est instantané, donc je ne suis pas sûre que ça vaille le coup de rajouter un bouton pour lancer l'action, ça risque d'alourdir le tout... Après, sinon, voir du côté des "action button" (par exemple : http://shiny.rstudio.com/gallery/actionbutton-demo.html).

2/ Je ne comprends pas bien votre besoin pour ce point... Vous pouvez peut-être ajouter une liste déroulante pour la sélection de différentes fonctions ? Dîtes-nous en plus sinon


HTH !


Cordialement,


A.D.

[aleksik]

Oui c'est bon, j'ai entre temps mis en place le bouton action, merci

Comme je disais, j'ai seulement présenté un extrait de mon programme. Le vrai programme contient différentes fonctions et réalise un grand nombre de simulations, il met qq minutes à s'exécuter. Je pense y ajouter une barre de progression comme dans cet exemple : http://shiny.rstudio.com/gallery/pro...r-example.html

Ah merci, c'est une bonne idée la liste déroulante.

Cordialement,

Aleksik