闪亮的页面标题和图片

Question

我的UI代码如下：

ui <- navbarPage(
theme = shinytheme("paper"),
title = div(img(src="ballerlablogo.png", style="margin-top: -14px;", height = 50)),

...

)

这种方法很有效，但是网页标签的标题看起来像这样：

有没有办法在不删除导航栏中的图像或添加“Baller Lab”文本的情况下使页面标题为“Baller Lab”？

以下是网站链接：BallerLab.us

- LBV

Answer 1

使用 fluidPage 可以使用 tags$head 修改网页标签上的标题

library(shiny)
library(shinythemes)
ui <- fluidPage(
  theme = shinytheme("paper"),
  tags$head(HTML("<title>Baller Lab</title>")), #Without company logo
  #tags$head(HTML("<title>Baller Lab</title> <link rel='icon' type='image/gif/png' href='ballerlablogo.png'>")), #WIth company logo
  navbarPage(title = div(img(src="ballerlablogo.png", style="margin-top: -14px;", height = 50))))

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

shinyApp(ui, server)

- A. Suliman

---

不要混合使用Shiny函数和HTML：tags$head(tags$title("我的标题")) - Kalaschnik

@Kalaschnik 如果您想添加一个带有标志的标题，该怎么办？ - A. Suliman

@a-suliman 上次我检查时，标题元素只允许Unicode纯文本。但是，这可以添加表情符号：tags $ head（tags $ title（“我的标题”））。 - Kalaschnik

@Kalaschnik 第二个选项是被注释的，它允许添加一个标志。 - A. Suliman

@a-suiman 啊哈，我们在谈论网站图标！我以为你想把一张图片放在标题元素里面呢！好吧，你也可以在嵌套的 R 函数中堆叠网站图标： tags$head(tags$link(rel = "icon", type = "image/gif/png", href = "ballerlablogo.png")), tags$head(tags$title("Baller Lab")) - Kalaschnik