[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) {
                            ^~~~~
```


@coderAs7 您好，

QMUI 团队 (https://github.com/QMUI) 近期将把 QMUI_iOS 项目 (https://github.com/QMUI/QMUI_iOS) 迁移至 Tencent 官方项目 (https://github.com/Tencent) 。感谢您曾在 Github 上对 QMUI_iOS 项目做出代码贡献 (https://github.com/QMUI/QMUI_iOS/commits?author=949478479) ，现对迁移后的改变做出以下说明：

迁移后，QMUI_iOS 项目整体将归属于 Tencent，项目源代码的著作权声明(Copyright Notice)都将以 Tencent 或其关联企业为主体；
迁移后，QMUI_iOS 项目仍将保留您贡献的代码。
请确认后，在2018年11月30日前回覆是否同意。

感谢您对本项目的贡献与支持。


I would like to ask the 0.9.0 version I imported apex always error, error content see the picture, why?
![1542857832 1](https://user-images.githubusercontent.com/45064825/48880391-3ab99980-ee4b-11e8-80f7-aac1ab9f53ad.jpg)

Best regards
Penny


@xnxin  您好，

QMUI 团队 (https://github.com/QMUI) 近期将把 QMUI_iOS 项目 (https://github.com/QMUI/QMUI_iOS) 迁移至 Tencent 官方项目 (https://github.com/Tencent) 。感谢您曾在 Github 上对 QMUI_iOS 项目做出代码贡献 (https://github.com/QMUI/QMUI_iOS/commits?author=xnxin) ，现对迁移后的改变做出以下说明：

迁移后，QMUI_iOS 项目整体将归属于 Tencent，项目源代码的著作权声明(Copyright Notice)都将以 Tencent 或其关联企业为主体；
迁移后，QMUI_iOS 项目仍将保留您贡献的代码。
请确认后，在2018年11月30日前回覆是否同意。

感谢您对本项目的贡献与支持。


@dashzou 您好，

QMUI 团队 (https://github.com/QMUI) 近期将把 QMUI_iOS 项目 (https://github.com/QMUI/QMUI_iOS) 迁移至 Tencent 官方项目 (https://github.com/Tencent) 。感谢您曾在 Github 上对 QMUI_iOS 项目做出代码贡献 (https://github.com/QMUI/QMUI_iOS/commits?author=dashzou) ，现对迁移后的改变做出以下说明：

迁移后，QMUI_iOS 项目整体将归属于 Tencent，项目源代码的著作权声明(Copyright Notice)都将以 Tencent 或其关联企业为主体；
迁移后，QMUI_iOS 项目仍将保留您贡献的代码。
请确认后，在2018年11月30日前回覆是否同意。

感谢您对本项目的贡献与支持。


Me enredé con las relaciones, pero agregue la tabla empleado al archivo. **Hay que revisar las relaciones**


> 所谓的三家分晋是指韩赵魏三家打败了智国后，三家一起把剩下的晋国土地瓜分了

操作了quote reply，必须让我传附件。
![586186946](https://user-images.githubusercontent.com/43202340/48880445-84a27f80-ee4b-11e8-9a30-fbff57ec9ed6.jpg)


@nero-tang 您好，

QMUI 团队 (https://github.com/QMUI) 近期将把 QMUI_iOS 项目 (https://github.com/QMUI/QMUI_iOS) 迁移至 Tencent 官方项目 (https://github.com/Tencent) 。感谢您曾在 Github 上对 QMUI_iOS 项目做出代码贡献 (https://github.com/QMUI/QMUI_iOS/commits?author=nero-tang) ，现对迁移后的改变做出以下说明：

迁移后，QMUI_iOS 项目整体将归属于 Tencent，项目源代码的著作权声明(Copyright Notice)都将以 Tencent 或其关联企业为主体；
迁移后，QMUI_iOS 项目仍将保留您贡献的代码。
请确认后，在2018年11月30日前回覆是否同意。

感谢您对本项目的贡献与支持。


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

* https://coffeebot.now.sh


Well Done :D


do we need that?


fgdd


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

* https://coffeebot.now.sh


sssss


### Visual regression report:

[![Visual report](https://circleci.com/gh/stevector/nerdologues-d8/2072/artifacts/0/artifacts/backstop_data/bitmaps_test/20181122-034221/failed_diff_0600294051_Blog_post_2_0_document_0_desktop.png)](https://circleci.com/gh/stevector/nerdologues-d8/2072/artifacts/0/artifacts/backstop_data/html_report/index.html)


ff


Подозрительно что в pulse_affect_update() переменная pulse_aff теперь инициализируется, но не используется.


What version of `@types/react` contains 16.6 features but doesn't contain 16.7 features? There is no 16.6 version of `@types/react` in NPM.


Hey!
Trying to run the python script from within the Spyder editor.
But i don't succed in doing this, i only get the following result =>
![cubicequationsolver](https://user-images.githubusercontent.com/8062795/48880738-0d9cc500-ee12-11e8-9d4b-044839c6031a.png)

![skaermbillede 2018-11-22 04 14 41](https://user-images.githubusercontent.com/8062795/48880569-6ddf3700-ee11-11e8-9e92-529b5283f5be.png)


This upstream version of Cyrus SASL appears to have applied this patch, thus it is no longer needed in the OpenWrt package definition.


training


Vito culiao arregla tu wea


Maybe you are just missing this to make it work:
`minorsafe &= ~pos.pieces(Them);`


@maximbaz Even though different use cases, Would it helpful if we make this configurable ? similar to `SPACESHIP_RUST_VERBOSE_VERSION` or `SPACESHIP_DOCKER_VERBOSE`.


addQuoted


Да, это ошибка. Спасибо. Когда правил эту функцию, ещё не пришло понимание, что `affected` может просто правиться снаружи, а не работать лишь по принципу добавить/удалить аффект.


this also works:
dir: static string


Закоммитил правку в ревизии 7a190a8c7b282676cb4d90389b2832687f2a427c.


use `os` module to keep this as cross platform as possible, eg:
```
result = inc /  path
```
- [ ] why `replace("\\", "/")` ? (eg on windows?)


video/