renderDataTable dans renderUi

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:

---

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)) ...   })

---

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:

---

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:

---

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.

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:

---

1 2 3 4 5 6 7

# ui.R   dataTableOutput("tableAmortMorgage")   # tableau d'amortissement à afficher sur shiny   -------------

---

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 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)) ... })

---

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:

---

dfAmortMorgage <- reactive({ ... })

---

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

Code:

---

dfAmortMorgage()

---

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

Code:

---

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.

Bonsoir A.D.,

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

Code:

---

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