添加表格输出

要在 Shiny 应用中添加任何输出，您需要：

创建输出（图形、表格、文本等）。
使用相应的 render___ 函数渲染该输出对象。
将渲染后的对象赋给 output$x。
在 UI 中使用相应的 ___Output 函数添加该输出。

在本练习中，您将为之前创建的婴儿姓名探索应用添加一个表格输出。别忘了，render___ 函数内的代码需要用花括号包裹（例如 renderPlot({...})）。

本练习是课程的一部分

使用 R 构建 Shiny Web 应用

查看课程

练习说明

创建名为 table_top_10_names 的表格输出，显示按性别和年份统计的最受欢迎的前 10 个名字。您可以使用函数 top_10_names() 生成要展示的数据框。
在 UI 中显示该表格。

交互式实操练习

通过完成这段示例代码来试试这个练习。

ui <- fluidPage(
  titlePanel("What's in a Name?"),
  # Add select input named "sex" to choose between "M" and "F"
  selectInput('sex', 'Select Sex', choices = c("F", "M")),
  # Add slider input named "year" to select year between 1900 and 2010
  sliderInput('year', 'Select Year', min = 1900, max = 2010, value = 1900)
  # CODE BELOW: Add table output named "table_top_10_names"
  
)

server <- function(input, output, session){
  # Function to create a data frame of top 10 names by sex and year 
  top_10_names <- function(){
    babynames %>% 
      filter(sex == input$sex) %>% 
      filter(year == input$year) %>% 
      slice_max(prop, n = 10)
  }
  # CODE BELOW: Render a table output named "table_top_10_names"
  
  
}

shinyApp(ui = ui, server = server)

编辑并运行代码