控件包括 UI 和服务器两方面。
## 导入 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)
生成的 Shiny 如下。
图1-界面展示
图2-数据集选择