R 隐藏其中一个复选框组选项，但仍保持其功能处于激活状态

我有一个基本的闪亮应用程序下面有一个复选框组和打印结果。我想知道是否有可能以某种方式隐藏3个选项中的一个（例如“1”），但打印的结果仍应包括“1”

#ui.r
流动摄影(
#复制下面的区块以创建一组复选框
checkboxGroupInput（“checkGroup”，标签=h3（“Checkbox group”），
选项=列表（“选项1”=1，“选项2”=2，“选项3”=3），
选定值=1），
hr（），
fluidRow（第3列，逐字输出（“值”））
)
#服务器.r
功能（输入、输出）{
#您可以访问小部件的值（作为向量）
#输入$checkGroup，例如。
输出$value它不是一个
复选框GroupInput
，但它模仿了这个想法

library(shiny)

ui <- fluidPage(

  # Copy the chunk below to make a group of checkboxes
  checkboxGroupInput("checkGroup", label = h3("Checkbox group"), 
                     choices = list("Choice 1" = 1, "Choice 2" = 2, "Choice 3" = 3),
                     selected = 1),
  hr(),
  conditionalPanel(
    "input.check1 == 'T'",
    checkboxInput("check1", "Choice 1", value = T)
  ),
  checkboxInput("check2", "Choice 2", value = F),
  checkboxInput("check3", "Choice 3", value = F),
  hr(),
  fluidRow(column(3, verbatimTextOutput("value"))),
  fluidRow(column(3, verbatimTextOutput("value2")))

)

server <- function(input, output) {

  # You can access the values of the widget (as a vector)
  # with input$checkGroup, e.g.
  output$value <- renderPrint({ input$checkGroup })
  output$value2 <- renderPrint({ c(input$check1, input$check2, input$check3)})

}

shinyApp(ui, server)

库（闪亮）
带有CSS的ui：

ui <- fluidPage(

  tags$head(
    tags$style(HTML("input[name=checkGroup][value='1'] { display: none }"))
  ),

  checkboxGroupInput("checkGroup", label = h3("Checkbox group"), 
                     choices = list("Choice 1" = 1, "Choice 2" = 2, "Choice 3" = 3),
                     selected = 1),
  hr(),
  fluidRow(column(3, verbatimTextOutput("value")))

)

ui您希望它始终隐藏还是动态隐藏？我希望它始终隐藏。
ui <- fluidPage(

  tags$head(
    tags$style(HTML("input[name=checkGroup][value='1'] { display: none }"))
  ),

  checkboxGroupInput("checkGroup", label = h3("Checkbox group"), 
                     choices = list("Choice 1" = 1, "Choice 2" = 2, "Choice 3" = 3),
                     selected = 1),
  hr(),
  fluidRow(column(3, verbatimTextOutput("value")))

)