data-raw/03-generate_medium_intendo_data.R

In rich-iannone/intendo: A Group of Fun Datasets of Various Sizes and Differing Levels of Quality

library(tidyverse)

# Set a seed
set.seed(23)

users_daily_large <- readRDS("data-large/sj_users_daily_large.rds")
all_revenue_large <- readRDS("data-large/sj_all_revenue_large.rds")
all_sessions_large <- readRDS("data-large/sj_all_sessions_large.rds")
user_summary_large <- readRDS("data-large/sj_user_summary_large.rds")

users_basis <-
  user_summary_large %>%
  dplyr::distinct(player_id) %>%
  dplyr::pull()

n_users_basis <- length(users_basis)

n_users_small <- floor(n_users_basis / 2)

users_small <- sample(users_basis, size = n_users_small)

users_daily_small <-
  users_daily_large %>%
  dplyr::filter(player_id %in% users_small)

all_revenue_small <-
  all_revenue_large %>%
  dplyr::filter(player_id %in% users_small)

all_sessions_small <-
  all_sessions_large %>%
  dplyr::filter(player_id %in% users_small)

user_summary_small <-
  user_summary_large %>%
  dplyr::filter(player_id %in% users_small)

saveRDS(users_daily_small, file = "data-medium/sj_users_daily_medium.rds")
saveRDS(all_revenue_small, file = "data-medium/sj_all_revenue_medium.rds")
saveRDS(all_sessions_small, file = "data-medium/sj_all_sessions_medium.rds")
saveRDS(user_summary_small, file = "data-medium/sj_user_summary_medium.rds")