Shiny应用基础（8）：杂项

Shiny零零碎碎的设置还很多，不逐一讲解了。做为本系列的收尾部分，本文只介绍几个较为常用的设置，其他内容以后看情况再补充。

1 条件显示面板：conditionalPanel

它的源代码很简单：

## NOT RUN
conditionalPanel <- function(condition, ...) {
        
    div('data-display-if'=condition, ...)
}

唯一需要解释的是条件参数 condition ，可以使用ui中的input或output控件的值来判断，但通常使用input：

library('ggplot2')
shinyApp(
    ui = fixedPage(
        h1('测试'), hr(),
        radioButtons('opts', '', choices = c('图像', '文字'), inline = T, selected='图像'),
        conditionalPanel(
            condition = 'input.opts==="图像"',
            plotOutput('pl')
        ),
        conditionalPanel(
            condition = 'input.opts==="文字"',
            textOutput('tx', container=pre)
        )
    ),
    server = function(input, output, session) {
        
        air <- na.omit(airquality)
        pp <- ggplot(air, aes(x=Solar.R, <