diff --git a/DESCRIPTION b/DESCRIPTION
index 8fea9941..cdd85da7 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,11 +1,11 @@
 Type: Package
 Package: PWFSLSmoke
-Version: 0.9.3
+Version: 0.9.4
 Title: Utilities for Working with PM2.5 Monitoring Data
 Authors@R: c(
     person("Jonathan", "Callahan", email="jonathan.s.callahan@gmail.com", role=c("aut","cre")), 
     person("Rohan", "Aras", email="rohana@uw.edu", role=c("aut")),
-    person("Zach", "Dingels", email="dingelsz@uw.edu", role=c("aut")),
+    person("Zach", "Dingels"              , email="dingelsz@uw.edu", role=c("aut")),
     person("Jon", "Hagg", email="jhagg314@gmail.com", role=c("aut")),
     person("Jimin", "Kim", email="jk55@uw.edu", role=c("aut")),
     person("Rex", "Thompson", email="rexs.thompson@gmail.com", role=c("aut")),
diff --git a/R/PWFSLSmoke.R b/R/PWFSLSmoke.R
index 6a19fae4..b8975737 100644
--- a/R/PWFSLSmoke.R
+++ b/R/PWFSLSmoke.R
@@ -1,4 +1,5 @@
-# ----- AQI breaks ----------------------------------------------------------------
+
+# ----- AQI breaks -------------------------------------------------------------
 
 #' AQI breaks and associated names and colors
 #' 
@@ -26,7 +27,7 @@ AQI <- list(breaks_24=c(-Inf, 12, 35.5, 55.5, 150.5, 250.5, Inf),
                      grDevices::rgb(126/255,0,35/255)),
             names=c('good','moderate','USG','unhealthy','very unhealthy','extreme'))
 
-# ----- State codes in the lower 48 ---------------------------------------------------
+# ----- State codes in the lower 48 --------------------------------------------
 
 #' CONUS state codes
 #' 
diff --git a/R/addIcon.R b/R/addIcon.R
index ccb75a21..ce7c339f 100644
--- a/R/addIcon.R
+++ b/R/addIcon.R
@@ -1,30 +1,90 @@
 #' @export
 #' @import graphics
-#' @title Add an Icon to a RgoogleMap Plot
+#' @title Add an Icon to a Map or RgoogleMap Plot
 #' map, icon, lon, lat, expansion=0.1, pos=0
-#' @param map RgoogleMaps map object
 #' @param icon object to be plotted
 #' @param lon vector of longitudes
 #' @param lat vector of latitudes
+#' @param map optional RgoogleMaps map object
 #' @param expansion icon expansion factor
 #' @param pos position of icon relative to lon/lat (0=center, 1=bottom, 2=left, 3=top,4=right)
-#' @description Internal function aclled by monitorGoogleMap~ functions.
+#' @description Adds an icon to \code{map} -- an RgoogleMaps map object.
+#' The following icons are available:
+#' 
+#' \itemize{
+#' \item{\code{orangeFlame}}{ -- yellow-orange flame}
+#' \item{\code{redFlame}}{ -- orange-red flame}
+#' }
+#' 
+#' You can use other .png files as icons by passing an absolute path as the \code{icon} argument.
+#' 
+#' @note For RgoogleMaps, the \code{expansion} will be ~ 0.1 while for basic plots it may need
+#' to be much smaller, perhaps ~ 0.001.
+#' @examples
+#' \dontrun{
+#' ca <- airnow_load(20160801, 20160831, stateCodes='ca')
+#' # Google map
+#' monitorGoogleMap(ca)
+#' addIcon("orangeFlame", ca$meta$longitude, ca$meta$latitude, expansion=0.1)
+#' # line map
+#' monitorMap(ca)
+#' addIcon("orangeFlame", ca$meta$longitude, ca$meta$latitude, expansion=0.002)
+#' }
 
