如何将图像添加到shinydashboard menuItem()s？

Question

本质上，我想用图像替换每个中的图标。更具体地说，我只需要每个都有一个图像，然后在它旁边有文字。menuItem()shinydashboardmenuItem()

这是我尝试过的一些比较成功的尝试（在下面的代码中注释）；

library(shiny)
library(shinydashboard)

ui <- dashboardPage(
 dashboardHeader(title = "Dashboard MenuItems"),
 dashboardSidebar(
   sidebarMenu(
     id = "tabs",
     menuItem(
       "Dashboard", 
       tabName = "dashboard",
       ## creates a drop down w/ no image
       # label = img(src = "logo.png",
       #             title = "logo", height = "35pt") 

       ## creates a drop down with the images
       # `tag$` isn't needed
       # tags$img(src = "logo.png",
       #     title = "logo", height = "35pt")
     ),
     menuItem(
       "Not Dashboard",
       tabname = "not_dashboard"
     )
   ) # end sidebarMenu
 ), # end dashboardSidebar
 dashboardBody(
   fluidRow(
     box(
       title = "stuff goes here",
       width = 12
     )
   )
 ) # end dashboardBody
)

server <- function(input, output, session) {
  message("You can do it!")
}

shinyApp(ui, server)

我成功地使用带有背景图像的操作按钮来模拟行为，但menuItem()如果可能的话，我更愿意使用 s 找到解决方案。

我希望有一种类似的方法将图像添加到 的背景menuItem()或将图像与 中的文本连接起来menuItem()。

我不擅长闪亮的标签。我对 HTML/CSS/JS 或 Bootstrap 不太了解，大多数时候我可以在这里找到解决方案并破解我想要的方法，但这个解决方案却让我困惑。

有任何想法吗？

Answer 1

您可以将图像保存在 www 文件夹中，并使用 div 将图像与文本一起包装，如下所示。

ui <- dashboardPage(
  dashboardHeader(title = "Dashboard MenuItems"),
  dashboardSidebar(
    sidebarMenu(
      id = "tabs",
      menuItem( div(tags$img(src = "YBS.png", width="20px"), "Dashboard2"),
        tabName = "dashboard" # , icon=icon("b_icon") 
      ),
      menuItem( 
        div(tags$img(src = "mouse.png", width="35px"),"Not Dashboard"),
        tabname = "not_dashboard" #, icon=icon("home")
      )
    ) # end sidebarMenu
  ), # end dashboardSidebar
  dashboardBody(
    fluidRow(
      box(
        title = "stuff goes here",
        width = 12
      )
    )
  ) # end dashboardBody
)

server <- function(input, output, session) {
  message("You can do it!")
}

shinyApp(ui, server)