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)
