從r Markdown selectInput（下拉菜單）中提取值/名稱

Question

如何從r markdown selectInput下拉菜單中提取選定的選項？我有我的網頁類似下面的反應輸入：

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

就Shiny而言，您可以從此開始。這對你有幫助嗎？

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)