r - 如何使输出并排发光？

Question

如何将输出并排对齐？我尝试了fluidRow列，但是它不起作用(第二个表出现在第一个表的内部)。

这是我的应用程序的图像。

和选项卡代码:

          tabPanel("Wavelet Coefficients", htmlOutput("tmod1"),
                   tableOutput("wsf"), tableOutput("wbf"), htmlOutput("tmod2"),
                   tableOutput("vsf"), tableOutput("vbf")),

先感谢您

Answer 1

布局的详细概述在这里:RStudio: Application layout guide。

本质上，您需要使用shiny::fluidRow()定义一行，然后使用shiny::column()将其分为几列。
按照Bootstrap约定，总宽度等于12。

在您的示例中，我尝试将其拆分为7/5，但要由您自行校准布局。

您的代码应进行如下更改:

tabPanel("Wavelet Coefficients", 
  fluidRow(htmlOutput("tmod1")), # Header, I presume ?
  fluidRow(
    column(width = 7, tableOutput("wsf")),
    column(width = 5, tableOutput("wbf"))),
  fluidRow(htmlOutput("tmod2")), # Header #2, I presume ?
    column(width = 7, tableOutput("vsf")),
    column(width = 5, tableOutput("vbf"))
)

`

以下是工作示例中的代码，可以在这里找到: https://github.com/Gnolam/stackoverflow-examples/tree/master/Shiny-2-columns

tabPanel(
  "2 columns",
  fluidRow(
    column(width = 4,
           h2("Column #1"),
           plotOutput("distPlot")),
    column(width = 8,
           h2("Column #2"),
           DT::dataTableOutput('tbl'))
  ))

请告诉我是否有帮助