Discussion :

[pak75]

Bonjour,

Après mes longues recherches & tests, je n'ai pas réussi & je suis bloqué sur un problème de conversion de input$date. Ci-dessous la description du problème. Merci de me donner un coup de main.

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
 
ui.R
 
uiOutput("b_effective_date"),
uiOutput("b_birth_date"),
uiOutput("b_first_term")
 
----
 
server.R
 
 output$b_effective_date <- renderUI({
    dateInput(inputId   = "b_effective_date",
              label = "effective date",
              value = Sys.Date(),
              format = "dd/mm/yyyy")
  }) 
  output$b_birth_date <- renderUI({
    dateInput(inputId = "b_birth_date",
              label = "birth date",
              value = Sys.Date(),
              format = "dd/mm/yyyy")
  })   
  output$b_first_term <- renderUI({
    # Using a named list in order to pass the same value regardless of the label (which changes with the language)
    dateInput(inputId   = "b_first_term",
              label     = "first term",
              value = Sys.Date(),
              format = "dd/mm/yyyy")
  })
dfAmort <- reactive({   
    effectDate <- as.Date(input$b_effective_date, format="dd/mm/yyyy")
    birth_date <- as.Date(input$b_birth_date, format="dd/mm/yyyy")
    first_term <- as.Date(input$b_first_term, format="dd/mm/yyyy")
})

quand j'exécute, le message est : do not know how to convert 'input$b_effective_date' to class “Date”

Dans RStudio local, cette erreur disparait après qq secondes mais quand je déploye mon appli sur shinyapps.io ca ne passe plus.

Pourriez-vous m'indiquer comment résoudre ce problème svp

Merci à l'avance

P

[A. D.]

Bonjour,

Quand je teste avec uniquement le bout de code que vous indiquez, je ne rencontre aucune erreur !

Petite remarque cependant : je pense qu'il vaut mieux ne mettre qu'un seul élément dans "dfAmort" ou bien lui donner une structure de liste.

Une piste si le problème se rencontre uniquement sur "shinyapps.io" : le langage du serveur de déploiement a une influence sur le format de la sortie Sys.Date().
Je pense qu'en local votre ordinateur est en français mais que les serveurs de déploiement sur "shinyapps.io" sont en anglais, donc l'élément renvoyé par Sys.Date() n'a pas le format "dd/mm/yyyy" demandé dans as.Date(...).

HTH !


Cordialement,


A.D.

[pak75]

Bonsoir,

Merci d'avoir penché sur mon souci de conversion de date.

Le problème vient des valeurs initiales des "input" qui évaluent d'abord par NULL, puis actualisés automatiquement par des vraies valeurs.

- étape0 : Avant l'actualisation des "inputs", les fonctions ne peuvent pas effectuer des calculs avec les paramètres NULL. Ce qui provoque les erreurs de conversions etc..
- étape1 : R exécute les fonctions à nouveau avec des valeurs mises par défaut dans les "inputs", ce qui donne de bons résultats.

Dans RStudio local, l'échec de l'étape0 n'empêche pas l'exécution de l'étape1. Une fois déployé sur "shinyapps.io", l'échec de l'étape0 arrete l'application.

La solution trouvée est d'initialiser par défaut une valeur en cas de "is.null" pour chaque "input".

Merci HTH

Pak75