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

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

cat

输出中添加行号

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

x <- "A\nB\nC"

如何使用字符串打印行号。即，显示如下内容：

1: A
2: B
3: C

---

我不认为有一种方法可以做到这一点，而不需要手动添加这些行号。不过，这样做也不算太坏

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 <- 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