如何用paste/print完整输出R列表的全部元素为指定格式？

我有一个名为tmp的列表，包含两个元素：$a为integer(0)，$b是包含387732个元素的序列。我希望使用paste()或print()在控制台输出如下格式的内容：

[1] "a contains integer(0)"
[1] "b contains 1, 2, 3, ..., 387732"（实际需输出全部值）

但尝试两种方法后，$b仅显示为1:387732，无法完整输出所有元素。

尝试的代码：

names <- c('a', 'b')
# 方法1
for (p in seq_along(names)) {
  print(paste(names[p], 'contains', as.list(tmp[p])))
}

# 方法2
cat(sprintf("%s contains %s\n", names, tmp))

输出结果：

[1] "a contains integer(0)"
[1] "b contains 1:387732"

R会自动将长序列简写为start:end的形式，要实现完整输出，需要把序列元素转换为逗号分隔的字符串，同时注意正确提取列表元素，具体实现如下：

方法一：修改循环逻辑 #

names <- c('a', 'b')
for (p in seq_along(names)) {
  # 提取列表中的实际元素，而非子列表
  elem <- tmp[[p]]
  # 处理空整数向量的情况
  if (length(elem) == 0) {
    elem_str <- "integer(0)"
  } else {
    # 将序列元素连接为逗号分隔的字符串
    elem_str <- paste(elem, collapse = ", ")
  }
  print(paste(names[p], 'contains', elem_str))
}

方法二：结合lapply与sprintf #

names <- c('a', 'b')
output <- lapply(seq_along(names), function(p) {
  elem <- tmp[[p]]
  elem_str <- if (length(elem) == 0) {
    "integer(0)"
  } else {
    paste(elem, collapse = ", ")
  }
  sprintf("%s contains %s", names[p], elem_str)
})
print(unlist(output))

关键说明 #

1. 使用tmp[[p]]而非tmp[p]：tmp[p]返回的是子列表，而tmp[[p]]直接获取列表中的元素值，避免输出时保留列表结构。
2. paste(elem, collapse = ", ")：将序列的所有元素拼接成单个字符串，强制R输出全部元素而非简写形式。
3. 特殊处理integer(0)：保证空向量的输出格式符合预期。

注意事项 #

由于$b包含38万+元素，完整输出会产生极长的控制台内容，可能导致界面卡顿。如果不需要在控制台查看，建议输出到文件：

# 开启文件输出
sink("output.txt")
# 执行上述任意一种输出代码
for (p in seq_along(names)) {
  elem <- tmp[[p]]
  elem_str <- if (length(elem) == 0) {
    "integer(0)"
  } else {
    paste(elem, collapse = ", ")
  }
  print(paste(names[p], 'contains', elem_str))
}
# 关闭文件输出
sink()

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