带有renderUI（）的窗口标题

我正在尝试根据用户选择在我闪亮的应用程序中设置一个可更改的窗口标题。虽然主标题和应用程序的其他部分没有问题，但我正在努力解决窗口标题的问题

我尝试使用

renderUI（）

和

uiOutput（）

，但没有成功

# packages
library("shiny")
library("shinyWidgets")

# app
runApp(list(
  # UI  
  ui = shinyUI(fluidPage(
    # title panel
    tagList(div(div(style = "display: inline-block; ",
                    h1(uiOutput("uiMainTitle")), class = "main_title"),
                div(style = "width: 65px; display: inline-block; float: right; ",
                    pickerInput(inputId = "color",
                                label = " ",
                                choices = c("blue", "red")))),
            tags$title(uiOutput("uiWindowTitle")))
    )),
  # SERVER
  server = function(input, output, session) {
    # main title
    output$uiMainTitle <- renderUI({
      ifelse(input$color == "blue", "Blue title", "Red title")})
    # window title
    output$uiWindowTitle <- renderUI({
      ifelse(input$color == "blue", "Blue app", "Red app")})
    }
  )
)

#包
图书馆（“闪亮”）
图书馆（“shinyWidgets”）
#应用程序
runApp（列表(
#用户界面
ui=shinyUI（fluidPage(
#标题栏
标记列表（div（div）（style=“display:inline block；”，
h1（uiOutput（“uiMainTitle”）），class=“main_title”），
div（style=“width:65px；display:inline块；float:right；”，
pickerInput（inputId=“color”，
label=“”，
选项=c（“蓝色”、“红色”），
标记$title（uiOutput（“uiWindowTitle”））
)),
#服务器
服务器=功能（输入、输出、会话）{
#主标题
输出$UImaintTitle您可以使用shinyjs包和一些js代码。这可以解决问题：

# packages
library("shiny")
library("shinyWidgets")
library("shinyjs")

# app
runApp(list(
  # UI  
  ui = shinyUI(fluidPage(
    useShinyjs(),
    # title panel
    tagList(div(div(style = "display: inline-block; ",
                    h1(uiOutput("uiMainTitle")), class = "main_title"),
                div(style = "width: 65px; display: inline-block; float: right; ",
                    pickerInput(inputId = "color",
                                label = " ",
                                choices = c("blue", "red")))),
            tags$title("blue")
  ))),
  # SERVER
  server = function(input, output, session) {
    # main title
    output$uiMainTitle <- renderUI({
      ifelse(input$color == "blue", "Blue title", "Red title")})
    # window title
    # output$uiWindowTitle <- renderUI({
    #   ifelse(input$color == "blue", "Blue app", "Red app")})

    observeEvent(input$color,{
      #in the place of input$color you can put your personal title
      titlejs=paste0("document.title ='", input$color,"'")
      runjs(titlejs)
    })
  }
)
)

#包
图书馆（“闪亮”）
图书馆（“shinyWidgets”）
图书馆（“shinyjs”）
#应用程序
runApp（列表(
#用户界面
ui=shinyUI（fluidPage(
useShinyjs（），
#标题栏
标记列表（div（div）（style=“display:inline block；”，
h1（uiOutput（“uiMainTitle”）），class=“main_title”），
div（style=“width:65px；display:inline块；float:right；”，
pickerInput（inputId=“color”，
label=“”，
选项=c（“蓝色”、“红色”），
标签$title（“蓝色”）
))),
#服务器
服务器=功能（输入、输出、会话）{
#主标题
输出$uiMainTitle您希望窗口标题放置在何处，窗口标题您指的是选项卡标题？是的，我指的是浏览器选项卡中的标题。