在Shiny中编写不带标签$head(...)的shiny$HTML(...) 仪表板

问题描述 投票:0回答:1

如何在代码中使用

shiny$HTML
而不是
tags$head(shiny$HTML(...)
来编写下面的内容?

例如:

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

有效。

我插入

<head>
标签而没有
tags$head
:

HTML("<head>
<title> 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
。有可能吗?

简单闪亮的应用程序:

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)
html r shiny shinydashboard
1个回答
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)

result

© www.soinside.com 2019 - 2024. All rights reserved.