[R/assertions.R:208:1:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/assertions.R#L208) *style:* **Lines should not be more than 100 characters.**
```r
      stop("2 or more species share the same label under the 'EN_generic_short' or 'Leading' columns of sim$sppEquiv.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/assertions.R:212:1:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/assertions.R#L212) *style:* **Trailing blank lines are superfluous.**
```r

^
```
[R/cohorts.R:46:1:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L46) *style:* **Lines should not be more than 100 characters.**
```r
#' @param treedFirePixelTableSinceLastDisp A data.table with at least 2 columns, \code{pixelIndex} and \code{pixelGroup}.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/cohorts.R:67:48:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L67) *style:* **Variable and function names should not be longer than 30 characters.**
```r
                             speciesEcoregion, treedFirePixelTableSinceLastDisp = NULL,
                                               ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/cohorts.R:88:1:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L88) *style:* **Lines should not be more than 100 characters.**
```r
      message(crayon::green("  Regenerating only open pixels (e.g., likely resprouting & serotiny only)"))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/cohorts.R:89:1:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L89) *style:* **Lines should not be more than 100 characters.**
```r
    columnsForPG <- c("ecoregionGroup", "speciesCode", "age") # no Biomass because they all have zero
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/cohorts.R:90:31:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L90) *style:* **Commas should always have a space after.**
```r
    cd <- newPixelCohortData[,c("pixelIndex", columnsForPG), with = FALSE]
                              ^
```
[R/cohorts.R:118:30:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L118) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
    allCohortData <- cohorts[ , .(ecoregionGroup = ecoregionGroup[1],
                             ^
```
[R/cohorts.R:118:31:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L118) *style:* **Commas should never have a space before.**
```r
    allCohortData <- cohorts[ , .(ecoregionGroup = ecoregionGroup[1],
                             ~^
```
[R/cohorts.R:141:5:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L141) *style:* **Commented code should be removed.**
```r
  # newPixelCohortData[, sumB := sum(B, na.rm = TRUE), by = pixelGroup]
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/cohorts.R:217:3:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L217) *style:* **Variable or function name should be lowerCamelCase.**
```r
  specieseco_current <- speciesEcoregionLatestYear(speciesEcoregion, time)
  ^~~~~~~~~~~~~~~~~~
```
[R/cohorts.R:218:3:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L218) *style:* **Variable or function name should be lowerCamelCase.**
```r
  specieseco_current <- setkey(specieseco_current[, .(speciesCode, maxANPP, maxB, ecoregionGroup)],
  ^~~~~~~~~~~~~~~~~~
```
[R/cohorts.R:223:1:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L223) *style:* **Lines should not be more than 100 characters.**
```r
  #missingNewPixelCohortData <- newPixelCohortData[!specieseco_current, on = uniqueSpeciesEcoregionDefinition]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/cohorts.R:223:4:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L223) *style:* **Commented code should be removed.**
```r
  #missingNewPixelCohortData <- newPixelCohortData[!specieseco_current, on = uniqueSpeciesEcoregionDefinition]
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/cohorts.R:224:3:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L224) *style:* **Variable or function name should be lowerCamelCase.**
```r
  specieseco_current <- specieseco_current[!is.na(maxB)]
  ^~~~~~~~~~~~~~~~~~
```
[R/cohorts.R:225:24:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L225) *style:* **Variable or function name should be lowerCamelCase.**
```r
  specieseco_current[, maxB_eco := max(maxB), by = ecoregionGroup]
                       ^~~~~~~~
```
[R/cohorts.R:226:1:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L226) *style:* **Lines should not be more than 100 characters.**
```r
  newPixelCohortData <- specieseco_current[newPixelCohortData, on = uniqueSpeciesEcoregionDefinition]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/cohorts.R:232:5:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L232) *style:* **Commented code should be removed.**
```r
  # set(newPixelCohortData, NULL, "sumB", 0L)
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/cohorts.R:239:1:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L239) *style:* **Lines should not be more than 100 characters.**
```r
  set(newPixelCohortData, which(is.na(newPixelCohortData$oldSumB)), "oldSumB", 0)   ## faster than [:=]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/cohorts.R:244:26:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L244) *style:* **Variable or function name should be lowerCamelCase.**
```r
    newPixelCohortData[, B := NULL]
                         ^
```
[R/cohorts.R:248:1:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L248) *style:* **Lines should not be more than 100 characters.**
```r
  set(newPixelCohortData, NULL, "B", asInteger(pmin(newPixelCohortData$maxANPP, newPixelCohortData$B)))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/cohorts.R:254:1:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L254) *style:* **Lines should not be more than 100 characters.**
```r
    if (isTRUE(NROW(unique(newPixelCohortData, by = uniqueCohortDefinition)) != NROW(newPixelCohortData)))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/cohorts.R:259:5:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L259) *style:* **Commented code should be removed.**
```r
  # cohortData[, sumB := sum(B, na.rm = TRUE), by = "pixelGroup"]  ## recalculate sumB
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/cohorts.R:261:7:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L261) *style:* **Commented code should be removed.**
```r
  #   set(cohortData, NULL, "sumB", asInteger(cohortData[["sumB"]]))
      ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/cohorts.R:292:1:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L292) *style:* **Lines should not be more than 100 characters.**
```r
  pgsStillInCDGoneFromPGM <- cohortData[whPgsStillInCDGoneFromPGM,] #setdiff(unique(cohortData$pixelGroup), unique(pgmVals$pixelGroup))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/cohorts.R:292:67:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L292) *style:* **Commas should always have a space after.**
```r
  pgsStillInCDGoneFromPGM <- cohortData[whPgsStillInCDGoneFromPGM,] #setdiff(unique(cohortData$pixelGroup), unique(pgmVals$pixelGroup))
                                                                  ^
```
[R/cohorts.R:292:70:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L292) *style:* **Commented code should be removed.**
```r
  pgsStillInCDGoneFromPGM <- cohortData[whPgsStillInCDGoneFromPGM,] #setdiff(unique(cohortData$pixelGroup), unique(pgmVals$pixelGroup))
                                                                     ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/cohorts.R:293:4:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L293) *style:* **Commented code should be removed.**
