在shinydashboard中的tabPanel中添加图标题

zwghvu4y  于 12个月前  发布在  其他
关注(0)|答案(1)|浏览(80)

如何正确地将图形文本添加到放置在tabPanel中的图形中?我已经尝试了以下方法,但文本在tabPanel框内不对齐。

tabBox(
  tabPanel(
    "name",
    fluidRow(
      plotlyOutput("plot", width = "100%", height = "65vh")
    ),
    fluidRow(
      HTML("This is the caption text.")
    )
  )
)

字符串
有没有其他方法可以正确地做到这一点?

yks3o0rb

yks3o0rb1#

如果只看到代码的一部分,很难判断你看到了什么或者你想改变什么。然而,从我做的实验来看,tabPanel中的fluidRow似乎会导致情节和文本呈现在tabPanel之外。删除fluidRow的两个示例对我来说解决了这个问题。

ui <- shinydashboard::dashboardPage(
    shinydashboard::dashboardHeader(title = "title"),
    shinydashboard::dashboardSidebar(),
    shinydashboard::dashboardBody(
        shinydashboard::tabBox(
            title = "title",
            shiny::tabPanel(
                "name",
                plotly::plotlyOutput("plot", width = "100%", height = "65vh"),
                shiny::tags$p("This is the caption text.")
            )
        )
    )
)

server <- function(input, output, session) {
    output$plot <- plotly::renderPlotly({
        plotly::plot_ly(data = iris, x = ~Sepal.Length, y = ~Petal.Length)
    })
}

shiny::shinyApp(ui, server)

字符串


的数据

相关问题