Discussion :

[triaguae]

Bonjour,

Je m'intéresse depuis longtemps à R, et je suis en train de découvrir Shiny.

J'ai donc un widget sliderange dont je veux récupérer les 2 "bornes" pour les passer dans une requête SQL.

Mon widget s'appelle slider2, il représente les années.
il me faut la borne basse pour le début et la borne haute pour la fin
J'ai compris que les valeurs sont renvoyées sous forme de tableau donc accessible comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
input$slider2[1]
input$slider2[2]

Mais côté serveur, je bute. J'ai vu les fonctions reactive et observe mais je ne sais pas comment les employer.



voici le bout de code de 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
library(shiny)
library(highcharter)
 
annee<- as.numeric(format(Sys.Date(), format = "%Y"))
 
# Define UI for application that draws a histogram
shinyUI(fluidPage(
    fluidRow(
 
        column(4,
 
               sliderInput("slider2", label = h3("Choix de la periode"), min = annee-10, 
                           max = annee, value = c(annee-3,annee))
 
        )
 
    ),
 
    hr(),
 
    fluidRow(
        column(4, verbatimTextOutput("range"))
    ),
 
    mainPanel(
        highchartOutput("graph1"),
        highchartOutput("graph2")
    )
))

merci d'avance !

[triaguae]

j'ai trouvé une solution : il faut mettre la récupération de la variable dans une fonction réactive

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
   debut <- reactive({      as.integer(input$periode[1]) })  
   fin <- reactive({as.integer(input$periode[2])})

et ensuite je récupère ça dans mon sql

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
res_ora<-dbSendQuery(con_ora,paste0("
   SELECT .....
  WHERE annee between ",debut()," and ",fin(),"  GROUP BY ...ORDER BY ..."
   ))
   gestion<-fetch(res_ora)

Maintenant que j'arrive à faire ça, je voudrais que ma requête soit exécutée dans la fonction réactive, étant donné que je génère plusieurs graphs à partir de mes données ..... mais je comprends pas comment récupérer un dataset

merci de votre aide !