我的UI代码如下:
ui <- navbarPage(
theme = shinytheme("paper"),
title = div(img(src="ballerlablogo.png", style="margin-top: -14px;", height = 50)),
...
)
Run Code Online (Sandbox Code Playgroud)
效果很好,但是网页选项卡上的标题看起来像这样:
有没有一种方法可以使页面标题成为“ Baller Lab”而又不会在导航栏中删除图像或在导航栏中添加“ baller lab”文本?
这是该网站的链接:BallerLab.us
使用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)
Run Code Online (Sandbox Code Playgroud)
| 归档时间: |
|
| 查看次数: |
995 次 |
| 最近记录: |