random_file <- sample(files, 1)为何每次运行程序时都是同一个随机文件名

这可能是因为在每次运行代码时，`sample` 函数使用的随机种子是相同的。可以尝试在调用 `sample` 函数时加入一个不同的随机种子，以确保每次运行时获得不同的随机文件名。例如：

set.seed(Sys.time())  # 使用当前时间作为随机种子
random_file <- sample(files, 1)

这样就能够在每次运行代码时得到不同的随机文件名。