избегать и наблюдать - PullRequest
Новая
       8

избегать и наблюдать

0 голосов
/ 03 января 2019

Я использую два события наблюдения, один на selectInput и другой на map_shape_click.

map_shape_click обновляет значения в selectInput.

Как можно избежать, чтобы значение selectinput срабатывало после map_shape_click, при сохранении триггера, когда изменяется только selectInput?

см. Код ниже. При щелчке по линии поли запускается выпадающее событие. Как этого избежать? 

library(leaflet)

ui <- fluidPage(
  mainPanel(
  leafletOutput("mymap"),
  p(),
  selectInput("test", "test", c("value 1", "value 2", "value 3", "X")),
  p(),
  textOutput("selected_var")
  )
)

df <- data.frame (lat = c(41.82, 46.88, 41.48, 39.14), lon = c(-88.32, -124.10, -88.33, -114.90))

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

  output$mymap <- renderLeaflet({
    leaflet('map',height = "100%") %>% addTiles()
  })

  observe({
    leafletProxy('mymap') %>% addPolylines(data = df, lat = ~lat, lng = ~lon, layerId="test", group = "test")
  })

  observeEvent(input$mymap_shape_click,{
    print ("shapeclicked")
    output$selected_var <-renderText ("shapeclicked")
    updateSelectInput(session, "test", selected = "X")
    })


  observeEvent(input$test, {
    print ("dropdown triggered")
    output$selected_var <-renderText ("dropdown triggered")
  })
})

shinyApp(ui = ui, server = server)
...