title: Container settings in text output Shiny
body: <p>I'm trying to make a render a text output with an automatic scrollbar that is activated when the text becomes too wide or long. For the moment I achieved the scrollbar on the <code>x-axis</code> with container=pre as an argument in the Textoutput in the UI. </p>
  
  <p>What I would want is that the output in the text output limits itself to 4 or 5 rows and then to have a scrollbar in order to see the remaining rows. </p>
  
  <p>I looked at all the posts that I could find for the topic (that's why I implemented the container=pre) but I couldn't find a way to solve the y-axis scrollbar. I understand that it has something to do with overflow y: "auto" in the tags' settings but I can't make it work out, maybe I'm placing it wrong. 
  Thank you. 
  Here's an example: </p>
  
  <pre><code># Shiny example
  library(shinydashboard)
  library(shiny)
  library(stringi)
  library(shinyWidgets)
  
  # Data 
    # Some random letters
  names&lt;- stringi::stri_rand_strings(100,20)
    # Some random numbers
  numbers&lt;- runif(100,0,100000)
    # a df 
  df&lt;- as.data.frame(cbind(names, numbers))
  
  shinyApp(
  ui &lt;- dashboardPage(
    dashboardHeader(),
    dashboardSidebar(),
    dashboardBody(
      absolutePanel(id="panel", fixed = FALSE,
                    draggable = F, top = 80, left = "auto", right = 60, bottom = "auto",
                    width = 290, height = 370,
                    box( title = "Box example",
                         status = "warning", width = 230, solidHeader = T,
                         pickerInput(
                           inputId = "select_nb_names", 
                           choices = names,
                           multiple = TRUE, 
                           selected = NULL, 
                           width = 190,inline = FALSE),
                         # the textoutput that only has an x-axis scrollbar
  textOutput("TextThatIWantToHaveAScroll",container = pre ))))),
  
  
  server &lt;-  function(input, output, session) {
    output$TextThatIWantToHaveAScroll&lt;- renderText(
      paste0( input$select_nb_names," : ",df$numbers[df$names%in%input$select_nb_names],"\n"))
  
  
  }
  
  # Run the application 
  )
  
  
  </code></pre>