图R:如何改变猫/消息输出的宽度/大小

Question

我可以增加线条的大小或宽度吗？

例如，下面的内容被包装在第二个"a"之后，我希望所有内容都在一行上。

#install.packages("Rfiglet")
library(Rfiglet)

figlet('starwars', 
respect.linebreaks = FALSE,
smush = TRUE,
font = "starwars")
_______.___________.    ___      .______     ____    __    ____  ___      
/       |           |   /        |   _           /    /   / /        
|   (----`---|  |----`  /  ^      |  |_)  |       /    /   / /  ^      
          |  |      /  /_     |      /                  / /  /_     
.----)   |      |  |     /  _____    |  |  ----.      /    / /  _____    
|_______/       |__|    /__/     __ | _| `._____|   __/  __/ /__/     __ 
         
.______          _______.
|   _          /       |
|  |_)  |      |   (----`
|      /               
|  |  ----.----)   |   
| _| `._____|_______/  

options(width = 999)没有改变任何东西。

Answer 1

决定文本是否必须打印成1行或2行是由figlet函数内部决定的，很可能是基于输入中的字符数。

figlet函数返回一个字符向量，我们可以通过使用hack来实现我们想要的。当输出分布在2行上时，我们可以使用paste组合这两行，并将类改回'figlet'。

library(Rfiglet)
tmp <- figlet('starwars', 
respect.linebreaks = TRUE,
smush = FALSE,
font = "starwars")
n <- length(tmp)
tmp1 <- paste(tmp[1:(n/2)], tmp[(n/2 + 1):n])
class(tmp1) <- 'figlet'
tmp1
_______..___________.    ___      .______     ____    __    ____       ___      .______           _______.
/       ||           |   /        |   _           /    /   /      /        |   _           /       |
|   (----``---|  |----`  /  ^      |  |_)  |       /    /   /      /  ^      |  |_)  |       |   (----`
           |  |      /  /_     |      /                  /      /  /_     |      /                
.----)   |       |  |     /  _____    |  |  ----.      /    /      /  _____    |  |  ----..----)   |   
|_______/        |__|    /__/     __ | _| `._____|   __/  __/      /__/     __ | _| `._____||_______/