flipbookr中长字符显示不全的解决方法咨询

flipbookr默认会截断长字符输出，要实现类似控制台的完整显示效果，可通过以下方法修改代码：

方法1：用cat()强制输出完整内容 #

将直接打印对象的语句替换为cat()，它会输出字符串全部内容，不会被截断：

# 替换原代码中的 R_EN #BREAK
cat(R_EN, "\n") #BREAK

后续每步清洗后的结果也用cat()展示，确保每步内容完整：

R_EN %>% 
    ## Remove digits
    str_remove_all("[:digit:]") %>% 
    cat("\n") %>% #BREAK
    ## Remove punctuation
    str_remove_all("[[:punct:]]") %>% 
    cat("\n") %>% #BREAK
    ## Make everything lowercase
    str_to_lower() %>% 
    cat("\n") %>% #BREAK
    ## Remove any trailing whitespace around the text
    str_trim("both") %>% 
    cat("\n") %>% #BREAK
    ## Remove newline character
    str_replace_all("[\\r\\n]" , " ") %>%
    cat("\n") #BREAK

方法2：设置全局打印选项（可选） #

在脚本开头添加以下代码，取消字符串打印的长度限制，全局生效：

options(max.print = Inf)

说明 #

• cat()会直接输出完整字符串，不受flipbookr默认截断规则影响
• 添加\n是为了让每步输出换行，提升可读性
• 全局选项max.print = Inf同时会改变控制台的打印行为，适合需要全量输出的场景

内容的提问来源于stack exchange，提问作者Marco