闪亮的R - 应用程序的安排

Question

我正在努力使用Shiny for R Studio安排我的应用程序。

我的ui文件正在

library(shiny)

shinyUI(fluidPage(
  titlePanel("stockVis"),

  verticalLayout(
    sidebarPanel(

      helpText("Choose a stock ticker to examine, For example:
        ^HSI - Hang Seng, 
        ^N225 - Nikkei 225, 
        ^FTSE - FTSE 100, 
        Information will be collected from yahoo finance."),

      textInput("symb", "Symbol", "^FTSE"),

      dateRangeInput("dates", 
        "Date range",
        start = "2015-01-01", 
        end = as.character(Sys.Date())),

      submitButton("Analysis")), 



    fluidRow(
      column(6,plotOutput("plot")),column(6,plotOutput("ret.graph")),
      column(4,plotOutput("qq.plot")),column(4,plotOutput("histogram")),column(4,plotOutput("qq.line"))
    )    



  )
))

该应用程序如下所示

http://i.stack.imgur.com/Fd1cG.png

然而，在空白的右上方空格中，我想要一张桌子，所以我按如下方式调整ui文件

library(shiny)

shinyUI(fluidPage(
  titlePanel("stockVis"),

  verticalLayout(
    sidebarPanel(

      helpText("Choose a stock ticker to examine, For example:
        ^HSI - Hang Seng, 
        ^N225 - Nikkei 225, 
        ^FTSE - FTSE 100, 
        Information will be collected from yahoo finance."),

      textInput("symb", "Symbol", "^FTSE"),

      dateRangeInput("dates", 
        "Date range",
        start = "2015-01-01", 
        end = as.character(Sys.Date())),

      submitButton("Analysis")), 



    fluidRow(column(12,tableOutput("table"))
      column(6,plotOutput("plot")),column(6,plotOutput("ret.graph")),
      column(4,plotOutput("qq.plot")),column(4,plotOutput("histogram")),column(4,plotOutput("qq.line"))
    )    



  )
))

与前一个ui的唯一变化是在fluidRow行中添加了列（12，tableOutput（＆＃34; table＆＃34;））。然而，这导致以下

http://i.stack.imgur.com/uFDJo.png

其中添加了表但未添加到正确的空间中。我也试过使用mainPanel功能，但我似乎无法将表格放在右上角的空间中。任何帮助，将不胜感激！感谢。