使用 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)
HTML
:tags$head(tags$title("我的标题"))
- Kalaschniktags $ head(tags $ title(“我的标题”))
。 - Kalaschniktags$head(tags$link(rel = "icon", type = "image/gif/png", href = "ballerlablogo.png")), tags$head(tags$title("Baller Lab"))
- Kalaschnik