selectInputでShinyデータテーブルに表示する行を選択してください

Question

私は光沢のある反応性を理解するのが初めてです。 selectInputを使用して行の名前を選択し、テーブルにその行といくつかの列を表示させたいとします。

たとえば、私の行が人（ "Anna"、 "Tim"、 "Larry"）で、列が変数（ "A"、 "B"、 "C"）である場合、selectInputに " Anna "とデータテーブルを使用して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)