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))) %>%

将addDrawToolbar（）的圆的半径单位更改为R的传单中的米

1 个答案: