「R」第一个Shiny应用（二） 添加控件

## 导入 Shiny 包
library(shiny)

ui = fluidPage(
  ## UI 控件一般使用
  ## xxInput：用于用户输入
  ## 或
  ## xxOutput：用于结果展示
  selectInput("dataset", label = "Dataset",
              choices = ls("package:datasets")),
  verbatimTextOutput("summary"),
  tableOutput("table")
)


server = function(input, output, session) {
  ## input 指代输入命名空间
  ## 如 input$dataset 指代来自用户输入（UI）ID 为 dataset 的数据
  ## output 指代输出命名空间
  ## 如 output$summary 指代输出给 UI 使用的数据，summary 是 ID

  ## Server 行为一般使用
  ## renderXXX 告诉服务器如何输出结果
  ##   output$ID <- renderTYPE({
  ##   # 生成输出的表达式
  ## })
  output$summary = renderPrint({
    dataset = get(input$dataset, "package:datasets", inherits = FALSE)
    summary(dataset)
  })
  
  output$table = renderTable({
    dataset = get(input$dataset, "package:datasets", inherits = FALSE)
    dataset
  })
}

## 运行 Shiny
shinyApp(ui, server)