无法将数据清理解决方案推广到R中的函数

我有一个关于将一些代码推广到R中的函数的问题。下面是我想要推广的代码：

#file name information 
years <-c("_1999.XPT","_2003.XPT","_2005.XPT","_2007.XPT","_2009.XPT","_2011.XPT","_2013.XPT","_2015.XPT")

  #create initial frame 
  assign("diabetes", get(paste0("diabetes",years[1])))

  #binding rest of frames 
  for(i in 2:length(years))
    {
      update_frame <- bind_rows(get("diabetes"),get(paste0("diabetes",years[i])))
      assign("diabetes", update_frame) 
    }

#文件名信息
年
big_bind <- function(name) 
{
  #create initial frame 
  assign(name, get(paste0(name,years[1])))

  #binding rest of frames 
  for(i in 2:length(years))
    {
      update_frame <- bind_rows(get(name),get(paste0(name,years[i])))
      assign(name, update_frame) 
    }

}

big_bind("diabetes")