Add cdw map variables

.Rprofile

@@ -11,7 +11,9 @@ if(interactive())
           tibble.print_min = 20,
           tibble.print_max = 100,
           i2b2_user = "4117773",
-          i2b2_pass = system("pass i2b2_oracle", intern = T))
+          i2b2_pass = system("pass i2b2_oracle", intern = T),
+          i2b2_map_user = "dih",
+          i2b2_map_pass = system("pass cdw.egp.aphp.fr/wiki", intern = T))
 
   .View <- function(x)
   {