[R/addAQILegend.R:21:1:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addAQILegend.R#L21) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[R/addAQILegend.R:22:12:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addAQILegend.R#L22) *style:* **Put spaces around all infix operators.**
```r
  legend( x=x, y=y, col=col, legend=legend, pch=pch, title=title, ... )
          ~^~
```
[R/addAQILegend.R:22:17:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addAQILegend.R#L22) *style:* **Put spaces around all infix operators.**
```r
  legend( x=x, y=y, col=col, legend=legend, pch=pch, title=title, ... )
               ~^~
```
[R/addAQILegend.R:22:24:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addAQILegend.R#L22) *style:* **Put spaces around all infix operators.**
```r
  legend( x=x, y=y, col=col, legend=legend, pch=pch, title=title, ... )
                      ~^~
```
[R/addAQILegend.R:22:36:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addAQILegend.R#L22) *style:* **Put spaces around all infix operators.**
```r
  legend( x=x, y=y, col=col, legend=legend, pch=pch, title=title, ... )
                                  ~^~
```
[R/addAQILegend.R:22:48:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addAQILegend.R#L22) *style:* **Put spaces around all infix operators.**
```r
  legend( x=x, y=y, col=col, legend=legend, pch=pch, title=title, ... )
                                              ~^~
```
[R/addAQILegend.R:22:59:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addAQILegend.R#L22) *style:* **Put spaces around all infix operators.**
```r
  legend( x=x, y=y, col=col, legend=legend, pch=pch, title=title, ... )
                                                         ~^~
```
[R/addAQILegend.R:23:1:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addAQILegend.R#L23) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[R/addAQILines.R:10:1:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addAQILines.R#L10) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[R/addAQILines.R:11:21:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addAQILines.R#L11) *style:* **Put spaces around all infix operators.**
```r
  graphics::abline(h=AQI$breaks_24, col=AQI$colors, ...)
                   ~^~
```
[R/addAQILines.R:11:40:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addAQILines.R#L11) *style:* **Put spaces around all infix operators.**
```r
  graphics::abline(h=AQI$breaks_24, col=AQI$colors, ...)
                                      ~^~
```
[R/addAQILines.R:12:1:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addAQILines.R#L12) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[R/addAQIStackedBar.R:19:16:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addAQIStackedBar.R#L19) *style:* **Put spaces around all infix operators.**
```r
    l <- usr[2]-width*(usr[2]-usr[1])
              ~^~
```
[R/addAQIStackedBar.R:19:22:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addAQIStackedBar.R#L19) *style:* **Put spaces around all infix operators.**
```r
    l <- usr[2]-width*(usr[2]-usr[1])
                    ~^~
```
[R/addAQIStackedBar.R:19:23:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addAQIStackedBar.R#L19) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    l <- usr[2]-width*(usr[2]-usr[1])
                      ^
```
[R/addAQIStackedBar.R:19:30:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addAQIStackedBar.R#L19) *style:* **Put spaces around all infix operators.**
```r
    l <- usr[2]-width*(usr[2]-usr[1])
                            ~^~
```
[R/addAQIStackedBar.R:23:16:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addAQIStackedBar.R#L23) *style:* **Put spaces around all infix operators.**
```r
    r <- usr[1]+width*(usr[2]-usr[1])
              ~^~
```
[R/addAQIStackedBar.R:23:22:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addAQIStackedBar.R#L23) *style:* **Put spaces around all infix operators.**
```r
    r <- usr[1]+width*(usr[2]-usr[1])
                    ~^~
```
[R/addAQIStackedBar.R:23:23:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addAQIStackedBar.R#L23) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    r <- usr[1]+width*(usr[2]-usr[1])
                      ^
```
[R/addAQIStackedBar.R:23:30:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addAQIStackedBar.R#L23) *style:* **Put spaces around all infix operators.**
```r
    r <- usr[1]+width*(usr[2]-usr[1])
                            ~^~
```
[R/addAQIStackedBar.R:28:20:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addAQIStackedBar.R#L28) *style:* **Commas should always have a space after.**
```r
         min(max(0,AQI$breaks_24[i]), height*usr[4]),
                   ^
```
[R/addAQIStackedBar.R:28:45:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addAQIStackedBar.R#L28) *style:* **Put spaces around all infix operators.**
```r
         min(max(0,AQI$breaks_24[i]), height*usr[4]),
                                           ~^~
```
[R/addAQIStackedBar.R:30:29:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addAQIStackedBar.R#L30) *style:* **Put spaces around all infix operators.**
```r
         min(AQI$breaks_24[i+1], height*usr[4]),
                           ~^~
```
[R/addAQIStackedBar.R:30:40:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addAQIStackedBar.R#L30) *style:* **Put spaces around all infix operators.**
```r
         min(AQI$breaks_24[i+1], height*usr[4]),
                                      ~^~
```
[R/addBullseye.R:25:63:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addBullseye.R#L25) *style:* **Put spaces around all infix operators.**
```r
    RgoogleMaps::PlotOnStaticMap(map, latitude, longitude, add=TRUE, cex=cex, lwd=lwd, col='black')
                                                             ~^~
```
[R/addBullseye.R:25:73:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addBullseye.R#L25) *style:* **Put spaces around all infix operators.**
```r
    RgoogleMaps::PlotOnStaticMap(map, latitude, longitude, add=TRUE, cex=cex, lwd=lwd, col='black')
                                                                       ~^~
```
[R/addBullseye.R:25:82:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addBullseye.R#L25) *style:* **Put spaces around all infix operators.**
```r
    RgoogleMaps::PlotOnStaticMap(map, latitude, longitude, add=TRUE, cex=cex, lwd=lwd, col='black')
                                                                                ~^~
```
[R/addBullseye.R:25:91:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addBullseye.R#L25) *style:* **Put spaces around all infix operators.**
```r
    RgoogleMaps::PlotOnStaticMap(map, latitude, longitude, add=TRUE, cex=cex, lwd=lwd, col='black')
                                                                                ~^~
```
[R/addBullseye.R:25:92:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addBullseye.R#L25) *style:* **Only use double-quotes.**
```r
    RgoogleMaps::PlotOnStaticMap(map, latitude, longitude, add=TRUE, cex=cex, lwd=lwd, col='black')
                                                                                ^~~~~~~
```
[R/addBullseye.R:26:1:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addBullseye.R#L26) *style:* **Lines should not be more than 100 characters.**
```r
    RgoogleMaps::PlotOnStaticMap(map, latitude, longitude, add=TRUE, cex=cex*0.75, lwd=lwd, col='white')
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/addBullseye.R:26:63:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addBullseye.R#L26) *style:* **Put spaces around all infix operators.**
```r
    RgoogleMaps::PlotOnStaticMap(map, latitude, longitude, add=TRUE, cex=cex*0.75, lwd=lwd, col='white')
                                                             ~^~
```
[R/addBullseye.R:26:73:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addBullseye.R#L26) *style:* **Put spaces around all infix operators.**
```r
    RgoogleMaps::PlotOnStaticMap(map, latitude, longitude, add=TRUE, cex=cex*0.75, lwd=lwd, col='white')
                                                                       ~^~
```
[R/addBullseye.R:26:77:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addBullseye.R#L26) *style:* **Put spaces around all infix operators.**
```r
    RgoogleMaps::PlotOnStaticMap(map, latitude, longitude, add=TRUE, cex=cex*0.75, lwd=lwd, col='white')
                                                                           ~^~
```
[R/addBullseye.R:26:87:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addBullseye.R#L26) *style:* **Put spaces around all infix operators.**
```r
    RgoogleMaps::PlotOnStaticMap(map, latitude, longitude, add=TRUE, cex=cex*0.75, lwd=lwd, col='white')
                                                                                ~^~
```
[R/addBullseye.R:26:96:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addBullseye.R#L26) *style:* **Put spaces around all infix operators.**
```r
    RgoogleMaps::PlotOnStaticMap(map, latitude, longitude, add=TRUE, cex=cex*0.75, lwd=lwd, col='white')
                                                                                ~^~
```
[R/addBullseye.R:26:97:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addBullseye.R#L26) *style:* **Only use double-quotes.**
```r
    RgoogleMaps::PlotOnStaticMap(map, latitude, longitude, add=TRUE, cex=cex*0.75, lwd=lwd, col='white')
                                                                                ^~~~~~~
```
[R/addBullseye.R:27:1:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addBullseye.R#L27) *style:* **Lines should not be more than 100 characters.**
```r
    RgoogleMaps::PlotOnStaticMap(map, latitude, longitude, add=TRUE, cex=cex*0.5, lwd=lwd, col='black')
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/addBullseye.R:27:63:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addBullseye.R#L27) *style:* **Put spaces around all infix operators.**
```r
    RgoogleMaps::PlotOnStaticMap(map, latitude, longitude, add=TRUE, cex=cex*0.5, lwd=lwd, col='black')
                                                             ~^~
```
[R/addBullseye.R:27:73:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addBullseye.R#L27) *style:* **Put spaces around all infix operators.**
```r
    RgoogleMaps::PlotOnStaticMap(map, latitude, longitude, add=TRUE, cex=cex*0.5, lwd=lwd, col='black')
                                                                       ~^~
```
[R/addBullseye.R:27:77:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addBullseye.R#L27) *style:* **Put spaces around all infix operators.**
```r
    RgoogleMaps::PlotOnStaticMap(map, latitude, longitude, add=TRUE, cex=cex*0.5, lwd=lwd, col='black')
                                                                           ~^~
```
[R/addBullseye.R:27:86:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addBullseye.R#L27) *style:* **Put spaces around all infix operators.**
```r
    RgoogleMaps::PlotOnStaticMap(map, latitude, longitude, add=TRUE, cex=cex*0.5, lwd=lwd, col='black')
                                                                                ~^~
```
[R/addBullseye.R:27:95:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addBullseye.R#L27) *style:* **Put spaces around all infix operators.**
```r
    RgoogleMaps::PlotOnStaticMap(map, latitude, longitude, add=TRUE, cex=cex*0.5, lwd=lwd, col='black')
                                                                                ~^~
```
[R/addBullseye.R:27:96:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addBullseye.R#L27) *style:* **Only use double-quotes.**
```r
    RgoogleMaps::PlotOnStaticMap(map, latitude, longitude, add=TRUE, cex=cex*0.5, lwd=lwd, col='black')
                                                                                ^~~~~~~
```
[R/addBullseye.R:31:36:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addBullseye.R#L31) *style:* **Put spaces around all infix operators.**
```r
    points(longitude, latitude, pch=1, cex=cex, lwd=lwd, col='black')
                                  ~^~
```
[R/addBullseye.R:31:43:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addBullseye.R#L31) *style:* **Put spaces around all infix operators.**
```r
    points(longitude, latitude, pch=1, cex=cex, lwd=lwd, col='black')
                                         ~^~
```
[R/addBullseye.R:31:52:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addBullseye.R#L31) *style:* **Put spaces around all infix operators.**
```r
    points(longitude, latitude, pch=1, cex=cex, lwd=lwd, col='black')
                                                  ~^~
```
[R/addBullseye.R:31:61:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addBullseye.R#L31) *style:* **Put spaces around all infix operators.**
```r
    points(longitude, latitude, pch=1, cex=cex, lwd=lwd, col='black')
                                                           ~^~
```
[R/addBullseye.R:31:62:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addBullseye.R#L31) *style:* **Only use double-quotes.**
```r
    points(longitude, latitude, pch=1, cex=cex, lwd=lwd, col='black')
                                                             ^~~~~~~
```
[R/addBullseye.R:32:36:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addBullseye.R#L32) *style:* **Put spaces around all infix operators.**
```r
    points(longitude, latitude, pch=1, cex=cex*0.75, lwd=lwd, col='white')
                                  ~^~
```
[R/addBullseye.R:32:43:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addBullseye.R#L32) *style:* **Put spaces around all infix operators.**
```r
    points(longitude, latitude, pch=1, cex=cex*0.75, lwd=lwd, col='white')
                                         ~^~
```
[R/addBullseye.R:32:47:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addBullseye.R#L32) *style:* **Put spaces around all infix operators.**
```r
    points(longitude, latitude, pch=1, cex=cex*0.75, lwd=lwd, col='white')
                                             ~^~
```
[R/addBullseye.R:32:57:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addBullseye.R#L32) *style:* **Put spaces around all infix operators.**
```r
    points(longitude, latitude, pch=1, cex=cex*0.75, lwd=lwd, col='white')
                                                       ~^~
```
[R/addBullseye.R:32:66:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addBullseye.R#L32) *style:* **Put spaces around all infix operators.**
```r
    points(longitude, latitude, pch=1, cex=cex*0.75, lwd=lwd, col='white')
                                                                ~^~
```
[R/addBullseye.R:32:67:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addBullseye.R#L32) *style:* **Only use double-quotes.**
```r
    points(longitude, latitude, pch=1, cex=cex*0.75, lwd=lwd, col='white')
                                                                  ^~~~~~~
```
[R/addBullseye.R:33:36:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addBullseye.R#L33) *style:* **Put spaces around all infix operators.**
```r
    points(longitude, latitude, pch=1, cex=cex*0.5, lwd=lwd, col='black')
                                  ~^~
```
[R/addBullseye.R:33:43:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addBullseye.R#L33) *style:* **Put spaces around all infix operators.**
```r
    points(longitude, latitude, pch=1, cex=cex*0.5, lwd=lwd, col='black')
                                         ~^~
```
[R/addBullseye.R:33:47:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addBullseye.R#L33) *style:* **Put spaces around all infix operators.**
```r
    points(longitude, latitude, pch=1, cex=cex*0.5, lwd=lwd, col='black')
                                             ~^~
```
[R/addBullseye.R:33:56:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addBullseye.R#L33) *style:* **Put spaces around all infix operators.**
```r
    points(longitude, latitude, pch=1, cex=cex*0.5, lwd=lwd, col='black')
                                                      ~^~
```
[R/addBullseye.R:33:65:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addBullseye.R#L33) *style:* **Put spaces around all infix operators.**
```r
    points(longitude, latitude, pch=1, cex=cex*0.5, lwd=lwd, col='black')
                                                               ~^~
```
[R/addBullseye.R:33:66:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addBullseye.R#L33) *style:* **Only use double-quotes.**
```r
    points(longitude, latitude, pch=1, cex=cex*0.5, lwd=lwd, col='black')
                                                                 ^~~~~~~
```
[R/addBullseye.R:38:1:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addBullseye.R#L38) *style:* **Trailing blank lines are superfluous.**
```r

^
```
[R/addClustering.R:31:1:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addClustering.R#L31) *style:* **Lines should not be more than 100 characters.**
```r
    logger.error("No lonVar='%s' column found in 'tbl' tibble with columns: %s", lonVar, paste0(names(tbl), collapse=", "))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/addClustering.R:31:117:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addClustering.R#L31) *style:* **Put spaces around all infix operators.**
```r
    logger.error("No lonVar='%s' column found in 'tbl' tibble with columns: %s", lonVar, paste0(names(tbl), collapse=", "))
                                                                                ~^~
```
[R/addClustering.R:35:1:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addClustering.R#L35) *style:* **Lines should not be more than 100 characters.**
```r
    logger.error("No latVar='%s' column found in 'tbl' tibble with columns: %s", latVar, paste0(names(tbl), collapse=", "))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/addClustering.R:35:117:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addClustering.R#L35) *style:* **Put spaces around all infix operators.**
```r
    logger.error("No latVar='%s' column found in 'tbl' tibble with columns: %s", latVar, paste0(names(tbl), collapse=", "))
                                                                                ~^~
```
[R/addClustering.R:43:46:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addClustering.R#L43) *style:* **Commas should always have a space after.**
```r
    lonString <- format( round(tbl$medoidLon,3), nsmall=3 ) # 3 decimal places
                                             ^
```
[R/addClustering.R:43:56:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addClustering.R#L43) *style:* **Put spaces around all infix operators.**
```r
    lonString <- format( round(tbl$medoidLon,3), nsmall=3 ) # 3 decimal places
                                                      ~^~
```
[R/addClustering.R:44:46:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addClustering.R#L44) *style:* **Commas should always have a space after.**
```r
    latString <- format( round(tbl$medoidLat,3), nsmall=3 ) # 3 decimal places
                                             ^
```
[R/addClustering.R:44:56:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addClustering.R#L44) *style:* **Put spaces around all infix operators.**
```r
    latString <- format( round(tbl$medoidLat,3), nsmall=3 ) # 3 decimal places
                                                      ~^~
```
[R/addClustering.R:45:31:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addClustering.R#L45) *style:* **Only use double-quotes.**
```r
    locationString <- paste0( 'lon_', lonString, '_lat_', latString )
                              ^~~~~~
```
[R/addClustering.R:45:50:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addClustering.R#L45) *style:* **Only use double-quotes.**
```r
    locationString <- paste0( 'lon_', lonString, '_lat_', latString )
                                                 ^~~~~~~
```
[R/addClustering.R:54:44:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addClustering.R#L54) *style:* **Commas should always have a space after.**
```r
    badLocationRows <- tbl[badLocationMask,]
                                           ^
```
[R/addClustering.R:55:33:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addClustering.R#L55) *style:* **Commas should always have a space after.**
```r
    tbl <- tbl[!badLocationMask,]
                                ^
```
[R/addClustering.R:70:5:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addClustering.R#L70) *style:* **Commented code should be removed.**
```r
  # NOTE:    x <- y <- c(rep(0,3),rep(1,3),rep(10,20),rep(11,20),rep(100,50),rep(101,50))
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/addClustering.R:71:5:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addClustering.R#L71) *style:* **Commented code should be removed.**
```r
  # NOTE:    m <- cbind(x,y)
    ^~~~~~~~~~~~~~~~~~~~~~~~
```
[R/addClustering.R:72:5:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addClustering.R#L72) *style:* **Commented code should be removed.**
```r
  # NOTE:    layout(matrix(seq(2)))
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/addClustering.R:73:5:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addClustering.R#L73) *style:* **Commented code should be removed.**
```r
  # NOTE:    plot(x, y, pch=as.character( stats::kmeans(m,3)$cluster ))
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/addClustering.R:74:5:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addClustering.R#L74) *style:* **Commented code should be removed.**
```r
  # NOTE:    plot(x, y, pch=as.character( cluster::pam(m,3)$cluster ))
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/addClustering.R:75:5:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addClustering.R#L75) *style:* **Commented code should be removed.**
```r
  # NOTE:    plot(x, y, pch=as.character( cluster::clara(m,3)$cluster ))
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/addClustering.R:92:39:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addClustering.R#L92) *style:* **Commas should always have a space after.**
```r
      clusterObj <- cluster::pam(tbl[,c(lonVar,latVar)],clusterCount)
                                      ^
```
[R/addClustering.R:92:48:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addClustering.R#L92) *style:* **Commas should always have a space after.**
```r
      clusterObj <- cluster::pam(tbl[,c(lonVar,latVar)],clusterCount)
                                               ^
```
[R/addClustering.R:92:57:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addClustering.R#L92) *style:* **Commas should always have a space after.**
```r
      clusterObj <- cluster::pam(tbl[,c(lonVar,latVar)],clusterCount)
                                                        ^
```
[R/addClustering.R:95:41:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addClustering.R#L95) *style:* **Commas should always have a space after.**
```r
      clusterObj <- cluster::clara(tbl[,c(lonVar,latVar)],clusterCount, samples=50)
                                        ^
```
[R/addClustering.R:95:50:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addClustering.R#L95) *style:* **Commas should always have a space after.**
```r
      clusterObj <- cluster::clara(tbl[,c(lonVar,latVar)],clusterCount, samples=50)
                                                 ^
```
[R/addClustering.R:95:59:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addClustering.R#L95) *style:* **Commas should always have a space after.**
```r
      clusterObj <- cluster::clara(tbl[,c(lonVar,latVar)],clusterCount, samples=50)
                                                          ^
```
[R/addClustering.R:95:80:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addClustering.R#L95) *style:* **Put spaces around all infix operators.**
```r
      clusterObj <- cluster::clara(tbl[,c(lonVar,latVar)],clusterCount, samples=50)
                                                                              ~^~
```
[R/addClustering.R:97:39:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addClustering.R#L97) *style:* **Commas should always have a space after.**
```r
    medoidLats <- clusterObj$medoids[,latVar]
                                      ^
```
[R/addClustering.R:98:43:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addClustering.R#L98) *style:* **Commas should always have a space after.**
```r
    diameters <- 2 * clusterObj$clusinfo[,'max_diss'] # decimal degrees
                                          ^
```
[R/addClustering.R:98:43:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addClustering.R#L98) *style:* **Only use double-quotes.**
```r
    diameters <- 2 * clusterObj$clusinfo[,'max_diss'] # decimal degrees
                                          ^~~~~~~~~~
```
[R/addClustering.R:102:40:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addClustering.R#L102) *style:* **Put spaces around all infix operators.**
```r
    radianMedoidLats <- medoidLats * pi/180
                                      ~^~
```
[R/addClustering.R:103:54:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addClustering.R#L103) *style:* **Put spaces around all infix operators.**
```r
    meters <- diameters * (1 + cos(radianMedoidLats))/2 * 111320
                                                    ~^~
```
[R/addClustering.R:111:37:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addClustering.R#L111) *style:* **Commas should always have a space after.**
```r
    clusterObj <- cluster::pam(tbl[,c(lonVar,latVar)],clusterCount)
                                    ^
```
[R/addClustering.R:111:46:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addClustering.R#L111) *style:* **Commas should always have a space after.**
```r
    clusterObj <- cluster::pam(tbl[,c(lonVar,latVar)],clusterCount)
                                             ^
```
[R/addClustering.R:111:55:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addClustering.R#L111) *style:* **Commas should always have a space after.**
```r
    clusterObj <- cluster::pam(tbl[,c(lonVar,latVar)],clusterCount)
                                                      ^
```
[R/addClustering.R:113:39:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addClustering.R#L113) *style:* **Commas should always have a space after.**
```r
    clusterObj <- cluster::clara(tbl[,c(lonVar,latVar)],clusterCount, samples=50)
                                      ^
```
[R/addClustering.R:113:48:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addClustering.R#L113) *style:* **Commas should always have a space after.**
```r
    clusterObj <- cluster::clara(tbl[,c(lonVar,latVar)],clusterCount, samples=50)
                                               ^
```
[R/addClustering.R:113:57:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addClustering.R#L113) *style:* **Commas should always have a space after.**
```r
    clusterObj <- cluster::clara(tbl[,c(lonVar,latVar)],clusterCount, samples=50)
                                                        ^
```
[R/addClustering.R:113:78:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addClustering.R#L113) *style:* **Put spaces around all infix operators.**
```r
    clusterObj <- cluster::clara(tbl[,c(lonVar,latVar)],clusterCount, samples=50)
                                                                            ~^~
```
[R/addClustering.R:117:40:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addClustering.R#L117) *style:* **Commas should always have a space after.**
```r
  tbl$medoidLon <- clusterObj$medoids[,lonVar][clusterObj$clustering]
                                       ^
```
[R/addClustering.R:118:40:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addClustering.R#L118) *style:* **Commas should always have a space after.**
```r
  tbl$medoidLat <- clusterObj$medoids[,latVar][clusterObj$clustering]
                                       ^
```
[R/addClustering.R:125:44:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addClustering.R#L125) *style:* **Commas should always have a space after.**
```r
  lonString <- format( round(tbl$medoidLon,3), nsmall=3 ) # 3 decimal places
                                           ^
```
[R/addClustering.R:125:54:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addClustering.R#L125) *style:* **Put spaces around all infix operators.**
```r
  lonString <- format( round(tbl$medoidLon,3), nsmall=3 ) # 3 decimal places
                                                    ~^~
```
[R/addClustering.R:126:44:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addClustering.R#L126) *style:* **Commas should always have a space after.**
```r
  latString <- format( round(tbl$medoidLat,3), nsmall=3 ) # 3 decimal places
                                           ^
```
[R/addClustering.R:126:54:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addClustering.R#L126) *style:* **Put spaces around all infix operators.**
```r
  latString <- format( round(tbl$medoidLat,3), nsmall=3 ) # 3 decimal places
                                                    ~^~
```
[R/addClustering.R:127:29:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addClustering.R#L127) *style:* **Only use double-quotes.**
```r
  locationString <- paste0( 'lon_', lonString, '_lat_', latString )
                            ^~~~~~
```
[R/addClustering.R:127:48:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addClustering.R#L127) *style:* **Only use double-quotes.**
```r
  locationString <- paste0( 'lon_', lonString, '_lat_', latString )
                                               ^~~~~~~
```
[R/addClustering.R:139:35:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addClustering.R#L139) *style:* **Commas should always have a space after.**
```r
      tbl <- tbl[order(tbl$rowID),]
                                  ^
```
[R/addEsriAddress.R:26:43:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addEsriAddress.R#L26) *style:* **Put spaces around all infix operators.**
```r
  df <- as.data.frame(df, stringsAsFactors=FALSE)
                                         ~^~
```
[R/addEsriAddress.R:32:63:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addEsriAddress.R#L32) *style:* **Commas should always have a space after.**
```r
    stop(paste0("Dataframe does not contain columns lonVar='",lonVar,"' or latVar='",latVar,"'"))
                                                              ^
```
[R/addEsriAddress.R:32:70:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addEsriAddress.R#L32) *style:* **Commas should always have a space after.**
```r
    stop(paste0("Dataframe does not contain columns lonVar='",lonVar,"' or latVar='",latVar,"'"))
                                                                     ^
```
[R/addEsriAddress.R:32:86:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addEsriAddress.R#L32) *style:* **Commas should always have a space after.**
```r
    stop(paste0("Dataframe does not contain columns lonVar='",lonVar,"' or latVar='",latVar,"'"))
                                                                                ^
```
[R/addEsriAddress.R:32:93:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addEsriAddress.R#L32) *style:* **Commas should always have a space after.**
```r
    stop(paste0("Dataframe does not contain columns lonVar='",lonVar,"' or latVar='",latVar,"'"))
                                                                                ^
```
[R/addEsriAddress.R:43:1:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addEsriAddress.R#L43) *style:* **Lines should not be more than 100 characters.**
```r
  # NOTE:    https://geocode.arcgis.com/arcgis/rest/services/World/GeocodeServer/reverseGeocode?outSR=4326&returnIntersection=false&location=-121.06092453002931%2C47.255990221115475&f=json
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/addEsriAddress.R:91:23:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addEsriAddress.R#L91) *style:* **Commas should always have a space after.**
```r
    monitorID <- df[i,'monitorID']
                      ^
```
[R/addEsriAddress.R:91:23:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addEsriAddress.R#L91) *style:* **Only use double-quotes.**
```r
    monitorID <- df[i,'monitorID']
                      ^~~~~~~~~~~
```
[R/addEsriAddress.R:94:1:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addEsriAddress.R#L94) *style:* **Lines should not be more than 100 characters.**
```r
        if ( !is.na(existingMeta[monitorID,'siteName']) && existingMeta[monitorID,'siteName'] != "" ) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/addEsriAddress.R:94:44:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addEsriAddress.R#L94) *style:* **Commas should always have a space after.**
```r
        if ( !is.na(existingMeta[monitorID,'siteName']) && existingMeta[monitorID,'siteName'] != "" ) {
                                           ^
```
[R/addEsriAddress.R:94:44:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addEsriAddress.R#L94) *style:* **Only use double-quotes.**
```r
        if ( !is.na(existingMeta[monitorID,'siteName']) && existingMeta[monitorID,'siteName'] != "" ) {
                                           ^~~~~~~~~~
```
[R/addEsriAddress.R:94:83:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addEsriAddress.R#L94) *style:* **Commas should always have a space after.**
```r
        if ( !is.na(existingMeta[monitorID,'siteName']) && existingMeta[monitorID,'siteName'] != "" ) {
                                                                                ^
```
[R/addEsriAddress.R:94:83:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addEsriAddress.R#L94) *style:* **Only use double-quotes.**
```r
        if ( !is.na(existingMeta[monitorID,'siteName']) && existingMeta[monitorID,'siteName'] != "" ) {
                                                                                ^~~~~~~~~~
```
[R/addEsriAddress.R:104:48:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addEsriAddress.R#L104) *style:* **Commas should always have a space after.**
```r
      df$siteName[i] <- existingMeta[monitorID,'siteName']
                                               ^
```
[R/addEsriAddress.R:104:48:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addEsriAddress.R#L104) *style:* **Only use double-quotes.**
```r
      df$siteName[i] <- existingMeta[monitorID,'siteName']
                                               ^~~~~~~~~~
```
[R/addEsriAddress.R:105:51:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addEsriAddress.R#L105) *style:* **Only use double-quotes.**
```r
      df$countyName[i] <- existingMeta[monitorID, 'countyName']
                                                  ^~~~~~~~~~~~
```
[R/addEsriAddress.R:110:26:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addEsriAddress.R#L110) *style:* **Commas should always have a space after.**
```r
      location <- c(df[i,lonVar],df[i,latVar])
                         ^
```
[R/addEsriAddress.R:110:34:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addEsriAddress.R#L110) *style:* **Commas should always have a space after.**
```r
      location <- c(df[i,lonVar],df[i,latVar])
                                 ^
```
[R/addEsriAddress.R:110:39:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addEsriAddress.R#L110) *style:* **Commas should always have a space after.**
```r
      location <- c(df[i,lonVar],df[i,latVar])
                                      ^
```
[R/addEsriAddress.R:116:1:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addEsriAddress.R#L116) *style:* **Lines should not be more than 100 characters.**
```r
          urlBase <- "https://geocode.arcgis.com/arcgis/rest/services/World/GeocodeServer/reverseGeocode?"
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/addEsriAddress.R:117:42:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addEsriAddress.R#L117) *style:* **Commas should always have a space after.**
```r
          location <- paste0("location=",paste0(location[1],",",location[2]),"&")
                                         ^
```
[R/addEsriAddress.R:117:61:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addEsriAddress.R#L117) *style:* **Commas should always have a space after.**
```r
          location <- paste0("location=",paste0(location[1],",",location[2]),"&")
                                                            ^
```
[R/addEsriAddress.R:117:65:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addEsriAddress.R#L117) *style:* **Commas should always have a space after.**
```r
          location <- paste0("location=",paste0(location[1],",",location[2]),"&")
                                                                ^
```
[R/addEsriAddress.R:117:78:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addEsriAddress.R#L117) *style:* **Commas should always have a space after.**
```r
          location <- paste0("location=",paste0(location[1],",",location[2]),"&")
                                                                             ^
```
[R/addEsriAddress.R:143:63:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addEsriAddress.R#L143) *style:* **Commas should always have a space after.**
```r
              df$siteName[i] <- paste0(returnObj$address$City,"-",returnObj$address$Address)
                                                              ^
```
[R/addEsriAddress.R:143:67:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addEsriAddress.R#L143) *style:* **Commas should always have a space after.**
```r
              df$siteName[i] <- paste0(returnObj$address$City,"-",returnObj$address$Address)
                                                                  ^
```
[R/addEsriAddress.R:153:82:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addEsriAddress.R#L153) *style:* **Commas should always have a space after.**
```r
            df$countyName[i] <- stringr::str_replace(returnObj$address$Subregion,' County','')
                                                                                ^
```
[R/addEsriAddress.R:153:82:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addEsriAddress.R#L153) *style:* **Only use double-quotes.**
```r
            df$countyName[i] <- stringr::str_replace(returnObj$address$Subregion,' County','')
                                                                                ^~~~~~~~~
```
[R/addEsriAddress.R:153:92:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addEsriAddress.R#L153) *style:* **Commas should always have a space after.**
```r
            df$countyName[i] <- stringr::str_replace(returnObj$address$Subregion,' County','')
                                                                                ^
```
[R/addEsriAddress.R:153:92:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addEsriAddress.R#L153) *style:* **Only use double-quotes.**
```r
            df$countyName[i] <- stringr::str_replace(returnObj$address$Subregion,' County','')
                                                                                ^~
```
[R/addEsriAddress.R:156:18:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addEsriAddress.R#L156) *style:* **Put spaces around all infix operators.**
```r
        }, silent=TRUE)
                ~^~
```
[R/addGoogleAddress.R:20:6:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addGoogleAddress.R#L20) *style:* **Commented code should be removed.**
```r
  ###logger.trace(" ----- addGoogleAddress() ----- ")
     ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/addGoogleAddress.R:22:1:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addGoogleAddress.R#L22) *style:* **Lines should not be more than 100 characters.**
```r
  message("addGoogleAddress() is currently disabled after discontinuation of free querys in July, 2018")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/addGoogleAddress.R:25:43:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addGoogleAddress.R#L25) *style:* **Put spaces around all infix operators.**
```r
  df <- as.data.frame(df, stringsAsFactors=FALSE)
                                         ~^~
```
[R/addGoogleAddress.R:31:63:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addGoogleAddress.R#L31) *style:* **Commas should always have a space after.**
```r
    stop(paste0("Dataframe does not contain columns lonVar='",lonVar,"' or latVar='",latVar,"'"))
                                                              ^
```
[R/addGoogleAddress.R:31:70:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addGoogleAddress.R#L31) *style:* **Commas should always have a space after.**
```r
    stop(paste0("Dataframe does not contain columns lonVar='",lonVar,"' or latVar='",latVar,"'"))
                                                                     ^
```
[R/addGoogleAddress.R:31:86:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addGoogleAddress.R#L31) *style:* **Commas should always have a space after.**
```r
    stop(paste0("Dataframe does not contain columns lonVar='",lonVar,"' or latVar='",latVar,"'"))
                                                                                ^
```
[R/addGoogleAddress.R:31:93:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addGoogleAddress.R#L31) *style:* **Commas should always have a space after.**
```r
    stop(paste0("Dataframe does not contain columns lonVar='",lonVar,"' or latVar='",latVar,"'"))
                                                                                ^
```
[R/addGoogleAddress.R:38:3:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addGoogleAddress.R#L38) *warning:* **local variable ‘lons’ assigned but may not be used**
```r
  lons <- df[[lonVar]]
  ^~~~
```
[R/addGoogleAddress.R:39:3:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addGoogleAddress.R#L39) *warning:* **local variable ‘lats’ assigned but may not be used**
```r
  lats <- df[[latVar]]
  ^~~~
```
[R/addGoogleAddress.R:49:7:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addGoogleAddress.R#L49) *style:* **Only use double-quotes.**
```r
  if ('ggmap' %in% installed.packages()[,1]) {
      ^~~~~~~
```
[R/addGoogleAddress.R:49:42:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addGoogleAddress.R#L49) *style:* **Commas should always have a space after.**
```r
  if ('ggmap' %in% installed.packages()[,1]) {
                                         ^
```
[R/addGoogleAddress.R:60:25:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addGoogleAddress.R#L60) *style:* **Commas should always have a space after.**
```r
      monitorID <- df[i,'monitorID']
                        ^
```
[R/addGoogleAddress.R:60:25:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addGoogleAddress.R#L60) *style:* **Only use double-quotes.**
```r
      monitorID <- df[i,'monitorID']
                        ^~~~~~~~~~~
```
[R/addGoogleAddress.R:63:1:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addGoogleAddress.R#L63) *style:* **Lines should not be more than 100 characters.**
```r
          if ( !is.na(existingMeta[monitorID,'siteName']) && existingMeta[monitorID,'siteName'] != "" ) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/addGoogleAddress.R:63:46:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addGoogleAddress.R#L63) *style:* **Commas should always have a space after.**
```r
          if ( !is.na(existingMeta[monitorID,'siteName']) && existingMeta[monitorID,'siteName'] != "" ) {
                                             ^
```
[R/addGoogleAddress.R:63:46:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addGoogleAddress.R#L63) *style:* **Only use double-quotes.**
```r
          if ( !is.na(existingMeta[monitorID,'siteName']) && existingMeta[monitorID,'siteName'] != "" ) {
                                             ^~~~~~~~~~
```
[R/addGoogleAddress.R:63:85:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addGoogleAddress.R#L63) *style:* **Commas should always have a space after.**
```r
          if ( !is.na(existingMeta[monitorID,'siteName']) && existingMeta[monitorID,'siteName'] != "" ) {
                                                                                ^
```
[R/addGoogleAddress.R:63:85:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addGoogleAddress.R#L63) *style:* **Only use double-quotes.**
```r
          if ( !is.na(existingMeta[monitorID,'siteName']) && existingMeta[monitorID,'siteName'] != "" ) {
                                                                                ^~~~~~~~~~
```
[R/addGoogleAddress.R:73:50:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addGoogleAddress.R#L73) *style:* **Commas should always have a space after.**
```r
        df$siteName[i] <- existingMeta[monitorID,'siteName']
                                                 ^
```
[R/addGoogleAddress.R:73:50:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addGoogleAddress.R#L73) *style:* **Only use double-quotes.**
```r
        df$siteName[i] <- existingMeta[monitorID,'siteName']
                                                 ^~~~~~~~~~
```
[R/addGoogleAddress.R:74:53:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addGoogleAddress.R#L74) *style:* **Only use double-quotes.**
```r
        df$countyName[i] <- existingMeta[monitorID, 'countyName']
                                                    ^~~~~~~~~~~~
```
[R/addGoogleAddress.R:79:28:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addGoogleAddress.R#L79) *style:* **Commas should always have a space after.**
```r
        location <- c(df[i,lonVar],df[i,latVar])
                           ^
```
[R/addGoogleAddress.R:79:36:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addGoogleAddress.R#L79) *style:* **Commas should always have a space after.**
```r
        location <- c(df[i,lonVar],df[i,latVar])
                                   ^
```
[R/addGoogleAddress.R:79:41:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addGoogleAddress.R#L79) *style:* **Commas should always have a space after.**
```r
        location <- c(df[i,lonVar],df[i,latVar])
                                        ^
```
[R/addGoogleAddress.R:82:74:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addGoogleAddress.R#L82) *style:* **Put spaces around all infix operators.**
```r
          address <- suppressMessages( ggmap::revgeocode(location, output='more') )
                                                                        ~^~
```
[R/addGoogleAddress.R:82:75:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addGoogleAddress.R#L82) *style:* **Only use double-quotes.**
```r
          address <- suppressMessages( ggmap::revgeocode(location, output='more') )
                                                                          ^~~~~~
```
[R/addGoogleAddress.R:84:67:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addGoogleAddress.R#L84) *style:* **Commas should always have a space after.**
```r
          result <- try( df$siteName[i] <- paste(address$locality,address$route,sep='-'),
                                                                  ^
```
[R/addGoogleAddress.R:84:81:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addGoogleAddress.R#L84) *style:* **Commas should always have a space after.**
```r
          result <- try( df$siteName[i] <- paste(address$locality,address$route,sep='-'),
                                                                                ^
```
[R/addGoogleAddress.R:84:84:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addGoogleAddress.R#L84) *style:* **Put spaces around all infix operators.**
```r
          result <- try( df$siteName[i] <- paste(address$locality,address$route,sep='-'),
                                                                                ~^~
```
[R/addGoogleAddress.R:84:85:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addGoogleAddress.R#L84) *style:* **Only use double-quotes.**
```r
          result <- try( df$siteName[i] <- paste(address$locality,address$route,sep='-'),
                                                                                ^~~
```
[R/addGoogleAddress.R:85:32:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addGoogleAddress.R#L85) *style:* **Put spaces around all infix operators.**
```r
                         silent=TRUE ) # don't show errors
                              ~^~
```
[R/addGoogleAddress.R:87:1:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addGoogleAddress.R#L87) *style:* **Lines should not be more than 100 characters.**
```r
            logger.warn("Google geocoding may have failed. Have you gone over the 2.5K/day limit? (2017)")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/addGoogleAddress.R:90:1:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addGoogleAddress.R#L90) *style:* **Lines should not be more than 100 characters.**
```r
          try( df$countyName[i] <- stringr::str_replace(address$administrative_area_level_2,' County',''),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/addGoogleAddress.R:90:93:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addGoogleAddress.R#L90) *style:* **Commas should always have a space after.**
```r
          try( df$countyName[i] <- stringr::str_replace(address$administrative_area_level_2,' County',''),
                                                                                ^
```
[R/addGoogleAddress.R:90:93:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addGoogleAddress.R#L90) *style:* **Only use double-quotes.**
```r
          try( df$countyName[i] <- stringr::str_replace(address$administrative_area_level_2,' County',''),
                                                                                ^~~~~~~~~
```
[R/addGoogleAddress.R:90:103:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addGoogleAddress.R#L90) *style:* **Commas should always have a space after.**
```r
          try( df$countyName[i] <- stringr::str_replace(address$administrative_area_level_2,' County',''),
                                                                                ^
```
[R/addGoogleAddress.R:90:103:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addGoogleAddress.R#L90) *style:* **Only use double-quotes.**
```r
          try( df$countyName[i] <- stringr::str_replace(address$administrative_area_level_2,' County',''),
                                                                                ^~
```
[R/addGoogleAddress.R:91:22:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addGoogleAddress.R#L91) *style:* **Put spaces around all infix operators.**
```r
               silent=TRUE ) # don't show errors
                    ~^~
```
[R/addGoogleElevation.R:17:1:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addGoogleElevation.R#L17) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[R/addGoogleElevation.R:19:1:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addGoogleElevation.R#L19) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[R/addGoogleElevation.R:21:43:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addGoogleElevation.R#L21) *style:* **Put spaces around all infix operators.**
```r
  df <- as.data.frame(df, stringsAsFactors=FALSE)
                                         ~^~
```
[R/addGoogleElevation.R:22:1:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addGoogleElevation.R#L22) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[R/addGoogleElevation.R:27:63:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addGoogleElevation.R#L27) *style:* **Commas should always have a space after.**
```r
    stop(paste0("Dataframe does not contain columns lonVar='",lonVar,"' or latVar='",latVar,"'"))
                                                              ^
```
[R/addGoogleElevation.R:27:70:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addGoogleElevation.R#L27) *style:* **Commas should always have a space after.**
```r
    stop(paste0("Dataframe does not contain columns lonVar='",lonVar,"' or latVar='",latVar,"'"))
                                                                     ^
```
[R/addGoogleElevation.R:27:86:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addGoogleElevation.R#L27) *style:* **Commas should always have a space after.**
```r
    stop(paste0("Dataframe does not contain columns lonVar='",lonVar,"' or latVar='",latVar,"'"))
                                                                                ^
```
[R/addGoogleElevation.R:27:93:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addGoogleElevation.R#L27) *style:* **Commas should always have a space after.**
```r
    stop(paste0("Dataframe does not contain columns lonVar='",lonVar,"' or latVar='",latVar,"'"))
                                                                                ^
```
[R/addGoogleElevation.R:29:1:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addGoogleElevation.R#L29) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[R/addGoogleElevation.R:32:1:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addGoogleElevation.R#L32) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[R/addGoogleElevation.R:34:1:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addGoogleElevation.R#L34) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[R/addGoogleElevation.R:36:1:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addGoogleElevation.R#L36) *style:* **Trailing whitespace is superfluous.**
```r

^~~~
```
[R/addGoogleElevation.R:37:1:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addGoogleElevation.R#L37) *style:* **Lines should not be more than 100 characters.**
```r
    # NOTE:  If existingMeta is passed in, assume we are in an operational environment where we want to minimize web service calls.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/addGoogleElevation.R:40:1:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addGoogleElevation.R#L40) *style:* **Trailing whitespace is superfluous.**
```r

^~~~
```
[R/addGoogleElevation.R:42:32:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addGoogleElevation.R#L42) *style:* **Commas should always have a space after.**
```r
      monitorID <- amendedDF[i,'monitorID']
                               ^
```
[R/addGoogleElevation.R:42:32:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addGoogleElevation.R#L42) *style:* **Only use double-quotes.**
```r
      monitorID <- amendedDF[i,'monitorID']
                               ^~~~~~~~~~~
```
[R/addGoogleElevation.R:44:1:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addGoogleElevation.R#L44) *style:* **Lines should not be more than 100 characters.**
```r
        amendedDF$elevation[i] <- round(existingMeta[monitorID,'elevation'], 0) # round to whole meters
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/addGoogleElevation.R:44:64:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addGoogleElevation.R#L44) *style:* **Commas should always have a space after.**
```r
        amendedDF$elevation[i] <- round(existingMeta[monitorID,'elevation'], 0) # round to whole meters
                                                               ^
```
[R/addGoogleElevation.R:44:64:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addGoogleElevation.R#L44) *style:* **Only use double-quotes.**
```r
        amendedDF$elevation[i] <- round(existingMeta[monitorID,'elevation'], 0) # round to whole meters
                                                               ^~~~~~~~~~~
```
[R/addGoogleElevation.R:49:1:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addGoogleElevation.R#L49) *style:* **Trailing whitespace is superfluous.**
```r

^~~~
```
[R/addGoogleElevation.R:51:1:](https://github.com/MazamaScience/PWFSLSmoke/blob/5f445c6361be46cbbca199aac1fe5cc9ee85a9a6/R/addGoogleElevation.R#L51) *style:* **Trailing whitespace is superfluous.**
```r

^~~~
```


Now could not deploy this pull request since the `now.json` file is empty.
It should be a valid JSON file.

    For more information on now.json visit https://zeit.co/docs/features/configuration#now.json.


das


@cnovak At the moment, multi-region support is in early-access / limited availability. Even if you used a Terminus with this option (e.g. if you download the `master` branch and run `composer install`), the EU option will fail unless you are part of the program. Please contact sales for terms and availability.