Мы создаем приложение 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
На всех пяти портах Великобритании должно отображаться значение (после того, как будет установлено значение!) Количества дней, в течение которых лодки отправляются на рыбалку, и должно меняться со временем с помощью кнопки воспроизведения направо.Меняется только одна гавань, и мы не можем добавить несколько вариантов размеров судов без аварий.
