R - 光沢：私は何を得ることはここでは、未定義のオプション</p> <p>あるリーフレット</p> <p>に位置easybuttonを通じてselectizInputする新しいオプションを追加しようとselectizInputに新しい項目を追加するJSを使用して

Question

イムは一例です：

library(shiny) 
library(leaflet) 

shinyApp(
ui <- fluidPage(
    selectizeInput("countries", "Country :", choices = c("Worldwide")), 
    leafletOutput("countryMap",height="500px") 
), 

server <- function(input, output, session){ 

output$countryMap <- renderLeaflet({ 
    leaflet() %>% 
    addEasyButton(easyButton(icon = "fa-check", id = "doneMap", position = "topright", title = "Finish", 
           onClick = JS("function(btn, map){ 
               var $select = $('#countries').selectize(); 
               var selectize = $select[0].selectize; 
               selectize.addOption({ value: 'selectedRegion', text: 'Selected Region' }); 
               selectize.addItem('selectedRegion'); 
              } 
              "))) %>% 
    addProviderTiles(providers$Esri.WorldStreetMap) 

}) 
}) 

Answer 1

addOption(data)にdataは、valueとlabelキーを必要とする対象ではないことが唯一の問題IDをとtext：

..., 
onClick = JS("function(btn, map){ 
        var $select = $('#countries').selectize(); 
        var selectize = $select[0].selectize; 
        selectize.addOption({value: 'selectedRegion', label: 'Selected Region'}); 
        selectize.addItem('selectedRegion'); 
       }")