Список реактивных значений в заголовке окна Shinydashboard дублируется

Question

Проблема: Предположим, у меня есть следующее простое приложение, в котором я хочу иметь реактивный заголовок в поле. Каждый раз, когда я выбираю более одного имени, название дублируется.

Желаемый результат: Название должно отображаться (при условии, что я выберу Питера, Клауса): Some cool text which gets duplicated if I choose more than one name Peter, Klaus. По сути, я хочу объединить входные данные в список и отобразить их в заголовке.

Есть идеи, как это сделать? Большое спасибо !!

library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(
    box(title=textOutput('title'),
        width = 6,
        solidHeader = TRUE,
        status = "primary"
    ),

    selectInput("my_names", label = "Choose name", choices = c("Gerd", "Peter", "Klaus"), selected = "Peter", multiple = TRUE,
                selectize = TRUE)
  )
)

server <- function(input, output) {
  output$title <- renderText({
    req(input$my_names)

    paste0("Some cool text which gets duplicated if I choose more than one name ", input$my_names)
  })


}

shinyApp(ui,server)