# set-up and login

library(RobinHood) # to access the API
library(tidyverse) # to do things in a tidy manner
library(lubridate) # date functions
library(keyringr) # to hide your login

username <- keyringr::get_kc_account("robinHood") # make a login in Keychain Access on macOS titled robinHood. Lookup how to do this on Windows
password <- keyringr::decrypt_kc_pw("robinHood")

RH <- RobinHood(username = username, password = password)

username <- NULL
password <- NULL

orderHistory <- get_order_history(RH) # gets order history
currentPositions <- get_positions(RH) # gets current positions