Shiny 如何将滚动条包含在图例中？

如果能看到超过18行的传奇故事，那就太好了

将输出包装在wellPanel中（style='overflow-y:scroll；'）看起来像是正确的函数，但不起作用

library(shiny)

shinyApp( 
  ui     <- fluidPage( 
    splitLayout(cellWidths = c('20%', '30%', '50%'),  
      sliderInput('mySldr'  , value = 4   , min =  1 , 
               label = 'how many groups ?', max = 44 ),     # max 52 > 44
      plotOutput( 'myLgnd' ),
      plotOutput( 'myPlt'  )
     )
   ),        
  server          <- function(input, output, session) {  
    n             <- reactive({   input$mySldr                       })
    theD          <- reactive({ matrix(runif( 5*n() ), nrow = 5,  
                  dimnames = (list( 1:5, rep(letters,2)[ 1:n() ] ))) }) 
    output$myLgnd <- renderPlot({ 
                  legend(  x = 'center',   legend = colnames( theD() ), 
                                             fill = rainbow( n() ) ) })  
    output$myPlt  <- renderPlot({ 
          matplot( x = c(2001:2005), type = 'o', xlab = '', ylab = '',       
                           y = theD()      , col  = rainbow( n() ) ) })
   }
 )

库（闪亮）
新亚普（
用户界面44
plotOutput（'myLgnd'），
plotOutput（'myPlt'）
)
),        
服务器不是很健壮，但这适用于您的示例：

            div(
              style = "overflow-y: auto; overflow-x: hidden",
              plotOutput( 'myLgnd' )
            ),

及

output$myLgnd不是很健壮，但这适用于您的示例：

            div(
              style = "overflow-y: auto; overflow-x: hidden",
              plotOutput( 'myLgnd' )
            ),

及

输出$myLgnd