Как добавить текст на карточке листовки?

Каждый день мне нужно нарисовать путь на карте и добавить текст, например, 4, 5 или 8 мин. указав, сколько времени потребуется на машине от начальной точки до пункта назначения (см. рисунок ниже). Я подумал, что было бы полезно создать приложение Shiny с помощью Leaflet в R (код показан ниже).

Я использую addDrawToolbar из пакета sheetlet.extras, чтобы нарисовать путь, как можно видеть на прилагаемой карте. Но я не знаю и не мог найти, как добавить текст так же, как рисовать путь. Решение не обязательно должно быть в R. Моя цель - создать приложение для тех, кто хотел бы делать такие вещи, и в то же время, кто не знает, как кодировать.

library(shiny)
library(leaflet)
library(leaflet.extras)


ui = fluidPage(
      tags$style(type = "text/css", "#map {height: calc(100vh - 20px) 
      !important;}"),
      leafletOutput("map")
      )

server = function(input,output,session){
             output$map = renderLeaflet(
                 leaflet()%>%

         addTiles(urlTemplate = "http://mt0.google.com/vt/lyrs=m&hl=en&x= 
              {x}&y={y}&z={z}&s=Ga")%>%

         addMeasure(
              primaryLengthUnit = "kilometers",
              secondaryAreaUnit = FALSE
         )%>%

         addDrawToolbar(
              targetGroup='draw',

              editOptions = editToolbarOptions(selectedPathOptions = 
                    selectedPathOptions()),

              polylineOptions = filterNULL(list(shapeOptions = 
                    drawShapeOptions(lineJoin = "round", weight = 8))),

              circleOptions = filterNULL(list(shapeOptions = 
                    drawShapeOptions(),
                    repeatMode = F,
                    showRadius = T,
                    metric = T,
                    feet = F,
                    nautic = F))) %>%
        setView(lat = 45, lng = 9, zoom = 3) %>%
        addStyleEditor(position = "bottomleft", 
                 openOnLeafletDraw = TRUE)
 )
}

 shinyApp(ui,server)

library(shiny) library(leaflet) library(leaflet.extras) server = function(input,output,session){ # Create reactive boolean value that indicates a double-click on the leaflet widget react_list <- reactiveValues(doubleClick = FALSE, lastClick = NA) observeEvent(input$map_click$.nonce, { react_list$doubleClick <- identical(react_list$lastClick, input$map_click[1:2]) react_list$lastClick <- input$map_click[1:2] }) # Upon double-click, create pop-up prompt allowing user to enter text observeEvent(input$map_click[1:2], { if (react_list$doubleClick) { shinyWidgets::inputSweetAlert(session, "addText", title = "Add text:") } }) # Upon entering the text, place the text on leaflet widget at the location of the double-click observeEvent(input$addText, { leafletProxy("map") %>% addLabelOnlyMarkers( input$map_click$lng, input$map_click$lat, label = input$addText, labelOptions = labelOptions(noHide = TRUE, direction = "right", textOnly = TRUE, textsize = "15px")) }) # Clear out all text if user clears all layers via the toolbar observeEvent(input$map_draw_deletestop, { if ( length(input$map_draw_all_features$features) < 1 ) { leafletProxy("map") %>% clearMarkers() } }) output$map <- renderLeaflet({ leaflet(options = leafletOptions(doubleClickZoom = FALSE)) %>% addProviderTiles(providers$CartoDB.Positron) %>% addMeasure( primaryLengthUnit = "kilometers", secondaryAreaUnit = FALSE) %>% addDrawToolbar( targetGroup ='draw', editOptions = editToolbarOptions(selectedPathOptions = selectedPathOptions()), polylineOptions = filterNULL(list(shapeOptions = drawShapeOptions(lineJoin = "round", weight = 8))), circleOptions = filterNULL(list(shapeOptions = drawShapeOptions(), repeatMode = F, showRadius = T, metric = T, feet = F, nautic = F))) %>% setView(lng = -73.97721, lat = 40.7640, zoom = 15) }) } shinyApp(ui = fluidPage( leafletOutput("map") ) , server)

Ответ 1