random_file <- sample(files, 1) # 随机选择一个文件 为何在另一个文件中每次运行可以随机选择不同的文件名，但是在自己的文件中每次运行会随机选择同一个文件名呢

可能是因为在你的代码中，随机数生成器的种子没有改变。如果种子固定，那么每次运行时生成的随机数序列都是相同的，所以每次都会选择相同的文件名。你可以尝试在每次运行时使用不同的种子来生成随机数。例如，你可以使用系统时间作为种子来保证每次运行时生成的随机数序列都是不同的。具体来说，可以使用以下代码：

set.seed(as.integer(Sys.time()))
random_file <- sample(files, 1)

这样可以保证每次运行时都使用一个不同的种子来生成随机数，从而得到不同的结果。