如何在R中打印多行字符变量的行号？

Question

我正在尝试识别存储在标量字符变量中的JAGS脚本中的行号。 我想在R。

中向cat输出添加行号

为简化示例，如果我有一个字符串：

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