如何进一步检查`file_list`是否包含期望的文件？

如果你想要确认`file_list`确实包含了预期的TSV文件，可以执行以下操作：

1. **遍历文件列表**：打印`file_list`的内容，查看是否有你想找的文件名和扩展名。

cat(file_list, sep = "\n")

2. **检查文件类型**：对于每个文件路径，你可以使用`file.info()`或`strsplit()`等函数来检查文件扩展名。例如：

library(stringr)
file_info <- lapply(file_list, function(x) str_split_fixed(x, "/", 2)[[2]][2])
has_tsv <- grepl("_tsv.txt$", file_info)
is_tsv <- file_info[file_info == "_tsv.txt"]

这将检查每个文件名是否以`_tsv.txt`结尾，并返回结果。

3. **错误处理**：如果希望程序在未找到预期文件时给出提示，可以在循环中加入条件判断，比如如果`length(is_tsv) == 0`，则输出一条消息。

if (!any(is_tsv)) {
  cat("Warning: No TSV files found in the specified directory.\n")
}