changes to digi_lime_get_part_chunks

README.md

@@ -44,9 +44,7 @@ digi_part_dat <-
     max_tn <- 195000,
     chunk_size <- 30000,
     attributes =  c(
-      "token",
       "emailstatus",
-      "language",
       "validfrom",
       "validuntil",
       "invited",
@@ -56,12 +54,10 @@ digi_part_dat <-
       "usesleft"
     )
   ) %>%
-  select(ZN = "token",
+  rename(ZN = "token",
          part = "participant_info") %>%
   bind_cols(.$part) %>%
   select(-part) %>%
-  set_names(c("ZN", "Vorname", "Nachname", "Email")) %>%
-  filter(grepl("^[A-Za-z0-9]{15}$", ZN)) %>%
   distinct()
 
 ```
\ No newline at end of file