R 使用复选框覆盖selectInput值

我正在努力找到正确的条款谷歌在这一点上。我有一个闪亮的应用程序，有两个滑动条，为应用程序的服务器部分提供输入值。我希望用户可以选择调整滑块（场景A），或者选中一个框/单击一个按钮，直接进入场景B。场景B将设置用户不需要知道的输入

如果我们使用这个示例，添加将允许用户选中一个框，该框表示“我不想选择”。如果我们将默认值设置为MN，则选中该框将导致显示“您选择了MN”的结果

if（交互式（））{
#基本示例
shinyApp(
ui=fluidPage(
选择输入（“变量”，“变量：”，
c（“气缸”=“气缸”，
“传输”=“am”，
“齿轮”=“齿轮”），
表格输出（“数据”）
),
服务器=功能（输入、输出）{
输出$data也许您正在寻找这个

library(shiny)
library(shinyjs)

shinyApp(
  ui = fluidPage(
    useShinyjs(),
    checkboxInput("wanttochoose", "I don't want to choose", value = FALSE),
    sliderInput("slide1", "My value", min=0, max=10, value=3),
    selectInput("state", "Choose a state:",
                list(`East Coast` = list("NY", "NJ", "CT"),
                     `West Coast` = list("WA", "OR", "CA"),
                     `Midwest` = list("MN", "WI", "IA")), 
                selected = "MN"
    ),
    textOutput("result")
  ),
  server = function(input, output) {
    output$result <- renderText({
      paste("You chose", input$state)
    })
    observe({
      if (input$wanttochoose){
        shinyjs::show("slide1")
      }else{
        shinyjs::hide("slide1")
      }
      
    })
  }
)

库（闪亮）
图书馆（shinyjs）
shinyApp(
ui=fluidPage(
useShinyjs（），
checkboxInput（“wanttochoose”、“我不想选择”，value=FALSE），
sliderInput（“slide1”，“我的值”，最小值=0，最大值=10，值=3），
选择输入（“状态”，“选择状态：”，
列表（`East Coast`=列表（“NY”、“NJ”、“CT”），
`西海岸`=列表（“WA”、“或”、“CA”），
`中西部`=列表（“MN”、“WI”、“IA”），
selected=“MN”
),
文本输出（“结果”）
),
服务器=功能（输入、输出）{
输出$result请张贴一个带有复选框的复选框以选择方案a或方案B。@YBS，这正是我不知道如何做的。
library(shiny)
library(shinyjs)

shinyApp(
  ui = fluidPage(
    useShinyjs(),
    checkboxInput("wanttochoose", "I don't want to choose", value = FALSE),
    sliderInput("slide1", "My value", min=0, max=10, value=3),
    selectInput("state", "Choose a state:",
                list(`East Coast` = list("NY", "NJ", "CT"),
                     `West Coast` = list("WA", "OR", "CA"),
                     `Midwest` = list("MN", "WI", "IA")), 
                selected = "MN"
    ),
    textOutput("result")
  ),
  server = function(input, output) {
    output$result <- renderText({
      paste("You chose", input$state)
    })
    observe({
      if (input$wanttochoose){
        shinyjs::show("slide1")
      }else{
        shinyjs::hide("slide1")
      }
      
    })
  }
)