我有一个函数(Save.R),该函数创建一些变量并将其保存在表中以备将来使用。
我的主代码中还有一个矩阵,我想用函数中生成的FileName替换它的某些单元格。
问题:如何保留FileName并将其保存到我的环境中? *我是R的新手,请用简单的文字解释。
我试图将矩阵输入为Save.R的输入,并替换单元格,因为它会生成FileName,但无法正常工作。
for (i in 1:435){
X = subset(NGAW2_Flatfile_Vertical_5percentdamping, grepl(Uniques[i,1],
NGAW2_Flatfile_Vertical_5percentdamping$`Station ID No.`))
if (nrow(X)==1){
# Match[count,] = subset(NGAW2_Flatfile_Vertical_5percentdamping, grepl(Uniques[i,1], NGAW2_Flatfile_Vertical_5percentdamping$`Station ID No.`))
Match[count,] = X[1,]
H1 = substring(X[1,113], 10,15)
H2 = substring(X[1,114], 10,15)
V = substring(X[1,115], 10,15)
St.ID = substring(X[1,9], 1, 7)
Save(H1, H2, V, Match)
count=count+1
}
}
Save <- function(H1, H2, V){
H1 = paste(H1, ".DAT", sep = "")
data = read.delim(H1, sep = "", header = FALSE)
When1 = substring(data[2,1],2,11)
FileName1 = paste("20", When1, "_", St.ID, "_", "H1", sep = "" )
}