DBSCAN与R闪亮

Question

我正在为DBSCAN创建一个由地理坐标组成的数据的闪亮应用程序，并使用传单在地图上显示这些聚类。我的代码正在关注。

ui <- fluidPage(
  pageWithSidebar(
    headerPanel('clustering of Data'),
    sidebarPanel(
      numericInput('eps', 'Please enter Eps value', 0.05),
      numericInput('minpts', 'Please enter MinPts value', 10),

    mainPanel(
      leafletOutput('plot2')
    )
  )
)

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

  # Combine the selected variables into a new data frame
  pp <- reactive({

    dbscan(select(data, lat, lon), eps = input$eps, MinPts = input$minpts)
  })


  selectedData <- reactive({
    data

  })




  output$plot2 <- renderLeaflet(
    {

      leaflet() %>%
        addTiles() %>% 
        setView(lng = -93.232256, lat = 44.973692,  zoom = 10) %>%
        addMarkers(lat = as.numeric(selectedData()$lat), 
                   lng = as.numeric(selectedData()$lon), color = color
        )

    }
  )

}
shinyApp(ui = ui, server = server)

我想我可以执行DBSCAN并获得群集，但我无法使用传单在地图上显示不同颜色的这些群集。请帮忙