在 Shiny Navbar App 中单击按钮更改标题

Question

更改 Shiny 应用程序标题的好方法是什么？在下面的示例应用程序中，我有一个radioButtons输入，我希望应用程序标题（“项目标题”）在无线电选择的情况下进行更改。library(shiny)ui <- navbarPage("Project Title",        tabPanel(title = "Tab 1",                   radioButtons("title_change", label = "Change title of App", choices = c("Title 1", "Title 2"))                   )                 )server <- function(input, output) {  }shinyApp(ui = ui, server = server)

Answer 1

library(shiny)

js <- "

$(document).ready(function(){

  $('#title_change').on('change', function(){

    var title = $('input[name=title_change]:checked').val();

    $('span.navbar-brand').text(title);

  });

});

"

ui <- fluidPage(

  tags$head(tags$script(HTML(js))),

  navbarPage(

    "Project Title",

    tabPanel(

      title = "Tab 1",

      radioButtons("title_change", label = "Change title of App", choices = c("Title 1", "Title 2"))

    )

  )

)

server <- function(input, output) {}

shinyApp(ui = ui, server = server)

Answer 2

你可以用一个shiny::textOutput和shiny::renderText

library(shiny)

ui <- navbarPage(textOutput("title"),

                 tabPanel(title = "Tab 1",

                          radioButtons("title_change", label = "Change title of App", choices = c("Title 1", "Title 2"))

                 )

)

server <- function(input, output) {

    output$title <- renderText({

        input$title_change

    })

}

shinyApp(ui = ui, server = server)

当您更改单选按钮时，它会更改input$title_change. 当它发生变化时，它会更新output$title.