ui 用户自定义界面设置
server 服务端脚本

Shiny Text这个应用程序展示的是直接打印R对象，以及用HTML表格展示数据框。要运行例子程序，只需键入：

runExample("02_text")

前面那个例子里用一个滑动条来输入数值，并且输出图形。而这个例子更进了一步：有两个输入，以及两种类型的文本输出。

如果你改变观测个数， 将会发现Shiny应用程序的一大特性：输入和输出是结合在一起的，并且“实时”更新运算结果（就像Excel一样）。 在这个例子中，当观测个数发生变化时，只有表格更新，而不需要重新加载整个页面。

下面是用户界面定义的代码。请注意，"sidebarPanel" 和 "mainPanel" 的函数调用中有两个参数（对应于两个"输入" 和 两个 "输出"）.
ui.R

library(shiny)

# Define UI for dataset viewer app ----
ui <- fluidPage(

  # App title app标题 ----
  titlePanel("Shiny Text"),

  # Sidebar layout with a input and output definitions 带有输入和输出定义的边栏布局----
  sidebarLayout(

    # Sidebar panel for inputs  用于输入的侧栏面板----
    sidebarPanel(

      # Input: Selector for choosing dataset ----
      selectInput(inputId = "dataset",
                  label = "Choose a dataset:",
                  choices = c("rock", "pressure", "cars")),

      # Input: Numeric entry for number of obs to view ----
      numericInput(inputId = "obs",
                   label = "Number of observations to view:",
                   value = 10)
    ),

    # Main panel for displaying outputs ----
    mainPanel(

      # Output: Verbatim text for data summary ----
      verbatimTextOutput("summary"),

      # Output: HTML table with requested number of observations ----
      tableOutput("view")

    )
  )
)

服务端的程序要稍微复杂一点。现在，我们创建：

一个反应性表达式来返回用户选择的相应数据集。
还有两个渲染表达式（rendering expressions，分别是renderPrint 和renderTable），以返回 output$summary 的 output$view 的值。
这些表达式和第一个例子中的 renderPlot 运作方式类似：通过声明渲染表达式，你也就告诉了shiny，一旦渲染表达式所依赖的值（在这里例子中是两个用户输入值的任意一个：input$dataset 或 input$n）发生改变，表达式就会执行。。

# Define server logic to summarize and view selected dataset ----
server <- function(input, output) {

  # Return the requested dataset ----
  datasetInput <- reactive({
    switch(input$dataset,
           "rock" = rock,
           "pressure" = pressure,
           "cars" = cars)
  })

  # Generate a summary of the dataset ----
  output$summary <- renderPrint({
    dataset <- datasetInput()
    summary(dataset)
  })

  # Show the first "n" observations ----
  output$view <- renderTable({
    head(datasetInput(), n = input$obs)
  })

}

Create Shiny app ----

shinyApp(ui = ui, server = server)