R Блестящая панель инструментов с картами листовок: функция запроса изображения на моей второй вкладке не работает

Question

У меня есть приборная панель R Shiny с 2 вкладками. На каждой вкладке отображается растр. Запрос изображения работает на первой вкладке, но не на второй. На второй вкладке показано небольшое пустое пространство, где должны отображаться запрашиваемые данные, но нет значений. Если я удалю запрос изображения с первой вкладки, то он будет работать на второй. Я гарантировал, что у меня есть последние обновления всех необходимых пакетов. Я использую последнюю версию RStudio (1.2.5001) и R (3.6.1). Любая помощь приветствуется.

Я создал минимальный пример shinyapp, для которого запрос изображения не выполняется на второй вкладке:

library(raster) 
library(leaflet) 
library(shiny)
library(leafem)
library(shinydashboard) 

filename <- system.file("external/test.grd", package="raster")
r <- raster(filename)
r2 <- r*2

#Set up the Shiny app
ui <-function(request) {dashboardPage(
  dashboardHeader(title="Test"),
  dashboardSidebar(
    sidebarMenu(
      menuItem("Tab1", tabName = "Tab1"),
      menuItem("Tab2", tabName = "Tab2")
    )
  ),
  dashboardBody(
    tabItems(
      # First tab content
      tabItem(tabName = "Tab1",
              leafletOutput("MyMap")
      ),

      # Second tab content
      tabItem(tabName = "Tab2",
              leafletOutput("MyMap2")
      )
    )
  )
)}
server <- function(input, output, session) {

#Draw the first map  
 output$MyMap <- renderLeaflet({
    leaflet() %>%
     addRasterImage(r,layerId= "A") %>%
     addImageQuery(r, position="topleft", layerId = "A")
  })

#Draw the second map
  output$MyMap2 <- renderLeaflet({
   leaflet() %>%
     addRasterImage(r2,layerId= "B") %>%
     addImageQuery(r2, position="bottomleft", layerId = "B")
 })
}
shinyApp(ui, server)