我们正在创建一个Shiny应用程序,以在交互式地图上显示英国各地不同港口的捕鱼压力。我们想显示饼图,其中显示了每种船只的大小,即渔民外出捕鱼的天数。它仅显示端口之一的数据,一旦尝试从菜单中添加更多容器尺寸,则崩溃。
我们已经研究了代码,但LeafletProxy似乎存在问题,但是我们无法弄清为什么它不能正常工作,因为其他具有相同代码的示例运行得很好。
这似乎失败了,错误代码显示它位于观察者部分,并从“ leafletProxy”行开始。
observe({
if (length(input$vesselsize) == 0) {
data <- 1
} else {
data <- fish_or_not[, input$vesselsize]
}
leafletProxy("map", session) %>%
updateMinicharts(
fish_or_not$Location,
chartdata = data,
maxValues = 1000,
time = fish_or_not$MY,
type = ifelse(length(input$vesselsize) < 2, "pie", input$type),
showLabels = input$labels
英国的所有五个港口都应显示出该船出海捕鱼的天数的值(一旦勾选了该值!),并应随时间的推移使用右侧的“播放”按钮进行更改。只有一个港口会发生变化,我们不能在没有坠毁的情况下添加多种船只尺寸选择。