Zanim zaczniemy korzystać z naszego systemu, musimy wprowadzić do niego dane, które posłużą nam do pobierania danych. W szczególności musimy stworzyć kilku użytkowników, dodać do nich kilka portfeli i je zapisać. Aby to zrobić, tworzymy plik creat-user-data.R zawierający skrypt, który wykona to za nas. Skrypt ładuje modele obiektów S4 i R6 (S3 nie musi być ładowany jawnie), pozyskuje pliki z definicjami, których bezpośrednio potrzebujemy, którymi są Storage, User i SETTINGS tworzy dla nas dwóch użytkowników i zapisuje je:
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(1@somewhere.com , storage)
user_1 <- new_wallet(user_1,
„BTC”,
„3D2oetdNuZUqQHPJmcMDDHYoqkyNVsFk9r”, „”)
user_1 <- new_wallet(user_1,
„LTC”,
„LdP8Qox1VAhCzLJNqrr74YovaWYyNBUWvL”, „”)
save(user_1)
user_2 <- user_constructor(2@somewhere.com,storage)
user_2 <- new_wallet(user_2,
„BTC”,
„16rCmCmbuWDhPjWTrpQGaU3EPdZF7MTdUk”, „”)
user_2 <- new_wallet(user_2,
„LTC”,
„LbGi4Ujj2dhhcMdiS9vaCpWxtayBujBQYZw”, „”)
save(user_2)
Po wykonaniu skryptu możesz zajrzeć do katalogu csv_files/ i znaleźć w nim odpowiednie dane. W tym przypadku użyliśmy portfeli z największą liczbą bitcoinów i litecoinów, które można znaleźć online. Możesz eksperymentować, używając własnych portfeli lub dowolnego portfela, którego zawartość chcesz śledzić. Oczywiście parametry email i note i nie muszą być prawdziwe; jedynymi parametrami, które muszą być rzeczywiste, są symbole aktywów, którymi mogą być BTC lub LTC dla systemu, który wdrożyliśmy, oraz adresy portfeli dla takich symboli. Możesz pozostawić to pole note puste, tak jak w przykładzie.