|
|
|
@@ -175,7 +175,7 @@ rss <- eventReactive(input$goLivenne, |
|
|
|
select(finess, idrss, CMD, DUREE_RSS, ANS_SORTIE, MOIS_SORTIE) %>% |
|
|
|
collect(n = Inf) -> rdsR03 |
|
|
|
|
|
|
|
incProgress(1, detail = "Fusion R01+R02") |
|
|
|
incProgress(1, detail = "Fusion R01+R02+R03") |
|
|
|
rdsR01 %>% |
|
|
|
bind_rows(rdsR02) %>% |
|
|
|
bind_rows(rdsR03) %>% |
|
|
|
|
