ConditionalPanel с sliderInput на основе swithcInput

Question

Я работаю над инструментом прогнозирования и на основе некоторых характеристик буду вычислять прогноз риска.

Поскольку это будет инструмент по всему миру, я бы хотел, чтобы люди могли заполнить ихвес в килограммах или фунтах.

Я попытался переключить SwitchInput между KG и LB, и на основании этого переключателя я бы хотел, чтобы либо sliderInput отображался для KG, либо для LB (поэтому не для обоих вв то же время).(KG будет по умолчанию)

Я пытался использовать ConditionalPanel, но он не работает.

Может кто-нибудь предложить что-то, что может работать?

library(shiny)
library(shinyWidgets)

# Define UI ----
ui <- fluidPage(
  titlePanel(title=div( "Risk prediction tool")),

  p("Chronic Obstructive Pulmonary Disease (COPD) is a lung problem that can affect people mainly as they get older."),

  selectInput("sex", label=p("What is your gender?"),
              choices=list("Female"=1, "Male"=0), selected=1), 

  sliderInput("age", label=p("What is your age?"), min = 18, max = 90, value = 35),

  strong("What is your weight?"),
  br(),
  switchInput("switchweight", value = TRUE , onLabel = "kg", offLabel = "lb"),

  conditionalPanel(condition = "switchweight == TRUE",
                   sliderInput("weightKG", label=NULL, min = 25, max = 200, value = 75)),
  conditionalPanel(condition = "switchweight == FALSE",
                   sliderInput("weightLB", label=NULL, min = 55, max = 440, value = 165))
)


# Define server logic ----
server <- function(input, output, session) {

}

# Run the app ----
shinyApp(ui = ui, server = server)