宽数据格式作为Shiny mapview应用程序的输入-是否需要反应式包装？

Question

我无法将来自广泛格式的数据中的列用作Shiny map应用程序的动态输入。

在应用程序中，我希望能够：

• 在下拉类型菜单中选择点数据的参数（以下示例数据：16个位置，6个参数），并使用滑块调整符号大小以表示所选参数的绝对值（以帮助可视化与零）
• 在选择任何参数的情况下，保留查看mapview的弹出功能中所有参数（列）的能力（mapview将列变为弹出行）。从弹出/查看的角度来看，经过过滤的长格式data.frame似乎会丢失数据
• 在鼠标悬停标签上保留（非绝对）原始值（例如，图像中的-7.3）

除了具有这些功能之外，我不知道是否需要在哪里设置反应性包装器？或者，也许我可以使用另一个以地图为中心的库更轻松地完成所有工作（即使mapview在很多事情上都很棒）？

我的尝试在下面被注释掉-用户界面按预期工作，除了没有下拉列表可选项-该应用程序仅限于一个具有mapview(df["param1"]和cex = param1 * input$cex的有效下拉列表参数。

这是可复制的app.r：

library(tidyverse)
library(sf)
library(shiny)
library(shinydashboard)
library(leaflet)
library(mapview)

## sample earthquake data ##
set.seed(6)
lat <- rnorm(16,-34, 9)
lon <- rnorm(16,-67,.3)
param1 <- rnorm(16, 10, 40)   %>% round(1)
param2 <- rnorm(16, 25, 3)    %>% round(1)
param3 <- rnorm(16, -18, 10)  %>% round(1)
param4 <- rnorm(16, -200, 93) %>% round(1)
param5 <- rnorm(16, 0.1, .09) %>% round(1)
param6 <- rnorm(16, 417, 33)  %>% round(1)
df <- data.frame(lat, lon, param1, param2, param3, param4, param5, 
param6) 
df <- st_as_sf(df, coords = c("lon", "lat"), crs = 4326) 
paramchoices <- colnames(df) %>% .[.!="geometry"]
colorpal = mapviewPalette("mapviewSpectralColors") 

ui <- dashboardPage(
dashboardHeader(),
dashboardSidebar(  
sliderInput("cex", "Symbol Size",
            min = 0.000001, max = 10, value = 1, step = 0.000001
),
selectizeInput(

  "parameter", "Earthquake Parameter", choices = paramchoices, 
  selected = c("param1"), 
  multiple = FALSE)
),
dashboardBody(
tags$style(type = "text/css", "#mapplot {height: calc(100vh - 80px) !important;}"),
leafletOutput("mapplot")
)
)

server <- function(input, output) {

# df <- reactive ({
#   df %>% mutate(selectedparameter = input$parameter,
#                 selectedparameter_abs = abs(selectedparameter))
# })

output$mapplot <- renderLeaflet({
               m <-   mapview(df["param1"], #mouseover column
               #m <- mapview(df["selectedparameter"],
               cex = param1 * input$cex,  #marker size column
               #cex = df$selectedparameter_abs * input$cex, 
               col.regions = colorpal(100), 
               alpha.regions = 0.3,
               legend = TRUE,
               popup = popupTable(df),
               layer.name =  "selectedparam[unit]") 
 m@map     
}
)}
shinyApp(ui, server)

与绝对值部分有关的更多信息-Point color and symbol size based on different variables in mapview

谢谢。