У меня есть листовка с блестящей картой, диаграмма (внутри всплывающего окна и позади карты), поэтому мне нужно менять графики в зависимости от страны, в которой я сделал последний щелчок.
Я пытался с помощью этого кода вызвать выбранную страну, но он не работает, когда я помещаю его в диаграмму
clickpais <- input$mymap_shape_click
clickpais<- clickpais$id
pais<-table_id()[table_id()$idtable==clickpais,]$nametable
, а также я пытался с наблюдением событий безрезультатно
observeEvent( input$mymap_shape_click,{
if(is.null(click)){}
else{
p_click<- input$mymap_shape_click
p_click<- p$id
print(p_click)
}
})
Приложение, данные которого находятся по этой ссылке, если кто-то может помочь или хочет скопировать для вашей работы ИНФОРМАЦИЯ Я ценю вашу помощь.