如何在ui.R中获取uioutput中的值并将其发送回server.R？

在ui.R,我把:

uiOutput("singlefactor")

在server.R,我有:

  output$singlefactor <- renderUI({
    selectInput("sfactor", "Feature selection:", names(datatable()))
  })

使用这些,我可以datatable()在选择菜单中显示data.frame的列名.我接下来要做的是:

比方说,列名a,b,c,d在datatable().我选了一个ui.R,然后,一个被发送回服务器,以便我可以使用datatable()其中只包含一个用于下一次计算的子集.

所以,我的问题是:我该如何发回server.R？

例如,该值将像任何其他输入一样可用

library(shiny)

runApp(list(ui=shinyUI(fluidPage(
  sidebarLayout(
    sidebarPanel(
      uiOutput("singlefactor")
    ),
    mainPanel(
      plotOutput("distPlot")

    )
  )
))
,
server=shinyServer(function(input, output) {
     output$singlefactor <- renderUI({
    selectInput("sfactor", "Feature selection:", names(mtcars))
  })
  output$distPlot <- renderPlot({plot(mtcars[,input$sfactor])})

})
))

您创建了一个名为"sfactor"的UI元素,以便您可以获取该值 input$sfactor