From 0b9a9158e8a5eb548ec1a9340ea2206c84b5fed8 Mon Sep 17 00:00:00 2001
From: Maxime Wack <maximewack@free.Fr>
Date: Tue, 2 Aug 2016 14:56:17 +0200
Subject: [PATCH] Added SSR UF

---
 donnees.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/donnees.R b/donnees.R
index 325feba..b20cd6b 100644
--- a/donnees.R
+++ b/donnees.R
@@ -134,7 +134,7 @@ src_mysql("pmsi_dim", "localhost", user = user, password = password) %>%
             collect(n = Inf), by = "uf") %>%
   anti_join(rum, by="idhosp") %>% # supprimer séjours codés
   arrange(idhosp, date_sortie) %>%
-  filter(!(service %in% c("5110", "5140", "1700", "1170", "1600", "2350")),
+  filter(!(service %in% c("5110", "5140", "1700", "1170", "1600", "2350", "9090")),
          !is.na(service)) %>%
   group_by(idhosp) %>%
   summarise(date_entree = first(date_entree),