0

在闪亮的传单中，是否可以创建一个统一的网格图（大小相等的单元格），其中每个单元格都可以被点击和排名。这个想法是多个用户可以单击并排列一组任意单元格。如果不止一个用户对同一个单元格进行排名，则这些值将被聚合（例如，作为来自用户的排名值的平均值）。我不知道从哪里开始解决这个问题。我从下面的默认闪亮传单示例开始。在我绘制的网格中的图像中。任何用户都可以单击一个单元格并为其分配一个等级（从 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)
4

0 回答 0