-addIcon <- function(map, icon, lon, lat, expansion=0.1, pos=0) {
+
+addIcon <- function(icon, lon, lat, map=NULL, expansion=0.1, pos=0) {
   
-  # limit lon, lat to those within bounding box
-  lon_lo <- map$BBOX$ll[,'lon']
-  lon_hi <- map$BBOX$ur[,'lon']
-  lat_lo <- map$BBOX$ll[,'lat']
-  lat_hi <- map$BBOX$ur[,'lat']
+  # Test for absolute path
+  if ( dirname(icon) == "." ) {
+    # package icon
+    # let users specify either "orangeFlame" or "orangeFlame.png"
+    icon <- stringr::str_replace(icon,".png","")
+    icon <- paste0(icon,".png")
+    pngFile <- base::system.file("icons", icon, package="PWFSLSmoke")
+  } else {
+    # non-package icon, must be valid absolute path
+    pngFile <- icon
+  }
   
-  lonMask <- lon >= lon_lo & lon <= lon_hi
-  latMask <- lat >= lat_lo & lat <= lat_hi
-  goodMask <- lonMask & latMask
+  if ( pngFile == "" ) {
+    stop("Cannot find package file 'inst/icons/",icon,"'")
+  }
   
-  lon <- lon[goodMask]
-  lat <- lat[goodMask]
+  # Read in the png file
+  icon <- png::readPNG(pngFile)
   
+  if ( !is.null(map) ) {
+    # RgoogleMap
+    
+    if ( !"staticMap" %in% class(map) ) {
+      stop("'map' argument is not of class 'staticMap'")
+    }
+    
+    # limit lon, lat to those within bounding box
+    lon_lo <- map$BBOX$ll[,'lon']
+    lon_hi <- map$BBOX$ur[,'lon']
+    lat_lo <- map$BBOX$ll[,'lat']
+    lat_hi <- map$BBOX$ur[,'lat']
+    
+    lonMask <- lon >= lon_lo & lon <= lon_hi
+    latMask <- lat >= lat_lo & lat <= lat_hi
+    goodMask <- lonMask & latMask
+    
+    lon <- lon[goodMask]
+    lat <- lat[goodMask]
+    
+    # Get plot coordinates
+    newXY <- RgoogleMaps::LatLon2XY.centered(map, lat, lon)
+    x <- newXY$newX
+    y <- newXY$newY
+    
+  } else {
+    # basic plot from maps::map()
+    x <- lon
+    y <- lat
+    
+  }
+
   # Calculate final icon size
   icon_height <- dim(icon)[1] * expansion
   icon_width <- dim(icon)[2] * expansion
@@ -46,11 +106,6 @@ addIcon <- function(map, icon, lon, lat, expansion=0.1, pos=0) {
     nudge_y <- 0
   }
   
-  # Get plot coordinates
-  newXY <- RgoogleMaps::LatLon2XY.centered(map, lat, lon)
-  x <- newXY$newX
-  y <- newXY$newY
-  
   graphics::rasterImage(icon,
                         x - icon_width/2 + nudge_x,
                         y - icon_height/2 + nudge_y,
diff --git a/inst/icons/orangeFlame.png b/inst/icons/orangeFlame.png
new file mode 100755
index 00000000..8e0df2b5
Binary files /dev/null and b/inst/icons/orangeFlame.png differ
diff --git a/inst/icons/redFlame.png b/inst/icons/redFlame.png
new file mode 100755
index 00000000..4d0a9bc2
Binary files /dev/null and b/inst/icons/redFlame.png differ
diff --git a/man/addIcon.Rd b/man/addIcon.Rd
index cb7776d4..8c1f2a5f 100644
--- a/man/addIcon.Rd
+++ b/man/addIcon.Rd
@@ -2,25 +2,48 @@
 % Please edit documentation in R/addIcon.R
 \name{addIcon}
 \alias{addIcon}
-\title{Add an Icon to a RgoogleMap Plot
+\title{Add an Icon to a Map or RgoogleMap Plot
 map, icon, lon, lat, expansion=0.1, pos=0}
 \usage{
-addIcon(map, icon, lon, lat, expansion = 0.1, pos = 0)
+addIcon(icon, lon, lat, map = NULL, expansion = 0.1, pos = 0)
 }
 \arguments{
-\item{map}{RgoogleMaps map object}
-
 \item{icon}{object to be plotted}
 
 \item{lon}{vector of longitudes}
 
 \item{lat}{vector of latitudes}
 
+\item{map}{optional RgoogleMaps map object}
+
 \item{expansion}{icon expansion factor}
 
 \item{pos}{position of icon relative to lon/lat (0=center, 1=bottom, 2=left, 3=top,4=right)}
 }
 \description{
-Internal function aclled by monitorGoogleMap~ functions.
+Adds an icon to \code{map} -- an RgoogleMaps map object.
+The following icons are available:
+
+\itemize{
+\item{\code{orangeFlame}}{ -- yellow-orange flame}
+\item{\code{redFlame}}{ -- orange-red flame}
+}
+
+You can use other .png files as icons by passing an absolute path as the \code{icon} argument.
+}
+\note{
+For RgoogleMaps, the \code{expansion} will be ~ 0.1 while for basic plots it may need
+to be much smaller, perhaps ~ 0.001.
+}
+\examples{
+\dontrun{
+ca <- airnow_load(20160801, 20160831, stateCodes='ca')
+# Google map
+monitorGoogleMap(ca)
+addIcon("orangeFlame", ca$meta$longitude, ca$meta$latitude, expansion=0.1)
+# line map
+monitorMap(ca)
+addIcon("orangeFlame", ca$meta$longitude, ca$meta$latitude, expansion=0.002)
+}
 }