更改“闪亮”应用标题的好方法是什么?在下面的示例应用程序中,我有一个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)
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)
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句