Le portail francophone de la géomatique

Bonjour,

Je met en place une application shiny avec leaflet pour afficher des raster :
J'utilise le code suivant pour afficher la carte avec leaflet :
  leaflet() %>%
      addTiles() %>%
      addRasterImage(carte, colors = pal,  layerId = "values",  opacity = 0.8)
      addImageQuery(carte, layerId = "values", type = "click")  %>%
      addLegend(pal = pal, values = values(carte), title = titre_graph, opacity = 0.8, layerId = "values") %>%
      #projectRasterForLeaflet(carte, method="ngb") %>%
      addLayersControl(overlayGroups = "values")

Malheureusement, j'obtiens un décalage entre l'affichage des valeurs du fichier tif (addImageQuery) et les pixels de la carte.
J'ai regardé sur QGIS, les valeurs de la carte semble être bien placé, c'est les pixel du tiff qui semble être décalé.