Nothing
#' Download all available crypto currency order history for your RobinHood account
#'
#' @param RH object of class RobinHood
#' @import httr jsonlite magrittr lubridate
#' @export
#' @examples
#' \dontrun{
#' # Login in to your RobinHood account
#' RH <- RobinHood("username", "password")
#'
#' get_order_history_crypto(RH)
#'}
get_order_history_crypto <- function(RH) {
# Check if RH is valid
RobinHood::check_rh(RH)
# Get Order History
order_history <- RobinHood::api_orders_crypto(RH, action = "history")
# Get currency symbol
currency_pairs <- RobinHood::api_currency_pairs(RH)
# Adjust names for join
colnames(currency_pairs)[1] <- "currency_pair_id"
# Force join to be character so R doesnt give a warning
currency_pairs$currency_pair_id <- as.character(currency_pairs$currency_pair_id)
order_history$currency_pair_id <- as.character(order_history$currency_pair_id)
# Join currency pairs with order history to get currency symbol
order_history <- dplyr::inner_join(currency_pairs, order_history, by = "currency_pair_id")
# Limit output
order_history <- order_history %>%
dplyr::select(c("created_at", "asset_name", "asset_code", "created_at", "price",
"cumulative_quantity", "side", "state", "time_in_force", "type")) %>%
dplyr::rename("name" = "asset_name", "symbol" = "asset_code")
# Adjust factor levels it doesn't show factors not in the join
order_history <- order_history %>%
dplyr::mutate_at(c("name", "symbol"), as.character)
# Sort by date
order_history <- order_history[order(order_history$created_at, decreasing = TRUE), ]
return(order_history)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.