在 ReporteRs 中添加标题换行符

Add line break in title in ReporteRs

在此示例中,我想在 "Episode IV" 和 "A New Hope" 之间换行,但 \n 不起作用...我该怎么做?

library("ReporteRs")
deck <- pptx( title = "Star Wars Movies")  
deck <- addSlide( deck, slide.layout = "Title and Content" )
deck <- addTitle( deck, "Episode IV\nA New Hope")
# spoiler alert
deck <- addParagraph(deck, paste("This movie is about Luke Skywalker, Han Solo,",
                                 "Obi-Wan Kenobi, and some droids who rescue",
                                 "Princess Leia and blow up the Death Star.") )
writeDoc(deck, file = "temp.pptx" )

仅使用 \r\n 而不是 \n

library("ReporteRs")
deck <- pptx( title = "Star Wars Movies")  
deck <- addSlide( deck, slide.layout = "Title and Content" )
deck <- addTitle( deck, "Episode IV\r\nA New Hope")
# spoiler alert
deck <- addParagraph(deck, paste("This movie is about Luke Skywalker, Han Solo,",
                                 "Obi-Wan Kenobi, and some droids who rescue",
                                 "Princess Leia and blow up the Death Star.") )
writeDoc(deck, file = "temp.pptx" )