如何在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