[R/chooseName.R:11:1:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/chooseName.R#L11) *style:* **Variable or function name should be snake_case.**
```r
equivalentName <- function(value, df, column) {
^~~~~~~~~~~~~~
```
[R/chooseName.R:13:3:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/chooseName.R#L13) *style:* **Variable or function name should be snake_case.**
```r
  likelyMatch <- which.max(unlist(lapply(out, function(x) sum(!is.na(x)))))
  ^~~~~~~~~~~
```
[R/cleanLandWebStudyArea.R:10:1:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/cleanLandWebStudyArea.R#L10) *style:* **Variable or function name should be snake_case.**
```r
.cleanLandWebStudyArea <- function(poly, minFRI = 40) {
^~~~~~~~~~~~~~~~~~~~~~
```
[R/cleanLandWebStudyArea.R:10:42:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/cleanLandWebStudyArea.R#L10) *style:* **Variable or function name should be snake_case.**
```r
.cleanLandWebStudyArea <- function(poly, minFRI = 40) {
                                         ^~~~~~
```
[R/cleanLandWebStudyArea.R:12:5:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/cleanLandWebStudyArea.R#L12) *warning:* **no visible global function definition for ‘createPrjFile’**
```r
    createPrjFile(poly)
    ^~~~~~~~~~~~~
```
[R/cleanLandWebStudyArea.R:19:10:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/cleanLandWebStudyArea.R#L19) *style:* **Variable or function name should be snake_case.**
```r
    poly$LTHRC <- poly$LTHFC
         ^~~~~
```
[R/cleanLandWebStudyArea.R:20:10:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/cleanLandWebStudyArea.R#L20) *style:* **Variable or function name should be snake_case.**
```r
    poly$LTHFC <- NULL
         ^~~~~
```
[R/cleanLandWebStudyArea.R:24:10:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/cleanLandWebStudyArea.R#L24) *style:* **Variable or function name should be snake_case.**
```r
    poly$fireReturnInterval <- poly$LTHRC
         ^~~~~~~~~~~~~~~~~~
```
[R/cleanLandWebStudyArea.R:25:10:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/cleanLandWebStudyArea.R#L25) *style:* **Variable or function name should be snake_case.**
```r
    poly$LTHRC <- NULL
         ^~~~~
```
[R/gis.R:12:1:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/gis.R#L12) *style:* **Variable or function name should be snake_case.**
```r
createPrjFile <- function(shpFile,
^~~~~~~~~~~~~
```
[R/gis.R:12:27:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/gis.R#L12) *style:* **Variable or function name should be snake_case.**
```r
createPrjFile <- function(shpFile,
                          ^~~~~~~
```
[R/gis.R:13:1:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/gis.R#L13) *style:* **Lines should not be more than 80 characters.**
```r
                          urlForProj = "http://spatialreference.org/ref/epsg/nad83-utm-zone-11n/prj/") {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/gis.R:13:27:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/gis.R#L13) *style:* **Variable or function name should be snake_case.**
```r
                          urlForProj = "http://spatialreference.org/ref/epsg/nad83-utm-zone-11n/prj/") {
                          ^~~~~~~~~~
```
[R/gis.R:14:3:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/gis.R#L14) *style:* **Variable or function name should be snake_case.**
```r
  basenameWithoutExt <- file_path_sans_ext(shpFile)
  ^~~~~~~~~~~~~~~~~~
```
[R/gis.R:14:25:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/gis.R#L14) *warning:* **no visible global function definition for ‘file_path_sans_ext’**
```r
  basenameWithoutExt <- file_path_sans_ext(shpFile)
                        ^~~~~~~~~~~~~~~~~~
```
[R/gis.R:15:3:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/gis.R#L15) *style:* **Variable or function name should be snake_case.**
```r
  basenameWithoutExt <- basenameWithoutExt[-length(basenameWithoutExt)]
  ^~~~~~~~~~~~~~~~~~
```
[R/gis.R:16:3:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/gis.R#L16) *style:* **Variable or function name should be snake_case.**
```r
  prjFile <- paste0(basenameWithoutExt, ".prj")
  ^~~~~~~
```
[R/gis.R:34:1:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/gis.R#L34) *style:* **Variable or function name should be snake_case.**
```r
polygonClean <- function(poly, fn = NULL, type = NULL, ...) {
^~~~~~~~~~~~
```
[R/gis.R:59:1:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/gis.R#L59) *style:* **Variable or function name should be snake_case.**
```r
factorValues2 <- function(x, v, layer, att, append.names, na.rm = FALSE) {
^~~~~~~~~~~~~
```
[R/gis.R:59:45:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/gis.R#L59) *style:* **Variable or function name should be snake_case.**
```r
factorValues2 <- function(x, v, layer, att, append.names, na.rm = FALSE) {
                                            ^~~~~~~~~~~~
```
[R/gis.R:59:59:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/gis.R#L59) *style:* **Variable or function name should be snake_case.**
```r
factorValues2 <- function(x, v, layer, att, append.names, na.rm = FALSE) {
                                                          ^~~~~
```
[R/gis.R:94:36:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/gis.R#L94) *style:* **Variable or function name should be snake_case.**
```r
          definition = function(x, studyArea, ...) {
                                   ^~~~~~~~~
```
[R/gis.R:107:36:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/gis.R#L107) *style:* **Variable or function name should be snake_case.**
```r
          definition = function(x, studyArea, rasterToMatch, ...) {
                                   ^~~~~~~~~
```
[R/gis.R:107:47:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/gis.R#L107) *style:* **Variable or function name should be snake_case.**
```r
          definition = function(x, studyArea, rasterToMatch, ...) {
                                              ^~~~~~~~~~~~~
```
[R/gis.R:108:13:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/gis.R#L108) *style:* **Variable or function name should be snake_case.**
```r
            numPolys <- length(x)
            ^~~~~~~~
```
[R/gis.R:109:13:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/gis.R#L109) *style:* **Variable or function name should be snake_case.**
```r
            xDF <- as.data.frame(x)
            ^~~
```
[R/gis.R:110:15:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/gis.R#L110) *style:* **Variable or function name should be snake_case.**
```r
            x$numPolys <- seq_len(numPolys)
              ^~~~~~~~
```
[R/gis.R:111:13:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/gis.R#L111) *style:* **Variable or function name should be snake_case.**
```r
            xDF <- data.frame(ID = x$numPolys, xDF)
            ^~~
```
[R/helpers.R:6:1:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/helpers.R#L6) *style:* **Variable or function name should be snake_case.**
```r
toSentenceCase <- function(x) {
^~~~~~~~~~~~~~
```
[R/helpers.R:7:3:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/helpers.R#L7) *style:* **Variable or function name should be snake_case.**
```r
  newNames <- tolower(x)
  ^~~~~~~~
```
[R/MapOrDoCall.R:10:1:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/MapOrDoCall.R#L10) *style:* **Variable or function name should be snake_case.**
```r
optimalClusterNum <- function(memRequiredMB = 500, maxNumClusters = 1) {
^~~~~~~~~~~~~~~~~
```
[R/MapOrDoCall.R:10:31:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/MapOrDoCall.R#L10) *style:* **Variable or function name should be snake_case.**
```r
optimalClusterNum <- function(memRequiredMB = 500, maxNumClusters = 1) {
                              ^~~~~~~~~~~~~
```
[R/MapOrDoCall.R:10:52:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/MapOrDoCall.R#L10) *style:* **Variable or function name should be snake_case.**
```r
optimalClusterNum <- function(memRequiredMB = 500, maxNumClusters = 1) {
                                                   ^~~~~~~~~~~~~~
```
[R/MapOrDoCall.R:12:5:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/MapOrDoCall.R#L12) *style:* **Variable or function name should be snake_case.**
```r
    detectedNumCores <- parallel::detectCores()
    ^~~~~~~~~~~~~~~~
```
[R/MapOrDoCall.R:13:5:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/MapOrDoCall.R#L13) *style:* **Variable or function name should be snake_case.**
```r
    shouldUseCluster <- (maxNumClusters > 0)
    ^~~~~~~~~~~~~~~~
```
[R/MapOrDoCall.R:20:9:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/MapOrDoCall.R#L20) *style:* **Variable or function name should be snake_case.**
```r
        availMem <- as.numeric(bb[[1]][nzchar(bb[[1]])][7]) # 'available' column
        ^~~~~~~~
```
[R/MapOrDoCall.R:21:9:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/MapOrDoCall.R#L21) *style:* **Variable or function name should be snake_case.**
```r
        numClusters <- floor(min(detectedNumCores, availMem / memRequiredMB))
        ^~~~~~~~~~~
```
[R/MapOrDoCall.R:24:9:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/MapOrDoCall.R#L24) *style:* **Variable or function name should be snake_case.**
```r
        numClusters <- 1
        ^~~~~~~~~~~
```
[R/MapOrDoCall.R:26:7:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/MapOrDoCall.R#L26) *style:* **Variable or function name should be snake_case.**
```r
      numClusters <- min(maxNumClusters, numClusters, detectedNumCores)
      ^~~~~~~~~~~
```
[R/MapOrDoCall.R:28:7:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/MapOrDoCall.R#L28) *style:* **Variable or function name should be snake_case.**
```r
      numClusters <- 1
      ^~~~~~~~~~~
```
[R/MapOrDoCall.R:32:5:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/MapOrDoCall.R#L32) *style:* **Variable or function name should be snake_case.**
```r
    numClusters <- 1
    ^~~~~~~~~~~
```
[R/MapOrDoCall.R:54:1:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/MapOrDoCall.R#L54) *style:* **Lines should not be more than 80 characters.**
```r
makeOptimalCluster <- function(useParallel = getOption("pemisc.useParallel", FALSE),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/MapOrDoCall.R:54:1:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/MapOrDoCall.R#L54) *style:* **Variable or function name should be snake_case.**
```r
makeOptimalCluster <- function(useParallel = getOption("pemisc.useParallel", FALSE),
^~~~~~~~~~~~~~~~~~
```
[R/MapOrDoCall.R:54:32:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/MapOrDoCall.R#L54) *style:* **Variable or function name should be snake_case.**
```r
makeOptimalCluster <- function(useParallel = getOption("pemisc.useParallel", FALSE),
                               ^~~~~~~~~~~
```
[R/MapOrDoCall.R:55:32:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/MapOrDoCall.R#L55) *style:* **Variable or function name should be snake_case.**
```r
                               MBper = 5e2,
                               ^~~~~
```
[R/MapOrDoCall.R:56:32:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/MapOrDoCall.R#L56) *style:* **Variable or function name should be snake_case.**
```r
                               maxNumClusters = parallel::detectCores(), ...) {
                               ^~~~~~~~~~~~~~
```
[R/MapOrDoCall.R:58:32:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/MapOrDoCall.R#L58) *style:* **Variable or function name should be snake_case.**
```r
  if (is.null(maxNumClusters)) maxNumClusters = parallel::detectCores()
                               ^~~~~~~~~~~~~~
```
[R/MapOrDoCall.R:58:47:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/MapOrDoCall.R#L58) *style:* **Use <-, not =, for assignment.**
```r
  if (is.null(maxNumClusters)) maxNumClusters = parallel::detectCores()
                                              ^
```
[R/MapOrDoCall.R:61:5:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/MapOrDoCall.R#L61) *style:* **Variable or function name should be snake_case.**
```r
    numClus <- if (isTRUE(useParallel)) {
    ^~~~~~~
```
[R/MapOrDoCall.R:62:7:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/MapOrDoCall.R#L62) *style:* **Variable or function name should be snake_case.**
```r
      numClus <- optimalClusterNum(MBper, maxNumClusters = maxNumClusters)
      ^~~~~~~
```
[R/MapOrDoCall.R:62:18:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/MapOrDoCall.R#L62) *warning:* **no visible global function definition for ‘optimalClusterNum’**
```r
      numClus <- optimalClusterNum(MBper, maxNumClusters = maxNumClusters)
                 ^~~~~~~~~~~~~~~~~
```
[R/MapOrDoCall.R:64:9:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/MapOrDoCall.R#L64) *style:* **Variable or function name should be snake_case.**
```r
        numClus <- NULL
        ^~~~~~~
```
[R/MapOrDoCall.R:72:13:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/MapOrDoCall.R#L72) *warning:* **no visible global function definition for ‘makeForkClusterRandom’**
```r
      cl <- makeForkClusterRandom(numClus, ...)
            ^~~~~~~~~~~~~~~~~~~~~
```
[R/MapOrDoCall.R:91:1:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/MapOrDoCall.R#L91) *style:* **Variable or function name should be snake_case.**
```r
makeForkClusterRandom <- function(..., iseed = NULL) {
^~~~~~~~~~~~~~~~~~~~~
```
[R/MapOrDoCall.R:96:3:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/MapOrDoCall.R#L96) *warning:* **no visible global function definition for ‘checkPath’**
```r
  checkPath(dirname(dots$outfile), create = TRUE)
  ^~~~~~~~~
```
[R/MapOrDoCall.R:98:1:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/MapOrDoCall.R#L98) *style:* **Lines should not be more than 80 characters.**
```r
    cat(file = dots$outfile, "------------------------------------------------------------")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/MapOrDoCall.R:99:17:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/MapOrDoCall.R#L99) *warning:* **no visible binding for global variable ‘makeForkCluster’**
```r
  cl <- do.call(makeForkCluster, args = dots)
                ^~~~~~~~~~~~~~~
```
[R/MapOrDoCall.R:100:52:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/MapOrDoCall.R#L100) *style:* **Commas should always have a space after.**
```r
  message("  Starting a cluster with ", length(cl)," threads")
                                                   ^
```
[R/MapOrDoCall.R:101:1:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/MapOrDoCall.R#L101) *style:* **Lines should not be more than 80 characters.**
```r
  message("    Log file is ", dots$outfile, ". To prevent log file, pass outfile = ''")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/MapOrDoCall.R:102:3:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/MapOrDoCall.R#L102) *warning:* **no visible global function definition for ‘clusterSetRNGStream’**
```r
  clusterSetRNGStream(cl, iseed = iseed)
  ^~~~~~~~~~~~~~~~~~~
```
[R/MapOrDoCall.R:128:1:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/MapOrDoCall.R#L128) *style:* **Variable or function name should be snake_case.**
```r
getLocalArgsFor <- function(fn, localFormalArgs, envir, dots) {
^~~~~~~~~~~~~~~
```
[R/MapOrDoCall.R:128:33:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/MapOrDoCall.R#L128) *style:* **Variable or function name should be snake_case.**
```r
getLocalArgsFor <- function(fn, localFormalArgs, envir, dots) {
                                ^~~~~~~~~~~~~~~
```
[R/MapOrDoCall.R:133:5:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/MapOrDoCall.R#L133) *style:* **Variable or function name should be snake_case.**
```r
    localFormalArgs <- ls(envir = envir)
    ^~~~~~~~~~~~~~~
```
[R/MapOrDoCall.R:145:3:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/MapOrDoCall.R#L145) *style:* **Variable or function name should be snake_case.**
```r
  localFormals <- if (length(fn) > 1) {
  ^~~~~~~~~~~~
```
[R/MapOrDoCall.R:153:3:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/MapOrDoCall.R#L153) *style:* **Variable or function name should be snake_case.**
```r
  objsFromLocal <- mget(localFormals, envir = envir)
  ^~~~~~~~~~~~~
```
[R/MapOrDoCall.R:182:1:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/MapOrDoCall.R#L182) *style:* **Variable or function name should be snake_case.**
```r
identifyVectorArgs <- function(fn, localFormalArgs, envir, dots) {
^~~~~~~~~~~~~~~~~~
```
[R/MapOrDoCall.R:182:36:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/MapOrDoCall.R#L182) *style:* **Variable or function name should be snake_case.**
```r
identifyVectorArgs <- function(fn, localFormalArgs, envir, dots) {
                                   ^~~~~~~~~~~~~~~
```
[R/MapOrDoCall.R:183:3:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/MapOrDoCall.R#L183) *style:* **Variable or function name should be snake_case.**
```r
  allArgs <- getLocalArgsFor(fn, localFormalArgs, envir = envir, dots = dots)
  ^~~~~~~
```
[R/MapOrDoCall.R:183:14:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/MapOrDoCall.R#L183) *warning:* **no visible global function definition for ‘getLocalArgsFor’**
```r
  allArgs <- getLocalArgsFor(fn, localFormalArgs, envir = envir, dots = dots)
             ^~~~~~~~~~~~~~~
```
[R/MapOrDoCall.R:186:1:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/MapOrDoCall.R#L186) *style:* **Lines should not be more than 80 characters.**
```r
  specialTypes = c("environment", "SpatialPolygons", "RasterLayer", "RasterStack", "RasterBrick")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/MapOrDoCall.R:186:3:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/MapOrDoCall.R#L186) *style:* **Variable or function name should be snake_case.**
```r
  specialTypes = c("environment", "SpatialPolygons", "RasterLayer", "RasterStack", "RasterBrick")
  ^~~~~~~~~~~~
```
[R/MapOrDoCall.R:186:16:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/MapOrDoCall.R#L186) *style:* **Use <-, not =, for assignment.**
```r
  specialTypes = c("environment", "SpatialPolygons", "RasterLayer", "RasterStack", "RasterBrick")
               ^
```
[R/MapOrDoCall.R:187:1:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/MapOrDoCall.R#L187) *style:* **Lines should not be more than 80 characters.**
```r
  lengthOne <- unlist(lapply(allArgs, is.null)) | unlist(lapply(allArgs, function(x) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/MapOrDoCall.R:187:3:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/MapOrDoCall.R#L187) *style:* **Variable or function name should be snake_case.**
```r
  lengthOne <- unlist(lapply(allArgs, is.null)) | unlist(lapply(allArgs, function(x) {
  ^~~~~~~~~
```
[R/MapOrDoCall.R:194:5:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/MapOrDoCall.R#L194) *style:* **Variable or function name should be snake_case.**
```r
    argsSingle <- allArgs[lengthOne]
    ^~~~~~~~~~
```
[R/MapOrDoCall.R:195:5:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/MapOrDoCall.R#L195) *style:* **Variable or function name should be snake_case.**
```r
    argsMulti <- allArgs[!lengthOne]
    ^~~~~~~~~
```
[R/MapOrDoCall.R:197:5:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/MapOrDoCall.R#L197) *style:* **Variable or function name should be snake_case.**
```r
    argsSingle <- list()
    ^~~~~~~~~~
```
[R/MapOrDoCall.R:198:5:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/MapOrDoCall.R#L198) *style:* **Variable or function name should be snake_case.**
```r
    argsMulti <- allArgs
    ^~~~~~~~~
```
[R/MapOrDoCall.R:223:1:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/MapOrDoCall.R#L223) *style:* **Variable or function name should be snake_case.**
```r
MapOrDoCall <- function(fn, multiple, single, useCache, cl = NULL) {
^~~~~~~~~~~
```
[R/MapOrDoCall.R:223:47:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/MapOrDoCall.R#L223) *style:* **Variable or function name should be snake_case.**
```r
MapOrDoCall <- function(fn, multiple, single, useCache, cl = NULL) {
                                              ^~~~~~~~
```
[R/MapOrDoCall.R:232:20:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/MapOrDoCall.R#L232) *warning:* **no visible binding for global variable ‘Cache’**
```r
    obj <- do.call(Cache, args = append(list(fn), single))
                   ^~~~~
```
[R/MapOrDoCall.R:248:1:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/MapOrDoCall.R#L248) *style:* **Variable or function name should be snake_case.**
```r
Map2 <- function(..., cl = NULL) {
^~~~
```
[R/MapOrDoCall.R:250:3:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/MapOrDoCall.R#L250) *style:* **Variable or function name should be snake_case.**
```r
  formsMap <- fnicd(mapply, ...)
  ^~~~~~~~
```
[R/MapOrDoCall.R:251:3:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/MapOrDoCall.R#L251) *style:* **Variable or function name should be snake_case.**
```r
  formsClusterMap <- fnicd(clusterMap, ...)
  ^~~~~~~~~~~~~~~
```
[R/MapOrDoCall.R:251:28:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/MapOrDoCall.R#L251) *warning:* **no visible binding for global variable ‘clusterMap’**
```r
  formsClusterMap <- fnicd(clusterMap, ...)
                           ^~~~~~~~~~
```
[R/MapOrDoCall.R:253:5:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/MapOrDoCall.R#L253) *style:* **Variable or function name should be snake_case.**
```r
    argList <- list(...)
    ^~~~~~~
```
[R/MapOrDoCall.R:254:5:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/MapOrDoCall.R#L254) *style:* **Variable or function name should be snake_case.**
```r
    wrongFun1 <- "fun" %in% names(argList)
    ^~~~~~~~~
```
[R/MapOrDoCall.R:258:5:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/MapOrDoCall.R#L258) *style:* **Variable or function name should be snake_case.**
```r
    wrongFun2 <- "FUN" %in% names(argList)
    ^~~~~~~~~
```
[R/MapOrDoCall.R:268:5:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/MapOrDoCall.R#L268) *style:* **Variable or function name should be snake_case.**
```r
    argList <- list(...)
    ^~~~~~~
```
[R/MapOrDoCall.R:269:5:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/MapOrDoCall.R#L269) *style:* **Variable or function name should be snake_case.**
```r
    wrongFun1 <- "f" %in% names(argList)
    ^~~~~~~~~
```
[R/MapOrDoCall.R:273:5:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/MapOrDoCall.R#L273) *style:* **Variable or function name should be snake_case.**
```r
    wrongFun2 <- "FUN" %in% names(argList)
    ^~~~~~~~~
```
[R/MapOrDoCall.R:281:13:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/MapOrDoCall.R#L281) *warning:* **no visible binding for global variable ‘clusterMap’**
```r
    do.call(clusterMap, append(list(cl = cl), argList))
            ^~~~~~~~~~
```
[R/maps.R:16:1:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L16) *style:* **Variable or function name should be snake_case.**
```r
defineFlammable <- function(LandCoverClassifiedMap = NULL,
^~~~~~~~~~~~~~~
```
[R/maps.R:16:29:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L16) *style:* **Variable or function name should be snake_case.**
```r
defineFlammable <- function(LandCoverClassifiedMap = NULL,
                            ^~~~~~~~~~~~~~~~~~~~~~
```
[R/maps.R:17:29:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L17) *style:* **Variable or function name should be snake_case.**
```r
                            nonFlammClasses = c(36L, 37L, 38L, 39L),
                            ^~~~~~~~~~~~~~~
```
[R/maps.R:27:1:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L27) *style:* **Lines should not be more than 80 characters.**
```r
    stop("Need nonFlammClasses, which are the classes that cannot burn in the LandCoverClassifiedMap")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/maps.R:29:15:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L29) *warning:* **no visible global function definition for ‘minValue’**
```r
  oldClass <- minValue(LandCoverClassifiedMap):maxValue(LandCoverClassifiedMap)
              ^~~~~~~~
```
[R/maps.R:29:48:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L29) *warning:* **no visible global function definition for ‘maxValue’**
```r
  oldClass <- minValue(LandCoverClassifiedMap):maxValue(LandCoverClassifiedMap)
                                               ^~~~~~~~
```
[R/maps.R:30:1:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L30) *style:* **Lines should not be more than 80 characters.**
```r
  newClass <- ifelse(oldClass %in% nonFlammClasses, 0L, 1L) ## NOTE: 0 codes for NON-flammable
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/maps.R:30:3:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L30) *style:* **Variable or function name should be snake_case.**
```r
  newClass <- ifelse(oldClass %in% nonFlammClasses, 0L, 1L) ## NOTE: 0 codes for NON-flammable
  ^~~~~~~~
```
[R/maps.R:32:3:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L32) *style:* **Variable or function name should be snake_case.**
```r
  flammableTable <- cbind(oldClass, newClass)
  ^~~~~~~~~~~~~~
```
[R/maps.R:34:3:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L34) *style:* **Variable or function name should be snake_case.**
```r
  rstFlammable <- ratify(reclassify(LandCoverClassifiedMap, flammableTable))
  ^~~~~~~~~~~~
```
[R/maps.R:34:19:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L34) *warning:* **no visible global function definition for ‘ratify’**
```r
  rstFlammable <- ratify(reclassify(LandCoverClassifiedMap, flammableTable))
                  ^~~~~~
```
[R/maps.R:34:26:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L34) *warning:* **no visible global function definition for ‘reclassify’**
```r
  rstFlammable <- ratify(reclassify(LandCoverClassifiedMap, flammableTable))
                         ^~~~~~~~~~
```
[R/maps.R:36:1:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L36) *style:* **Lines should not be more than 80 characters.**
```r
    rstFlammable <- writeRaster(rstFlammable, filename = filename2, overwrite = TRUE)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/maps.R:36:5:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L36) *style:* **Variable or function name should be snake_case.**
```r
    rstFlammable <- writeRaster(rstFlammable, filename = filename2, overwrite = TRUE)
    ^~~~~~~~~~~~
```
[R/maps.R:38:3:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L38) *warning:* **no visible global function definition for ‘setColors<-’**
```r
  setColors(rstFlammable, n = 2) <- colorRampPalette(c("blue", "red"))(2)
  ^~~~~~~~~
```
[R/maps.R:57:1:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L57) *style:* **Variable or function name should be snake_case.**
```r
prepInputsLCC <- function(year = 2005,
^~~~~~~~~~~~~
```
[R/maps.R:58:27:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L58) *style:* **Variable or function name should be snake_case.**
```r
                          destinationPath = ".",
                          ^~~~~~~~~~~~~~~
```
[R/maps.R:59:27:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L59) *style:* **Variable or function name should be snake_case.**
```r
                          studyArea = NULL,
                          ^~~~~~~~~
```
[R/maps.R:60:27:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L60) *style:* **Variable or function name should be snake_case.**
```r
                          rasterToMatch = NULL,
                          ^~~~~~~~~~~~~
```
[R/maps.R:66:1:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L66) *style:* **Lines should not be more than 80 characters.**
```r
      url <- "ftp://ftp.ccrs.nrcan.gc.ca/ad/NLCCLandCover/LandcoverCanada2005_250m/LandCoverOfCanada2005_V1_4.zip"
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/maps.R:67:7:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L67) *style:* **Variable or function name should be snake_case.**
```r
      LCCfilename <- asPath("LCC2005_V1_4a.tif")
      ^~~~~~~~~~~
```
[R/maps.R:67:22:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L67) *warning:* **no visible global function definition for ‘asPath’**
```r
      LCCfilename <- asPath("LCC2005_V1_4a.tif")
                     ^~~~~~
```
[R/maps.R:69:1:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L69) *style:* **Lines should not be more than 80 characters.**
```r
      stop("don't have the url for LCC2010 yet. Please find it and pass it as url = 'TheFTPAddress'")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/maps.R:98:1:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L98) *style:* **Variable or function name should be snake_case.**
```r
makeVegTypeMap <- function(speciesStack, vegLeadingProportion, mixed = TRUE) {
^~~~~~~~~~~~~~
```
[R/maps.R:98:28:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L98) *style:* **Variable or function name should be snake_case.**
```r
makeVegTypeMap <- function(speciesStack, vegLeadingProportion, mixed = TRUE) {
                           ^~~~~~~~~~~~
```
[R/maps.R:98:42:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L98) *style:* **Variable or function name should be snake_case.**
```r
makeVegTypeMap <- function(speciesStack, vegLeadingProportion, mixed = TRUE) {
                                         ^~~~~~~~~~~~~~~~~~~~
```
[R/maps.R:99:3:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L99) *style:* **Variable or function name should be snake_case.**
```r
  sumVegPct <- sum(speciesStack, na.rm = TRUE)
  ^~~~~~~~~
```
[R/maps.R:101:1:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L101) *style:* **Lines should not be more than 80 characters.**
```r
  # create "mixed" layer, which is given a value slightly higher than any other layer
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/maps.R:103:16:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L103) *style:* **Variable or function name should be snake_case.**
```r
  speciesStack$Mixed <- all(speciesStack / sumVegPct < vegLeadingProportion) *
               ^~~~~
```
[R/maps.R:105:3:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L105) *style:* **Variable or function name should be snake_case.**
```r
  vegTypeMap <- raster::which.max(speciesStack)
  ^~~~~~~~~~
```
[R/maps.R:106:3:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L106) *style:* **Variable or function name should be snake_case.**
```r
  layerNames <- names(speciesStack)
  ^~~~~~~~~~
```
[R/maps.R:108:1:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L108) *style:* **Lines should not be more than 80 characters.**
```r
  levels(vegTypeMap) <- data.frame(ID = seq(layerNames), Species = names(layerNames))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/maps.R:140:1:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L140) *style:* **Variable or function name should be snake_case.**
```r
loadkNNSpeciesLayers <- function(dPath, rasterToMatch, studyArea,
^~~~~~~~~~~~~~~~~~~~
```
[R/maps.R:140:34:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L140) *style:* **Variable or function name should be snake_case.**
```r
loadkNNSpeciesLayers <- function(dPath, rasterToMatch, studyArea,
                                 ^~~~~
```
[R/maps.R:140:41:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L140) *style:* **Variable or function name should be snake_case.**
```r
loadkNNSpeciesLayers <- function(dPath, rasterToMatch, studyArea,
                                        ^~~~~~~~~~~~~
```
[R/maps.R:140:56:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L140) *style:* **Variable or function name should be snake_case.**
```r
loadkNNSpeciesLayers <- function(dPath, rasterToMatch, studyArea,
                                                       ^~~~~~~~~
```
[R/maps.R:141:1:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L141) *style:* **Lines should not be more than 80 characters.**
```r
                                 speciesList = NULL, thresh = 1, url, cachePath, ...) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/maps.R:141:34:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L141) *style:* **Variable or function name should be snake_case.**
```r
                                 speciesList = NULL, thresh = 1, url, cachePath, ...) {
                                 ^~~~~~~~~~~
```
[R/maps.R:141:71:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L141) *style:* **Variable or function name should be snake_case.**
```r
                                 speciesList = NULL, thresh = 1, url, cachePath, ...) {
                                                                      ^~~~~~~~~
```
[R/maps.R:144:1:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L144) *style:* **Lines should not be more than 80 characters.**
```r
    if (!setequal(colnames(speciesList), c("speciesNamesRaw", "speciesNamesEnd")))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/maps.R:149:1:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L149) *style:* **Lines should not be more than 80 characters.**
```r
  # Changed by Eliot Oct 20 2018 -- can't start with untar because tar file may not be present
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/maps.R:151:25:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L151) *warning:* **no visible global function definition for ‘ncell’, Did you mean 'call'?**
```r
    paste0(as.character(ncell(rasterToMatch)), "px")
                        ^~~~~
```
[R/maps.R:158:3:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L158) *style:* **Variable or function name should be snake_case.**
```r
  kNNnames <- lapply(strsplit(speciesList[,1], "_"), function(x) {
  ^~~~~~~~
```
[R/maps.R:158:44:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L158) *style:* **Commas should always have a space after.**
```r
  kNNnames <- lapply(strsplit(speciesList[,1], "_"), function(x) {
                                           ^
```
[R/maps.R:163:3:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L163) *style:* **Variable or function name should be snake_case.**
```r
  kNNnames <- sapply(kNNnames, function(x) paste(x, collapse = "_"))
  ^~~~~~~~
```
[R/maps.R:166:1:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L166) *style:* **Lines should not be more than 80 characters.**
```r
  species1 <- Cache(knnLoadFun, url = url, spp = speciesList, #[, "speciesNamesRaw"],
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/maps.R:175:14:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L175) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
  if (FALSE) { # TODO: This no longer does all species
             ^
```
[R/maps.R:176:1:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L176) *style:* **Lines should not be more than 80 characters.**
```r
    allSpp <- Cache(untar, tarfile = file.path(dPath, "kNN-Species.tar"), list = TRUE)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/maps.R:176:5:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L176) *style:* **Variable or function name should be snake_case.**
```r
    allSpp <- Cache(untar, tarfile = file.path(dPath, "kNN-Species.tar"), list = TRUE)
    ^~~~~~
```
[R/maps.R:177:5:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L177) *style:* **Variable or function name should be snake_case.**
```r
    allSpp <- allSpp %>%
    ^~~~~~
```
[R/maps.R:184:27:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L184) *style:* **Commas should always have a space after.**
```r
    if (any(!speciesList[,1] %in% allSpp)) {
                          ^
```
[R/maps.R:185:1:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L185) *style:* **Lines should not be more than 80 characters.**
```r
      warning("Some species not present in kNN database./n  Check if this is correct.")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/maps.R:186:7:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L186) *style:* **Variable or function name should be snake_case.**
```r
      speciesList <- speciesList[speciesList[, 1] %in% allSpp,]
      ^~~~~~~~~~~
```
[R/maps.R:186:63:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L186) *style:* **Commas should always have a space after.**
```r
      speciesList <- speciesList[speciesList[, 1] %in% allSpp,]
                                                              ^
```
[R/maps.R:194:1:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L194) *style:* **Lines should not be more than 80 characters.**
```r
    dubs <- unique(speciesList[duplicated(speciesList[, 2]), 2]) ## get the duplicated final names
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/maps.R:196:1:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L196) *style:* **Lines should not be more than 80 characters.**
```r
    ## make a list of species that will be summed (those with duplicated final names)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/maps.R:201:20:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L201) *style:* **Use <-, not =, for assignment.**
```r
    names(spp2sum) = dubs
                   ^
```
[R/maps.R:204:7:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L204) *style:* **Variable or function name should be snake_case.**
```r
      sumSpecies <- spp2sum[[i]]
      ^~~~~~~~~~
```
[R/maps.R:205:7:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L205) *style:* **Variable or function name should be snake_case.**
```r
      newLayerName <- names(spp2sum)[i]
      ^~~~~~~~~~~~
```
[R/maps.R:207:1:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L207) *style:* **Lines should not be more than 80 characters.**
```r
      fname <- .suffix(file.path(dPath, paste0("KNN", newLayerName, ".tif")), suffix)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/maps.R:207:16:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L207) *warning:* **no visible global function definition for ‘.suffix’, Did you mean 'suffix'?**
```r
      fname <- .suffix(file.path(dPath, paste0("KNN", newLayerName, ".tif")), suffix)
               ^~~~~~~
```
[R/maps.R:213:12:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L213) *warning:* **no visible global function definition for ‘raster’, Did you mean 'paste'?**
```r
      a <- raster(fname) ## ensure a gets a filename
           ^~~~~~
```
[R/maps.R:222:3:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L222) *style:* **Variable or function name should be snake_case.**
```r
  nameReplace <- as.matrix(speciesList[, 2])
  ^~~~~~~~~~~
```
[R/maps.R:223:25:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L223) *style:* **Use <-, not =, for assignment.**
```r
  rownames(nameReplace) = speciesList[, 1]
                        ^
```
[R/maps.R:225:3:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L225) *style:* **Variable or function name should be snake_case.**
```r
  toReplace <- names(species1)[names(species1) %in% rownames(nameReplace)]
  ^~~~~~~~~
```
[R/maps.R:228:1:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L228) *style:* **Lines should not be more than 80 characters.**
```r
  ## remove layers that have less data than thresh (i.e. spp absent in study area)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/maps.R:230:1:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L230) *style:* **Lines should not be more than 80 characters.**
```r
  layerData <- Cache(sapply, X = species1, function(x) sum(x[] > 0, na.rm = TRUE))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/maps.R:230:3:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L230) *style:* **Variable or function name should be snake_case.**
```r
  layerData <- Cache(sapply, X = species1, function(x) sum(x[] > 0, na.rm = TRUE))
  ^~~~~~~~~
```
[R/maps.R:230:16:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L230) *warning:* **no visible global function definition for ‘Cache’**
```r
  layerData <- Cache(sapply, X = species1, function(x) sum(x[] > 0, na.rm = TRUE))
               ^~~~~
```
[R/maps.R:233:3:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L233) *style:* **Variable or function name should be snake_case.**
```r
  belowThresh <- layerData < thresh
  ^~~~~~~~~~~
```
[R/maps.R:250:1:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L250) *style:* **Lines should not be more than 80 characters.**
```r
sumRastersBySpecies <- function(speciesLayers, layersToSum, filenameToSave, newLayerName) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/maps.R:250:1:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L250) *style:* **Variable or function name should be snake_case.**
```r
sumRastersBySpecies <- function(speciesLayers, layersToSum, filenameToSave, newLayerName) {
^~~~~~~~~~~~~~~~~~~
```
[R/maps.R:250:33:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L250) *style:* **Variable or function name should be snake_case.**
```r
sumRastersBySpecies <- function(speciesLayers, layersToSum, filenameToSave, newLayerName) {
                                ^~~~~~~~~~~~~
```
[R/maps.R:250:48:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L250) *style:* **Variable or function name should be snake_case.**
```r
sumRastersBySpecies <- function(speciesLayers, layersToSum, filenameToSave, newLayerName) {
                                               ^~~~~~~~~~~
```
[R/maps.R:250:61:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L250) *style:* **Variable or function name should be snake_case.**
```r
sumRastersBySpecies <- function(speciesLayers, layersToSum, filenameToSave, newLayerName) {
                                                            ^~~~~~~~~~~~~~
```
[R/maps.R:250:77:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L250) *style:* **Variable or function name should be snake_case.**
```r
sumRastersBySpecies <- function(speciesLayers, layersToSum, filenameToSave, newLayerName) {
                                                                            ^~~~~~~~~~~~
```
[R/maps.R:253:1:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L253) *style:* **Lines should not be more than 80 characters.**
```r
  writeRaster(ras_out, filename = filenameToSave, datatype = "INT2U", overwrite = TRUE)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/maps.R:253:3:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L253) *warning:* **no visible global function definition for ‘writeRaster’**
```r
  writeRaster(ras_out, filename = filenameToSave, datatype = "INT2U", overwrite = TRUE)
  ^~~~~~~~~~~
```
[R/maps.R:269:1:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L269) *style:* **Lines should not be more than 80 characters.**
```r
knnLoadFun <- function(speciesListIndex, spp, suffix, url, dPath, studyArea, rasterToMatch) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/maps.R:269:1:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L269) *style:* **Variable or function name should be snake_case.**
```r
knnLoadFun <- function(speciesListIndex, spp, suffix, url, dPath, studyArea, rasterToMatch) {
^~~~~~~~~~
```
[R/maps.R:269:24:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L269) *style:* **Variable or function name should be snake_case.**
```r
knnLoadFun <- function(speciesListIndex, spp, suffix, url, dPath, studyArea, rasterToMatch) {
                       ^~~~~~~~~~~~~~~~
```
[R/maps.R:269:60:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L269) *style:* **Variable or function name should be snake_case.**
```r
knnLoadFun <- function(speciesListIndex, spp, suffix, url, dPath, studyArea, rasterToMatch) {
                                                           ^~~~~
```
[R/maps.R:269:67:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L269) *style:* **Variable or function name should be snake_case.**
```r
knnLoadFun <- function(speciesListIndex, spp, suffix, url, dPath, studyArea, rasterToMatch) {
                                                                  ^~~~~~~~~
```
[R/maps.R:269:78:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L269) *style:* **Variable or function name should be snake_case.**
```r
knnLoadFun <- function(speciesListIndex, spp, suffix, url, dPath, studyArea, rasterToMatch) {
                                                                             ^~~~~~~~~~~~~
```
[R/maps.R:271:5:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L271) *style:* **Variable or function name should be snake_case.**
```r
    knownSp <- c(
    ^~~~~~~
```
[R/maps.R:294:1:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L294) *style:* **Lines should not be more than 80 characters.**
```r
      "Pinu_Alb", "Pinu_Ban", "Pinu_Con_Lat", "Pinu_Con", "Pinu_Fle", "Pinu_Mon",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/maps.R:315:14:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L315) *warning:* **no visible global function definition for ‘asPath’, Did you mean 'dPath'?**
```r
  archive <- asPath("kNN-Species.tar")
             ^~~~~~
```
[R/maps.R:319:5:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L319) *style:* **Variable or function name should be snake_case.**
```r
    targetFile <- NULL
    ^~~~~~~~~~
```
[R/maps.R:322:5:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L322) *style:* **Variable or function name should be snake_case.**
```r
    tarFile <- prepInputs(
    ^~~~~~~
```
[R/maps.R:332:8:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L332) *style:* **Commented code should be removed.**
```r
      #filename2 = postProcessedFilename
       ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/maps.R:336:1:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L336) *style:* **Lines should not be more than 80 characters.**
```r
    spp <-  matrix(data = rep(spp, 2), nrow = length(spp), ncol = 2, byrow = FALSE)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/maps.R:344:1:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L344) *style:* **Lines should not be more than 80 characters.**
```r
    targetFiles <- paste0("NFI_MODIS250m_kNN_Species_", spp[, "speciesNamesRaw"], "_v0.tif")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/maps.R:344:5:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L344) *style:* **Variable or function name should be snake_case.**
```r
    targetFiles <- paste0("NFI_MODIS250m_kNN_Species_", spp[, "speciesNamesRaw"], "_v0.tif")
    ^~~~~~~~~~~
```
[R/maps.R:347:1:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L347) *style:* **Lines should not be more than 80 characters.**
```r
                      archive2 = paste0("NFI_MODIS250m_kNN_Species_", spp[, "speciesNamesRaw"], "_v0.zip"))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/maps.R:351:3:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L351) *style:* **Variable or function name should be snake_case.**
```r
  postProcessedFilenames <- .suffix(targetFiles, suffix = suffix)
  ^~~~~~~~~~~~~~~~~~~~~~
```
[R/maps.R:351:29:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L351) *warning:* **no visible global function definition for ‘.suffix’, Did you mean 'suffix'?**
```r
  postProcessedFilenames <- .suffix(targetFiles, suffix = suffix)
                            ^~~~~~~
```
[R/maps.R:384:1:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L384) *style:* **Variable or function name should be snake_case.**
```r
overlayStacks <- function(highQualityStack, lowQualityStack, speciesList = NULL,
^~~~~~~~~~~~~
```
[R/maps.R:384:27:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L384) *style:* **Variable or function name should be snake_case.**
```r
overlayStacks <- function(highQualityStack, lowQualityStack, speciesList = NULL,
                          ^~~~~~~~~~~~~~~~
```
[R/maps.R:384:45:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L384) *style:* **Variable or function name should be snake_case.**
```r
overlayStacks <- function(highQualityStack, lowQualityStack, speciesList = NULL,
                                            ^~~~~~~~~~~~~~~
```
[R/maps.R:384:62:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L384) *style:* **Variable or function name should be snake_case.**
```r
overlayStacks <- function(highQualityStack, lowQualityStack, speciesList = NULL,
                                                             ^~~~~~~~~~~
```
[R/maps.R:385:27:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L385) *style:* **Variable or function name should be snake_case.**
```r
                          outputFilenameSuffix = "overlay", destinationPath) {
                          ^~~~~~~~~~~~~~~~~~~~
```
[R/maps.R:385:61:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L385) *style:* **Variable or function name should be snake_case.**
```r
                          outputFilenameSuffix = "overlay", destinationPath) {
                                                            ^~~~~~~~~~~~~~~
```
[R/maps.R:393:5:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L393) *style:* **Variable or function name should be snake_case.**
```r
    hqLarger <- ncell(lowQualityStack) * prod(res(lowQualityStack)) <
    ^~~~~~~~
```
[R/maps.R:401:1:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L401) *style:* **Lines should not be more than 80 characters.**
```r
        message("  ", sp, " extents, or resolution, or projection did not match; ",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/maps.R:403:9:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L403) *style:* **Variable or function name should be snake_case.**
```r
        LQRastName <- basename(tempfile(fileext = ".tif"))
        ^~~~~~~~~~
```
[R/maps.R:405:11:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L405) *style:* **Variable or function name should be snake_case.**
```r
          LQCurName <- basename(tempfile(fileext = ".tif"))
          ^~~~~~~~~
```
[R/maps.R:412:1:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L412) *style:* **Lines should not be more than 80 characters.**
```r
        LQRastInHQcrs <- projectExtent(lowQualityStack, crs = crs(highQualityStack))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/maps.R:412:9:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L412) *style:* **Variable or function name should be snake_case.**
```r
        LQRastInHQcrs <- projectExtent(lowQualityStack, crs = crs(highQualityStack))
        ^~~~~~~~~~~~~
```
[R/maps.R:412:19:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L412) *warning:* **no visible global function definition for ‘crs’, Did you mean 'cars'?**
```r
        LQRastInHQcrs <- projectExtent(lowQualityStack, crs = crs(highQualityStack))
                  ^~~
```
[R/maps.R:412:26:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L412) *warning:* **no visible global function definition for ‘projectExtent’**
```r
        LQRastInHQcrs <- projectExtent(lowQualityStack, crs = crs(highQualityStack))
                         ^~~~~~~~~~~~~
```
[R/maps.R:425:9:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L425) *style:* **Variable or function name should be snake_case.**
```r
        LQRast <- raster(LQRastName)
        ^~~~~~
```
[R/maps.R:425:19:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L425) *warning:* **no visible global function definition for ‘raster’, Did you mean 'paste'?**
```r
        LQRast <- raster(LQRastName)
                  ^~~~~~
```
[R/maps.R:432:11:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L432) *style:* **Variable or function name should be snake_case.**
```r
          tmpHQName <- basename(tempfile(fileext = ".tif"))
          ^~~~~~~~~
```
[R/maps.R:443:11:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L443) *style:* **Variable or function name should be snake_case.**
```r
          HQRast <- raster(tmpHQName)
          ^~~~~~
```
[R/maps.R:443:21:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L443) *warning:* **no visible global function definition for ‘raster’, Did you mean 'paste'?**
```r
          HQRast <- raster(tmpHQName)
                    ^~~~~~
```
[R/maps.R:448:11:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L448) *style:* **Variable or function name should be snake_case.**
```r
          HQRast <- highQualityStack[[sp]]
          ^~~~~~
```
[R/maps.R:451:9:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L451) *style:* **Variable or function name should be snake_case.**
```r
        LQRast <- lowQualityStack[[sp]]
        ^~~~~~
```
[R/maps.R:452:9:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L452) *style:* **Variable or function name should be snake_case.**
```r
        HQRast <- highQualityStack[[sp]]
        ^~~~~~
```
[R/maps.R:456:1:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L456) *style:* **Lines should not be more than 80 characters.**
```r
        stop("Stacks not identical, something is wrong with overlayStack function.")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/maps.R:460:7:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L460) *style:* **Variable or function name should be snake_case.**
```r
      HQRast <- writeRaster(HQRast, datatype = "INT2U",
      ^~~~~~
```
[R/maps.R:468:1:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L468) *style:* **Lines should not be more than 80 characters.**
```r
      if (!exists("HQStack")) HQStack <- stack(HQRast) else HQStack[[sp]] <- HQRast
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/maps.R:468:31:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/maps.R#L468) *style:* **Variable or function name should be snake_case.**
```r
      if (!exists("HQStack")) HQStack <- stack(HQRast) else HQStack[[sp]] <- HQRast
                              ^~~~~~~
```
[R/speciesTable.R:15:1:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/speciesTable.R#L15) *style:* **Variable or function name should be snake_case.**
```r
getSpeciesTable <- function(dPath = tempdir(), cacheTags = NULL) {
^~~~~~~~~~~~~~~
```
[R/speciesTable.R:15:29:](https://github.com/PredictiveEcology/pemisc/blob/a40b073661e8098488d8eaa5766cb965fa0be784/R/speciesTable.R#L15) *style:* **Variable or function name should be snake_case.**
```r
getSpeciesTable <- function(dPath = tempdir(), cacheTags = NULL) {
                            ^~~~~
```


remove empty tag


That atom `:inlline` looks odd :-)


I'm not sure why you made those changes, but it made me research sha1 vs md5. Just a thought.
https://stackoverflow.com/questions/2948156/algorithm-complexity-security-md5-or-sha1


why tho


similar to fonts


Wow, this method chaining for component builder looks great!


Now could not deploy this pull request since it has no files other than the `now.json` file.


@mstembera I had a feeling that I've seen this bench somewhere... :)


In my experiments, this function is called once to follow through this `is...tuple` branch, and another through the parallel `is...dict` branch.


Note that there are three separate places that "expand" tuples.  There feels like a lot of duplication between them, but they are really three separate cases.  One expands just tuple types, another just tuple values, and the third expands both types and values.


So fuckers like me who didn't add their pack get a chance to do so

On Thu, 22 Nov, 2018, 10:23 AM Rupansh Kek <notifications@github.com wrote:

> why tho
>
> —
> You are receiving this because you are subscribed to this thread.
> Reply to this email directly, view it on GitHub
> <https://github.com/skittles9823/SkittBot/commit/368e0bd46a2ef5615fe93d02beda5040f0a4e9dc#commitcomment-31391358>,
> or mute the thread
> <https://github.com/notifications/unsubscribe-auth/AkNw-GMczwp2nmdymV9QSHJQrJNf9lCmks5uxi3TgaJpZM4YuqOX>
> .
>