Fix for dmap_if -> mutate_if

index.Rmd

@@ -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
   }