循環替換整個代碼中的「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 = ";")) 

現在我需要運行該代碼多次爲不同的貨幣，所以我的問題是：有沒有一種方法來運行相同的代碼多次，第一次運行時，它會在下次用「USD」代替代碼中的所有「EUR」時使用「EUR」，或者是否需要複製粘貼整個代碼並僅替換所有「EUR」手動「美元」？

THX給任何人說花時間來閱讀:)

Answer 1

嘗試for循環，可以設定不同的工作目錄和所有數據存儲的列表中：

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 = ";"))) 
}