如何在ui.R中获取uioutput中的值并将其发送回server.R？ [英] How to get the value in uioutput in ui.R and send it back to server.R?

问题描述

在ui.R中，我放入：

uiOutput("singlefactor")

在server.R中，我有：

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

使用这些，我可以在SELECT菜单中显示data.framedatatable()的列名。接下来我想做的是：

假设列名是datatable()中的a、b、c、d。我从ui.R中选择了a，然后，a被发送回服务器，这样我就可以使用datatable()的子集进行下一次计算，该子集只包括a。

因此，我的问题是：如何将邮件发回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

获取值

这篇关于如何在ui.R中获取uioutput中的值并将其发送回server.R？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！