Align table and buttons in Shiny

server.R

shinyServer(function(input, output,session) {

  output$Fbuttons <- renderUI({
    outlist <- list(verbatimTextOutput("Decrease"))
    posButtons <- lapply(1:input$n, function(i) {
            actionButton(paste0("btnF",i), "+")
    })
    outlist <- c(outlist, posButtons)
  })

  output$Bbuttons <- renderUI({
    outlist <- list(verbatimTextOutput('Increase'))
    negButtons <- lapply(1:input$n, function(i) { actionButton(paste0("btnB",i), "-") })
    outlist <- c(outlist, negButtons)
  })

  output$alpha <- renderTable({
    data.frame(Data=1:input$n, stringsAsFactors=FALSE)
  })


})

ui.R

shinyUI(basicPage(

  numericInput("n", "N", 4),
  br(),

div(
  style="display: inline-block; vertical-align: text-top; ",
  div(class="btn-group btn-group-vertical span4",
    uiOutput("Bbuttons")
  ),
  div(class="span4",uiOutput("alpha")),
  div(class="btn-group btn-group-vertical span4",
    uiOutput("Fbuttons")
  )
),

  br()
))

Added a blank line (using verbatimTextOutput, something might be better) to skip the df header row