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)

从r Markdown selectInput（下拉菜单）中提取值/名称

1 个答案: