r - 在for循环中生成序列

Question

这可能已得到解答，但我找不到针对我的具体问题的解决方案: 我正在寻找某种文件类型(例如 jpeg)并使用 message() 函数向用户打印 message 。但除了消息之外，我还想打印一个序列。 输出应为:

1. Found filename at System time.
2. Found filename2 at System time. 

不幸的是，我的输出是:

1 Found filename at System time
2 Found filename at System time
1 Found filename2 at System time
2 Found filename2 at System time

我的代码:

library(tools)
setwd("/Users/RLearner/Desktop/TEMP")
a<-list.files(getwd(), recursive=TRUE)
for (f in a)
  for (i in 1:length(a))
    if (file_ext(f)=="jpeg")
    {
      message(paste(i, "Found", f, "-", Sys.time(), sep = " "))
    }

我做错了什么？

Answer 1

以下还不够吗？

setwd("/Users/RLearner/Desktop/TEMP")
a <- list.files(getwd(), pattern="*jpeg$", recursive=TRUE)

out <- paste(seq_along(a), "Found", "-", a, Sys.time(), sep = " ")

编辑

我无法通过简单地使用 out 提供 message 来找到解决方案。仍然需要 for 循环。如果有人能找到包装，请随时编辑。

for (ii in out){
  message(ii)
}