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