如何在R中使用file.copy()时隐藏成功返回仅展示复制失败信息

你遇到的输出泛滥问题是因为R Notebook默认会打印所有未赋值的表达式返回值，file.copy()执行后会返回对应每个文件复制结果的逻辑值，未被捕获时就会全部输出到页面。可通过以下几种方法实现仅输出失败提示：

方法1：捕获返回值按需打印 #

将复制结果赋值给变量，不会自动打印，仅校验后输出失败信息：

# 定义源文件路径列表、目标路径列表
src_files <- c("path/file1.csv", "path/file2.csv")
dest_files <- c("dest/path/file1.csv", "dest/path/file2.csv")

# 执行复制，结果存入变量不会自动打印
copy_result <- file.copy(from = src_files, to = dest_files, overwrite = TRUE)

# 仅当有复制失败时输出提示
if (any(!copy_result)) {
  fail_files <- src_files[!copy_result]
  warning("复制失败的文件列表：\n", paste(fail_files, collapse = "\n"))
}

方法2：用代码块参数隐藏全部标准输出 #

给当前复制操作所在的代码块添加results="hide"参数，会隐藏所有正常输出，但警告、错误信息仍会正常展示：

```{r, results="hide"}
# 你的批量复制代码
copy_result <- file.copy(src_files, dest_files, overwrite = TRUE)

# 失败提示代码仍会正常输出警告
if (any(!copy_result)) {
  warning("存在文件复制失败")
}

## 方法3：迭代复制时隐藏返回值
如果用`lapply`等迭代函数执行复制，用`invisible()`包裹迭代调用，或者使用`purrr::walk()`类无返回值的迭代函数：
- 基础R方案：
```r
invisible(lapply(seq_along(src_files), function(i) {
  success <- file.copy(src_files[i], dest_files[i], overwrite = TRUE)
  if (!success) warning("复制失败：", src_files[i])
}))

• tidyverse生态方案：

purrr::walk2(src_files, dest_files, \(s, d) {
  if (!file.copy(s, d, overwrite = TRUE)) warning("复制失败：", s)
})

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