```r
  #pgsStillInPGMGoneFromCD <- setdiff(unique(pgmVals$pixelGroup), unique(cohortData$pixelGroup))
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/cohorts.R:295:64:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L295) *style:* **Commas should always have a space after.**
```r
  pgsStillInPGMGoneFromCD <- pgmVals[whPgsStillInPGMGoneFromCD,]
                                                               ^
```
[R/cohorts.R:346:1:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L346) *style:* **Lines should not be more than 100 characters.**
```r
  # concatenate within rows -- e.g., ecoregionCode_speciesCode_age_biomass or 647_11_Abie_sp_100_2000
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/cohorts.R:350:1:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L350) *style:* **Lines should not be more than 100 characters.**
```r
  pcd[ , c("uniqueComboByPixelIndex") := paste(uniqueComboByRow, collapse = "__"), by = "pixelIndex"]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/cohorts.R:350:7:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L350) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
  pcd[ , c("uniqueComboByPixelIndex") := paste(uniqueComboByRow, collapse = "__"), by = "pixelIndex"]
      ^
```
[R/cohorts.R:350:8:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L350) *style:* **Commas should never have a space before.**
```r
  pcd[ , c("uniqueComboByPixelIndex") := paste(uniqueComboByRow, collapse = "__"), by = "pixelIndex"]
      ~^
```
[R/cohorts.R:351:7:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L351) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
  pcd[ , c("pixelGroup") := as.integer(maxPixelGroup) + as.integer(factor(uniqueComboByPixelIndex))]
      ^
```
[R/cohorts.R:351:8:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L351) *style:* **Commas should never have a space before.**
```r
  pcd[ , c("pixelGroup") := as.integer(maxPixelGroup) + as.integer(factor(uniqueComboByPixelIndex))]
      ~^
```
[R/cohorts.R:353:38:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L353) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
  if (getOption("LandR.assertions")) { # old algorithm
                                     ^
```
[R/cohorts.R:357:1:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L357) *style:* **Lines should not be more than 100 characters.**
```r
    pcd[, pixelGroup2 := mapvalues(pixelGroup, from = unique(pixelGroup), to = as.character(seq_along(unique(pixelGroup))))]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/cohorts.R:363:12:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L363) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
    pcdOld[ , c(columns2) := lapply(.SD, function(x) {
           ^
```
[R/cohorts.R:363:13:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L363) *style:* **Commas should never have a space before.**
```r
    pcdOld[ , c(columns2) := lapply(.SD, function(x) {
           ~^
```
[R/cohorts.R:367:1:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L367) *style:* **Lines should not be more than 100 characters.**
```r
    # concatenate within rows -- e.g., ecoregionCode_speciesCode_age_biomass or 647_11_Abie_sp_100_2000
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/cohorts.R:368:52:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L368) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
    pcdOld[, uniqueComboByRow := as.integer(factor( do.call(paste, as.list(.SD)))),
                                                   ^
```
[R/cohorts.R:372:12:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L372) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
    pcdOld[ , c("uniqueComboByPixelIndex") := paste(uniqueComboByRow, collapse = "__"),
           ^
```
[R/cohorts.R:372:13:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L372) *style:* **Commas should never have a space before.**
```r
    pcdOld[ , c("uniqueComboByPixelIndex") := paste(uniqueComboByRow, collapse = "__"),
           ~^
```
[R/cohorts.R:374:12:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L374) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
    pcdOld[ , c("pixelGroup") := as.integer(maxPixelGroup) +
           ^
```
[R/cohorts.R:374:13:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L374) *style:* **Commas should never have a space before.**
```r
    pcdOld[ , c("pixelGroup") := as.integer(maxPixelGroup) +
           ~^
```
[R/cohorts.R:379:25:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L379) *style:* **Put spaces around all infix operators.**
```r
    pcdOld[, pixelGroup2:=mapvalues(pixelGroup, from = unique(pixelGroup),
                       ~^~~
```
[R/cohorts.R:424:1:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L424) *style:* **Variable and function names should not be longer than 30 characters.**
```r
uniqueSpeciesEcoregionDefinition <- c("speciesCode", "ecoregionGroup")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/cohorts.R:435:1:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L435) *style:* **Lines should not be more than 100 characters.**
```r
  message(magenta("Pixels with non-NA cover:, ", cohortData[!is.na(cover), length(unique(pixelIndex))]))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/cohorts.R:443:86:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L443) *style:* **Put spaces around all infix operators.**
```r
    pixelsZero <- NROW(cohortData[, all(get(val) == 0), by = "pixelIndex"][get("V1") ==TRUE])
                                                                                ^~~
```
[R/cohorts.R:444:40:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L444) *style:* **Commas should always have a space after.**
```r
    message(magenta("Pixels with all(",val," == 0): ", format(pixelsZero, big.mark = ",")))
                                       ^
```
[R/cohorts.R:444:44:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L444) *style:* **Commas should always have a space after.**
```r
    message(magenta("Pixels with all(",val," == 0): ", format(pixelsZero, big.mark = ",")))
                                           ^
```
[R/cohorts.R:445:1:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L445) *style:* **Lines should not be more than 100 characters.**
```r
    pixelsBiomassNonZero <- NROW(cohortData[, any(get(val) > 0), by = "pixelIndex"][get("V1") ==TRUE])
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/cohorts.R:445:95:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L445) *style:* **Put spaces around all infix operators.**
```r
    pixelsBiomassNonZero <- NROW(cohortData[, any(get(val) > 0), by = "pixelIndex"][get("V1") ==TRUE])
                                                                                ^~~
```
[R/cohorts.R:446:40:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L446) *style:* **Commas should always have a space after.**
```r
    message(magenta("Pixels with all(",val," > 0): ", format(pixelsBiomassNonZero, big.mark = ",")))
                                       ^
```
[R/cohorts.R:446:44:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L446) *style:* **Commas should always have a space after.**
```r
    message(magenta("Pixels with all(",val," > 0): ", format(pixelsBiomassNonZero, big.mark = ",")))
                                           ^
```
[R/cohorts.R:447:1:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L447) *style:* **Lines should not be more than 100 characters.**
```r
    out <- list(pixelsNA = pixelsNA, pixelsZero = pixelsZero, pixelsBiomassNonZero = pixelsBiomassNonZero)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/cohorts.R:508:32:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L508) *style:* **Variable or function name should be lowerCamelCase.**
