使用R中的函数读取文件

Question

我正在尝试创建一个能够读入文件并更改其中一个列名的函数。有人可以让我知道为什么这段代码不输出数据帧，但它输出的是已改变的列名？

f <- function(path, name) {
ind <- gregexpr(pattern ='_GeneSum2.txt',name)
new_name <- substr(name,1,ind[[1]][1]-1)
data_loc <- file.path(path,name)
read <- read.delim(data_loc)
names(read)[2] <- paste(names(read)[2], 'addition', sep = '_')
}

我期待的输出数据帧类似于

name_1  name_2_addition
john    3
tom     5
sam     6

如果我删除代码的最后一行，我会得到带有原始列名的数据框。

非常感谢。