DBSCAN与R闪亮

我正在为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)

---

ui我想缺少一个括号。还有示例
数据
。我想我不知道如何给集群上色。我想缺少一个括号。还有示例
数据
。我想我不知道如何给簇着色