R/createInfoWindowEventM.R

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

createInfoWindowEventM <-
  function(Marker,
           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('position=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,
               "  }); ",
               "\n google.maps.event.addListener(",Marker,
               ",'",event,"',function(event){", 
               "\n infowindow.setContent('",content,"');", 
               "\n infowindow.setPosition(event.latLng);",
               "\n infowindow.open(",map,"," ,Marker,")}); ",sep="")
    
    return(x)
    
  }