在 HTML() 中转换一个 shiny "tags$"

Question

我想写这段代码（有效）：

  tags$li(
    class = "dropdown",
    tags$a(
      height = 40, href = "https://www.google.com.br",
      title = "Whatsapp", target = "_blank",
      tags$strong(
        icon("whatsapp"), ""
      )
    )
  )

在HTML()形式中。 我试过了：

HTML(
"<li class='dropdown'>
<a href='https://www.google.com.br' target='_blank'>Whatsapp</a>
<strong class='fas fa-whatsapp'></strong>
</li>"
)

和这段代码：

  HTML(
    '<li class="dropdown">
      <a style="height:40px" href="https://www.google.com.br" 
title="Whatsapp" target="_blank">
      <strong>
      <i class="fas fa-whatsapp"></i>
      </strong>
      </a>
      </li>'
  )

但是出现错误：

发生了错误！

预期 object 和 class 'shiny.tag'。

我的应用程序：

library(shiny)
library(shinydashboard)

header <- dashboardHeader(

  title = "Dashboard", 
  titleWidth = 300, 

  HTML(
  "<li class='dropdown'>
  <a https://www.google.com.br' target='_blank'>Whatsapp</a>
  <strong class='fas fa-whatsapp'></strong>
  </li>"
  )

)

sidebar <- dashboardSidebar(

  width = 300

)

body <- dashboardBody(

  uiOutput(
    outputId = "hour"
  )

)

ui <- dashboardPage(

  header = header, 
  sidebar = sidebar, 
  body = body

)

server <- function(input, output) {



}

shinyApp(ui, server)

我只想进行此转换以更好地编辑我的HTML文档。 我只需要使用HTML()就可以做到这一点。

如何解决这个问题？ 正如我所展示的，我做了两次尝试，但我无法解决它。

Answer 1

将 HTML() 内容放在带有'dropdown' class 的tags$li()中有效

library(shiny)
library(shinydashboard)

header <- dashboardHeader(

  title = "Dashboard", 
  titleWidth = 300,
  tags$li(
    class = "dropdown",
    HTML("
      <a https://www.google.com.br' target='_blank'>Whatsapp</a>
      <strong class='fas fa-whatsapp'></strong>
    ")
  )
)

sidebar <- dashboardSidebar(
  width = 300
)

body <- dashboardBody(
  uiOutput(
    outputId = "hour"
  )
)

ui <- dashboardPage(
  header = header, 
  sidebar = sidebar, 
  body = body
)

server <- function(input, output) {
  
}

shinyApp(ui, server)