R shiny updateSelectizeInput標籤的自定義HTML標籤

Question

有沒有辦法使用updateSelectizeInput的HTML標籤（例如h6）（它正在爲selectInput工作，請參閱下面的代碼）？下面的代碼簡單地使用updateSelectizeInput [object Object]中的h6（「Label」）作爲輸出。

rm(list = ls()) 
library(shiny) 



ui =fluidPage(
    selectizeInput('DropDownSelectize',choices=NULL,label=""), 
    selectInput('DropDownSelect',choices = c("choice1","choice2","choice3"), 
    label=h6("Label")) 
) 

server = function(input, output, session) { 

observe({ 
    updateSelectizeInput(session, 
        'DropDownSelectize', 
         label = h6("Label"), 
         choices = c("choice1","choice2","choice3"), 
         selected = "choice1", 
         server = TRUE) 

}) 


} 
runApp(list(ui = ui, server = server)) 

感謝

Answer 1

如果標籤將是始終不變的，只是不上updateSelectizeInput設置label值。實際上，你只應該設置你想改變的參數。

通過實例，這只是改變選擇的值：

updateSelectizeInput(session, 'DropDownSelectize', selected = "choice3") 

如果在這種情況下h6改變的label需求的價值，但有一個標籤或樣式一樣，你可以使用shinyjs改變只有標籤的文字。爲此，您需要將id添加到h6標籤。請參閱下面的示例，在第一個觀察者內部使用shinyjs的html函數更改標籤。我還添加了兩個按鈕來手動更改標籤的文本。

library(shiny) 
library(shinyjs) 

ui =fluidPage(
    shinyjs::useShinyjs(), # to initialize shinyjs 
    selectizeInput('DropDownSelectize',choices=NULL,label=h6("", id = "labelText")), 
    selectInput('DropDownSelect',choices = c("choice1","choice2","choice3"), 
    label=h6("Label")), 
    actionButton("useLabel1", "Use Label 1"), 
    actionButton("useLabel2", "Use Label 2") 
) 

server = function(input, output, session) { 
    observe({ 
    updateSelectizeInput(session, 
        'DropDownSelectize', 
         # label = h6("Label"), # no needed 
         choices = c("choice1","choice2","choice3"), 
         selected = "choice1", 
         server = TRUE) 
    shinyjs::html("labelText", "Label") 
    }) 

    observeEvent(input$useLabel1, { 
    shinyjs::html("labelText", "Label 1") 
    }) 

    observeEvent(input$useLabel2, { 
    shinyjs::html("labelText", "Label 2") 
    }) 

} 
runApp(list(ui = ui, server = server))