如何在闪亮的背景中方便地添加多个换行符？

Question

我想在我的闪亮应用中添加多个换行符。代替

br(),
br(),
br(),
...

还有其他更方便的方法吗？谢谢。

Answer 1

我不知道这是否方便您，但是可以节省一些键入时间。

[linebreaks(n)重复<br/> n次，并将其解析为HTML。

library(shiny)


linebreaks <- function(n){HTML(strrep(br(), n))}

ui <- fluidPage(

  titlePanel(
              p( 
                  h1("first sentence", align = "center"),

                  linebreaks(10),

                  h3("second sentence", align = "center")
                )
              )
  )