updates

Author: jarochi

R/bg_df.R

@@ -21,8 +21,9 @@ full_df <- full_join(con, edu, by = c("start_date", "end_date", "city", "country
   full_join(., team, by = c("who")) %>% 
   mutate(start_date = as.Date(start_date, "%d.%m.%Y"),
          start_date = if_else(is.na(start_date), today(), start_date),
-         end_date = as.Date(end_date, "%d.%m.%Y"),
-         end_date = if_else(is.na(end_date), today(), end_date),
+         # end_date = if_else(is.na(end_date), today(), end_date),
+         end_date = as.Date(end_date, "%d.%m.%Y") %>% as.character(),
+         end_date = if_else(is.na(end_date), paste0("ongoing"), end_date),
          cat = as.factor(activity),
          type = as.factor(type),
          who = as.factor(who),