r - Rのループによる順次マージ

Question

Quandl の R パッケージを使用して、特定の企業のリストの株価情報を含むデータ フレームを作成しようとしています。

install.packages("Quandl")

library(Quandl)
library(reshape)

Quandl.auth("yourauthenticationtoken")

#create date structure (using AAPL)
structure <- Quandl("GOOG/NASDAQ_AAPL",start_date="2004-01-01",end_date="2013-12-31", collapse="weekly")[c(1)]

#list of stocks to fetch
stocks <- c("MSFT", "AAPL")

# Function to fetch stock quotes
rdQcurr <- function(curr){
    codes <- paste("GOOG/NASDAQ_",curr,sep="")
    for(i in 1:length(stocks)){
    df<-Quandl(codes[i],start_date="2004-01-01",end_date="2013-12-31", collapse="weekly")[c(1,2)]

    #rename coloumn 2 to the name of the stock 
    names(df)[2]<-paste(stocks[i])
    #merge i'th stock to structure data frame 
    structure <- merge(x=structure, y=df, by = "Date", all.x=TRUE)
}
} 

quotes <- rdQcurr(stocks) 

編集: このコードは実行されますが、データ フレームの「引用符」は NULL です。

この問題を解決する方法についてのアイデアはありますか?