checkboxGroupInput – 设置最小和最大选择数 – 刻度

概述以下是带有复选框组输入的示例代码： library(shiny)server <- function(input, output) { output$Selected <- renderText({ paste(input$SelecetedVars,collapse=",") })}ui <- fluidPage( sidebarLayout( sideba 以下是带有复选框组输入的示例代码：

library(shiny)server <- function(input,output) {  output$Selected <- renderText({    paste(input$SelecetedVars,collapse=",")  })}ui <- fluIDPage(  sIDebarLayout(    sIDebarPanel(      checkBoxGroupinput("SelecetedVars","MyList:",paste0("a",1:5),selected = "a1")    ),mainPanel(textoutput("Selected"))  ))shinyApp(ui = ui,server = server)

正如您从上图中可以看到的,我们可以根据需要选择多个,在这种情况下,可以选择4个中的4个.

如何设置最小和最大刻度数？我需要选中最少1个选项并选中最多3个选项.即：防止勾选最后一个勾号,并在已经勾选3个选项时阻止勾选.

解决方法 你可以这样做：

rm(List = ls())library(shiny)my_min <- 1my_max <- 3ui <- fluIDPage(  sIDebarLayout(    sIDebarPanel(      checkBoxGroupinput("SelecetedVars",mainPanel(textoutput("Selected"))  ))server <- function(input,output,session) {  output$Selected <- renderText({    paste(input$SelecetedVars,")  })  observe({    if(length(input$SelecetedVars) > my_max)    {      updateCheckBoxGroupinput(session,"SelecetedVars",selected= tail(input$SelecetedVars,my_max))    }    if(length(input$SelecetedVars) < my_min)    {      updateCheckBoxGroupinput(session,selected= "a1")    }  })}shinyApp(ui = ui,server = server)

总结

以上是内存溢出为你收集整理的checkboxGroupInput – 设置最小和最大选择数 – 刻度全部内容，希望文章能够帮你解决checkboxGroupInput – 设置最小和最大选择数 – 刻度所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。