Jak uzyskać kursy wymiany walut w R

Question

Czy są jakieś pakiety/funkcje R, aby uzyskać kursy wymiany w czasie rzeczywistym, np. z Google Finance? Wolałabym unikać RCurl lub innych parserów, jeśli coś już tam jest.

W szczególności, dane wektory symboli "od" i "do", chciałbym znać stawki. Coś jak:

IdealFunction(c("CAD", "JPY", "USD"), c("USD", "USD", "EUR")) 

Answer 1

Można użyć quantmod aby cytaty Yahoo. (Nie jestem pewien, jak opóźnione cytaty yahoo FX są, albo jak często są one aktualizowane.)

library(quantmod) 
from <- c("CAD", "JPY", "USD") 
to <- c("USD", "USD", "EUR") 
getQuote(paste0(from, to, "=X")) 
#     Trade Time Last Change % Change Open High Low Volume 
#CADUSD=X 2014-11-01 08:23:00 0.8875 N/A  N/A N/A N/A N/A N/A 
#JPYUSD=X 2014-11-01 08:23:00 0.0089 N/A  N/A N/A N/A N/A N/A 
#USDEUR=X 2014-11-01 08:23:00 0.7985 N/A  N/A N/A N/A N/A N/A 

Albo TFX w czasie rzeczywistym, milisekunda o czasie, cytaty, jeśli założyć darmowe konto. (Uwaga trzeba użyć konwencją rynkową, tzn USD/JPY zamiast JPY/USD)

library(TFX) 
pairs <- paste(to, from, sep="/") 
QueryTrueFX(ConnectTrueFX(pairs, "validUser", "anytext")) 
# Symbol Bid.Price Ask.Price  High  Low    TimeStamp 
#1 USD/CAD 1.12651 1.12665 1.12665 1.12651 2014-10-31 20:45:00.559 
#2 USD/JPY 112.34600 112.35900 112.35900 112.34600 2014-10-31 20:45:00.134 
#3 EUR/USD 1.25234 1.25253 1.25253 1.25234 2014-10-31 20:45:00.598 

Lub jeśli masz konto Interactive Brokers, można użyć IBrokers package, albo mój twsInstrument package (który jest w zasadzie tylko owijarki dla IBrokers funkcji)

library(twsInstrument) 
getQuote(paste0(to, from), src="IB") # only works when market is open. 

Answer 2

Wygląda TFX i quantmod posiada funkcje do tego (dzięki @RStudent i @KFB na końcach). Wolałem quantmod, ponieważ nie wymagało to założenia konta, ale AFAICT nie ma wektoryzowanej funkcji migawki prądu, na przykład tego, czego szukam. Ta funkcja GetExchangeRates robi to:

GetExchangeRates <- function(from, to, dt=Sys.Date()) { 
    require(quantmod) 
    obj.names <- getFX(paste0(from, "/", to), from=dt, to=dt) 
    result <- numeric(length(obj.names)) 
    names(result) <- obj.names 
    for (obj.name in obj.names) { 
    result[obj.name] <- as.numeric(get(obj.name))[1] 
    # Clean up  
    rm(obj.name) 
    } 
    return(result) 
} 

TestExchangeRates <- function() { 
    from <- c("CAD", "JPY", "USD") 
    to <- c("USD", "USD", "EUR") 
    GetExchangeRates(from, to) 
}