Извлечь значение/имя из 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)