Discussion :

[pak75]

Bonsoir,

Pourriez-vous me conseiller comment utiliser renderDataTable dans renderUi svp.

Je n'ai pas réussi à récupérer la table déjà définie dans une section pour calculer les sommes par colonne.

Merci bien

Paul

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
 
dataTableOutput("tableAmortMorgage")
 
-------------
 
# server.R
 
# construction d'une table d'amortissement
 
dfAmortMortage {
    AmortHead <- c("MaturityNb", "RemainingNb", "MaturityDate", "Age", "RemainingCapital", "InterestPaid", "CapitalReimbursed", "Insurance", "Fees", "Tax", "AmountPerPeriod")
    Amort <- matrix(NA,loan_duration,length(AmortHead))
    colnames(Amort) <- AmortHead
 
   .....
   Amort.table <- as.table(Amort)
}
 
#
output$tableAmortMorgage <- renderDataTable({
    dfAmortMorgage()
  })
 
output$uiLoanRecapTable <- renderUI({
    dtAmortMorgage <- renderDataTable(dfAmortMorgage)
 
# Impossible de récupérer la table "dfAmortMorgage" ?
# Comment faire ?
 
    sumInsurance <- c(sum(dtAmortMorgage $Insurance))
    sumFees <- c(sum(dtAmortMorgage $Fees))
...
 
})

[A. D.]

Bonjour,

J'ai un peu de mal à comprendre tout votre code...

Qu'est sensé contenir dfAmortMortage { ... } ?
Est-ce un jeu de données qui va être recalculé lorsque l'utilisateur sélectionne des choses côté UI par exemple ? Si oui, il faudrait dans ce cas qu'il s'agisse d'un élément de type "reactive" je pense :

Code :

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

dfAmortMortage  <- reactive({ ... })

J'ai l'impression que vous avez mélangé plein de notions dans votre code mais je ne vois pas bien à quoi servent toutes les lignes...
Exemple :

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
 
# ui.R
 
dataTableOutput("maTable")
 
 
# server.R
 
mes_donnees_filtrees <- reactive({
 
     # donnees filtrees dynamiquement
 
})
 
output$maTable <- renderDataTable({
 
   mes_donnees_filtrees ()
 
})

Je ne sais pas si ces pistes peuvent vous aider, sinon il faudrait que vous essayiez de poster un exemple minimal reproductible afin qu'on puisse reproduire le problème rencontré chez nous. Quel message d'erreur rencontrez-vous ?


Cordialement,


A.D.

[pak75]

Bonjour,

Merci pour votre demande de clarification, désolé d'avoir oublié les balises.

Je contruis un tableau d'amortissement de prêt, tout est ok mais je souhaite faire un petit tableau de synthèse en récupérant les sommes de certaines colonnes du tableau d'amortissement.

le message est : Error : object of type 'closure' is not subsettable

Pourriez vous me donner une piste pour récupérer l'objet de renderDataTable dans RenderUI svp. Merci

Code :

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

1
2
3
4
5
6
7
# ui.R
 
dataTableOutput("tableAmortMorgage")
 
# tableau d'amortissement à afficher sur shiny
 
-------------

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
# server.R
 
# construction d'un tableau d'amortissement
 
dfAmortMorgage=reactive({
    AmortHead <- c("MaturityNb", "RemainingNb", "MaturityDate", "Age", "RemainingCapital", "InterestPaid", "CapitalReimbursed", "Insurance", "Fees", "Tax", "AmountPerPeriod")
    Amort <- matrix(NA,loan_duration,length(AmortHead))
    colnames(Amort) <- AmortHead
 
   .....
   Amort.table <- as.table(Amort)
}
 
#
output$tableAmortMorgage <- renderDataTable({
    dfAmortMorgage()
  })
 
output$uiLoanRecapTable <- renderUI({

# Récapitulatif du contrat emprunteur avec les éléments du tableau d'amortissement "tableAmortMorgage"

    dtAmortMorgage <- renderDataTable(dfAmortMorgage)

# En débuggant, le message d'erreur object of type 'closure' is not subsettable
 
# Dans cette partie, je souhaite utiliser la table "dfAmortMorgage" pour faire la somme de chaque colonne.
# Comment faire ?
 
    sumInsurance <- c(sum(dtAmortMorgage $Insurance))
    sumFees <- c(sum(dtAmortMorgage $Fees))
...
 
})

[A. D.]

Bonjour,

Je pense que vous mélangez plusieurs choses, notamment le contenu des données et le rendu des données.

Dans la partie "server", avec :

Code :

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

dfAmortMorgage <- reactive({ ... })

Vous pouvez accéder aux données (au format data.frame) avec :

Code :

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

dfAmortMorgage()

Du coup, je dirais que la partie qui pose soucis dans votre code pourrait être remplacée par :

Code :

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

1
2
3
4
5
6
7
8
9
output$uiLoanRecapTable <- renderUI({
 
    mondataframe <- dfAmortMorgage()
 
    sumInsurance <- c(sum(mondataframe$Insurance))
    sumFees <- c(sum(mondataframe$Fees))
...
 
})

En effet, quand vous appelez dtAmortMorgage <- renderDataTable(dfAmortMorgage), l'élément dtAmortMorgage ne va pas contenir les données mais du HTML (en gros) qui permet l'affichage de la table avec le formatage "DataTable".

HTH !


Et essayez de poster un exemple minimal et reproductible sinon, pour qu'on puisse tester directement, merci !


Cordialement,


A.D.

[pak75]

Bonsoir A.D.,

Merci pour la piste de récupération de l'objet dfAmortMortgage, j'ai trouvé ensuite la solution.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 output$uiLoanRecapTable <- renderUI({
 
myDf <- dfAmortMortgage()
 
# qui renvoie data.frame de caractères même pour les valeurs numériques ou date
 
myDt <- apply(myDf,2,as.numeric) 
 
# convertir les caractères en numérique
# myDt est une table de données numériques
# ensuite, sommer la colonne avec libellé "Insurance"
 
sumInsurance <- sum(myDt[,"Insurance"])
})

Merci A.D

Paul