```r
                               availableERC_by_Sp, theUnwantedPixels,
                               ^~~~~~~~~~~~~~~~~~
```
[R/cohorts.R:520:7:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L520) *style:* **Variable or function name should be lowerCamelCase.**
```r
      availableERC_by_Sp <- as.data.table(availableERC_by_Sp)
      ^~~~~~~~~~~~~~~~~~
```
[R/cohorts.R:544:7:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L544) *style:* **Commented code should be removed.**
```r
  #   numChar <- max(nchar(availableERC_by_Sp$initialEcoregionCode), na.rm = TRUE)
      ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/cohorts.R:546:1:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L546) *style:* **Lines should not be more than 100 characters.**
```r
  #                      initialEcoregionCode := paste0("1_", paddedFloatToChar(as.integer(initialEcoregionCode), numChar))]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/cohorts.R:550:16:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L550) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
    if (FALSE) { # This is old section... can be deleted soon (April 10, 2019, Eliot)
               ^
```
[R/cohorts.R:565:8:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L565) *style:* **Commented code should be removed.**
```r
    #  stop("values of 34 and 35 on pixelCohortData and sim$LCC2005 don't match")
       ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/cohorts.R:594:1:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L594) *style:* **Lines should not be more than 100 characters.**
```r
    out <- out[initialPixels != pixels] # rm pixels which are same as initialPixels --> these are known wrong
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/cohorts.R:597:42:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L597) *style:* **Put spaces around all infix operators.**
```r
    out[lcc %in% c(classesToReplace), lcc:=NA]
                                        ~^~~
```
[R/cohorts.R:600:1:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L600) *style:* **Lines should not be more than 100 characters.**
```r
                               on = c("pixelIndex" = "initialPixels"), nomatch = NA] # join the availableERC_by_Sp which has initialEcoregionCode
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/cohorts.R:604:1:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L604) *style:* **Lines should not be more than 100 characters.**
```r
                               paddedFloatToChar(as.integer(lcc), padL = numCharLCCCodes, padR = 0))]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/cohorts.R:608:1:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L608) *style:* **Lines should not be more than 100 characters.**
```r
    out7 <- out5[availableERG2, on = c("speciesCode", "possERC" = "initialEcoregionCode"), nomatch = NA]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/cohorts.R:658:7:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L658) *style:* **Commented code should be removed.**
```r
    # setnames(out3, c("initialPixels", "initialEcoregionCode"), c("pixelIndex", "ecoregionGroup"))
      ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/cohorts.R:660:7:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L660) *style:* **Commented code should be removed.**
```r
    # out3 <- unique(out3, by = c("pixelIndex", "ecoregionGroup"))
      ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/cohorts.R:683:6:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L683) *style:* **Commented code should be removed.**
```r
    #describeCohortData(cohortData)
     ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/cohorts.R:692:16:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L692) *style:* **Variable or function name should be lowerCamelCase.**
```r
  cohortData[, V1 := NULL]
               ^~
