Как отобразить список в объекте RenderText в горизонтальной форме на главной панели панели Shiny?

Question

Я хочу отобразить этот список в горизонтальной форме на главной панели ... Теперь отображается только в виде вертикального списка.

ui <-fluidPage(...,

    sidebarPanel(tags$div(style = "font-size: 21px; color: #585454;", pickerInput(inputId = "Depto"   , label = "Escoger Departamento", choices = c("D1", "D2"), options = list("actions-box" = TRUE), multiple = TRUE)), ...)

    mainPanel(...,

    wellPanel(class = "col-sm-12", style = "visibility: visible;overflow-y:scroll;width: 49%;   margin-right: 1%;height: 750px;background-color:#fff;color: #000;", h2("Filtros" , style = "font-weight: 550; font-size: 40px;"), hr(), withSpinner(valueBoxOutput("hola1"))) 

)

server <- function(input, output, session){

      ..., 

output$hola1 <- renderText({
        paste(input$Depto, collapse = "<br>")
    })


}

shinyApp(ui = ui, server = server)