R语言循环问题：如何将循环函数的输出保存为对象

我想把自定义函数make_test的输出保存为对象，但目前函数仅能打印内容，保存后的对象是NULL。相关代码、运行输出如下，后续需要将保存的对象写入.R文件：

数据样本 #

df1 <- data.frame(ID = c(1, 2, 3, 4, 5),
                  var1 = c('a', 'b', 'c', 'd', 'e'),
                  var2 = c(1, 1, 0, 0, 1))
df1$var1 <- factor(df1$var1)

自定义函数 #

make_test <- function(data_set){
  
  variable <- ifelse(sapply(data_set, is.factor), "factor", "not_factor")
  
  res <- ""
  cat("intro", "\n")
  for(i in 1:length(variable)){
    if(variable[i]=="factor"){
      res <- cat("text1", "\n")
    }
    else{
      res <- cat("text2", "\n")
    }
    res
  }
  cat("conclusion", "\n")
}

函数运行输出 #

> make_test(df1)
intro 
text2 
text1 
text2 
conclusion

后续计划使用以下代码写入文件：

write(object_name, file = paste0(data_set, ".R"))

问题核心：cat()函数仅负责打印内容，其返回值是NULL，你的函数没有返回有效字符串，导致保存的对象为NULL。要解决这个问题，需要在函数内构建完整的文本字符串并返回，而非直接打印。

修改后的函数 #

make_test <- function(data_set){
  
  variable <- ifelse(sapply(data_set, is.factor), "factor", "not_factor")
  
  # 初始化结果向量，存储每一行文本
  res_lines <- c("intro")
  
  # 遍历变量类型，添加对应文本
  for(i in seq_along(variable)){
    res_lines <- c(res_lines, if(variable[i] == "factor") "text1" else "text2")
  }
  
  # 添加结尾文本
  res_lines <- c(res_lines, "conclusion")
  
  # 将向量转为换行分隔的字符串
  final_res <- paste(res_lines, collapse = "\n")
  
  # 返回最终字符串
  final_res
}

使用流程 #

1. 保存函数输出到对象：

output_obj <- make_test(df1)

此时output_obj是包含所有内容的字符串，不再是NULL。

2. 将对象写入.R文件：

write(output_obj, file = "df1.R")

关键说明 #

• 用向量res_lines逐步收集所有文本行，避免直接打印；
• 用paste(..., collapse = "\n")将向量拼接为带换行的字符串，保证写入文件后的格式与原打印输出一致；
• 函数最后直接返回构建好的字符串，无需显式return()（R函数默认返回最后一行结果）。

内容的提问来源于stack exchange，提问作者Mando