paadc

gistfile1.txt

paadc_ids_2021_01_22 <- old_data%>% 
  # distinct(paadc) %>% 
  mutate(impressionTime = lubridate::ymd_hms(impressionTime)) %>% 
  group_by(paadc) %>% 
  filter(impressionTime == min(impressionTime)) %>% 
  ungroup() %>% 
  distinct(paadc, .keep_all = T)  %>%
  arrange(impressionTime) %>% 
  mutate(firstImpressionTime = as.character(impressionTime)) %>% 
  select(paadc, firstImpressionTime) %>% 
  mutate(status = ifelse(paadc %in% paadc_ids$paadc, "old", "new"))

writexl::write_xlsx(paadc_ids_2021_01_22, path = "data/paadc_ids_2021_01_22.xlsx")