[R/chooseName.R:11:1:](https://github.com/PredictiveEcology/pemisc/blob/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/R/maps.R#L201) *style:* **Use <-, not =, for assignment.**
```r
    names(spp2sum) = dubs
                   ^
```
[R/maps.R:204:7:](https://github.com/PredictiveEcology/pemisc/blob/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/R/maps.R#L332) *style:* **Commented code should be removed.**
```r
      #filename2 = postProcessedFilename
       ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/maps.R:336:1:](https://github.com/PredictiveEcology/pemisc/blob/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/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/8c8e425cb4435e91e8a6af8d0ba3a74890db5a3c/R/speciesTable.R#L15) *style:* **Variable or function name should be snake_case.**
```r
getSpeciesTable <- function(dPath = tempdir(), cacheTags = NULL) {
                            ^~~~~
```


(general nit comment)
IMO `result.len` is more idiomatic than `result.len()`


Successfully aliased the URL <https://coffee-bot-aprwmiiwfx.now.sh> to the following alias.

* https://coffeebot.now.sh


Just wanted to stop by and say that this is pretty cool.


Successfully aliased the URL <https://go-now2-hello-world-eadtd5yqu.now.sh> to the following alias.

* https://go-now2-hello-world.now.sh


Thank you! I don't know if you're in a place that celebrates Thanksgiving, but if so, Happy Thanksgiving!


Copy of this build can be found at
https://www.mewbuilds.com/build/bf94e65780c9034d05106a75f1da97bd7640de35/index.html
                       https://www.cloudflare-ipfs.com/ipfs/QmSCVJghF2XU2qpq6EwUd1XrXFsrpwJCRi8TPNZjHeoNuc


Build version: __`0.10.0-master.403`__ :crossed_fingers: [`master`](https://github.com/streamich/ci-scripts/tree/master) on [*CircleCI*](https://circleci.com/gh/streamich/ci-scripts/403) :tada:


Successfully aliased the URL <https://coffee-bot-hxmrcqkeah.now.sh> to the following alias.

* https://coffeebot.now.sh


> msp430:这个Hex是ccs工程生成的吗？题给的hex文件不是标准的Intel hex文件，标准的hex文件行首以冒号开始这个格式是ida直接可以载入的

是的，我当时也是没调好编译器。。。不过今天又试了下ccs带的GNU编译器生成的hex似乎也不是正常格式的。。。所以我这两天正在看怎么写插件载入这个hex，如果成功会放在这个项目里的


Copy of this build can be found at
https://www.mewbuilds.com/build/f90fce3146bad6cd210554b9a5fa8e18395fa1a8/index.html
                       https://www.cloudflare-ipfs.com/ipfs/QmbrpP9QCPTt8PYJL6QFZYeTNT6z35GQB1RMw43EQshQK3


Build version: __`0.10.0-master.625`__ :crossed_fingers: [`master`](https://github.com/streamich/ci-scripts/tree/master) on [*Travis*](https://travis-ci.org/streamich/ci-scripts/builds/458245764) :tada:


Successfully aliased the URL <https://project-groceries-app-hekalwzkiu.now.sh> to the following alias.

* https://app.projectgroceries.com


```
doAssert not found
continue
```
to make sure path order is irrelevant and there's a single match


change repo name


Successfully aliased the URL <https://coffee-bot-dxxfkcbkvh.now.sh> to the following alias.

* https://coffeebot.now.sh


original upload


This is Branch1


don't joinPath if path.isAbsolute


角色属性面板能加个移速吗？ （全能 精通 暴击 急速……的列表）

昨晚坐个代驾摩托车 跟着别人在大米跳怪 老是跑后面 死了好多次。。。。 后来才发现代驾摩托车只有一半的速度


ail_and_notify occur abort. but I think zero length string is no error in nvmecli.


Interação dos palettes dos gráficos foram corrigidas. Continue...


**Bom dia Marco e Joviane**
Usei o comando `git commit --amend`.
Depois que eu coloquei o arquivo aqui que eu vi que essa era a segunda aula.
Vou colocar lá no fórum uma dúvida que me surgiu agora.


ты добавил комментарий // fall through перед  case APPLY_PR:
А по-моему там fall through ненамеренный, то есть баг.


testing


Doesn't this rename `.rst` to `.tut`?


I tried that at first, but it was still resulting in infinite redirect loop.

On Thu 22 Nov, 2018, 4:10 AM Tom Moor, <notifications@github.com> wrote:

> @satyadeepk <https://github.com/satyadeepk> note: you'd be better off
> ensuring that nginx sets the correct header x-forwarded-proto: https
> header
>
> —
> You are receiving this because you were mentioned.
> Reply to this email directly, view it on GitHub
> <https://github.com/SheroesDev/outline/commit/9ebdabf0adc914ed403492d3ea4abc92684835f8#commitcomment-31389224>,
> or mute the thread
> <https://github.com/notifications/unsubscribe-auth/AAdNclbPxT2F7StHnQy32seyP3MIUIiTks5uxdZggaJpZM4YuUi9>
> .
>
--
Regards,
Satyadeep


Successfully aliased the URL <https://project-groceries-app-yrwmhuhsjm.now.sh> to the following alias.

* https://app.projectgroceries.com


Successfully aliased the URL <https://coffee-bot-dnusaxknls.now.sh> to the following alias.

* https://coffeebot.now.sh