fake_data.R

library(readr)
library(dplyr)

n = 1000
set.seed(42)

uuid_like = function() {
  # Pretend to construct a UUID using the R PRNG.
  s = paste0(sample(strsplit("0123456789abcdef", "")[[1]], 32, replace=TRUE), collapse="")
  sprintf("%s-%s-%s-%s-%s", substr(s, 1, 8), substr(s, 9, 12), substr(s, 13, 16), substr(s, 17, 20), substr(s, 20, 32))
}

reps = rpois(n, 2)+1
uuids = sapply(1:n, function(.) uuid_like())
branches = sample(c("branch_a", "branch_b", "branch_c"), n, replace=TRUE)

rows = sum(reps)

data = tibble(
    client_id=rep(uuids, reps),
    branches=rep(branches, reps),
    active_hours=rlnorm(rows),
    n_urls=as.integer(rlnorm(rows, 2, 2)),
    n_searches=rpois(rows, 1000),
    order=runif(rows)
  ) %>%
  arrange(order) %>%
  select(-order)

write_csv(data, "mock_data.csv")