r - 共同の光沢のあるリーフレット アプリの構築

Question

光沢のあるリーフレットでは、各セルをクリックしてランク付けできる均一なグリッド マップ (同じサイズのセル) を作成できますか? アイデアは、複数のユーザーが任意のセルのセットをクリックしてランク付けできるというものです。複数のユーザーが同じセルをランク付けする場合、値は集計されます (たとえば、ユーザーのランク値の平均として)。この問題をどこから始めればよいかわかりません。以下のデフォルトの光沢のあるリーフレットの例から始めました。グリッドで描いた画像で。どのユーザーもセルをクリックしてランク (1 ～ 5 の任意の値) を割り当てることができます。マップは、各セルの色分けされた平均値に基づいて再描画されます。

開始コード (app.R):

library(shiny)
library(leaflet)

r_colors <- rgb(t(col2rgb(colors()) / 255))
names(r_colors) <- colors()

ui <- fluidPage(
    leafletOutput("mymap"),
    p(),
    actionButton("recalc", "New points")
)

server <- function(input, output, session) {
    # 
    # points <- eventReactive(input$recalc, {
    #     cbind(rnorm(40) * 2 + 13, rnorm(40) + 48)
    # }, ignoreNULL = FALSE)
    # 
    output$mymap <- renderLeaflet({
        leaflet() %>%
            addProviderTiles(providers$Stamen.TonerLite,
                             options = providerTileOptions(noWrap = TRUE)
            ) #%>%
            # addMarkers(data = points())
    })
}

shinyApp(ui, server)