在 Shiny 中写 shiny$HTML(...) 没有 tags$head(...)

Question

如何在代码中使用 shiny$HTML 而不是 tags$head(shiny$HTML(...) 来编写下面的代码？

例如：

tags$head(
HTML("<title> Hell Tattoo Dashboard</title>
<link rel='shortcut icon' href='www/hell.png'></link>
<link rel='stylesheet' href='www/shiny.css'></link>
     <script src='www/shiny.js'></script>"
     )
)

有效。

我插入了没有 tags$head 的 <head> 标签：

HTML("<head>
<title> Hell Tattoo Dashboard</title>
<link rel='shortcut icon' href='www/hell.png'></link>
<link rel='stylesheet' href='www/shiny.css'></link>
     <script src='www/shiny.js'></script>
</head>"
     )

无效。

我想使用shiny$HTML标签，只是，纯粹，没有tags$head。可能吗？

简单的 shinyApp：

library(shiny)
library(shinydashboard)

h <- dashboardHeader(title = "a")

s <- dashboardSidebar()

b <- dashboardBody()

ui <- dashboardPage(h, s, b, skin = "blue")

server <- function(input, output) {

}

shinyApp(ui, server)

Answer 1

这工作正常：

library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(
    HTML("<head>
            <title>Hell Tattoo Dashboard</title>
          </head>"
    )
  )
)

server <- function(input, output, session) {}

shinyApp(ui, server)

在 Shiny 中写 shiny$HTML(...) 没有 tags$head(...)

Write shiny$HTML(...) without tags$head(...) in Shiny

html

r

shiny

shinydashboard