如何在R中关闭read_excel导入Excel时的列重命名提示？

这些提示是readxl检测到Excel中存在空白列名，自动将其重命名为...N时输出的消息（而非警告），因此library(readxl, warn.conflicts=FALSE)无法生效——该参数仅用于处理包冲突警告。以下是两种可行的解决方法：

方法1：修改列名修复规则 #

通过设置read_excel的.name_repair参数，避免自动重命名时输出提示。

• 若允许保留原始空列名，使用"minimal"选项：

read_excel_allsheets <- function(filename) { 
  sheets <- readxl::excel_sheets(filename) 
  x <- lapply(sheets, function(X) {
    readxl::read_excel(filename, sheet = X, .name_repair = "minimal")
  }) 
  names(x) <- sheets 
  x 
} 

• 若需避免空列名带来的后续处理问题，可自定义规则生成合法列名，同时不会触发提示：

read_excel_allsheets <- function(filename) { 
  sheets <- readxl::excel_sheets(filename) 
  x <- lapply(sheets, function(X) {
    readxl::read_excel(filename, sheet = X, 
                       .name_repair = ~ make.names(., unique = TRUE))
  }) 
  names(x) <- sheets 
  x 
} 

方法2：直接压制消息 #

如果不想改变列名处理逻辑，仅需关闭提示，可使用suppressMessages包裹read_excel调用，压制所有相关消息：

read_excel_allsheets <- function(filename) { 
  sheets <- readxl::excel_sheets(filename) 
  x <- lapply(sheets, function(X) {
    suppressMessages(readxl::read_excel(filename, sheet = X))
  }) 
  names(x) <- sheets 
  x 
} 

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