R 将整个字符串打印到控制台,无需截断和调整全局设置

R 将整个字符串打印到控制台,无需截断和调整全局设置,r,R,我读过这些关于让rstudio打印而不截断的帖子: 这里的答案包括对studio设置进行调整,这将覆盖控制台的所有未来输出 有没有特别的方法让r将整个字符串打印到控制台 我试过: library(tidyverse) library(foreach) mystring <- foreach(i = 1:52) %do% { paste0("'_gaWeek",i,"'!A16:B;") } %>% unlist %>% toString() print(mystri

我读过这些关于让rstudio打印而不截断的帖子:

这里的答案包括对studio设置进行调整,这将覆盖控制台的所有未来输出

有没有特别的方法让r将整个字符串打印到控制台

我试过:

library(tidyverse)
library(foreach)

mystring <- foreach(i = 1:52) %do% {
  paste0("'_gaWeek",i,"'!A16:B;")
} %>% unlist %>% toString()

print(mystring, len = length(mystring))

> print(mystring, len = length(mystring))
[1] "'_gaWeek1'!A16:B;, '_gaWeek2'!A16:B;, '_gaWeek3'!A16:B;, '_gaWeek4'!A16:B;, '_gaWeek5'!A16:B;, '_gaWeek6'!A16:B;, '_gaWeek7'!A16:B;, '_gaWeek8'!A16:B;, '_gaWeek9'!A16:B;, '_gaWeek10'!A16:B;, '_gaWeek11'!A16:B;, '_gaWeek12'!A16:B;, '_gaWeek13'!A16:B;, '_gaWeek14'!A16:B;, '_gaWeek15'!A16:B;, '_gaWeek16'!A16:B;, '_gaWeek17'!A16:B;, '_gaWeek18'!A16:B;, '_gaWeek19'!A16:B;, '_gaWeek20'!A16:B;, '_gaWeek21'!A16:B;, '_gaWeek22'!A16:B;, '_gaWeek23'!A16:B;, '_gaWeek24'!A16:B;, '_gaWeek25'!A16:B;, '_gaWeek26'!A16:B;, '_gaWeek27'!A16:B;, '_gaWeek28'!A16:B;, '_gaWeek29'!A16:B;, '_gaWeek30'!A16:B;, '_gaWeek31'!A16:B;, '_gaWeek32'!A16:B;, '_gaWeek33'!A16:B;, '_gaWeek34'!A16:B;, '_gaWeek35'!A16:B;, '_gaWeek36'!A16:B;, '_gaWeek37'!A16:B;, '_gaWeek38'!A16:B;, '_gaWeek39'!A16:B;, '_gaWeek40'!A16:B;, '_gaWeek41'!A16:B;, '_gaWeek42'!A16:B;, '_gaWeek43'!A16:B;, '_gaWeek44'!A16:B;, '_gaWeek45'!A16:B;, '_gaWeek46'!A16:B;, '_gaWeek47'!A16:B;, '_gaWeek48'!A16:B;, '_gaWeek49'!A16:B;, '_gaWeek50'!A16:B;, '_ga... <truncated>
库(tidyverse)
图书馆(foreach)
mystring%unlist%>%toString()
打印(mystring,len=长度(mystring))
>打印(mystring,len=长度(mystring))
[1] “你看!A16:B;,'_gaWeek2'!A16:B;,'_gaWeek3'!A16:B;,'_gaWeek4'!A16:B;,'_gaWeek5'!A16:B;,'_gaWeek6'!A16:B;,'_gaWeek7'!A16:B;,'_gaWeek8'!A16:B;,'_gaWeek9'!A16:B;,'_gaWeek10'!A16:B;,'_gaWeek11'!A16:B;,'_gaWeek12'!A16:B;,'_gaWeek13'!A16:B;,'_gaWeek14'!A16:B;,'_gaWeek15'!A16:B;,'_gaWeek16'!A16:B;,'_gaWeek17'!A16:B;,'_gaWeek18'!A16:B;,'_gaWeek19'!A16:B;,'_Gawee20'!A16:B;,'_Gawee21'!A16:B;,'_gaWeek22'!A16:B;,'_gaWeek23'!A16:B;,'_Gawee24'!A16:B;,'_Gawee25'!A16:B;,'_gaWeek26'!A16:B;,'_Gawee27'!A16:B;,'_Gawee28'!A16:B;,'_Gawee29'!A16:B;,'_gaWeek30'!A16:B;,'_gaWeek31'!A16:B;,'_gaWeek32'!A16:B;,'_gaWeek33'!A16:B;,'_gaWeek34'!A16:B;,'_gaWeek35'!A16:B;,'_gaWeek36'!A16:B;,'_gaWeek37'!A16:B;,'_gaWeek38'!A16:B;,'_gaWeek39'!A16:B;,'_gaWeek40'!A16:B;,'_gaWeek41'!A16:B;,'_gaWeek42'!A16:B;,'_gaWeek43'!A16:B;,'_gaWeek44'!A16:B;,'_gaWeek45'!A16:B;,'_gaWeek46'!A16:B;,'_gaWeek47'!A16:B;,'_gaWeek48'!A16:B;,'_gaWeek49'!A16:B;,'_gaWeek50'!A16:B;,'_嘎。。。
它被截断了。在不更改rstudio设置的情况下,是否有一种特殊的解决方法?例如通过函数参数?我在这里尝试了
print()

另外,如何去掉上面每个实例之间的逗号分隔符?

简短的回答是“否”,因为限制打印的选项在IDE本身中,您无法从程序本身控制它(我假设您不是某个疯狂的黑客),也不是语言功能。这就像试图阻止“WINDOWS”做事情(尽管不是这样)

在我看来,最简单的方法(即席)是打开它,做任何事情,然后关闭它。如果坚持不这样做,则需要编写自己的函数:

myprint<- function(somestring,idelimit=100) {
    for(i in seq(1,nchar(somestring),idelimit+1)) {
         print(substr(somestring,i,i+idelimit));
    }
}

myprint谢谢您的回答。在函数运行时遇到问题,我认为r不能识别“idelimit”?你看到它应该是函数参数了吗?我只是给了它一些默认参数——我不知道100是否正确。我猜你忘了在函数签名中写它了。很抱歉没有跟上。这里的这部分
用于(i在seq(0,nchar(somestring),idelimit))
它应该是0:100之间的数字向量吗?假设
somestring=“你好,我的名字是道格”
,并且
idelimit=4
。如果我正确计算了
somestring
中的字符数是21,那么它会从字面上翻译为
,因为I在0到21之间跳跃4
,这意味着
I
在第一次迭代中等于0,在下一次迭代中等于4,在下一次迭代中等于8等等。。。仔细检查R函数。@DougFir我确实在
somestring
-应该是“,”之后的打印中发现了一个语法错误-a“)。也很明显,R指数从1开始。