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 !