Shiny : erreur pour l'affichage d'un plot

**chautho** · 22/07/2014, 11h44

Bonjour,

Je me suis lancé tout récemment à la découverte de Shiny, un package fournit par RStudio permettant de développer des interfaces HTML très sympa.

J'ai donc suivi le tutoriel (très bien fait) fourni sur le site de RStudio. Je me suis ensuite lancé dans la création de ma première application 'maison'.

J'ai un problème lorsque je veux exécuter mon application qui me renvoie sur une page de débuggage que je ne comprends pas.

Ci-joint les deux fichiers ui.R et server.R nécessaires à la mise en place d'une application :

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
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
library(shiny)
 
shinyUI(fluidPage(
  # titre de l'application
  titlePanel("Algorithmes Ears du package Surveillance de R"),
 
  # Pour choisir les paramètres...
  fluidRow(
 
    #... de la simulation
    column(8,
           sidebarPanel(
             helpText("Simulation des données avec la fonction", 
                      code("sim.pointSource"), "implémentée dans
               le package", code("surveillance"), "de", 
                      strong(em('R'))
             ),
 
             textInput("p", h5("p"), "0.99"),
             textInput("r", h5("r"), "0.01"),
             textInput("A", h5("A"), "1"),
             textInput("frequency", h5("Fréquence"), "1"),
             textInput("K", h5("K"), "1.5")
           )),
 
    #... de l'algorihme
    column(8,
           sidebarPanel(
             helpText("Applique les algorithmes", strong("EARS"), 
                      "implémentés dans le package", 
                      code("surveillance"), 
                      "de", strong(em('R'))
             ),
 
             radioButtons("algo", "Algorithme :",
                          c("C1" = "C1",
                            "C2" = "C2",
                            "C3" = "C3")),
 
             sliderInput("range", h5("Intervalle d'application"),
                         min = 1, max = 400, value = c(1,400)
             ),
 
             textInput("alpha", h5("Alpha"), "0.001")
           )),
 
    column(10, 
           plotOutput("plot1")
    )
  )
))

et 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
# server.R
 
library(surveillance)
 
shinyServer(function(input, output) {
 
  # Fonction pour simuler les données, appeler dès que les données
  # en entrées changent
 
  sts <- reactive({
    sim.pointSource(p = input$p, r = input$r, 
                    length = 400, A = input$A,
                    alpha = 1, beta = 0, 
                    phi = 0, 
                    frequency = input$frequency, 
                    state = NULL, 
                    K = input$K)
  })
 
 
  # Plot
  output$plot1 <- renderPlot({
    plot(sts()$observed)
  }) 
 
})