[R/chooseName.R:11:1:](https://github.com/PredictiveEcology/pemisc/blob/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/R/maps.R#L201) *style:* **Use <-, not =, for assignment.**
```r
    names(spp2sum) = dubs
                   ^
```
[R/maps.R:204:7:](https://github.com/PredictiveEcology/pemisc/blob/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/R/maps.R#L332) *style:* **Commented code should be removed.**
```r
      #filename2 = postProcessedFilename
       ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/maps.R:336:1:](https://github.com/PredictiveEcology/pemisc/blob/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/R/maps.R#L351) *warning:* **no visible global function definition for ‘.suffix’, Did you mean 'suffix'?**
```r
  postProcessedFilenames <- .suffix(targetFiles, suffix = suffix)
                            ^~~~~~~
```
[R/speciesTable.R:15:1:](https://github.com/PredictiveEcology/pemisc/blob/025c42f46ba27eaf3721dc95249558e20084b6ff/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/025c42f46ba27eaf3721dc95249558e20084b6ff/R/speciesTable.R#L15) *style:* **Variable or function name should be snake_case.**
```r
getSpeciesTable <- function(dPath = tempdir(), cacheTags = NULL) {
                            ^~~~~
```
[R/speciesTable.R:15:48:](https://github.com/PredictiveEcology/pemisc/blob/025c42f46ba27eaf3721dc95249558e20084b6ff/R/speciesTable.R#L15) *style:* **Variable or function name should be snake_case.**
```r
getSpeciesTable <- function(dPath = tempdir(), cacheTags = NULL) {
                                               ^~~~~~~~~
```
[R/speciesTable.R:17:3:](https://github.com/PredictiveEcology/pemisc/blob/025c42f46ba27eaf3721dc95249558e20084b6ff/R/speciesTable.R#L17) *style:* **Variable or function name should be snake_case.**
```r
  speciesTable <- Cache(prepInputs, "speciesTraits.csv",
  ^~~~~~~~~~~~
```
[R/speciesTable.R:43:1:](https://github.com/PredictiveEcology/pemisc/blob/025c42f46ba27eaf3721dc95249558e20084b6ff/R/speciesTable.R#L43) *style:* **Variable or function name should be snake_case.**
```r
prepSpeciesTable <- function(speciesTable, speciesList, speciesLayers) {
^~~~~~~~~~~~~~~~
```
[R/speciesTable.R:43:30:](https://github.com/PredictiveEcology/pemisc/blob/025c42f46ba27eaf3721dc95249558e20084b6ff/R/speciesTable.R#L43) *style:* **Variable or function name should be snake_case.**
```r
prepSpeciesTable <- function(speciesTable, speciesList, speciesLayers) {
                             ^~~~~~~~~~~~
```
[R/speciesTable.R:43:44:](https://github.com/PredictiveEcology/pemisc/blob/025c42f46ba27eaf3721dc95249558e20084b6ff/R/speciesTable.R#L43) *style:* **Variable or function name should be snake_case.**
```r
prepSpeciesTable <- function(speciesTable, speciesList, speciesLayers) {
                                           ^~~~~~~~~~~
```
[R/speciesTable.R:43:57:](https://github.com/PredictiveEcology/pemisc/blob/025c42f46ba27eaf3721dc95249558e20084b6ff/R/speciesTable.R#L43) *style:* **Variable or function name should be snake_case.**
```r
prepSpeciesTable <- function(speciesTable, speciesList, speciesLayers) {
                                                        ^~~~~~~~~~~~~
```
[R/speciesTable.R:64:1:](https://github.com/PredictiveEcology/pemisc/blob/025c42f46ba27eaf3721dc95249558e20084b6ff/R/speciesTable.R#L64) *style:* **Lines should not be more than 80 characters.**
```r
  speciesTable[, ':='(Area = NULL, hardsoft = NULL)] ## hardsoft used in fire model
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/speciesTable.R:64:18:](https://github.com/PredictiveEcology/pemisc/blob/025c42f46ba27eaf3721dc95249558e20084b6ff/R/speciesTable.R#L64) *style:* **Only use double-quotes.**
```r
  speciesTable[, ':='(Area = NULL, hardsoft = NULL)] ## hardsoft used in fire model
                 ^~~~
```
[R/speciesTable.R:64:19:](https://github.com/PredictiveEcology/pemisc/blob/025c42f46ba27eaf3721dc95249558e20084b6ff/R/speciesTable.R#L64) *warning:* **no visible global function definition for ‘:=’, Did you mean ':'?**
```r
  speciesTable[, ':='(Area = NULL, hardsoft = NULL)] ## hardsoft used in fire model
                  ^~
```
[R/speciesTable.R:64:22:](https://github.com/PredictiveEcology/pemisc/blob/025c42f46ba27eaf3721dc95249558e20084b6ff/R/speciesTable.R#L64) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  speciesTable[, ':='(Area = NULL, hardsoft = NULL)] ## hardsoft used in fire model
                     ^
```
[R/speciesTable.R:67:1:](https://github.com/PredictiveEcology/pemisc/blob/025c42f46ba27eaf3721dc95249558e20084b6ff/R/speciesTable.R#L67) *style:* **Lines should not be more than 80 characters.**
```r
                                                  nchar(as.character(speciesTable$species))))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/speciesTable.R:68:18:](https://github.com/PredictiveEcology/pemisc/blob/025c42f46ba27eaf3721dc95249558e20084b6ff/R/speciesTable.R#L68) *style:* **Only use double-quotes.**
```r
  speciesTable[, ':='(species = paste(as.character(substring(species1, 1, 1)),
                 ^~~~
```
[R/speciesTable.R:68:22:](https://github.com/PredictiveEcology/pemisc/blob/025c42f46ba27eaf3721dc95249558e20084b6ff/R/speciesTable.R#L68) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  speciesTable[, ':='(species = paste(as.character(substring(species1, 1, 1)),
                     ^
```
[R/speciesTable.R:69:1:](https://github.com/PredictiveEcology/pemisc/blob/025c42f46ba27eaf3721dc95249558e20084b6ff/R/speciesTable.R#L69) *style:* **Lines should not be more than 80 characters.**
```r
                                      tolower(as.character(substring(species1, 2, nchar(species1)))),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/speciesTable.R:70:1:](https://github.com/PredictiveEcology/pemisc/blob/025c42f46ba27eaf3721dc95249558e20084b6ff/R/speciesTable.R#L70) *style:* **Lines should not be more than 80 characters.**
```r
                                      "_", as.character(substring(species2, 1, 1)),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/speciesTable.R:71:1:](https://github.com/PredictiveEcology/pemisc/blob/025c42f46ba27eaf3721dc95249558e20084b6ff/R/speciesTable.R#L71) *style:* **Lines should not be more than 80 characters.**
```r
                                      tolower(as.character(substring(species2, 2, nchar(species2)))),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/speciesTable.R:74:27:](https://github.com/PredictiveEcology/pemisc/blob/025c42f46ba27eaf3721dc95249558e20084b6ff/R/speciesTable.R#L74) *warning:* **no visible global function definition for ‘toSentenceCase’**
```r
  speciesTable$species <- toSentenceCase(speciesTable$species)
                          ^~~~~~~~~~~~~~
```
[R/speciesTable.R:75:3:](https://github.com/PredictiveEcology/pemisc/blob/025c42f46ba27eaf3721dc95249558e20084b6ff/R/speciesTable.R#L75) *warning:* **no visible binding for global variable ‘species’**
```r
  speciesTable[species == "Pinu_con.con", species := "Pinu_con"]
  ^~~~~~~
```
[R/speciesTable.R:75:3:](https://github.com/PredictiveEcology/pemisc/blob/025c42f46ba27eaf3721dc95249558e20084b6ff/R/speciesTable.R#L75) *warning:* **no visible binding for global variable ‘species’**
```r
  speciesTable[species == "Pinu_con.con", species := "Pinu_con"]
  ^~~~~~~
```
[R/speciesTable.R:75:51:](https://github.com/PredictiveEcology/pemisc/blob/025c42f46ba27eaf3721dc95249558e20084b6ff/R/speciesTable.R#L75) *warning:* **no visible global function definition for ‘:=’, Did you mean ':'?**
```r
  speciesTable[species == "Pinu_con.con", species := "Pinu_con"]
                                                  ^~
```
[R/speciesTable.R:76:3:](https://github.com/PredictiveEcology/pemisc/blob/025c42f46ba27eaf3721dc95249558e20084b6ff/R/speciesTable.R#L76) *warning:* **no visible binding for global variable ‘species’**
```r
  speciesTable[species == "Pinu_con.lat", species := "Pinu_con"]
  ^~~~~~~
```
[R/speciesTable.R:76:3:](https://github.com/PredictiveEcology/pemisc/blob/025c42f46ba27eaf3721dc95249558e20084b6ff/R/speciesTable.R#L76) *warning:* **no visible binding for global variable ‘species’**
```r
  speciesTable[species == "Pinu_con.lat", species := "Pinu_con"]
  ^~~~~~~
```
[R/speciesTable.R:76:51:](https://github.com/PredictiveEcology/pemisc/blob/025c42f46ba27eaf3721dc95249558e20084b6ff/R/speciesTable.R#L76) *warning:* **no visible global function definition for ‘:=’, Did you mean ':'?**
```r
  speciesTable[species == "Pinu_con.lat", species := "Pinu_con"]
                                                  ^~
```
[R/speciesTable.R:77:3:](https://github.com/PredictiveEcology/pemisc/blob/025c42f46ba27eaf3721dc95249558e20084b6ff/R/speciesTable.R#L77) *warning:* **no visible binding for global variable ‘species’**
```r
  speciesTable[species == "Betu_all", species := "Betu_sp"]
  ^~~~~~~
```


Successfully aliased the URL <https://mooven-yhsghkbyxv.now.sh> to the following alias.

* https://mooven.now.sh


I edited last comment


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


@FarazShahid0124  only use single commit for quiz and where is updated HTML file ?


пожалуй, да. Я когда написал тоже подумал, что как-то этот кусок коряво выглядит... только лучше уже ничего не смог придумать...


Ahh, thank you. I'll need to improve my workflow so that doesn't happen.


I wondered! Github is way too complex for non-programmers. To make it easy for yourself and your wife, I highly recommend the Medium edition that comes with 10 users and premium support. It will make it much easier on your end and allows one of our engineers to help your wife with purchasing hardware, setting up your store and a complete training.
For a complete guide on prices and plans please check the following page:
[https://geelus.com/pricing/](https://geelus.com/pricing/)


if you just need to round a value purely for the purpose of outputting it; consider string_format() instead of doing this kind of rounding


Feel free to submit a pull request with the changes :)


@CJ-Wright I was trying to fix an issue by using the following example:

https://github.com/conda-forge/ipython-feedstock/blob/master/recipe/meta.yaml


Yes, I made assumption that there would only be one GUA.  Probably a bad assumption though.


My idea was more like:

```
if ( this.currentProdDbClient)
   this.currentProdDbClient = new ...
}
return this.currentProdDbClient;
```

Then everywhere where you need it:

```
const conn = getProductionConnection()
```

or

```
const conn = await getProductionConnection()
```

or

```
getProductionConnection().then(conn => {

}
```

This way, you're lazy loading it when needed.


Didn't know that, thanks.


yes it would, thanks for reminding me of that.


I agree with you.  I could use the cmdv6= method in the conf file, I think that is a better idea so I am going to back out this change and go with a script.


Может лучше «собрать», создать, звучит как больше технически, наверное мало применимо тут. Возможно я ошибаюсь.


what does mean x and y?