Проблемы с использованием библиотеки Quant Mod

Question

Даже когда я вызываю правильный объект с использованием библиотеки, я не могу восстановить последнее значение. Код не жалуется и не показывает ошибку, тем не менее, он не работает.

library("quantmod")

 v = c("INR", "GBP", "RUB", "MXN", "CAD", "EUR")

 currencies <- data.frame(
              currency = v,
              value = 1:6,
              stringsAsFactors = FALSE)

  #convert budgets to usd
         for(i in 1:nrow(currencies)){
         s_string <- paste0(currencies$currency[i],"/" ,"USD") 
         s_string2 <- paste0(currencies$currency[i] ,"USD") 
         getFX("CHF/USD")
         currencies$value[i] <- tail(s_string2,1)
   }

В последней строке он не работает таким образом. Но если я напишу непосредственно, имя переменной работает

Вместо

      tail(s_string2,1)

Этот

      tail(EURUSD,1)

Я хотел бы иметь набор данных с именемвалюты (у меня есть это) и значения (у меня нет этого.)

Answer 1

Я понял, что проблема в том, как я передаю строку, решается следующим образом:

  currencies$value[i] <- tail(eval(as.name(s_string2)),1)