R/createInfoWindowEvent.R

In plotGoogleMaps: Plot Spatial or Spatio-Temporal Data Over Google Maps

createInfoWindowEvent <-
  function(Line_or_Polygon,
           map="map",
           event="click",
           content="The content",
           position="event.latLng",
           disableAutoPan=FALSE,
           maxWidth="null",
           pixelOffset="null",
           zIndex="null") {
    
    if (disableAutoPan!=FALSE) {
      disableAutoPan <- 'true'
    } else {
      disableAutoPan <- 'false' 
    }
    
    if (is.numeric(position)) {
      position <- paste0("new google.maps.LatLng(",position[2],",",position[1],")")
    }
    if (is.numeric(position)) {
      pixelOffset <- paste0("new google.maps.Size ",pixelOffset[1],",",pixelOffset[1],")")
    }

    x <- paste("\n var infowindow = new google.maps.InfoWindow({ content: '', disableAutoPan:", disableAutoPan,
             ", maxWidth :",maxWidth,
             ", pixelOffset :",pixelOffset,
             ", position :",position ,
             " }); ",
             "\n google.maps.event.addListener(",Line_or_Polygon,
             ",'",event,"',function(event){", 
             "\n infowindow.setContent('",content,"');", 
             "\n infowindow.setPosition(event.latLng);",
             "\n infowindow.open(",map,")}); ",sep="")    
    
    return(x)
    
  }