Before we start using our system, we need to introduce some data into it that will be used to start retrieving data for us. Specifically, we need to create some users, add some wallets to them, and save them. To do so, we create a create-user-data.R file that contains the script that will accomplish this for us. The script loads the S4 and R6 object models (S3 does not need to be loaded explicitly), sources the files with the definitions we directly need, which are Storage, User, and SETTINGS, creates two users for us, and saves them:
library(R6)
library(methods)
source("../storage/storage.R", chdir = TRUE)
source("../users/user.R")
source("../settings.R")
storage = Storage$new(SETTINGS)
user_1 <- user_constructor("[email protected]", storage)
user_1 <- new_wallet(user_1,
"...
