コード全体の「x」を置換えの異なるリストに置き換えるためのループ

Question

私はRが新しく、今はほとんど固執していません。

# Load all EUR Files 
setwd(EUR) 
filenames <- list.files(path = EUR) 
MSCIeur <- do.call("rbind", lapply(filenames, read.csv, header = TRUE, sep = ";")) 

は、今私は、異なる通貨のために、このコードを複数回実行する必要があるので、私の質問は次のとおりです：実行する方法はあり だから、私はこのようなコードを（これは始まりに過ぎない）を書きました同じコードを複数回実行して初めて実行すると、次回に "EUR"を "USD"などで置き換えるときに "EUR"を使用するか、コード全体をコピーしてコピーしてすべての "EUR"手動で「USD」を使用しますか？これを読むために時間がかかった誰にも

Thxを:)

Answer 1

あなたが別の作業ディレクトリを設定し、リスト内のすべてのデータを格納することができ、forループを試してみてください：lapply `で

curr.name <- gsub(x = list.dirs('.', recursive=FALSE), pattern = "./", replacement ="") 

curr <- paste(getwd(), curr.name, sep = "/") 

___________________________________________________________________________________________ 

MSCI <- list() 

for(i in 1:length(curr)){ 
    setwd(curr[i]) 
    filenames <- list.files(path = curr[i]) 
    MSCI[[i]] <- do.call("rbind", lapply(filenames, read.csv, header = TRUE, sep = ";")) 
} 

names(MSCI) <- curr.name 

___________________________________________________________________________________________ 

# Other way 

for(i in 1:length(curr)){ 
    setwd(curr[i]) 
    filenames <- list.files(path = curr[i]) 
    assign(curr.name[i],do.call("rbind", lapply(filenames, read.csv, header = TRUE, sep = ";"))) 
}