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