|
|
@@ -66,7 +66,7 @@ endoscopies <- reactive( |
|
|
|
read_csv(input$ext$datapath, locale = locale(decimal_mark = ",")) %>% |
|
|
|
setNames(c("Venue", "Intervention", "Acte", "Tarif", "Acte_libelle", "Service", "Type_venue")) %>% |
|
|
|
left_join(liste_actes %>% select(Code, Appareil), by = c("Acte" = "Code")) %>% |
|
|
|
dmap_if(is.character, factor) %>% |
|
|
|
mutate_if(is.character, factor) %>% |
|
|
|
filter(Tarif != 0) %>% |
|
|
|
distinct |
|
|
|
} |
|
|
|