Select 行显示在 Shiny 数据中 table with selectInput

Question

我不熟悉 shiny 的反应性。我想使用 selectInput 来选择一行的名称，并让 table 只显示该行，然后显示几列。

例如，如果我的行是人 ("Anna","Tim","Larry") 而我的列是变量 ("A","B", "C") 我希望 selectInput 显示 "Anna"，数据 table 只显示 Anna 的变量 A、B 和 C。

我不知道该怎么做。

 ui <- shinyUI(
 fluidPage(
 fluidRow(
column(2, selectInput("name", "Select a Name:",
                      c("Anna"= "smith.anna",
                        "Tim" = "miller.tim"))),
column(6, "People Table", tableOutput("mytable")
 ))))

 server <- function(input, output) {
 output$mytable <- renderTable({
 mydataset[mydataset, input$name]})
 }

我很确定是我的服务器功能出了问题，但所有提示都很有帮助！谢谢！

Answer 1

看我的评论：

mydataset <- data.frame(A = 1:3, B = 4:6, C = 7:9)
row.names(mydataset) <- c("smith.anna", "miller.tim", "page.larry")


ui <- shinyUI(
  fluidPage(
    fluidRow(
      column(2, selectInput("name", "Select a Name:",
                            c("Anna"= "smith.anna",
                              "Tim" = "miller.tim"))),
      column(6, "People Table", tableOutput("mytable")
      ))))

server <- function(input, output) {
  output$mytable <- renderTable({
    mydataset[input$name, ]
  })
}

shinyApp(ui, server)

Select 行显示在 Shiny 数据中 table with selectInput

Select row to display in Shiny data table with selectInput

shiny

reactive