如何使用Shinymatary软件包在material_side_nav上的图像上添加文本和href

我使用<代码>shinymaterial软件包来制作我的闪亮应用程序。我遇到了一个问题，我试图修改

material\u side\u nav

顶部的图像，我想在该图像上添加文本和href，但我无法确定是哪种方式

我使用HTML添加我喜欢的带有href的图像，但是图像位置不在

材质侧导航的顶部，我编辑css
填充：0
或
顶部：0
，它仍然不起作用

这是一种使用
image\u源代码

library(shiny)
library(shinymaterial)

ui <- material_page(

  title = "Shinymaterial Testing",
  nav_bar_fixed = TRUE,
  include_fonts = T,
  nav_bar_color = "teal lighten-1",

  material_side_nav(
    image_source = "logo.jpg",
    background_color = "blue lighten-4",
    shiny::tags$h4("Side-Nav Content")
  )
)


server <- function(input, output) {

}

# Run the application
shinyApp(ui = ui, server = server)


有什么建议吗？多谢各位

library(shiny)
library(shinymaterial)

ui <- material_page(

  title = "Shinymaterial Testing",
  nav_bar_fixed = TRUE,
  include_fonts = T,
  nav_bar_color = "teal lighten-1",

  material_side_nav(
    #image_source = "logo.jpg"

    HTML('
      <ul id="slide-out"  class="sidenav">
      <li><div style="height:160px" class="userView">
      <div style="height:160px" class="background">
        <img style="height:160px;width:300px;" src="logo.jpg">
        </div>
        <a href="#user"><img class="circle" src="xmas.png"></a>
        <a href="#name"><span class="white-text name">John Doe</span></a>
        <a href="#email"><span class="white-text email">jdandturk@gmail.com</span></a>
      </div></li></ul>

      ')
  )
)


server <- function(input, output) {

}

# Run the application
shinyApp(ui = ui, server = server)


> material_side_nav(
+   image_source = "logo.jpg",
+   background_color = "blue lighten-4",
+   shiny::tags$h4("Side-Nav Content")
+ )
<style type="text/css"></style>
<ul id="slide-out" class="side-nav blue lighten-4">
  <li>
    <div style="height:160px" class="userView">
      <div class="background">
        <img style="height:160px;width:300px" src="logo.jpg"/>
      </div>
    </div>
  </li>
  <h4>Side-Nav Content</h4>
</ul>
<script>   $(document).ready(function () {

       $('.nav-wrapper').prepend('<a href="#" data-activates="slide-out" class="button-collapse show-on-large"><i class="material-icons">menu</i></a>');
       $(".button-collapse").sideNav();
   })</script>
>