R中的Figlet wrap：如何改變貓/消息輸出的寬度/大小？

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 'figlet'我們可以使用paste組合這兩行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
     _______..___________.    ___      .______     ____    __    ____       ___      .______           _______.
    /       ||           |   /   \     |   _  \    \   \  /  \  /   /      /   \     |   _  \         /       |
   |   (----``---|  |----`  /  ^  \    |  |_)  |    \   \/    \/   /      /  ^  \    |  |_)  |       |   (----`
    \   \        |  |      /  /_\  \   |      /      \            /      /  /_\  \   |      /         \   \    
.----)   |       |  |     /  _____  \  |  |\  \----.  \    /\    /      /  _____  \  |  |\  \----..----)   |   
|_______/        |__|    /__/     \__\ | _| `._____|   \__/  \__/      /__/     \__\ | _| `._____||_______/