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

我正在努力使用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"))
    )    



  )
))

该应用程序如下所示

但是，在右上角的空白区域中，我希望有一个表，因此我调整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（“table”））。然而，这会导致以下结果

---

已添加表，但不在正确的空间中。我也尝试过使用主面板功能，但似乎无法将桌子放在右上角。任何帮助都将不胜感激！谢谢。

您可能需要根据。对

fluidRow

s进行子集设置，或者在每行列周围环绕一个

fluidRow

。