Question: Unable to update a widget from within a tool function in Shiny app

What I'm trying to achieve:
I want to create a tool that:

• Geocodes an address using google_geocode()
• Updates the main Google Map (rendered with renderGoogle_map()) to add a marker at the geocoded location
• Returns the coordinates to the chat interface

Any guidance would be greatly appreciated!

library(shiny)
library(googleway)
library(bslib)
library(ellmer)
library(shinychat)
options(shinychat.tool_display = "rich")

# Google Maps API Key
GOOGLE_MAPS_API_KEY <- Sys.getenv("GOOGLE_MAPS_API_KEY")

ui <- bslib::page_sidebar(
  gap = 0,
  padding = 0,
  sidebar = sidebar(
    chat_mod_ui(
      "chat",
      messages = list(
        "Hi! Use this chat interface to chat with OpenAI's gpt-4o-mini."
      ),
      fill = TRUE,
      height = "90vh"
    ),
    width = 500
  ),
  google_mapOutput("map", height = "100%"),
  fillable = TRUE,
  fill = TRUE
)

server <- function(input, output, session) {
  
  # Render Google Map
  output$map <- renderGoogle_map({
    google_map(
      key = GOOGLE_MAPS_API_KEY,
      location = c(48.8566, 2.3522),
      zoom = 12
    )
  })
  
  # Define the tool in the server to have access to the Shiny context
  geocode_address <- tool(
    function(address) {
      library(googleway)
      
      # Geocoding the address
      result <- googleway::google_geocode(
        address, 
        key = Sys.getenv("GOOGLE_MAPS_API_KEY")
      )
      
      # Check the result
      if (result$status != "OK") {
        return(ContentToolResult(
          list(error = "Geocoding failed"),
          extra = list(display = list(
            show_request = FALSE,
            open = TRUE,
            html = paste0("<p style='color: red;'>Error: Unable to geocode address '", address, "'</p>"),
            title = "Geocoding Error"
          ))
        ))
      }
      
      # Extract coordinates
      lat <- result$results$geometry$location$lat[1]
      lng <- result$results$geometry$location$lng[1]
      
  
      google_map_update(map_id = "map") %>%
        add_markers(
          data = result$results$geometry$location,
          lat = "lat",
          lon = "lng"
        )
      
      coords <- list(lat = lat, lng = lng, address = address)
      
      # Création de la carte pour le chat
      map_widget <- google_map(
        key = Sys.getenv("GOOGLE_MAPS_API_KEY"),
        data = result$results$geometry$location,
        zoom = 15
      ) %>%
        add_markers(
          data = result$results$geometry$location,
          lat = "lat",
          lon = "lng"
        )
      
      # Conversion to HTML
      map_html <- as.character(htmltools::as.tags(map_widget))
      
      ContentToolResult(
        coords,
        extra = list(
          display = list(
            show_request = TRUE,
            open = TRUE,
            html = map_html,
            title = paste("Coordinates for", address)
          )
        )
      )
    },
    name = "geocode_address",
    description = "Get the latitude and longitude of an address using the Google Maps API.",
    arguments = list(
      address = type_string("The address to geocode.")
    ),
    annotations = tool_annotations(
      title = "Geocode Address",
      icon = bsicons::bs_icon("map")
    )
  )
  
  llm <- ellmer::chat("openai/gpt-4o-mini", echo = "all")
  llm$register_tool(geocode_address)
  chat_mod_server("chat", llm)
}

shinyApp(ui, server)```

Start with the supplied Shiny server entry points: renderGoogle_map(), tool(), google_map_update(), and chat_mod_server(). Reproduce the example app, then trace whether the main map receives the marker from the tool callback while the chat still returns the coordinates and map display.