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=paste('new google.maps.LatLng(',position[2],',',position[1],')')
          }
           if (is.numeric(position)) {
          pixelOffset=paste('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)

}