如何在函数中保留对象

问：

我正在尝试创建一个函数，该函数创建一个对象，然后循环遍历并将所有内容绑定在一起。我发现的错误是：

在 rm（long） 中：未找到对象“long”

Long似乎在它的创建和循环之间不复存在。这可能是我对函数如何工作的了解的一个相当基本的差距。任何帮助将不胜感激。我使用的代码如下。

Test <- FunctionName(Variables = c("Name"))


FunctionName <- function(Variables) {
var_list <- paste0("|._", c("Variables"), collapse = "")
var_list <- paste0("Pim", var_list)

long <- read_dta(file=paste0("a_dataname.dta")) %\>%
select(matches(var_list)) %>%
rename_at(vars(starts_with("a_")), ~str_replace(., "a_", "")) %>%
mutate(wave=1)

for (wn in 2:3) {
w1 <- paste0(letters[wn],"_")
wave_data <- read_dta(paste0(w1, "dataname.dta")) %>%
select(matches(var_list)) %>%
rename_at(vars(starts_with(w1)), ~str_replace(.,w1, "")) %\>%
mutate(wave = wn) %>% print()
Final <- bind_rows(long, wave_data)
rm(long)
}
}