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

checkboxGroupInput – 设置最小和最大选择数 – 刻度,第1张

概述以下是带有复选框组输入的示例代码: 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 – 设置最小和最大选择数 – 刻度所遇到的程序开发问题。

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

欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/web/1087950.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2022-05-27
下一篇 2022-05-27

发表评论

登录后才能评论

评论列表(0条)

保存