如何在shiny中方便地添加多个换行符?

我不知道这对你是否方便,但它节省了你一些打字时间。

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")
                )
              )
  )