相关疑难解决方法(0)

我一直在研究一个闪亮的应用程序,并希望在应用程序的右上角包含一个徽标.如何使用闪亮和r轻松嵌入图像？

谢谢!ķ

所以只是好奇,有没有办法在ShinyDashboard的标题中添加公司徽标？正如我正在查看文档时,它描述了更改CSS中的"徽标",这只是配置左上角的内容,尽管据我所知,我想保留我的标题.

我没有使用下拉菜单,因此我想在红色框所在的右上角添加我的公司徽标.

有没有人知道如何用Shinydashboard完成这项工作？谢谢.

如何在仪表板标题侧边栏图标的右侧添加文本？似乎以前的类似解决方案不再适用于更新dashboardHeader().

这是我在基本的shinydashboard设置中尝试做的事情:

我可以使用此答案中的策略来获取标题中的文本,但它是正确的(我可以修复自定义css)并且也感觉非常hacky.

library(shiny)
library(shinydashboard) 
ui <- dashboardPage(dashboardHeader(title = "demo",
  tags$li(class = "dropdown",
    tags$p("foo")
  )
), dashboardSidebar(), dashboardBody()) 
server <- function(input, output) { } 
shinyApp(ui, server)

有一个更好的方法吗？

我有以下代码，可以制作一个简单的闪亮应用程序。

```
library(shinydashboard)
library(shiny)
ui <- dashboardPage(
  dashboardHeader(title = tags$img(src='https://cdn.vox-cdn.com/thumbor/Ous3VQj1sn4tvb3H13rIu8eGoZs=/0x0:2012x1341/1400x788/filters:focal(0x0:2012x1341):format(jpeg)/cdn.vox-cdn.com/uploads/chorus_image/image/47070706/google2.0.0.jpg', height = '60', width ='100')),
  dashboardSidebar(
    sidebarMenuOutput("menu")
  ),
  dashboardBody()
)

server <- function(input, output) {
  output$menu <- renderMenu({
    sidebarMenu(
      menuItem("Overview", icon = icon("tachometer"))
      
    )
  })
}
shinyApp(ui, server)
```

图像输出在右侧菜单的顶部，但我的目标是让图像更多地位于仪表板的中间。我知道菜单稍微改变了导航栏，但我想尽可能将其保持在中心位置。

但我想要的输出是这样的。我用油漆做了一个样品。是否仍然可以有一些文本，或者如果可以发布参考，让我可以了解有关仪表板标题功能的更多信息，我将不胜感激。