如何在R函数中返回多个data.frame且不打印输出？

你的问题其实很典型——R函数只能返回单个对象，但我们可以用**列表（list）**来封装多个data.frame，同时避免不必要的打印输出。先拆解你的疑问，再给出修改后的代码：

为什么单个data.frame无需打印就能返回？ #

R函数的默认行为是返回函数体中最后一个被执行的表达式的结果。比如你写一个只返回单个data.frame的函数，最后一行是dplyr的查询链，这个链的计算结果就是函数的返回值。当你调用函数时，控制台会自动显示这个返回值（这是R对对象的默认展示，不是print()函数的主动打印）。如果你连这个默认展示都想避免，可以用invisible()包裹返回值，或者调用时把结果赋值给变量（比如res <- my_function(...)）。

如何返回多个data.frame且不打印？ #

要返回多个data.frame，核心是把它们放进一个列表里（因为R函数只能返回一个对象），然后避免使用print()输出中间结果。下面是修改后的num_download函数：

require(readr)
require(dplyr)

check_for_logfile <- function(date) {
  year <- substr(date, 1, 4)
  src <- sprintf("http://cran-logs.rstudio.com/%s/%s.csv.gz", year, date)
  dest <- file.path(basename(src))
  if(!file.exists(dest)) {
    val <- download.file(src, dest, quiet = TRUE)
    if(val) stop("unable to download file ", src)
  }
  dest
}

num_download <- function(pkgname, date) {
  # 初始化空列表存储结果
  result_list <- list()
  
  for (i in seq_along(date)) {  # 用seq_along比1:length更安全
    dest <- check_for_logfile(date[i])  # 传入单个日期，而非整个向量
    cran <- read_csv(dest, col_types = "ccicccccci", progress = FALSE)
    
    # 计算统计结果，存入列表
    daily_result <- cran %>% 
      filter(package %in% pkgname) %>% 
      group_by(package) %>% 
      summarize(n = n(), .groups = "drop")  # .groups避免dplyr的分组提示
    
    result_list[[i]] <- daily_result
    # 给列表元素命名，方便后续按日期索引
    names(result_list)[i] <- date[i]
  }
  
  # 返回列表；如果不想调用时自动显示，改用invisible(result_list)
  result_list
}

使用方法： #

• 如果你想保存结果且不显示：

  # 结果存入变量，控制台无输出
  download_stats <- num_download(c("filehash", "weathermetrics"), date = c("2016-07-20","2016-07-21"))
  

• 查看单个日期的结果：

  # 查看2016-07-20的数据
  download_stats[["2016-07-20"]]
  

关键修改点说明： #

1. 移除print()：原来的print()会主动输出中间结果，现在改为将结果存入列表，最后统一返回。
2. 用列表封装多个data.frame：列表是R中存储多个不同对象的标准容器，完美适配返回多个data.frame的需求。
3. 修正循环逻辑：原来的check_for_logfile(date)传入了整个日期向量，改为date[i]传入单个日期，避免错误。
4. 添加.groups = "drop"：消除dplyr分组后的提示信息，让输出更干净。

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