选择要在闪亮的数据表中显示的行selectInput

我是新来发现闪闪发光的反应性。我想使用selectInput来选择一个行的名称，并让该表显示该行然后是几列。例如，如果我的行是人（“Anna”，“Tim”，“Larry”），我的列是变量（“A”，“B”，“C”），我希望selectInput显示“安娜“和数据表来显示只有安娜的变量A，B和C.选择要在闪亮的数据表中显示的行selectInput

我被困在如何做到这一点。

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]}) 
}

我很确定这是我的服务器功能，搞砸了，但所有的提示都很有帮助！谢谢！

来源

2017-01-25 tika

mydataset [mydataset，输入$名称]似乎是问题。你可能是指mydataset [输入$ name，]？无论如何，一个可重复的例子总是有帮助的，如果你正在寻求帮助。 – BigDataScientist

见我的评论：

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)

来源

2017-01-25 15:58:39 BigDataScientist

真的很有帮助！谢谢！ – tika

选择要在闪亮的数据表中显示的行selectInput

回答

相关问题