R의 전단지에서 addDrawToolbar()의 원의 반경 단위를 미터로 변경

Question

다음 스크립트로 그릴 수있는 원의 반경 단위를 변경하려면 어떻게해야합니까? 그것을 피트 단위로 표시하고 킬로미터 단위로 필요합니다. 전체 DrawToolbar를 변경하면 더 좋습니다. 미리 감사드립니다.

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

ui = fluidPage(
    leafletOutput("map") 
) 

server = function(input,output,session){ 
    output$map = renderLeaflet(
leaflet()%>% 
    addTiles()%>% 
    addMeasure(
    primaryLengthUnit = "kilometers", 
    secondaryAreaUnit = FALSE 
    )%>% 
    addDrawToolbar(
    targetGroup='draw', 
    editOptions = editToolbarOptions(selectedPathOptions = selectedPathOptions())) %>% 
    setView(lat = 45, lng = 9, zoom = 3) 
) 
} 

shinyApp(ui,server) 

Answer 1

개발 버전 leaflet.extras에는이 기능이 있으므로 매우 쉽습니다. 그걸 복사 해보자.
(참조 : https://github.com/bhaskarvk/leaflet.extras/blob/master/R/drawOptions.R).
원하는 것은 다음과 같습니다.

)%>% 
    addDrawToolbar(
    targetGroup='draw', 
    editOptions = editToolbarOptions(selectedPathOptions = selectedPathOptions()), 
    circleOptions = filterNULL(list(shapeOptions = drawShapeOptions(), 
            repeatMode = F, 
            showRadius = T, 
            metric = T, 
            feet = F, 
            nautic = F))) %>%