Random sample

randomSample.R

library(magrittr)
library(dplyr)

c("Alice",
  "Bob",
  "Carol",
  "Dave") %>%
  unique() %>%
  sample(1e6, replace = TRUE) %>%
  data.frame(names = .) %>%
  group_by(names) %>%
  summarize(freq = n()) %>%
  ungroup() %>%
  mutate(total = sum(freq)) %>%
  mutate(rank = rank(freq %>% desc())) %>%
  mutate(timestamp = Sys.time()) %>%
  arrange(rank) %>%
  write.csv("randomDraw.csv", row.names = FALSE)