Comment récupérer la valeur d'un widget shiny dans une variable
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:
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:
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 !
