test shiny for draw plugin

app.R

library(leaflet.extras)
lat <- c(1, 2, 2, 1)
lng <- c(1, 1, 2, 2)


library(shiny)
library(leaflet)

ui <- fluidPage(
    leafletOutput("mymap"),
    tags$script(src = 'shiny.js')
)

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

    output$mymap <- renderLeaflet({
        map <- leaflet() %>% 
            addDrawToolbar(targetGroup = 'drawGroup', 
                           editOptions = editToolbarOptions()) %>% 
            addPolygons(lat = lat, lng = lng, group = 'drawGroup', layerId= 'AA111')
        map
        
    })
}

shinyApp(ui, server)

shiny.js

$(document).on('shiny:inputchanged', function(event) {
	console.log(event.name);
});