R/get_user.R

In JestonBlu/RobinHood: Interface for the RobinHood.com No Commission Investing Platform

#' Get personal user data related to your RobinHood account
#'
#' @param RH object class RobinHood
#' @import httr magrittr
#' @export
#' @examples
#' \dontrun{
#' # Login in to your RobinHood account
#' RH <- RobinHood("username", "password")
#'
#' get_user(RH)
#'}
get_user <- function(RH) {

    # Check if RH is valid
    RobinHood::check_rh(RH)

    # Get request from user information API
    user <- RobinHood::api_user(RH)
    user$created_at <-  lubridate::ymd_hms(user$created_at)

    return(user)
}