Question

如何在Shiny中为两个边块绘制标题，我正在尝试做类似下面的操作，这肯定会给我错误

shinyUI(
 titlePanel("Hello Shiny!"),
 mainPanel(
 fluidRow(
 splitLayout(cellWidth(50%,50%),
  tableOutput("Table1", tags$b("Title1")),
  plotOutput("Plot",tags$b("Title2)))))

Answer 1

以下是您的解决方案：

    library(shiny)

        ui <- basicPage(
  fluidRow(
    column(6,box("Title 1",tableOutput("Table1"))),
    column(6,box("Title 2",plotOutput("Plot")))))

server <- function(input, output) {
}

shinyApp(ui, server)

只需在column

之前在..output(..)容器中输入文字即可

我通过将splitLayout()替换为column容器来改进您的代码，将ui分成两个相同大小的容器（column(6) = 50％）并将其拆分为添加了box()，因此您的outputs会被保留在那里并且标题将附加到其中（box）

将标题赋予Shiny with Fluidrow的边块

1 个答案: