我正在涉足闪亮的数据表功能，我有兴趣创建一个井面板或侧面板，列出数据表的所有列，并允许用户选择他们想要在数据表上看到的列。
现在下面的代码显示玩具数据集的所有列mtcars
library(shiny)
runApp(list(
ui = basicPage(
h2('The mtcars data'),
dataTableOutput('mytable')
),
server = function(input, output) {
output$mytable = renderDataTable({
mtcars
})
}
))
我有兴趣为用户提供使用复选框打开或关闭这些列的能力
[1] "mpg" "cyl" "disp" "hp" "drat"
[6] "wt" "qsec" "vs" "am" "gear"
[11] "carb"
非常感谢解决此问题的任何帮助。提前致谢。
这是一个例子。它用selectInput选择列，并默认显示所有列，直到您选择一个或多个特定列。
library(shiny)
runApp(list(
ui = basicPage(
selectInput("select", "Select columns to display", names(mtcars), multiple = TRUE),
h2('The mtcars data'),
dataTableOutput('mytable')
),
server = function(input, output) {
output$mytable = renderDataTable({
columns = names(mtcars)
if (!is.null(input$select)) {
columns = input$select
}
mtcars[,columns,drop=FALSE]
})
}
))
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
