Error in geocode: is.character(location) is not TRUE

[Siddhant]

I have created a custom google search and trying to search for an address here. and I have already rendered a map that is set to a particular view. On top of that, I'm using the leafletProxy function.

but I'm getting this error

Warning: Error in geocode: is.character(location) is not TRUE

What can I do here?

library(shiny)
library(googleway)
library(ggmap)
library(shinydashboard)
library(leaflet)

key <- "my_key"
register_google(key = key)


ui <- dashboardPage(
  dashboardHeader(title = "GeoLocation"),
  dashboardSidebar(
    sidebarMenu(
      menuItem(
        sidebarSearchForm(textId = "my_address", buttonId = "searchButton",
                          label = "Search...")
      )
    )
  ),
  dashboardBody(
    HTML(paste0(" <script> 
                function initAutocomplete() {
                var autocomplete = new google.maps.places.Autocomplete(document.getElementById('my_address'),{types: ['geocode']});
                autocomplete.setFields(['address_components', 'formatted_address',  'geometry', 'icon', 'name']);
                autocomplete.addListener('place_changed', function() {
                var place = autocomplete.getPlace();
                if (!place.geometry) {
                return;
                }
                var addressPretty = place.formatted_address;
                var address = '';
                if (place.address_components) {
                address = [
                (place.address_components[0] && place.address_components[0].short_name || ''),
                (place.address_components[1] && place.address_components[1].short_name || ''),
                (place.address_components[2] && place.address_components[2].short_name || ''),
                (place.address_components[3] && place.address_components[3].short_name || ''),
                (place.address_components[4] && place.address_components[4].short_name || ''),
                (place.address_components[5] && place.address_components[5].short_name || ''),
                (place.address_components[6] && place.address_components[6].short_name || ''),
                (place.address_components[7] && place.address_components[7].short_name || '')
                ].join(' ');
                }
                var address_number =''
                address_number = [(place.address_components[0] && place.address_components[0].short_name || '')]
                var coords = place.geometry.location;
                //console.log(address);
                Shiny.onInputChange('jsValue', address);
                Shiny.onInputChange('jsValueAddressNumber', address_number);
                Shiny.onInputChange('jsValuePretty', addressPretty);
                Shiny.onInputChange('jsValueCoords', coords);});}
                </script> 
                <script src='https://maps.googleapis.com/maps/api/js?key=", key,"&libraries=places&callback=initAutocomplete' async defer></script>"))
    ,leafletOutput('tabContentUI')
  )
)

server <- function(input, output) {
  
  output$tabContentUI <- renderLeaflet({
     leaflet() %>% addTiles() %>% setView(78.9629, 20.5937, zoom = 5)
  })
  
  observeEvent(input$my_address,
                leafletProxy("tabContentUI") %>%
               geocode(input$my_address)
  ) 
  
}

shinyApp(ui, server)

[Siddhant]

Just to add I need to search on the map which is already rendered.