在 lapply R 中添加序列

Question

我创建了一个使用lapply 运行的函数和一个名为Path 的列表：

CheckPath <- function(Path) {

  if (file.exists(Path)) {
    for (i in seq_along(Path)){
      cat(noquote(paste0('\nThe product is present. It can be found in the following path: \n\n', i, Path, '\n\n')))
      }
  } else {
    cat('\nThe product could not be found \n')
    stop()
  }
}

# Run the CheckPath function with Path as input
OutputPath <- lapply(Path, CheckPath)

Path 是一个包含某些文件的绝对路径的列表

所需的输出应该类似于 (if condition TRUE)

The product is present. It can be found in the following path 1 /my/path/
The product is present. It can be found in the following path 2 /my/path/
The product is present. It can be found in the following path 3 /my/path/

-- 编辑--

在函数中，如果我使用

cat(noquote(paste0('\nThe product is present. It can be found in the following path: ', seq_along(Path), Path, )))

给我这个输出：

The product is present. It can be found in the following path: 

1/mypath/to/file


The product is present. It can be found in the following path:

1/mypath/to/file


The product is present. It can be found in the following path: 

1/mypath/to/file

这非常接近我想要的，但我需要有一个带有1 2 3 等的序列。

Answer 1

您可以尝试以下代码来获得您想要的结果。

path <-list("text1","text2","text3")
lapply(path,function(x){paste("This is the",which(path==x),x)})