currencies() returning empty data frame

Dear Steve,

As in title: running priceR::currencies() returns empty data frame, while defining the same funcion within my own script works perfectly well:

currencies <- function() {

  endpoint <- "http://api.exchangerate.host/live" %>%
    priceR::append_exchangeratehost_access_key()

  live <- jsonlite::fromJSON(endpoint)

  df <- live$quotes %>%
    map_dbl(~ .x) %>%
    stack() %>%
    mutate(ind = substr(.data$ind, 4, nchar(as.character(.data$ind)))) %>%
    mutate(values = as.double(.data$values)) %>%
    .[,c(2,1)] %>%
    # Add USD since it won't be included
    add_row(ind = "USD", values = 1) %>%
    # then sort alphabetically
    arrange(.data$ind)

  df %>%
    select(.data$ind) %>%
    rename(code = .data$ind) %>%
    left_join(select(priceR::currency_info, .data$iso_code, .data$name), by = c("code" = "iso_code")) %>%
    select(description = .data$name, code = .data$code)

}
currencies()

Best, Adrian

BTW: it also now returns 2 values for: Belarusian Ruble BYN and Belarusian Ruble BYR BTW2: Seems to not detect some symbols (BYR was also a victim to that):

Error in priceR::historical_exchange_rates(from = currency_from, to = curr_to_exchange_to_symbol, :
Invalid currency code(s): "LTL". Run currencies()
to view all 171 valid currency codes.

stevecondylios / priceR

currencies() returning empty data frame #48