値/名前をrから抽出します。selectInput（ドロップダウンメニュー）

Question

r markdown selectインプットドロップダウンメニューから選択したオプションをどのように抽出できますか？私は次のように私のWebページの何かに反応性の入力を持っている：

aggdata <- data.frame(
    "Experiment" = c("One","Two","Three"), 
    "AnythingElse" = c(1,2,3) 
) 

selectInput("Experiment1","Choose the first experiment", 
     choices = unique(aggdata$Experiment), 
     selected = unique(aggdata$Experiment)[1]) 
reactiveData <- reactive(as.data.frame(subset(aggdata, Experiment == input$Experiment1))) 
firstExperiment_aggData <- reactive(reactiveData()) 

そして私は、ユーザの選択したものを、反応的テキストにどこかに書きたいと思います。あなたは知っていますか、どうすればそれをすることができますか？事前に多くの感謝。

Answer 1

シャイニーに関する限り、これで始めることができます。それはあなたを助けますか？

library(shiny) 

aggdata <- data.frame(
    "Experiment" = c("One","Two","Three"), 
    "AnythingElse" = c(1,2,3) 
) 

ui <- shinyUI(
    fluidPage(
    selectInput("Experiment1","Choose the first experiment", 
       choices = unique(aggdata$Experiment), 
       selected = unique(aggdata$Experiment)[1]), 
    tableOutput("table1") 
) 
) 

server <- shinyServer(function(input, output, session) { 
    reactiveData <- reactive({ 
    return(as.data.frame(subset(aggdata, Experiment == input$Experiment1))) 
    }) 
    output$table1 <- renderTable({ 
    return(reactiveData()) 
    }) 
}) 

shinyApp(ui = ui, server = server)