Каждый день мне нужно нарисовать путь на карте и добавить текст, например, 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)