开发选择/取消选择所有按钮以获得闪亮效果

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输入:

enter image description here

链接到网站:https://dreamrs.github.io/shinyWidgets/index.html

以上是关于开发选择/取消选择所有按钮以获得闪亮效果的主要内容,如果未能解决你的问题,请参考以下文章

以闪亮的意外行为取消组合和选择

R闪亮:更新data.table中的选择输入值

HTML代码片段

HTML代码片段

R,闪亮:选择输入的下一个/上一个按钮

R闪亮通过选中复选框下载文件