第七色在线视频,2021少妇久久久久久久久久,亚洲欧洲精品成人久久av18,亚洲国产精品特色大片观看完整版,孙宇晨将参加特朗普的晚宴

為了賬號安全，請及時綁定郵箱和手機立即綁定
已解決430363個問題，去搜搜看，總會有你想問的

在 Shiny Navbar App 中單擊按鈕更改標題

在 Shiny Navbar App 中單擊按鈕更改標題

千萬里不及你 2022-10-27 14:45:51
更改 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)
查看完整描述

2 回答

?
FFIVE

TA貢獻1797條經(jīng)驗 獲得超6個贊

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)


查看完整回答
反對 回復 2022-10-27
?
蠱毒傳說

TA貢獻1895條經(jīng)驗 獲得超3個贊

你可以用一個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. 當它發(fā)生變化時，它會更新output$title.


查看完整回答
反對 回復 2022-10-27
  • 2 回答
  • 0 關注
  • 131 瀏覽
慕課專欄
更多

添加回答

舉報

0/150
提交
取消
微信客服

購課補貼
聯(lián)系客服咨詢優(yōu)惠詳情

 幫助反饋 APP下載

慕課網(wǎng)APP
您的移動學習伙伴

 公眾號

掃描二維碼
關注慕課網(wǎng)微信公眾號