的R - 閃亮：添加新項目使用JS

我嘗試添加新的選項，通過位於傳單easybutton到selectizInput到selectizInput的R - 閃亮：添加新項目使用JS

我所得到的是一個未定義的選項

下面是一個例子：

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) 

}) 
})

來源

2017-06-16 Magdy

你能描述你想要的輸出多一點。目前，您正試圖將字符串「selectedRegion」添加到selectinput。那真的是你想要的嗎？ – BigDataScientist

感謝您的關注 – Magdy

唯一的問題的ID data在addOption(data)是一個對象，需要value和label鍵，不value和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'); 
       }")

來源

2017-06-16 09:02:18 GGamba

感謝ALOT <3我在這個奇怪的問題上浪費了很多時間 – Magdy

的R - 閃亮：添加新項目使用JS

回答

相關問題