r - 数値入力、シャイニーRの最小値としてcheckboxGroupInputを使用する

Question

私の Shiny アプリには、ユーザーが value1、value2、value3 などの値を入力する tabPanel Second ページがあります。次に、別の tabPanel の最初のページがあります。これは、tabPanel の 2 番目のページに挿入された値の最小値を計算するために使用する値をユーザーが選択する、checkboxGroupInput で構成されています。この値の最小値が、タブパネルの 2 ページ目の別の NumericInput の初期値として使用される可能性はありますか?

ここでは 3 つの選択肢の例を示していますが、実際には 6 つあるため、if と ifelse を使用して選択肢を分離する (ここではR Shiny :checkboxGroupInput valueのように) のは非常に長い道のりです。もっとスムーズな方法はありますか？

回答ありがとうございます。

例えば

ui<- navbarPage(title=div("Problem"),
  tabPanel (title="First page",
            fluidRow(column(2,numericInput("value", "Insert a value", value = **min(of selected values)**, min = 0, max=5, step=0.0001),
            checkboxGroupInput("variable", "Inital values expressed as min of:",
                               choices=c("House",
                                         "Apartment",
                                         "Car" 
                               ))))),

            tabPanel (title="Second page", fluidRow(column(2,
                      numericInput("value1", "House", value =0.02, min = 0, max=5, step=0.0001),
                      numericInput("value2", "Apartment", value =1, min = 0, max=5, step=0.0001),
                      numericInput("value3", "Car", value =0.15,min = 0, max=5, step=0.0001)))))
server <- function(input, output) { }

shinyApp(ui, server)