Shiny平台构建与R包开发（五）——ui美化

本节简单地向读者介绍Shiny APP中ui的美化方法。

shinythemes

利用shinythemes包，您可以选择不同的bootstrap风格，并将其应用到Shiny APP中。

安装完shinythemes包后，运行?shinythemes查看帮助界面。其中"Details"一栏列出了不同的bootstrap风格链接。点击链接后进入bootswatch网站，并在网站中切换与浏览不同风格的bootstrap。

以"flatly"风格为例，只需要在fluidPage或navbarPage中加入theme参数即可完成ui美化：

ui <- navbarPage(
	"Nav Page",
	theme = shinythemes::shinytheme("flatly"),
	
    tabPanel("Tab 1", "Content of Tab 1 Page"),
    tabPanel("Tab 2", "Content of Tab 2 Page")
)

除了shinythemes包外，还有很多包也能完成类似的功能或更好的设计，可以参考"盘点强大的shinyUI美化包"。

dashboard

shinythemes包是通过为fluidPage或navbarPage添加主题参数实现对Shiny APP的美化。不少R包提供了其他xxxPage函数，是fluidPage和navbarPage很好的替代函数，能够生成较为美观的ui。一个典型的例子是shinydashboard包。

当您运行完“Shiny快速上手——shinydashboard包”博客中的案例后，您就能很快知道dashboardPage函数的强大之处，了解到基于Dashboard布局中box函数在ui美化上的重要性。其语法与之前的fluidPage或navbarPage十分相似。

includeCSS

这并不是一种推荐的方法，除非您是一位强大的底层CSS开发者。在fluidPage中加上includeCSS("path")内容，即可引入本地CSS文件，对Shiny网页进行美化。

上一篇： Shiny平台构建与R包开发（四）——按钮与响应事件
下一篇： Shiny平台构建与R包开发（六）——R包开发与部署

---