page_navbar中的标题为Shiny应用程序添加了大量空白

发布于09月21日

我正试图使用bslib和page_navbar将我公司的徽标添加到一个shiny 的应用程序中.我使用page_navbar的header参数来提供imageOutput UI元素.

这确实会将图像添加到页面，但它也会在导航栏下方添加大量空白.

没有所有的空白，我如何才能做到这一点？

下面是一个最小的例子.在本例中，图像链接将被断开，但问题是显而易见的.谢谢.

library(shiny)
library(DT)
library(bslib)

ui <- page_navbar(
  title = "test navbar",
  header = imageOutput("logo"),
  nav_panel("mtcars", DTOutput("mtcars")),
) 

server <- function(input, output) {
  output$logo <- renderImage(list(src = "broken", align = "right", height = 100, width = 100), deleteFile = FALSE)
  output$mtcars <- renderDT({mtcars})
}

shinyApp(ui = ui, server = server)

推荐答案

imageOutput有一个height参数，其缺省值设置为400px(参见?imageOutput).您可以编辑此参数以减少navbar和表之间的空白.请参见下面的示例.

library(shiny)
library(DT)
library(bslib)

ui <- page_navbar(
    title = "test navbar",
    header = imageOutput("logo", height = "150px"),
    nav_panel("mtcars", DTOutput("mtcars")),
)

server <- function(input, output) {
    output$logo <-
        renderImage(list(
            src = "broken",
            align = "right",
            height = 100,
            width = 100
        ),
        deleteFile = FALSE)
    output$mtcars <- renderDT({
        mtcars
    })
}

shinyApp(ui = ui, server = server)