HTML5帮助函数

library(shiny)
ui <- shinyUI(
        pageWithSidebar(
            headerPanel("My First Shiny App"),
            sidebarPanel(
              p("欲学习更多shiny,请点击下图",style="color:green"),
              br(),
              a(img(src="mingren.jpg",width=150,height=150),
                href="https://shiny.rstudio.com/"
              )
            ),
            mainPanel(
              h1(strong('这是我的第一个app应用')),
              h2(em('这是我的第一个app应用')),
              br(),
              h3('这是我的第一个app应用'),
              h4('这是我的第一个app应用'),
              h5('这是我的第一个app应用',align='center'),
              h6('输入红色的字',style="color:red")
            )
      )
)
server <- function(input, output,session) {
}
shinyApp(ui = ui, server = server)