如何在R中打印多行字符變量的行號？

Question

我試圖確定存儲在標量字符變量中的JAGS腳本中的行號。 我想行號添加到cat輸出R.

爲了簡化的例子，如果我有一個字符串：

x <- "A\nB\nC" 

我也cat(x)，我得到：

A 
B 
C 

如何用字符串打印行號？即，顯示如下：

1: A 
2: B 
3: C 

Answer 1

我不認爲有沒有辦法做到這一點，而無需在自己手動添加這些行號。儘管如此，這還不算太壞。

line_num_cat <- function(x){ 
    tmp <- unlist(strsplit(x, "\n")) 
    cat(paste0(seq_len(length(tmp)), ": ", tmp, collapse = "\n"), "\n") 
} 

x <- "A\nB\nC" 
line_num_cat(x) 

這給

> line_num_cat(x) 
1: A 
2: B 
3: C