Question

我想删除＆＃39; \＆＃39;生成的，所以我运行cat（）来清除它。但是需要将该输出分配给变量以便稍后在gsubfn字符串中匹配。

>topheader <-'<div id="editor1" class="shinytinymce shiny-bound-input" 
style="resize: none; width: 100%; height: 100%; border-style: none; 
background: gainsboro;">'

>topheader
[1] "<div id=\"editor1\" class=\"shinytinymce shiny-bound-input\" 
style=\"resize: none; width: 100%; height: 100%; border-style: none; 
background: gainsboro;\">"

>cat(topheader)
[1] <div id="editor1" class="shinytinymce shiny-bound-input" style="resize: 
none; width: 100%; height: 100%; border-style: none; background: 
gainsboro;">

> test<-cat(topheader)


> test
NULL

Answer 1

正如评论中已指出的那样，将cat的输出分配给变量对您没有帮助，因为\字符（称为escape characters）不会实际上存在于字符串中。当您将字符串输出到控制台时，它们就会以这种方式打印。

然而，为了其他人试图以不同的理由分配猫的输出，有必要提供更完整的答案。 cat确实有一些用于格式化输出的有用功能，有人可能需要存储在变量中。在这些情况下，我们可以使用capture.output来实现这一目标。例如，

cat(paste(letters, 100* 1:26), fill = TRUE, labels = paste0("{", 1:10, "}:"))

产生以下输出，方便地分成控制台宽度的编号行：

# {1}: a 100 b 200 c 300 d 400 e 500 f 600 g 700 h 800 i 900 
# {2}: j 1000 k 1100 l 1200 m 1300 n 1400 o 1500 p 1600 
# {3}: q 1700 r 1800 s 1900 t 2000 u 2100 v 2200 w 2300 
# {4}: x 2400 y 2500 z 2600

我们可以通过

捕获此输出

x = capture.output(
      cat(paste(letters, 100* 1:26), fill = TRUE, labels = paste0("{", 1:10, "}:"))
    )

创建一个字符向量x，每个元素对应一行输出：

# [1] "{1}: a 100 b 200 c 300 d 400 e 500 f 600 g 700 h 800 i 900 "
# [2] "{2}: j 1000 k 1100 l 1200 m 1300 n 1400 o 1500 p 1600 "     
# [3] "{3}: q 1700 r 1800 s 1900 t 2000 u 2100 v 2200 w 2300 "     
# [4] "{4}: x 2400 y 2500 z 2600"

如果您愿意，可以使用以下方法将此向量折叠为使用换行符分隔的单个字符串：

x = paste0(x, collapse = '\n')

R |将Cat（）输出分配给变量

1 个答案: