Есть ли функция для массового обновления r?

Question

Я делаю некоторые тесты с Shinyapp. Кто-нибудь знает какой-либо способ обновить метки всех ползунков со значением «ввода текста» без необходимости использовать функцию «updateSliderInput» для каждого из них?

Pd: я вставляю образец, но на самом деле это будет 100 ползунков

Приветствие и заранее спасибо

ui <- fluidPage(

  fluidRow(

    textInput("caption", "Const1", "strong"),

    box(width = 3, title = "box1",
        solidHeader = TRUE, status = "danger",

        # Sd slider:
        sliderInput(inputId = "c11",
                    label = "Con1",
                    value = 5, min = 1, max = 5),
        sliderInput(inputId = "c12",
                    label = "Con2",
                    value = 3, min = 1, max = 5,step = 1),
        sliderInput(inputId = "c13",
                    label = "Con3",
                    value = 4, min = 1, max = 5),
        sliderInput(inputId = "c14",
                    label = "Con4",
                    value = 3, min = 1, max = 5),
        sliderInput(inputId = "c15",
                    label = "Con5",
                    value = 2, min = 1, max = 5)
    ),

    box(width = 3, title = "box2",
        solidHeader = TRUE, status = "danger",

        # Sd slider:
        sliderInput(inputId = "c21",
                    label = "Con1",
                    value = 2, min = 1, max = 5),
        sliderInput(inputId = "c22",
                    label = "Con2",
                    value = 3, min = 1, max = 5,step = 1),
        sliderInput(inputId = "c23",
                    label = "Con3",
                    value = 2, min = 1, max = 5),
        sliderInput(inputId = "c24",
                    label = "Con4",
                    value = 4, min = 1, max = 5),
        sliderInput(inputId = "c25",
                    label = "Con5",
                    value = 4, min = 1, max = 5)
    )
  )
)

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

  observe({
    text <- input$caption

    updateSliderInput(session, "c11", label =text, value = 3 )

})

}

# Run the application 
shinyApp(ui = ui, server = server)