r - R でのバックティックとペーストでの get の使用

Question

API を使用して OpenEI データベースからデータを取得し、使用可能な形式に変換しようとしていますが、一部のデータの抽出に問題があります。例はそうです：

library(RCurl)
library(rjson)

rate_name <- 'Data:B386166e-7e84-42fa-b8ae-1a4b07fb05d9'

data <- getURL(paste('http://en.openei.org/services/rest/utility_rates?version=2&format=json&detail=full&getpage=' ,rate_name, '&detail=full', sep = ''))

data2 <- fromJSON(data)

x <- 3

今：

data2$items[[1]]$`energyratestructure/period3/tier1rate`

 [1] 0.0573

と：

 > paste('data2$items[[1]]$`energyratestructure/period', x, '/tier1rate`', sep = '')
[1] "data2$items[[1]]$`energyratestructure/period3/tier1rate`"

しかし：

> get(paste('data2$items[[1]]$`energyratestructure/period', x, '/tier1rate`', sep = ''))
Error in get(paste("data2$items[[1]]$`energyratestructure/period", x,  : 
object 'data2$items[[1]]$`energyratestructure/period3/tier1rate`' not found

最初のオブジェクトで作成されたオブジェクトの値を取得する方法が必要ですpaste()。これは簡単かもしれませんが、途方に暮れています。