[R/chooseName.R:11:1:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/gis.R#L34) *style:* **Variable or function name should be snake_case.**
```r
polygonClean <- function(poly, fn = NULL, type = NULL, ...) {
^~~~~~~~~~~~
```
[R/gis.R:61:1:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/gis.R#L61) *style:* **Variable or function name should be snake_case.**
```r
makeVegTypeMap <- function(speciesStack, vegLeadingProportion, mixed = TRUE) {
^~~~~~~~~~~~~~
```
[R/gis.R:61:28:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/gis.R#L61) *style:* **Variable or function name should be snake_case.**
```r
makeVegTypeMap <- function(speciesStack, vegLeadingProportion, mixed = TRUE) {
                           ^~~~~~~~~~~~
```
[R/gis.R:61:42:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/gis.R#L61) *style:* **Variable or function name should be snake_case.**
```r
makeVegTypeMap <- function(speciesStack, vegLeadingProportion, mixed = TRUE) {
                                         ^~~~~~~~~~~~~~~~~~~~
```
[R/gis.R:62:3:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/gis.R#L62) *style:* **Variable or function name should be snake_case.**
```r
  sumVegPct <- sum(speciesStack, na.rm = TRUE)
  ^~~~~~~~~
```
[R/gis.R:64:1:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/gis.R#L64) *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/gis.R:66:16:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/gis.R#L66) *style:* **Variable or function name should be snake_case.**
```r
  speciesStack$Mixed <- all(speciesStack / sumVegPct < vegLeadingProportion) *
               ^~~~~
```
[R/gis.R:68:3:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/gis.R#L68) *style:* **Variable or function name should be snake_case.**
```r
  vegTypeMap <- raster::which.max(speciesStack)
  ^~~~~~~~~~
```
[R/gis.R:69:3:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/gis.R#L69) *style:* **Variable or function name should be snake_case.**
```r
  layerNames <- names(speciesStack)
  ^~~~~~~~~~
```
[R/gis.R:71:1:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/gis.R#L71) *style:* **Lines should not be more than 80 characters.**
```r
  levels(vegTypeMap) <- data.frame(ID = seq(layerNames), Species = names(layerNames))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/gis.R:86:1:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/gis.R#L86) *style:* **Variable or function name should be snake_case.**
```r
factorValues2 <- function(x, v, layer, att, append.names, na.rm = FALSE) {
^~~~~~~~~~~~~
```
[R/gis.R:86:45:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/gis.R#L86) *style:* **Variable or function name should be snake_case.**
```r
factorValues2 <- function(x, v, layer, att, append.names, na.rm = FALSE) {
                                            ^~~~~~~~~~~~
```
[R/gis.R:86:59:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/gis.R#L86) *style:* **Variable or function name should be snake_case.**
```r
factorValues2 <- function(x, v, layer, att, append.names, na.rm = FALSE) {
                                                          ^~~~~
```
[R/LCC.R:16:1:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/LCC.R#L16) *style:* **Variable or function name should be snake_case.**
```r
defineFlammable <- function(LandCoverClassifiedMap = NULL,
^~~~~~~~~~~~~~~
```
[R/LCC.R:16:29:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/LCC.R#L16) *style:* **Variable or function name should be snake_case.**
```r
defineFlammable <- function(LandCoverClassifiedMap = NULL,
                            ^~~~~~~~~~~~~~~~~~~~~~
```
[R/LCC.R:17:29:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/LCC.R#L17) *style:* **Variable or function name should be snake_case.**
```r
                            nonFlammClasses = c(36L, 37L, 38L, 39L),
                            ^~~~~~~~~~~~~~~
```
[R/LCC.R:27:1:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/LCC.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/LCC.R:29:15:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/LCC.R#L29) *warning:* **no visible global function definition for ‘minValue’**
```r
  oldClass <- minValue(LandCoverClassifiedMap):maxValue(LandCoverClassifiedMap)
              ^~~~~~~~
```
[R/LCC.R:29:48:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/LCC.R#L29) *warning:* **no visible global function definition for ‘maxValue’**
```r
  oldClass <- minValue(LandCoverClassifiedMap):maxValue(LandCoverClassifiedMap)
                                               ^~~~~~~~
```
[R/LCC.R:30:1:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/LCC.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/LCC.R:30:3:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/LCC.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/LCC.R:32:3:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/LCC.R#L32) *style:* **Variable or function name should be snake_case.**
```r
  flammableTable <- cbind(oldClass, newClass)
  ^~~~~~~~~~~~~~
```
[R/LCC.R:34:3:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/LCC.R#L34) *style:* **Variable or function name should be snake_case.**
```r
  rstFlammable <- ratify(reclassify(LandCoverClassifiedMap, flammableTable))
  ^~~~~~~~~~~~
```
[R/LCC.R:34:19:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/LCC.R#L34) *warning:* **no visible global function definition for ‘ratify’**
```r
  rstFlammable <- ratify(reclassify(LandCoverClassifiedMap, flammableTable))
                  ^~~~~~
```
[R/LCC.R:34:26:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/LCC.R#L34) *warning:* **no visible global function definition for ‘reclassify’**
```r
  rstFlammable <- ratify(reclassify(LandCoverClassifiedMap, flammableTable))
                         ^~~~~~~~~~
```
[R/LCC.R:36:1:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/LCC.R#L36) *style:* **Lines should not be more than 80 characters.**
```r
    rstFlammable <- writeRaster(rstFlammable, filename = filename2, overwrite = TRUE)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/LCC.R:36:5:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/LCC.R#L36) *style:* **Variable or function name should be snake_case.**
```r
    rstFlammable <- writeRaster(rstFlammable, filename = filename2, overwrite = TRUE)
    ^~~~~~~~~~~~
```
[R/LCC.R:38:3:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/LCC.R#L38) *warning:* **no visible global function definition for ‘setColors<-’**
```r
  setColors(rstFlammable, n = 2) <- colorRampPalette(c("blue", "red"))(2)
  ^~~~~~~~~
```
[R/LCC.R:57:1:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/LCC.R#L57) *style:* **Variable or function name should be snake_case.**
```r
prepInputsLCC <- function(year = 2005,
^~~~~~~~~~~~~
```
[R/LCC.R:58:27:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/LCC.R#L58) *style:* **Variable or function name should be snake_case.**
```r
                          destinationPath = ".",
                          ^~~~~~~~~~~~~~~
```
[R/LCC.R:59:27:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/LCC.R#L59) *style:* **Variable or function name should be snake_case.**
```r
                          studyArea = NULL,
                          ^~~~~~~~~
```
[R/LCC.R:60:27:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/LCC.R#L60) *style:* **Variable or function name should be snake_case.**
```r
                          rasterToMatch = NULL,
                          ^~~~~~~~~~~~~
```
[R/LCC.R:66:1:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/LCC.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/LCC.R:67:7:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/LCC.R#L67) *style:* **Variable or function name should be snake_case.**
```r
      LCCfilename <- asPath("LCC2005_V1_4a.tif")
      ^~~~~~~~~~~
```
[R/LCC.R:67:22:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/LCC.R#L67) *warning:* **no visible global function definition for ‘asPath’**
```r
      LCCfilename <- asPath("LCC2005_V1_4a.tif")
                     ^~~~~~
```
[R/LCC.R:69:1:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/LCC.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/LCC.R:111:36:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/LCC.R#L111) *style:* **Variable or function name should be snake_case.**
```r
          definition = function(x, studyArea, ...) {
                                   ^~~~~~~~~
```
[R/LCC.R:124:36:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/LCC.R#L124) *style:* **Variable or function name should be snake_case.**
```r
          definition = function(x, studyArea, rasterToMatch, ...) {
                                   ^~~~~~~~~
```
[R/LCC.R:124:47:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/LCC.R#L124) *style:* **Variable or function name should be snake_case.**
```r
          definition = function(x, studyArea, rasterToMatch, ...) {
                                              ^~~~~~~~~~~~~
```
[R/LCC.R:125:13:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/LCC.R#L125) *style:* **Variable or function name should be snake_case.**
```r
            numPolys <- length(x)
            ^~~~~~~~
```
[R/LCC.R:126:13:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/LCC.R#L126) *style:* **Variable or function name should be snake_case.**
```r
            xDF <- as.data.frame(x)
            ^~~
```
[R/LCC.R:127:15:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/LCC.R#L127) *style:* **Variable or function name should be snake_case.**
```r
            x$numPolys <- seq_len(numPolys)
              ^~~~~~~~
```
[R/LCC.R:128:13:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/LCC.R#L128) *style:* **Variable or function name should be snake_case.**
```r
            xDF <- data.frame(ID = x$numPolys, xDF)
            ^~~
```
[R/MapOrDoCall.R:10:1:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/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/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/MapOrDoCall.R#L281) *warning:* **no visible binding for global variable ‘clusterMap’**
```r
    do.call(clusterMap, append(list(cl = cl), argList))
            ^~~~~~~~~~
```
[R/vegTypeMap.R:17:1:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/vegTypeMap.R#L17) *style:* **Lines should not be more than 80 characters.**
```r
vegTypeMapGenerator <- function(species, cohortdata, pixelGroupMap, vegLeadingProportion) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/vegTypeMap.R:17:1:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/vegTypeMap.R#L17) *style:* **Variable or function name should be snake_case.**
```r
vegTypeMapGenerator <- function(species, cohortdata, pixelGroupMap, vegLeadingProportion) {
^~~~~~~~~~~~~~~~~~~
```
[R/vegTypeMap.R:17:54:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/vegTypeMap.R#L17) *style:* **Variable or function name should be snake_case.**
```r
vegTypeMapGenerator <- function(species, cohortdata, pixelGroupMap, vegLeadingProportion) {
                                                     ^~~~~~~~~~~~~
```
[R/vegTypeMap.R:17:69:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/vegTypeMap.R#L17) *style:* **Variable or function name should be snake_case.**
```r
vegTypeMapGenerator <- function(species, cohortdata, pixelGroupMap, vegLeadingProportion) {
                                                                    ^~~~~~~~~~~~~~~~~~~~
```
[R/vegTypeMap.R:18:1:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/vegTypeMap.R#L18) *style:* **Lines should not be more than 80 characters.**
```r
  species[species == "Pinu_ban" | species == "Pinu_con" | species == "Pinu_sp", speciesGroup := "PINU"]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/vegTypeMap.R:18:81:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/vegTypeMap.R#L18) *style:* **Variable or function name should be snake_case.**
```r
  species[species == "Pinu_ban" | species == "Pinu_con" | species == "Pinu_sp", speciesGroup := "PINU"]
                                                                                ^~~~~~~~~~~~
```
[R/vegTypeMap.R:18:94:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/vegTypeMap.R#L18) *warning:* **no visible global function definition for ‘:=’, Did you mean ':'?**
```r
  species[species == "Pinu_ban" | species == "Pinu_con" | species == "Pinu_sp", speciesGroup := "PINU"]
                                                                                ^~
```
[R/vegTypeMap.R:19:1:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/vegTypeMap.R#L19) *style:* **Lines should not be more than 80 characters.**
```r
  species[species == "Betu_pap" | species == "Popu_bal" | species == "Popu_tre" |
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/vegTypeMap.R:20:36:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/vegTypeMap.R#L20) *style:* **Variable or function name should be snake_case.**
```r
            species == "Lari_lar", speciesGroup := "DECI"]
                                   ^~~~~~~~~~~~
```
[R/vegTypeMap.R:21:33:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/vegTypeMap.R#L21) *style:* **Commas should never have a space before.**
```r
  species[species == "Pice_mar" , speciesGroup := "PICE_MAR"]
                               ~^
```
[R/vegTypeMap.R:21:35:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/vegTypeMap.R#L21) *style:* **Variable or function name should be snake_case.**
```r
  species[species == "Pice_mar" , speciesGroup := "PICE_MAR"]
                                  ^~~~~~~~~~~~
```
[R/vegTypeMap.R:21:48:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/vegTypeMap.R#L21) *warning:* **no visible global function definition for ‘:=’, Did you mean ':'?**
```r
  species[species == "Pice_mar" , speciesGroup := "PICE_MAR"]
                                               ^~
```
[R/vegTypeMap.R:22:34:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/vegTypeMap.R#L22) *style:* **Variable or function name should be snake_case.**
```r
  species[species == "Pice_gla", speciesGroup := "PICE_GLA"]
                                 ^~~~~~~~~~~~
```
[R/vegTypeMap.R:22:47:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/vegTypeMap.R#L22) *warning:* **no visible global function definition for ‘:=’, Did you mean ':'?**
```r
  species[species == "Pice_gla", speciesGroup := "PICE_GLA"]
                                              ^~
```
[R/vegTypeMap.R:23:32:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/vegTypeMap.R#L23) *style:* **Commas should never have a space before.**
```r
  species[species == "Abie_sp" , speciesGroup := "ABIE"]
                              ~^
```
[R/vegTypeMap.R:23:34:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/vegTypeMap.R#L23) *style:* **Variable or function name should be snake_case.**
```r
  species[species == "Abie_sp" , speciesGroup := "ABIE"]
                                 ^~~~~~~~~~~~
```
[R/vegTypeMap.R:23:47:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/vegTypeMap.R#L23) *warning:* **no visible global function definition for ‘:=’, Did you mean ':'?**
```r
  species[species == "Abie_sp" , speciesGroup := "ABIE"]
                                              ^~
```
[R/vegTypeMap.R:25:1:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/vegTypeMap.R#L25) *style:* **Lines should not be more than 80 characters.**
```r
  shortcohortdata <- setkey(cohortdata, speciesCode)[setkey(species[, .(speciesCode, speciesGroup)],
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/vegTypeMap.R:26:1:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/vegTypeMap.R#L26) *style:* **Lines should not be more than 80 characters.**
```r
                                                            speciesCode), nomatch = 0]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/vegTypeMap.R:27:21:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/vegTypeMap.R#L27) *style:* **Variable or function name should be snake_case.**
```r
  shortcohortdata[, totalB := sum(B, na.rm = TRUE), by = pixelGroup]
                    ^~~~~~
```
[R/vegTypeMap.R:27:28:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/vegTypeMap.R#L27) *warning:* **no visible global function definition for ‘:=’, Did you mean ':'?**
```r
  shortcohortdata[, totalB := sum(B, na.rm = TRUE), by = pixelGroup]
                           ^~
```
[R/vegTypeMap.R:31:21:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/vegTypeMap.R#L31) *style:* **Variable or function name should be snake_case.**
```r
  shortcohortdata[, speciesProportion := speciesGroupB / totalB]
                    ^~~~~~~~~~~~~~~~~
```
[R/vegTypeMap.R:31:39:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/vegTypeMap.R#L31) *warning:* **no visible global function definition for ‘:=’, Did you mean ':'?**
```r
  shortcohortdata[, speciesProportion := speciesGroupB / totalB]
                                      ^~
```
[R/vegTypeMap.R:33:3:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/vegTypeMap.R#L33) *style:* **Variable or function name should be snake_case.**
```r
  speciesLeading <- NULL
  ^~~~~~~~~~~~~~
```
[R/vegTypeMap.R:34:3:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/vegTypeMap.R#L34) *style:* **Variable or function name should be snake_case.**
```r
  Factor <- NULL
  ^~~~~~
```
[R/vegTypeMap.R:35:3:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/vegTypeMap.R#L35) *style:* **Variable or function name should be snake_case.**
```r
  ID <- NULL
  ^~
```
[R/vegTypeMap.R:36:3:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/vegTypeMap.R#L36) *style:* **Variable or function name should be snake_case.**
```r
  pixelGroup <- NULL
  ^~~~~~~~~~
```
[R/vegTypeMap.R:37:3:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/vegTypeMap.R#L37) *style:* **Variable or function name should be snake_case.**
```r
  speciesProportion <- NULL
  ^~~~~~~~~~~~~~~~~
```
[R/vegTypeMap.R:38:3:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/vegTypeMap.R#L38) *style:* **Variable or function name should be snake_case.**
```r
  speciesGroup <- NULL
  ^~~~~~~~~~~~
```
[R/vegTypeMap.R:39:3:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/vegTypeMap.R#L39) *style:* **Variable or function name should be snake_case.**
```r
  speciesCode <- NULL
  ^~~~~~~~~~~
```
[R/vegTypeMap.R:40:3:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/vegTypeMap.R#L40) *style:* **Variable or function name should be snake_case.**
```r
  totalB <- NULL
  ^~~~~~
```
[R/vegTypeMap.R:41:3:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/vegTypeMap.R#L41) *style:* **Variable or function name should be snake_case.**
```r
  B <- NULL
  ^
```
[R/vegTypeMap.R:42:3:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/vegTypeMap.R#L42) *style:* **Variable or function name should be snake_case.**
```r
  speciesGroupB <- NULL
  ^~~~~~~~~~~~~
```
[R/vegTypeMap.R:44:1:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/vegTypeMap.R#L44) *style:* **Lines should not be more than 80 characters.**
```r
  shortcohortdata[speciesGroup == "PINU" & speciesProportion > vegLeadingProportion,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/vegTypeMap.R:45:19:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/vegTypeMap.R#L45) *style:* **Variable or function name should be snake_case.**
```r
                  speciesLeading := 1] # pine leading
                  ^~~~~~~~~~~~~~
```
[R/vegTypeMap.R:46:1:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/vegTypeMap.R#L46) *style:* **Lines should not be more than 80 characters.**
```r
  shortcohortdata[speciesGroup == "DECI" & speciesProportion > vegLeadingProportion,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/vegTypeMap.R:47:19:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/vegTypeMap.R#L47) *style:* **Variable or function name should be snake_case.**
```r
                  speciesLeading := 2] # deciduous leading
                  ^~~~~~~~~~~~~~
```
[R/vegTypeMap.R:48:1:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/vegTypeMap.R#L48) *style:* **Lines should not be more than 80 characters.**
```r
  shortcohortdata[speciesGroup == "PICE_MAR" & speciesProportion > vegLeadingProportion,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/vegTypeMap.R:49:19:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/vegTypeMap.R#L49) *style:* **Variable or function name should be snake_case.**
```r
                  speciesLeading := 3] # black spruce leading
                  ^~~~~~~~~~~~~~
```
[R/vegTypeMap.R:50:1:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/vegTypeMap.R#L50) *style:* **Lines should not be more than 80 characters.**
```r
  shortcohortdata[speciesGroup == "PICE_GLA" & speciesProportion > vegLeadingProportion,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/vegTypeMap.R:51:19:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/vegTypeMap.R#L51) *style:* **Variable or function name should be snake_case.**
```r
                  speciesLeading := 4] # white spruce leading
                  ^~~~~~~~~~~~~~
```
[R/vegTypeMap.R:52:42:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/vegTypeMap.R#L52) *style:* **Variable or function name should be snake_case.**
```r
  shortcohortdata[is.na(speciesLeading), speciesLeading := 0]
                                         ^~~~~~~~~~~~~~
```
[R/vegTypeMap.R:52:57:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/vegTypeMap.R#L52) *warning:* **no visible global function definition for ‘:=’, Did you mean ':'?**
```r
  shortcohortdata[is.na(speciesLeading), speciesLeading := 0]
                                                        ^~
```
[R/vegTypeMap.R:53:1:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/vegTypeMap.R#L53) *style:* **Lines should not be more than 80 characters.**
```r
  shortcohortdata[, speciesLeading := max(speciesLeading, na.rm = TRUE), by = pixelGroup]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/vegTypeMap.R:53:21:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/vegTypeMap.R#L53) *style:* **Variable or function name should be snake_case.**
```r
  shortcohortdata[, speciesLeading := max(speciesLeading, na.rm = TRUE), by = pixelGroup]
                    ^~~~~~~~~~~~~~
```
[R/vegTypeMap.R:53:36:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/vegTypeMap.R#L53) *warning:* **no visible global function definition for ‘:=’, Did you mean ':'?**
```r
  shortcohortdata[, speciesLeading := max(speciesLeading, na.rm = TRUE), by = pixelGroup]
                                   ^~
```
[R/vegTypeMap.R:54:1:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/vegTypeMap.R#L54) *style:* **Lines should not be more than 80 characters.**
```r
  shortcohortdata <- unique(shortcohortdata[, .(pixelGroup, speciesLeading)], by = "pixelGroup")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/vegTypeMap.R:54:47:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/vegTypeMap.R#L54) *warning:* **no visible global function definition for ‘.’, Did you mean 'B'?**
```r
  shortcohortdata <- unique(shortcohortdata[, .(pixelGroup, speciesLeading)], by = "pixelGroup")
                                              ^
```
[R/vegTypeMap.R:55:40:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/vegTypeMap.R#L55) *style:* **Variable or function name should be snake_case.**
```r
  shortcohortdata[speciesLeading == 0, speciesLeading := 5] # 5 is mixed forests
                                       ^~~~~~~~~~~~~~
```
[R/vegTypeMap.R:55:55:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/vegTypeMap.R#L55) *warning:* **no visible global function definition for ‘:=’, Did you mean ':'?**
```r
  shortcohortdata[speciesLeading == 0, speciesLeading := 5] # 5 is mixed forests
                                                      ^~
```
[R/vegTypeMap.R:56:17:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/vegTypeMap.R#L56) *warning:* **no visible global function definition for ‘data.table’**
```r
  attritable <- data.table(ID = sort(unique(shortcohortdata$speciesLeading)))
                ^~~~~~~~~~
```
[R/vegTypeMap.R:57:23:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/vegTypeMap.R#L57) *style:* **Variable or function name should be snake_case.**
```r
  attritable[ID == 1, Factor := "Pine leading"]
                      ^~~~~~
```
[R/vegTypeMap.R:57:30:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/vegTypeMap.R#L57) *warning:* **no visible global function definition for ‘:=’, Did you mean ':'?**
```r
  attritable[ID == 1, Factor := "Pine leading"]
                             ^~
```
[R/vegTypeMap.R:58:23:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/vegTypeMap.R#L58) *style:* **Variable or function name should be snake_case.**
```r
  attritable[ID == 2, Factor := "Deciduous leading"]
                      ^~~~~~
```
[R/vegTypeMap.R:58:30:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/vegTypeMap.R#L58) *warning:* **no visible global function definition for ‘:=’, Did you mean ':'?**
```r
  attritable[ID == 2, Factor := "Deciduous leading"]
                             ^~
```
[R/vegTypeMap.R:59:23:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/vegTypeMap.R#L59) *style:* **Variable or function name should be snake_case.**
```r
  attritable[ID == 3, Factor := "Black spruce leading"]
                      ^~~~~~
```
[R/vegTypeMap.R:59:30:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/vegTypeMap.R#L59) *warning:* **no visible global function definition for ‘:=’, Did you mean ':'?**
```r
  attritable[ID == 3, Factor := "Black spruce leading"]
                             ^~
```
[R/vegTypeMap.R:60:23:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/vegTypeMap.R#L60) *style:* **Variable or function name should be snake_case.**
```r
  attritable[ID == 4, Factor := "White spruce leading"]
                      ^~~~~~
```
[R/vegTypeMap.R:60:30:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/vegTypeMap.R#L60) *warning:* **no visible global function definition for ‘:=’, Did you mean ':'?**
```r
  attritable[ID == 4, Factor := "White spruce leading"]
                             ^~
```
[R/vegTypeMap.R:61:23:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/vegTypeMap.R#L61) *style:* **Variable or function name should be snake_case.**
```r
  attritable[ID == 5, Factor := "Mixed"]
                      ^~~~~~
```
[R/vegTypeMap.R:61:30:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/vegTypeMap.R#L61) *warning:* **no visible global function definition for ‘:=’, Did you mean ':'?**
```r
  attritable[ID == 5, Factor := "Mixed"]
                             ^~
```
[R/vegTypeMap.R:62:1:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/vegTypeMap.R#L62) *style:* **Lines should not be more than 80 characters.**
```r
  vegTypeMap <- rasterizeReduced(shortcohortdata, pixelGroupMap, "speciesLeading", "pixelGroup")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/vegTypeMap.R:62:3:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/vegTypeMap.R#L62) *style:* **Variable or function name should be snake_case.**
```r
  vegTypeMap <- rasterizeReduced(shortcohortdata, pixelGroupMap, "speciesLeading", "pixelGroup")
  ^~~~~~~~~~
```
[R/vegTypeMap.R:62:17:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/vegTypeMap.R#L62) *warning:* **no visible global function definition for ‘rasterizeReduced’**
```r
  vegTypeMap <- rasterizeReduced(shortcohortdata, pixelGroupMap, "speciesLeading", "pixelGroup")
                ^~~~~~~~~~~~~~~~
```
[R/vegTypeMap.R:63:3:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/vegTypeMap.R#L63) *style:* **Variable or function name should be snake_case.**
```r
  vegTypeMap <- setValues(vegTypeMap, as.integer(getValues(vegTypeMap)))
  ^~~~~~~~~~
```
[R/vegTypeMap.R:63:17:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/vegTypeMap.R#L63) *warning:* **no visible global function definition for ‘setValues’**
```r
  vegTypeMap <- setValues(vegTypeMap, as.integer(getValues(vegTypeMap)))
                ^~~~~~~~~
```
[R/vegTypeMap.R:63:50:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/vegTypeMap.R#L63) *warning:* **no visible global function definition for ‘getValues’**
```r
  vegTypeMap <- setValues(vegTypeMap, as.integer(getValues(vegTypeMap)))
                                                 ^~~~~~~~~
```
[R/vegTypeMap.R:65:3:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/vegTypeMap.R#L65) *warning:* **no visible global function definition for ‘projection<-’**
```r
  projection(vegTypeMap) <- projection(pixelGroupMap)
  ^~~~~~~~~~
```
[R/vegTypeMap.R:65:3:](https://github.com/PredictiveEcology/pemisc/blob/53394249e8cea1bd0f043015f0f9ff3efcc14539/R/vegTypeMap.R#L65) *warning:* **no visible global function definition for ‘projection’**
```r
  projection(vegTypeMap) <- projection(pixelGroupMap)
  ^~~~~~~~~~
```


This test is a WIP right now


Hú


ok


I clearly don't understand how GitHub works ... but why are we going from version 43 to version 45 when there was a version 44 with a 11Oct18 date? --- Skip


<details>

<summary>Submitting the task to Taskcluster failed. Details</summary>

Client ID project/taskcluster/tc-github/production does not have sufficient scopes and are missing the following scopes:

```
queue:create-task:highest:scriptworker-prov-v1/mobile-beetmover-v1
```

You have the scopes:

```
[
  "assume:project:taskcluster:mozilla-github-repository",
  "assume:repo:github.com/mozilla-mobile/android-components:pull-request",
  "notify:email:*",
  "notify:irc-channel:*",
  "notify:irc-user:*",
  "project:mobile:android-components:releng:beetmover:action:push-to-maven",
  "project:mobile:android-components:releng:beetmover:bucket:maven-snapshot-staging",
  "project:mobile:android-components:releng:beetmover:bucket:maven-staging",
  "queue:create-task:aws-provisioner-v1/github-worker",
  "queue:create-task:aws-provisioner-v1/github-worker-windows",
  "queue:create-task:aws-provisioner-v1/win2012r2",
  "queue:create-task:lowest:aws-provisioner-v1/gecko-focus",
  "queue:create-task:lowest:scriptworker-prov-v1/mobile-beetmover-v1",
  "queue:route:garbage.*",
  "queue:route:index.garbage.*",
  "queue:route:notify.email.*",
  "queue:route:notify.irc-channel.*",
  "queue:route:notify.irc-user.*",
  "queue:scheduler-id:taskcluster-github",
  "secrets:get:garbage/*",
  "secrets:get:project/mobile/android-components/public-tokens",
  "secrets:set:garbage/*"
]
```

This request requires you to satisfy this scope expression:

```
{
  "AllOf": [
    "project:mobile:android-components:releng:beetmover:action:push-to-maven",
    "project:mobile:android-components:releng:beetmover:bucket:maven-snapshot-staging",
    "queue:create-task:highest:scriptworker-prov-v1/mobile-beetmover-v1",
    "queue:create-task:aws-provisioner-v1/github-worker",
    "queue:create-task:lowest:aws-provisioner-v1/gecko-focus",
    "queue:scheduler-id:taskcluster-github",
    "secrets:get:project/mobile/android-components/public-tokens",
    {
      "AnyOf": [
        {
          "AllOf": [
            "queue:scheduler-id:taskcluster-github",
            {
              "AnyOf": [
                "queue:create-task:highest:aws-provisioner-v1/github-worker",
                "queue:create-task:very-high:aws-provisioner-v1/github-worker",
                "queue:create-task:high:aws-provisioner-v1/github-worker",
                "queue:create-task:medium:aws-provisioner-v1/github-worker",
                "queue:create-task:low:aws-provisioner-v1/github-worker",
                "queue:create-task:very-low:aws-provisioner-v1/github-worker",
                "queue:create-task:lowest:aws-provisioner-v1/github-worker"
              ]
            }
          ]
        },
        {
          "AnyOf": [
            "queue:create-task:aws-provisioner-v1/github-worker",
            {
              "AllOf": [
                "queue:define-task:aws-provisioner-v1/github-worker",
                "queue:task-group-id:taskcluster-github/U_2beozJQrSdmACiIYV05g",
                "queue:schedule-task:taskcluster-github/U_2beozJQrSdmACiIYV05g/U_2beozJQrSdmACiIYV05g"
              ]
            }
          ]
        }
      ]
    }
  ]
}
```

---

* method:     createTask
* errorCode:  InsufficientScopes
* statusCode: 403
* time:       2018-11-20T00:30:12.517Z

</details>


faltou concluir o CRUD de pessoa


HistoricalWeather_China为新增全国所有城市的历史天气数据爬取，weather_result中的json为使用pm2.5in官方提供api获取的2018年11月19日晚八点全国所有气象监测点的各类空气质量参数信息。


這邊應該是都不需要

```json
  "prettier.eslintIntegration": true,
  "prettier.singleQuote": true	  "prettier.semi": true,
  "prettier.singleQuote": true,
```


I think I mainly needed a way to debug the cache inserts and cache hits to verify it was working right, and the previously code showing only the first 40 chars was not enough to differentiate various cache entries.  I don't remember doing this particular code change for cache trimming, I may have gotten a little overzealous with my edits here just trying to see all cache-related info.  No problem if you want to revert it.

For the other ones I changed: GeometryCache is/was already using `PRINTDB()` but CGALCache is still using `PRINTB`.   I didn't think too much about the ramifications of it since they do require enabling debug build which wasn't on any of the automated/nightly builds that I knew of.


## Joker
Este es mi villano favorito


Done, might need to be checked to see if the API handles appropriately


Entiendo porque agregaste Deadshot, lo necesitamos


Why record?


This seems to be the cause of the failures, for example, this one: "The task failed with exit code 1:\nlast: invalid option -- F"
https://jenkins-platform.delivery.puppetlabs.net/job/forge-windows_puppetlabs-reboot_intn-sys_full-pe-current-master/125/PLATFORM=redhat5-64default.a,WORKER_LABEL=beaker/console

Does the version of "last" on those machines support the "-F" flag?


要不然到時候可能會混亂不知道要改哪一邊


We recently brought a Perforce source code repository on to GitHub. Perforce refers to changes in an @<number> format, and since that's your username, it looks like GitHub chose to notify you. Please disregard.


What was this about??


I suppose I could jump. Maybe I'll look for the a Japanese version of the game...

Thank you.


Uhhh... something doesn't seem right about this. I'll make sure to correct it once pull req #14 is approved.


Version 44 was made with Pull Request #107. The reason this goes from 43 to 45 is because I started the fixes when 43 was the production version. Pull Request #107 was completed before this one (#113) even though this one was started first.

The version numbers are not made by git or GitHub. We have to manually chance them as before.


Because the request contains the md5Key as an entry along the other. To check faster if a user exists, just check if the users json contains the key, instead of checking every single entry if the key is the same. Another way was to save the request as it is and when we check if an user already exists, scan all users and compare their keys with the current one.


Ok, mas deveria ter utilizado o caminho adequado do classroom para criar o repositório e fornecer a resposta


什么叫never test?  😢


I am not sure about this one but will discuss it offline.


Try
```
template <typename T>
typename T::value_type& unwrap(T&& w) {return w.value;}
```
with a [forwarding reference](https://blog.petrzemek.net/2016/09/17/universal-vs-forwarding-references-in-cpp/). You don't need two variants of `unwrap()`.


`self.dtype` 有点奇怪，按理说不需要self ?


Yes, makes sense why we must keep OT name. Mixing of names was confusing but now see that it's a necessity due to keeping original layer name.