构建一个协作闪亮的传单应用程序

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)