本文介绍了如何在ui.R中获取uioutput中的值并将其发送回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?的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持!