title: r shiny panel scroll bar moves text but not radio buttons
body: <p>I would like to have a <code>sidebarPanel</code> with a large number of <strong>inline</strong> radioButton widgets that control the behavior of some output in the <code>mainPanel</code>.  I'd like to be able to scroll through the <code>radioButton</code> widgets without scrolling down on the <code>mainPanel</code>.  However, the ways I have tried to do it so far result in either the entire page scrolling, or the <code>sidebarPanel</code> scrolling but leaving the radio buttons in place (which looks super weird).  Note that this does not happen when I leave the <code>radioButton</code> widgets vertical (<code>inline = FALSE</code>).  The code below allows you to change whether the <code>radioButton</code> widgets are displayed with <code>inline</code> turned on or off.</p>
  
  <p><strong>ui.R</strong></p>
  
  <pre><code>library(shiny)
  shinyUI(fluidPage(
    sidebarLayout(
      sidebarPanel(
        id = "tPanel",style = "overflow-y:scroll; max-height: 600px",
        uiOutput("RadioGrid2")),
      mainPanel(uiOutput("InlineChooser")) )
  ))
  </code></pre>
  
  <p><strong>server.R</strong></p>
  
  <pre><code>    library(shiny)
  shinyServer(function(input, output) {
    #Data
    RowNames = LETTERS
    ColumnNames = c("1","2","3","4","5")
  
    #Define a function that creates rows of radio buttons
    RadioRow = function(label, opts){
      choices = as.list(1:length(opts))
      names(choices) = opts
      radioButtons(paste0("Row",label),label=label,choices=choices,selected=1, inline = input$InRows)}
  
    #Define a function that creates the radio grid
    RadioGrid = function(RowNames, ColumnNames){lapply(X = RowNames, FUN = RadioRow, opts = ColumnNames)}
  
    #define a reactive object to hold the radio grid
    WidgetGrid2 = reactive({RadioGrid(RowNames, ColumnNames)})
  
    #create the output object to display the grid
    output$RadioGrid2 = renderUI({tagList(WidgetGrid2())})
  
    #create output object to select whether to do inline or not
    output$InlineChooser = renderUI(radioButtons("InRows", label = "Put in rows?", choices = list("yes" = TRUE, "no" = FALSE), selected = TRUE))
  })
  </code></pre>
  
  <p>How can I set it so that the scroll bar works when <code>inline</code> is turned on?</p>