verbatimTextOutput sizing and scrollable


#1

How can I control the height of a verbatimTextoutput area?
The text length is variable. Is it possible to add a vertical scroll bar if text is too long?
Here is my code:

ui <- fluidPage(.....
  sidebarLayout(
    sidebarPanel(
      conditionalPanel(
        verbatimTextOutput("clickGene"),
        tags$head(tags$style("#clickGene{color:red; font-size:12px; font-style:italic;}")), ...
))))

Many thanks in anticipation
Henri-Jean


#2

is this fixing the problem ?

tags$head(tags$style("#clickGene{color:red; font-size:12px; font-style:italic; 
overflow-y:scroll; max-height: 50px; background: ghostwhite;}"))

#3

Yes, it works perfectly fine. Many thanks!
Henri-Jean