我正在尝试创建一个应用程序,其最终目标是选择符合用户使用闪亮元素(checkboxGroupInput, sliderInput, etc
)选择的某些条件的矩阵行作为示例,让我们考虑数据是global.R
文件的一部分:
global.R
data <- t(combn(20, 5)) # 20 has been chosen for simplicity. In reality is a variable selected from c(20, 30, 45).
在ui.R
和server.R
中,我创建了一组checkboxGroupInput
,以反映用户可以从中选择某些数字的范围c(1:20)
。
ui.R
....
uiOutput(outputId = "numSelector")
....
server.R
.......
output$numSelector <- renderUI({
out <- checkboxGroupInput(
inputId = "numSelector",
label = "Select the numbers",
choices = selectRange(input$dataName),
inline = TRUE
)
return(out)
})
........
为了调试目的,我想通过checkboxGroupInput
(实际上是任何其他闪亮的元素)打印出选定的值,并根据这些值过滤data
的行。有什么建议吗?
发布于 2015-04-20 15:51:27
使用上面的代码,您可以调用使用input$numSelector
选择的值的向量。这些可以传递给数据帧进行过滤,或者传递给任何其他闪亮的输出对象。
打印值:
print(input$numSelector)
过滤器
data[data$dataName %in% input$numSelector,]
要运行此打印代码,需要将其放置在观察者()函数中。
https://stackoverflow.com/questions/29751411
复制