开发选择/取消选择所有按钮以获得闪亮效果
Posted
tags:
篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了开发选择/取消选择所有按钮以获得闪亮效果相关的知识,希望对你有一定的参考价值。
受到这个solution的启发,我只是想知道在取消选中所有列名后是否可以回到“全部”按钮。当然我可以简单地开发else if
功能:
if(input$radio == "All"){
hw
}
else if (length(input$show_vars) == 0){
hw
}
else {
hw[,input$show_vars,drop=FALSE]
}
和结果计算diamonds
数据集中的所有列,但在radioButtons面板中没有任何变化(即“手动选择”按钮仍将打开)。相反,我想在取消选中所有checkboxGroupInput选项后自动更改radioButton。
长子。 [R
library(shiny)
shinyUI(fluidPage(
title = 'Examples of DataTables',
sidebarLayout(
sidebarPanel(
radioButtons(
inputId="radio",
label="Variable Selection Type:",
choices=list(
"All",
"Manual Select"
),
selected="All"),
conditionalPanel(
condition = "input.radio != 'All'",
checkboxGroupInput(
'show_vars',
'Columns in diamonds to show:',
choices=names(hw),
selected = "carat"
)
)
),
mainPanel(
verbatimTextOutput("summary"),
tabsetPanel(
id = 'dataset',
tabPanel('hw', dataTableOutput('mytable1'))
)
)
)
))
server.R(使用我的其他if函数):
library(shiny)
library(ggplot2)
data(diamonds)
hw <- diamonds
shinyServer(function(input, output) {
Data <- reactive({
if(input$radio == "All"){
hw
}
else if (length(input$show_vars) == 0){
hw
}
else {
hw[,input$show_vars,drop=FALSE]
}
})
output$summary <- renderPrint({
## dataset <- hw[, input$show_vars, drop = FALSE]
dataset <- Data()
summary(dataset)
})
# a large table, reative to input$show_vars
output$mytable1 <- renderDataTable({
Data()
## hw[, input$show_vars, drop = FALSE]
})
})
答案
也许你正在寻找一种更新单选按钮http://shiny.rstudio.com/reference/shiny/latest/updateRadioButtons.html的方法
另一答案
感谢Rohit Das我做到了我想要的。
我的意思是,
data(diamonds)
hw <- diamonds
shinyServer(function(input, output,session) {
Data <- reactive({
if(input$radio == "All"){
hw
}
else if (length(input$show_vars) == 0){
updateRadioButtons(session,
"radio",
"Variable Selection Type:",
choices=list("All","Manual Select"),
selected = "All")
updateCheckboxGroupInput(session,
'show_vars',
'Columns in diamonds to show:',
choices=names(hw),
selected = "carat")
}
else {
hw[,input$show_vars,drop=FALSE]
}
})
另一答案
shinyWidgets
库有一个很好的函数叫做pickerInput()
,它带有一个“全选/取消全选”功能。经过大量研究,我发现这是唯一内置此功能的Shiny输入:
链接到网站:https://dreamrs.github.io/shinyWidgets/index.html
以上是关于开发选择/取消选择所有按钮以获得闪亮效果的主要内容,如果未能解决你的问题,请参考以下文章