```
[R/cohorts.R:697:5:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L697) *style:* **Commented code should be removed.**
```r
  # cohortData[speciesCode == "Popu_sp", cover := asInteger(cover / 2)]
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/cohorts.R:699:14:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L699) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
  cohortData[ , cover := {
             ^
```
[R/cohorts.R:699:15:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L699) *style:* **Commas should never have a space before.**
```r
  cohortData[ , cover := {
             ~^
```
[R/cohorts.R:711:14:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L711) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
  cohortData[ , B := mean(totalBiomass) * cover / 100, by = "pixelIndex"]
             ^
```
[R/cohorts.R:711:15:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L711) *style:* **Commas should never have a space before.**
```r
  cohortData[ , B := mean(totalBiomass) * cover / 100, by = "pixelIndex"]
             ~^
```
[R/cohorts.R:711:17:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L711) *style:* **Variable or function name should be lowerCamelCase.**
```r
  cohortData[ , B := mean(totalBiomass) * cover / 100, by = "pixelIndex"]
                ^
```
[R/cohorts.R:713:14:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L713) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
  cohortData[ , B := ceiling(B / pixelGroupBiomassClass) * pixelGroupBiomassClass]
             ^
```
[R/cohorts.R:713:15:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L713) *style:* **Commas should never have a space before.**
```r
  cohortData[ , B := ceiling(B / pixelGroupBiomassClass) * pixelGroupBiomassClass]
             ~^
```
[R/cohorts.R:713:17:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L713) *style:* **Variable or function name should be lowerCamelCase.**
```r
  cohortData[ , B := ceiling(B / pixelGroupBiomassClass) * pixelGroupBiomassClass]
                ^
```
[R/cohorts.R:715:14:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L715) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
  cohortData[ , totalBiomass := asInteger(totalBiomass)]
             ^
```
[R/cohorts.R:715:15:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L715) *style:* **Commas should never have a space before.**
```r
  cohortData[ , totalBiomass := asInteger(totalBiomass)]
             ~^
```
[R/cohorts.R:817:36:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L817) *style:* **Variable or function name should be lowerCamelCase.**
```r
  cohortData[cover > 0 & age == 0, B := 0L]
                                   ^
```
[R/cohorts.R:823:5:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L823) *style:* **Commented code should be removed.**
```r
  # cohortData[ , coverProp := (cover/100 * (NROW(cohortData) - 1) + 0.5) / NROW(cohortData)]
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/cohorts.R:835:22:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L835) *style:* **Variable or function name should be lowerCamelCase.**
```r
subsetDT <- function(DT, by, doSubset = TRUE) {
                     ^~
```
[R/cohorts.R:840:1:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L840) *style:* **Lines should not be more than 100 characters.**
```r
              "using maximum of ", sam, " samples per combination of ecoregionGroup and speciesCode. ",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/cohorts.R:845:7:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L845) *style:* **Variable or function name should be lowerCamelCase.**
```r
      DT <- DT[a$lineNum]
      ^~
```
[R/cohorts.R:988:1:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/cohorts.R#L988) *style:* **Lines should not be more than 100 characters.**
```r
    test2 <- sum(unique(pixelCohortData[, .(pixelGroup, noPixels)])$noPixels) != sum(!is.na(pixelGroupMap[]) & pixelGroupMap[] != 0)  ## 0's have no cohorts.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ecoregionProducer.R:37:4:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/ecoregionProducer.R#L37) *style:* **Commented code should be removed.**
```r
  #ecoregionMapInStudy <- raster::intersect(ecoregionMapFull, fixErrors(aggregate(studyArea)))
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ecoregionProducer.R:54:3:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/ecoregionProducer.R#L54) *style:* **Variable or function name should be lowerCamelCase.**
```r
  NAs <- rtmNAs | rstEcoregionNAs
  ^~~
```
[R/ecoregionProducer.R:71:4:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/ecoregionProducer.R#L71) *style:* **Commented code should be removed.**
```r
  #ecoregionFactorValues <- na.omit(unique(rstEcoregion[]))
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ecoregionProducer.R:73:4:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/ecoregionProducer.R#L73) *style:* **Commented code should be removed.**
```r
  #ecoregionTable <- raster::levels(rstEcoregion)[[1]]
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ecoregionProducer.R:81:1:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/ecoregionProducer.R#L81) *style:* **Lines should not be more than 100 characters.**
```r
    # rstEcoregion[] <- plyr::mapvalues(rstEcoregion[], from = ecoregionTable$ecoregion, to = ecoregionTable$mapcode)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ecoregionProducer.R:81:7:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/ecoregionProducer.R#L81) *style:* **Commented code should be removed.**
```r
    # rstEcoregion[] <- plyr::mapvalues(rstEcoregion[], from = ecoregionTable$ecoregion, to = ecoregionTable$mapcode)
      ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ecoregionProducer.R:96:37:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/ecoregionProducer.R#L96) *style:* **Commas should always have a space after.**
```r
  ecoregionTable <- ecoregionTable[,.(active = "yes", mapcode, ecoregion)]
                                    ^
```
[R/LANDIS-II-tables.R:76:1:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/LANDIS-II-tables.R#L76) *style:* **Lines should not be more than 100 characters.**
```r
    sppEquiv <- data.table(utils::data("sppEquivalencies_CA", package = "LandR", envir = environment()))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/LANDIS-II-tables.R:84:1:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/LANDIS-II-tables.R#L84) *style:* **Lines should not be more than 100 characters.**
```r
  speciesTable <- speciesTable[species %in% equivalentName(sppNameVector, sppEquiv, "LANDIS_traits", multi = TRUE) &
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/LANDIS-II-tables.R:101:1:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/LANDIS-II-tables.R#L101) *style:* **Lines should not be more than 100 characters.**
```r
#' (\url{https://raw.githubusercontent.com/dcyr/LANDIS-II_IA_generalUseFiles/master/speciesTraits.csv}).
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/LANDIS-II-tables.R:105:1:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/LANDIS-II-tables.R#L105) *style:* **Lines should not be more than 100 characters.**
```r
#' @param species a \code{data.table} that has species traits such as longevity, shade tolerance, etc.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/LANDIS-II-tables.R:122:1:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/LANDIS-II-tables.R#L122) *style:* **Lines should not be more than 100 characters.**
```r
    sppEquiv <- data.table(utils::data("sppEquivalencies_CA", package = "LandR", envir = environment()))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/LANDIS-II-tables.R:144:1:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/LANDIS-II-tables.R#L144) *style:* **Lines should not be more than 100 characters.**
```r
  speciesTableShort[species == "PSEU.MEN", longevity := 525] ## only in MC area, corresponding to var. glauca
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/LANDIS-II-tables.R:153:1:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/LANDIS-II-tables.R#L153) *style:* **Lines should not be more than 100 characters.**
```r
  speciesTableShort <- speciesTableShort[species %in% equivalentName(sppNameVector, sppEquiv, "LANDIS_traits", multi = TRUE)]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/LANDIS-II-tables.R:170:1:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/LANDIS-II-tables.R#L170) *style:* **Lines should not be more than 100 characters.**
```r
#' \url{https://github.com/LANDIS-II-Foundation/Extensions-Succession/master/biomass-succession-archive/trunk/tests/v6.0-2.0/biomass-succession_test.txt"}).
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/LANDIS-II-tables.R:190:17:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/LANDIS-II-tables.R#L190) *style:* **Commented code should be removed.**
```r
  maxcol <- 13 #max(count.fields(file.path(dPath, "species.txt"), sep = ""))
                ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/LANDIS-II-tables.R:211:13:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/LANDIS-II-tables.R#L211) *style:* **Only use double-quotes.**
```r
  species[, ':='(seeddistance_eff = gsub(",", "", seeddistance_eff),
            ^~~~
```
[R/LANDIS-II-tables.R:211:17:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/LANDIS-II-tables.R#L211) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  species[, ':='(seeddistance_eff = gsub(",", "", seeddistance_eff),
                ^
```
[R/LANDIS-II-tables.R:224:18:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/LANDIS-II-tables.R#L224) *style:* **Only use double-quotes.**
```r
  speciesAddon[, ':='(leaflongevity = as.numeric(leaflongevity),
                 ^~~~
```
[R/LANDIS-II-tables.R:224:22:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/LANDIS-II-tables.R#L224) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  speciesAddon[, ':='(leaflongevity = as.numeric(leaflongevity),
                     ^
```
[R/LANDIS-II-tables.R:236:13:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/LANDIS-II-tables.R#L236) *style:* **Only use double-quotes.**
```r
  species[, ':='(species = paste0(toupper(substring(species1, 1, 1)),
            ^~~~
```
[R/LANDIS-II-tables.R:236:17:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/LANDIS-II-tables.R#L236) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  species[, ':='(species = paste0(toupper(substring(species1, 1, 1)),
                ^
```
[R/LANDIS-II-tables.R:240:13:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/LANDIS-II-tables.R#L240) *style:* **Only use double-quotes.**
```r
  species[, ':='(species1 = NULL, species2 = NULL)]
            ^~~~
```
[R/LANDIS-II-tables.R:240:17:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/LANDIS-II-tables.R#L240) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  species[, ':='(species1 = NULL, species2 = NULL)]
                ^
```
[R/LANDIS-II-tables.R:268:39:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/LANDIS-II-tables.R#L268) *style:* **Commas should always have a space after.**
```r
  mainInput <- mainInput[col1 != ">>",]
                                      ^
```
[R/LANDIS-II-tables.R:278:1:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/LANDIS-II-tables.R#L278) *style:* **Lines should not be more than 100 characters.**
```r
#' \url{https://github.com/LANDIS-II-Foundation/Extensions-Succession/master/biomass-succession-archive/trunk/tests/v6.0-2.0/ecoregion.txt"}).
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/LANDIS-II-tables.R:295:16:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/LANDIS-II-tables.R#L295) *style:* **Commented code should be removed.**
```r
  maxcol <- 5 #max(count.fields(file.path(dPath, "ecoregions.txt"), sep = ""))
               ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/LANDIS-II-tables.R:311:47:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/LANDIS-II-tables.R#L311) *style:* **Commas should always have a space after.**
```r
  ecoregion <- ecoregion[col1 != "LandisData",]
                                              ^
```
[R/LANDIS-II-tables.R:312:39:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/LANDIS-II-tables.R#L312) *style:* **Commas should always have a space after.**
```r
  ecoregion <- ecoregion[col1 != ">>",]
                                      ^
```
[R/LANDIS-II-tables.R:324:1:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/LANDIS-II-tables.R#L324) *style:* **Lines should not be more than 100 characters.**
```r
#' \url{https://github.com/LANDIS-II-Foundation/Extensions-Succession/master/biomass-succession-archive/trunk/tests/v6.0-2.0/biomass-succession-dynamic-inputs_test.txt"}).
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/LANDIS-II-tables.R:356:61:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/LANDIS-II-tables.R#L356) *style:* **Commas should always have a space after.**
```r
  speciesEcoregion <- speciesEcoregion[col1 != "LandisData",]
                                                            ^
```
[R/LANDIS-II-tables.R:357:53:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/LANDIS-II-tables.R#L357) *style:* **Commas should always have a space after.**
```r
  speciesEcoregion <- speciesEcoregion[col1 != ">>",]
                                                    ^
```
[R/LANDIS-II-tables.R:368:22:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/LANDIS-II-tables.R#L368) *style:* **Only use double-quotes.**
```r
  speciesEcoregion[, ':='(species = paste0(toupper(substring(species1, 1, 1)),
                     ^~~~
```
[R/LANDIS-II-tables.R:368:26:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/LANDIS-II-tables.R#L368) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  speciesEcoregion[, ':='(species = paste0(toupper(substring(species1, 1, 1)),
                         ^
```
[R/LANDIS-II-tables.R:371:22:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/LANDIS-II-tables.R#L371) *style:* **Only use double-quotes.**
```r
  speciesEcoregion[, ':='(species1 = NULL, species2 = NULL)]
                     ^~~~
```
[R/LANDIS-II-tables.R:371:26:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/LANDIS-II-tables.R#L371) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  speciesEcoregion[, ':='(species1 = NULL, species2 = NULL)]
                         ^
```
[R/maps.R:22:29:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/maps.R#L22) *style:* **Variable or function name should be lowerCamelCase.**
```r
defineFlammable <- function(LandCoverClassifiedMap = NULL,
                            ^~~~~~~~~~~~~~~~~~~~~~
```
[R/maps.R:129:5:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/maps.R#L129) *style:* **Variable or function name should be lowerCamelCase.**
```r
    MixedRas <- speciesStack[[1]]
    ^~~~~~~~
```
[R/maps.R:133:18:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/maps.R#L133) *style:* **Variable or function name should be lowerCamelCase.**
```r
    speciesStack$Mixed <- MixedRas
                 ^~~~~
```
[R/maps.R:177:25:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/maps.R#L177) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
  if (isTRUE(unitTest)) { # slower -- older, but simpler Eliot June 5, 2019
                        ^
```
[R/maps.R:178:1:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/maps.R#L178) *style:* **Lines should not be more than 100 characters.**
```r
    # 1. Find length of each pixelGroup -- don't include pixelGroups in "by" that have only 1 cohort: N = 1
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/maps.R:181:16:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/maps.R#L181) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
    pgd1 <- cd[ , list(N = .N), by = "pixelGroup"]
               ^
```
[R/maps.R:181:17:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/maps.R#L181) *style:* **Commas should never have a space before.**
```r
    pgd1 <- cd[ , list(N = .N), by = "pixelGroup"]
               ~^
```
[R/maps.R:187:61:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/maps.R#L187) *style:* **Put spaces around all infix operators.**
```r
    set(pgd1, NULL, "speciesProportion", pgd1$speciesGroupB /pgd1$totalB)
                                                            ^~
```
[R/maps.R:199:5:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/maps.R#L199) *style:* **Commented code should be removed.**
```r
  # setorderv(cohortdata, "pixelGroup")
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/maps.R:200:32:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/maps.R#L200) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
  pixelGroupData <- cohortdata[ , list(N = .N), by = "pixelGroup"]
                               ^
```
[R/maps.R:200:33:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/maps.R#L200) *style:* **Commas should never have a space before.**
```r
  pixelGroupData <- cohortdata[ , list(N = .N), by = "pixelGroup"]
                               ~^
```
[R/maps.R:202:3:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/maps.R#L202) *style:* **Variable or function name should be lowerCamelCase.**
```r
  N <- rep.int(pixelGroupData$N, pixelGroupData$N)
  ^
```
[R/maps.R:211:3:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/maps.R#L211) *style:* **Variable or function name should be lowerCamelCase.**
```r
  GT1 <- (b > 1)
  ^~~
```
[R/maps.R:214:86:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/maps.R#L214) *style:* **Put spaces around all infix operators.**
```r
    pixelGroupData[[1]] <- cohortdata[GT1, .(speciesProportion = sum(B, na.rm = TRUE)/totalB[1]),
                                                                                ~^~
```
[R/maps.R:218:73:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/maps.R#L218) *style:* **Put spaces around all infix operators.**
```r
    set(cohortdata, which(!GT1), "speciesProportion", cohortdata$B[!GT1]/cohortdata$totalB[!GT1])
                                                                       ~^~
```
[R/maps.R:219:1:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/maps.R#L219) *style:* **Lines should not be more than 100 characters.**
```r
    pixelGroupData[[NROW(pixelGroupData) + 1]] <- cohortdata[!GT1, c("pixelGroup", "speciesCode", "speciesProportion")]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/maps.R:227:25:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/maps.R#L227) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
  if (isTRUE(unitTest)) { # slower -- older, but simpler Eliot June 5, 2019
                        ^
```
[R/maps.R:249:14:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/maps.R#L249) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
  if (FALSE) { # old algorithm
             ^
```
[R/maps.R:256:1:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/maps.R#L256) *style:* **Lines should not be more than 100 characters.**
```r
    set(pixelGroupData4, NULL, "speciesProportion", pixelGroupData4$speciesGroupB /pixelGroupData4$totalB)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/maps.R:256:83:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/maps.R#L256) *style:* **Put spaces around all infix operators.**
```r
    set(pixelGroupData4, NULL, "speciesProportion", pixelGroupData4$speciesGroupB /pixelGroupData4$totalB)
                                                                                ^~
```
[R/maps.R:260:1:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/maps.R#L260) *style:* **Lines should not be more than 100 characters.**
```r
    all.equal(pixelGroupData4[, .(pixelGroup, speciesCode, totalB)], pixelGroupData[,.(pixelGroup, speciesCode, totalB)])
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/maps.R:260:86:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/maps.R#L260) *style:* **Commas should always have a space after.**
```r
    all.equal(pixelGroupData4[, .(pixelGroup, speciesCode, totalB)], pixelGroupData[,.(pixelGroup, speciesCode, totalB)])
                                                                                ^
```
[R/maps.R:265:1:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/maps.R#L265) *style:* **Lines should not be more than 100 characters.**
```r
  # 2. sort on pixelGroup and speciesProportion, reverse so that 1st row of each pixelGroup is the largest
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/maps.R:280:5:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/maps.R#L280) *style:* **Commented code should be removed.**
```r
  # a2 <- Sys.time()
    ^~~~~~~~~~~~~~~~
```
[R/maps.R:284:5:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/maps.R#L284) *style:* **Commented code should be removed.**
```r
  # pixelGroupData2[mixed == TRUE, leading := "Mixed"]
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/maps.R:285:5:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/maps.R#L285) *style:* **Commented code should be removed.**
```r
  # b2 <- Sys.time()
    ^~~~~~~~~~~~~~~~
```
[R/maps.R:439:1:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/maps.R#L439) *style:* **Lines should not be more than 100 characters.**
```r
  ## select which archives/targetFiles to extract -- because there was "multi" above, need unique here
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/maps.R:446:1:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/maps.R#L446) *style:* **Lines should not be more than 100 characters.**
```r
                    archive2 = file.path(dPath, paste0("NFI_MODIS250m_kNN_Species_", kNNnames, "_v0.zip")))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/maps.R:449:1:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/maps.R#L449) *style:* **Lines should not be more than 100 characters.**
```r
  if (!all(reproducible::basename2(file_path_sans_ext(names(archives))) == file_path_sans_ext(targetFiles)))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/maps.R:456:1:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/maps.R#L456) *style:* **Lines should not be more than 100 characters.**
```r
    message("This looks like a lot of species; did you mean to pass only a subset of this to sppEquiv?",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/maps.R:474:1:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/maps.R#L474) *style:* **Lines should not be more than 100 characters.**
```r
                         prepInputs, quick = TRUE) # don't need to digest all the "targetFile" and "archives"
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/maps.R:476:77:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/maps.R#L476) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
  noDataLayers <- sapply(speciesLayers, function(x) if (maxValue(x) < thresh ) FALSE else TRUE)
                                                                            ^
```
[R/maps.R:479:76:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/maps.R#L479) *style:* **Commas should always have a space after.**
```r
    message("removing ", sum(!noDataLayers), " species because they had <",thresh,
                                                                           ^
```
[R/maps.R:481:1:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/maps.R#L481) *style:* **Lines should not be more than 100 characters.**
```r
            "\n  These species are retained (and could be further culled manually, if desired):\n  ",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/maps.R:503:5:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/maps.R#L503) *style:* **Commented code should be removed.**
```r
  # layerData <- Cache(sapply, X = speciesLayers, function(x) sum(x[] > 0, na.rm = TRUE))
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/maps.R:505:5:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/maps.R#L505) *style:* **Commented code should be removed.**
```r
  # ## remove layers that had < thresh pixels with biomass
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/maps.R:506:5:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/maps.R#L506) *style:* **Commented code should be removed.**
```r
  # belowThresh <- layerData < thresh
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/maps.R:508:7:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/maps.R#L508) *style:* **Commented code should be removed.**
```r
  #   message(names(belowThresh)[belowThresh], " was removed because it had no data")
      ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/maps.R:509:7:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/maps.R#L509) *style:* **Commented code should be removed.**
```r
  #   speciesLayers[belowThresh] <- NULL
      ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/maps.R:608:7:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/maps.R#L608) *style:* **Variable or function name should be lowerCamelCase.**
```r
      LQRastName <- basename(tempfile(fileext = ".tif"))
      ^~~~~~~~~~
```
[R/maps.R:610:9:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/maps.R#L610) *style:* **Variable or function name should be lowerCamelCase.**
```r
        LQCurName <- basename(tempfile(fileext = ".tif"))
        ^~~~~~~~~
```
[R/maps.R:617:7:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/maps.R#L617) *style:* **Variable or function name should be lowerCamelCase.**
```r
      LQRastInHQcrs <- projectExtent(lowQualityStack, crs = crs(highQualityStack))
      ^~~~~~~~~~~~~
```
[R/maps.R:630:7:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/maps.R#L630) *style:* **Variable or function name should be lowerCamelCase.**
```r
      LQRast <- raster(LQRastName)
      ^~~~~~
```
[R/maps.R:648:9:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/maps.R#L648) *style:* **Variable or function name should be lowerCamelCase.**
```r
        HQRast <- raster(tmpHQName)
        ^~~~~~
```
[R/maps.R:653:9:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/maps.R#L653) *style:* **Variable or function name should be lowerCamelCase.**
```r
        HQRast <- highQualityStack[[SPP]]
        ^~~~~~
```
[R/maps.R:656:7:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/maps.R#L656) *style:* **Variable or function name should be lowerCamelCase.**
```r
      LQRast <- lowQualityStack[[SPP]]
      ^~~~~~
```
[R/maps.R:657:7:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/maps.R#L657) *style:* **Variable or function name should be lowerCamelCase.**
```r
      HQRast <- highQualityStack[[SPP]]
      ^~~~~~
```
[R/maps.R:664:5:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/maps.R#L664) *style:* **Variable or function name should be lowerCamelCase.**
```r
    NAs <- is.na(HQRast[])
    ^~~
```
[R/maps.R:668:5:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/maps.R#L668) *style:* **Variable or function name should be lowerCamelCase.**
```r
    HQRast <- writeRaster(HQRast, datatype = "INT1U",
    ^~~~~~
```
[R/maps.R:678:7:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/maps.R#L678) *style:* **Variable or function name should be lowerCamelCase.**
```r
      HQRast <- highQualityStack[[SPP]]
      ^~~~~~
```
[R/maps.R:682:7:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/maps.R#L682) *style:* **Variable or function name should be lowerCamelCase.**
```r
      LQRast <- lowQualityStack[[SPP]]
      ^~~~~~
```
[R/maps.R:686:7:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/maps.R#L686) *style:* **Variable or function name should be lowerCamelCase.**
```r
      HQRast <- highQualityStack[[SPP]]
      ^~~~~~
```
[R/maps.R:718:4:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/maps.R#L718) *style:* **Commented code should be removed.**
```r
  #names(sppMerges) <- equivalentName(names(sppMerges), sppEquiv,  column = sppEquivCol)
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/misc.R:23:1:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/misc.R#L23) *style:* **Lines should not be more than 100 characters.**
```r
#' Essentially a wrapper around \code{round}, rather than \code{truncate}, which is what \code{as.integer}
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/overlayLCCs.R:47:25:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/overlayLCCs.R#L47) *style:* **Variable or function name should be lowerCamelCase.**
```r
overlayLCCs <- function(LCCs, forestedList, outputLayer,
                        ^~~~
```
[R/overlayLCCs.R:48:25:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/overlayLCCs.R#L48) *style:* **Variable or function name should be lowerCamelCase.**
```r
                        NAcondition, NNcondition, remapTable = NULL,
                        ^~~~~~~~~~~
```
[R/overlayLCCs.R:48:38:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/overlayLCCs.R#L48) *style:* **Variable or function name should be lowerCamelCase.**
```r
                        NAcondition, NNcondition, remapTable = NULL,
                                     ^~~~~~~~~~~
```
[R/overlayLCCs.R:49:43:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/overlayLCCs.R#L49) *style:* **Variable or function name should be lowerCamelCase.**
```r
                        classesToReplace, availableERC_by_Sp,
                                          ^~~~~~~~~~~~~~~~~~
```
[R/overlayLCCs.R:65:5:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/overlayLCCs.R#L65) *style:* **Variable or function name should be lowerCamelCase.**
```r
    LCCs <- stack(LCCs)
    ^~~~
```
[R/overlayLCCs.R:81:7:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/overlayLCCs.R#L81) *style:* **Variable or function name should be lowerCamelCase.**
```r
      availableERC_by_Sp <- data.table(initialEcoregionCode = LCCs[[outputLayer]][])
      ^~~~~~~~~~~~~~~~~~
```
[R/overlayLCCs.R:90:14:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/overlayLCCs.R#L90) *style:* **Variable or function name should be lowerCamelCase.**
```r
        dt[, NAs := eval(parse(text = NAcondition)), with = TRUE]
             ^~~
```
[R/overlayLCCs.R:92:14:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/overlayLCCs.R#L92) *style:* **Variable or function name should be lowerCamelCase.**
```r
        dt[, NAs := NULL]
             ^~~
```
[R/overlayLCCs.R:96:14:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/overlayLCCs.R#L96) *style:* **Variable or function name should be lowerCamelCase.**
```r
        dt[, NNcondition := eval(parse(text = NNcondition))]
             ^~~~~~~~~~~
```
[R/overlayLCCs.R:101:1:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/overlayLCCs.R#L101) *style:* **Lines should not be more than 100 characters.**
```r
          ## It's possible that there are no pixels with classesToReplace that fulfill the NNcondition
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/overlayLCCs.R:105:1:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/overlayLCCs.R#L105) *style:* **Lines should not be more than 100 characters.**
```r
                                  availableERC_by_Sp = na.omit(dt)[, c("initialEcoregionCode", "pixelIndex")])
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/overlayLCCs.R:128:13:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/overlayLCCs.R#L128) *style:* **Only use double-quotes.**
```r
      dt2[, ':='(initialEcoregionCode = newLCC, ecoregionCode = newLCC)]
            ^~~~
```
[R/overlayLCCs.R:128:17:](https://github.com/PredictiveEcology/LandR/blob/e0e921e896b800de736fce49236bd3763c99c7bb/R/overlayLCCs.R#L128) *style:* **Place a space before left parenthesis, except in a function call.**
```r
      dt2[, ':='(initialEcoregionCode = newLCC, ecoregionCode = newLCC)]
                ^
```


#We are Liverpool ! x6


note that a position can only be marked if ss->ply < 8. Together with depth < 2 in razoring, I would expect this to trigger rather rarely. Nevertheless, good luck!


jk, I'm fine with any :). we'll have to sync


TeamCity Bvcms / Build [Build 1434](https://builds.tpsdb.com/viewLog.html?buildId=7094&buildTypeId=Bvcms_Build) outcome was **FAILURE**
Summary: Tests passed: 19; exit code 3 (Step: Deploy to remote IIS (Command Line)) (new) Build time: 00:07:40


TeamCity Bvcms / Build [Build 1435](https://builds.tpsdb.com/viewLog.html?buildId=7095&buildTypeId=Bvcms_Build) is now running


TeamCity Bvcms / Build [Build 1435](https://builds.tpsdb.com/viewLog.html?buildId=7095&buildTypeId=Bvcms_Build) outcome was **FAILURE**
Summary: Failed to start build Build time: 00:00:03


Successfully aliased the URL <https://dotwatcher-rd6e7pyd2.now.sh> to the following aliases.

* https://www.dotwatcher.cc
* https://dotwatcher.cc
* https://dotwatcher.dotwatchers1.now.sh
* https://dotwatcher-git-master.dotwatchers1.now.sh


I think, there is a copy/paste error. You should compare and increment `j`, not `i`


It would save gas to first have a memory variable on which all the `.add` are done, and then, outside the loop, to finally save in `payoutDenominator[conditionId]` storage. Like this, you do many `MSTORE`s and 1 `SSTORE` instead of many `SSTORE`s.


Successfully aliased the URL <https://wwwaprincecn-21m4n9liv.now.sh> to the following aliases.

* https://www.aprince.cn
* https://wwwaprincecn.yangch.now.sh
* https://wwwaprincecn-git-master.yangch.now.sh


Dear Poggit user,

This is an automatic message from Poggit-CI. Poggit-CI was triggered by this commit, and the build was created with the following warnings:

1. Sanitized project name, from "0" to "0"

Shall you need any assistance, you may contact us on [on Discord](https://discord.gg/NgHf9jt), or more publicly, [on GitHub](https://github.com/poggit/support/issues). Commenting on this commit directly will **not** notify any Poggit staff.

Regards,
Poggit Bot (@poggit-bot)
The official Poggit automation account


Successfully aliased the URL <https://dev-4vhr3z16x.now.sh> to the following aliases.

* https://jamesbliss.dev
* https://dev.thejamesbliss.now.sh
* https://dev-git-master.thejamesbliss.now.sh


Successfully aliased the URL <https://cinecitta-nextjs-2al0nkop3.now.sh> to the following aliases.

* https://cinecitta.film
* https://cinecitta-nextjs.guillaumeguillaume.now.sh
* https://cinecitta-nextjs-git-master.guillaumeguillaume.now.sh


[R/myName.R:11:1:](https://github.com/trianglegirl/githubHook/blob/2dc7b9cbb51fd83fbeb86637eee02f78c8119c39/R/myName.R#L11) *style:* **Variable and function names should be all lowercase.**
```r
myName = function(){
^~~~~~
```
[R/myName.R:11:8:](https://github.com/trianglegirl/githubHook/blob/2dc7b9cbb51fd83fbeb86637eee02f78c8119c39/R/myName.R#L11) *style:* **Use <-, not =, for assignment.**
```r
myName = function(){
       ^
```


I'd put the verb `Expand` at the beginning because all other options are named like that.
If putting at the end I'd change it to `Expanded`.


@JacquesCarette Not urgent, but when you have some time, can you please review what I did in this commit? I tried to make lenses out of the pieces of `ModData` for #1515 and got it working in the Python renderer, but stopped there because it didn't seem to simplify the code much. It made me have to call `unPC` in places where I hadn't needed to before (see the call to `fileDoc'`). The setting of the `Doc` field in the `ModData` structure (which I do in the definition of `fileDoc`) is indeed simpler, but it's rare that we set a field of `ModData`. The much more common case is getting a field, and in those cases I now have to use `view modDoc` (for example) whereas before I could just use `modDoc`. I could use `_modDoc`, though I feel like that's frowned upon?

Is this what you had in mind when you suggested creating lenses for `ModData`, or am I missing a way to make it even simpler?


ZEIT Now cannot deploy this project to production due to following domain related issues:

 * alias `https://cinecitta-nextjs-git-master.guillaumeguillaume.now.sh/` is an invalid domain. Correct it.


thx for your hard work, my respect


Worked pretty well, didn't it? :P


![](https://github.trello.services/images/mini-trello-icon.png) [View contacts](https://trello.com/c/SON4p79C/1-view-contacts)


![](https://github.trello.services/images/mini-trello-icon.png) [Add contact](https://trello.com/c/rhhCDNC0/2-add-contact)


This break should be inside the curly braces, e.g. one line above.


Same here with the break


@knchau okay, I'm going on PTO next week so I'm not going to be able to help for a while.  You can escalate the ticket or open a PTR ticket asking how to do this or suppress the GroupServiceUtil.class SF complaint from what you had before. I'll leave it up to you which way you decide to move forward.


Successfully aliased the URL <https://fueledbydreamscom-igjjpoojf.now.sh> to the following aliases.

* https://fueledbydreams.com
* https://www.fueledbydreams.com
* https://fueledbydreamscom.fueledbydreams1.now.sh
* https://fueledbydreamscom-git-master.fueledbydreams1.now.sh


Thanks for pointing that out.  I've fixed it.


Successfully aliased the URL <https://status-boardio-qtchctpxm.now.sh> to the following aliases.

* https://status-board.io
* https://status-board.com
* https://www.status-board.io
* https://www.status-board.com
* https://status-boardio.status-board1.now.sh
* https://status-boardio-git-master.status-board1.now.sh


I recommend to do a real stub for PlaySound(), so you do not need to revisit all of these places.