[R/assertions.R:208:1:](https://github.com/PredictiveEcology/LandR/blob/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/R/assertions.R#L212) *style:* **Trailing blank lines are superfluous.**
```r

^
```
[R/cohorts.R:46:1:](https://github.com/PredictiveEcology/LandR/blob/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/R/cohorts.R#L683) *style:* **Commented code should be removed.**
```r
    #describeCohortData(cohortData)
     ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/cohorts.R:692:16:](https://github.com/PredictiveEcology/LandR/blob/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/R/maps.R#L22) *style:* **Variable or function name should be lowerCamelCase.**
```r
defineFlammable <- function(LandCoverClassifiedMap = NULL,
                            ^~~~~~~~~~~~~~~~~~~~~~
```
[R/maps.R:128:5:](https://github.com/PredictiveEcology/LandR/blob/27b1c4deee19e9e8c012f8959f94d32192493a75/R/maps.R#L128) *style:* **Variable or function name should be lowerCamelCase.**
```r
    MixedRas <- speciesStack[[1]]
    ^~~~~~~~
```
[R/maps.R:132:18:](https://github.com/PredictiveEcology/LandR/blob/27b1c4deee19e9e8c012f8959f94d32192493a75/R/maps.R#L132) *style:* **Variable or function name should be lowerCamelCase.**
```r
    speciesStack$Mixed <- MixedRas
                 ^~~~~
```
[R/maps.R:204:28:](https://github.com/PredictiveEcology/LandR/blob/27b1c4deee19e9e8c012f8959f94d32192493a75/R/maps.R#L204) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
  if (isTRUE(doAssertion)) { # slower -- older, but simpler Eliot June 5, 2019
                           ^
```
[R/maps.R:205:1:](https://github.com/PredictiveEcology/LandR/blob/27b1c4deee19e9e8c012f8959f94d32192493a75/R/maps.R#L205) *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:226:5:](https://github.com/PredictiveEcology/LandR/blob/27b1c4deee19e9e8c012f8959f94d32192493a75/R/maps.R#L226) *style:* **Commented code should be removed.**
```r
  # setorderv(cohortdata, "pixelGroup")
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/maps.R:229:3:](https://github.com/PredictiveEcology/LandR/blob/27b1c4deee19e9e8c012f8959f94d32192493a75/R/maps.R#L229) *style:* **Variable or function name should be lowerCamelCase.**
```r
  N <- rep.int(pixelGroupData$N, pixelGroupData$N)
  ^
```
[R/maps.R:238:3:](https://github.com/PredictiveEcology/LandR/blob/27b1c4deee19e9e8c012f8959f94d32192493a75/R/maps.R#L238) *style:* **Variable or function name should be lowerCamelCase.**
```r
  GT1 <- (b > 1)
  ^~~
```
[R/maps.R:244:73:](https://github.com/PredictiveEcology/LandR/blob/27b1c4deee19e9e8c012f8959f94d32192493a75/R/maps.R#L244) *style:* **Put spaces around all infix operators.**
```r
    set(cohortdata, which(!GT1), "speciesProportion", cohortdata$B[!GT1]/cohortdata$totalB[!GT1])
                                                                       ~^~
```
[R/maps.R:254:28:](https://github.com/PredictiveEcology/LandR/blob/27b1c4deee19e9e8c012f8959f94d32192493a75/R/maps.R#L254) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
  if (isTRUE(doAssertion)) { # slower -- older, but simpler Eliot June 5, 2019
                           ^
```
[R/maps.R:276:14:](https://github.com/PredictiveEcology/LandR/blob/27b1c4deee19e9e8c012f8959f94d32192493a75/R/maps.R#L276) *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:294:1:](https://github.com/PredictiveEcology/LandR/blob/27b1c4deee19e9e8c012f8959f94d32192493a75/R/maps.R#L294) *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:314:6:](https://github.com/PredictiveEcology/LandR/blob/27b1c4deee19e9e8c012f8959f94d32192493a75/R/maps.R#L314) *style:* **Commented code should be removed.**
```r
    #pixelGroupData3 <- pixelGroupData[sppEq, on = "speciesCode", all.x = TRUE] ##
     ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/maps.R:317:6:](https://github.com/PredictiveEcology/LandR/blob/27b1c4deee19e9e8c012f8959f94d32192493a75/R/maps.R#L317) *style:* **Commented code should be removed.**
```r
    #setorderv(pixelGroupData3, cols = c("pixelGroup", "speciesProportion"), order = -1L)
     ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/maps.R:318:6:](https://github.com/PredictiveEcology/LandR/blob/27b1c4deee19e9e8c012f8959f94d32192493a75/R/maps.R#L318) *style:* **Commented code should be removed.**
```r
    #set(pixelGroupData3, NULL, "speciesProportion", NULL)
     ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/maps.R:319:6:](https://github.com/PredictiveEcology/LandR/blob/27b1c4deee19e9e8c012f8959f94d32192493a75/R/maps.R#L319) *style:* **Commented code should be removed.**
```r
    #pixelGroupData3 <- pixelGroupData3[, .SD[1], by = "pixelGroup"]
     ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/maps.R:320:6:](https://github.com/PredictiveEcology/LandR/blob/27b1c4deee19e9e8c012f8959f94d32192493a75/R/maps.R#L320) *style:* **Commented code should be removed.**
```r
    #pixelGroupData3[pure == FALSE, speciesCode := "Mixed"]
     ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/maps.R:321:6:](https://github.com/PredictiveEcology/LandR/blob/27b1c4deee19e9e8c012f8959f94d32192493a75/R/maps.R#L321) *style:* **Commented code should be removed.**
```r
    #setnames(pixelGroupData3, "speciesCode", "leading")
     ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/maps.R:323:6:](https://github.com/PredictiveEcology/LandR/blob/27b1c4deee19e9e8c012f8959f94d32192493a75/R/maps.R#L323) *style:* **Commented code should be removed.**
```r
    #pixelGroupData3[, pure := !pure]
     ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/maps.R:324:6:](https://github.com/PredictiveEcology/LandR/blob/27b1c4deee19e9e8c012f8959f94d32192493a75/R/maps.R#L324) *style:* **Commented code should be removed.**
```r
    #setnames(pixelGroupData3, "pure", "mixed")
     ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/maps.R:328:5:](https://github.com/PredictiveEcology/LandR/blob/27b1c4deee19e9e8c012f8959f94d32192493a75/R/maps.R#L328) *style:* **Commented code should be removed.**
```r
  # a2 <- Sys.time()
    ^~~~~~~~~~~~~~~~
```
[R/maps.R:332:5:](https://github.com/PredictiveEcology/LandR/blob/27b1c4deee19e9e8c012f8959f94d32192493a75/R/maps.R#L332) *style:* **Commented code should be removed.**
```r
  # pixelGroupData2[mixed == TRUE, leading := "Mixed"]
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/maps.R:333:5:](https://github.com/PredictiveEcology/LandR/blob/27b1c4deee19e9e8c012f8959f94d32192493a75/R/maps.R#L333) *style:* **Commented code should be removed.**
```r
  # b2 <- Sys.time()
    ^~~~~~~~~~~~~~~~
```
[R/maps.R:487:1:](https://github.com/PredictiveEcology/LandR/blob/27b1c4deee19e9e8c012f8959f94d32192493a75/R/maps.R#L487) *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:494:1:](https://github.com/PredictiveEcology/LandR/blob/27b1c4deee19e9e8c012f8959f94d32192493a75/R/maps.R#L494) *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:497:1:](https://github.com/PredictiveEcology/LandR/blob/27b1c4deee19e9e8c012f8959f94d32192493a75/R/maps.R#L497) *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:504:1:](https://github.com/PredictiveEcology/LandR/blob/27b1c4deee19e9e8c012f8959f94d32192493a75/R/maps.R#L504) *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:522:1:](https://github.com/PredictiveEcology/LandR/blob/27b1c4deee19e9e8c012f8959f94d32192493a75/R/maps.R#L522) *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:524:77:](https://github.com/PredictiveEcology/LandR/blob/27b1c4deee19e9e8c012f8959f94d32192493a75/R/maps.R#L524) *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:527:76:](https://github.com/PredictiveEcology/LandR/blob/27b1c4deee19e9e8c012f8959f94d32192493a75/R/maps.R#L527) *style:* **Commas should always have a space after.**
```r
    message("removing ", sum(!noDataLayers), " species because they had <",thresh,
                                                                           ^
```
[R/maps.R:529:1:](https://github.com/PredictiveEcology/LandR/blob/27b1c4deee19e9e8c012f8959f94d32192493a75/R/maps.R#L529) *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:551:5:](https://github.com/PredictiveEcology/LandR/blob/27b1c4deee19e9e8c012f8959f94d32192493a75/R/maps.R#L551) *style:* **Commented code should be removed.**
```r
  # layerData <- Cache(sapply, X = speciesLayers, function(x) sum(x[] > 0, na.rm = TRUE))
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/maps.R:553:5:](https://github.com/PredictiveEcology/LandR/blob/27b1c4deee19e9e8c012f8959f94d32192493a75/R/maps.R#L553) *style:* **Commented code should be removed.**
```r
  # ## remove layers that had < thresh pixels with biomass
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/maps.R:554:5:](https://github.com/PredictiveEcology/LandR/blob/27b1c4deee19e9e8c012f8959f94d32192493a75/R/maps.R#L554) *style:* **Commented code should be removed.**
```r
  # belowThresh <- layerData < thresh
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/maps.R:556:7:](https://github.com/PredictiveEcology/LandR/blob/27b1c4deee19e9e8c012f8959f94d32192493a75/R/maps.R#L556) *style:* **Commented code should be removed.**
```r
  #   message(names(belowThresh)[belowThresh], " was removed because it had no data")
      ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/maps.R:557:7:](https://github.com/PredictiveEcology/LandR/blob/27b1c4deee19e9e8c012f8959f94d32192493a75/R/maps.R#L557) *style:* **Commented code should be removed.**
```r
  #   speciesLayers[belowThresh] <- NULL
      ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/maps.R:656:7:](https://github.com/PredictiveEcology/LandR/blob/27b1c4deee19e9e8c012f8959f94d32192493a75/R/maps.R#L656) *style:* **Variable or function name should be lowerCamelCase.**
```r
      LQRastName <- basename(tempfile(fileext = ".tif"))
      ^~~~~~~~~~
```
[R/maps.R:658:9:](https://github.com/PredictiveEcology/LandR/blob/27b1c4deee19e9e8c012f8959f94d32192493a75/R/maps.R#L658) *style:* **Variable or function name should be lowerCamelCase.**
```r
        LQCurName <- basename(tempfile(fileext = ".tif"))
        ^~~~~~~~~
```
[R/maps.R:665:7:](https://github.com/PredictiveEcology/LandR/blob/27b1c4deee19e9e8c012f8959f94d32192493a75/R/maps.R#L665) *style:* **Variable or function name should be lowerCamelCase.**
```r
      LQRastInHQcrs <- projectExtent(lowQualityStack, crs = crs(highQualityStack))
      ^~~~~~~~~~~~~
```
[R/maps.R:678:7:](https://github.com/PredictiveEcology/LandR/blob/27b1c4deee19e9e8c012f8959f94d32192493a75/R/maps.R#L678) *style:* **Variable or function name should be lowerCamelCase.**
```r
      LQRast <- raster(LQRastName)
      ^~~~~~
```
[R/maps.R:696:9:](https://github.com/PredictiveEcology/LandR/blob/27b1c4deee19e9e8c012f8959f94d32192493a75/R/maps.R#L696) *style:* **Variable or function name should be lowerCamelCase.**
```r
        HQRast <- raster(tmpHQName)
        ^~~~~~
```
[R/maps.R:701:9:](https://github.com/PredictiveEcology/LandR/blob/27b1c4deee19e9e8c012f8959f94d32192493a75/R/maps.R#L701) *style:* **Variable or function name should be lowerCamelCase.**
```r
        HQRast <- highQualityStack[[SPP]]
        ^~~~~~
```
[R/maps.R:704:7:](https://github.com/PredictiveEcology/LandR/blob/27b1c4deee19e9e8c012f8959f94d32192493a75/R/maps.R#L704) *style:* **Variable or function name should be lowerCamelCase.**
```r
      LQRast <- lowQualityStack[[SPP]]
      ^~~~~~
```
[R/maps.R:705:7:](https://github.com/PredictiveEcology/LandR/blob/27b1c4deee19e9e8c012f8959f94d32192493a75/R/maps.R#L705) *style:* **Variable or function name should be lowerCamelCase.**
```r
      HQRast <- highQualityStack[[SPP]]
      ^~~~~~
```
[R/maps.R:712:5:](https://github.com/PredictiveEcology/LandR/blob/27b1c4deee19e9e8c012f8959f94d32192493a75/R/maps.R#L712) *style:* **Variable or function name should be lowerCamelCase.**
```r
    NAs <- is.na(HQRast[])
    ^~~
```
[R/maps.R:716:5:](https://github.com/PredictiveEcology/LandR/blob/27b1c4deee19e9e8c012f8959f94d32192493a75/R/maps.R#L716) *style:* **Variable or function name should be lowerCamelCase.**
```r
    HQRast <- writeRaster(HQRast, datatype = "INT1U",
    ^~~~~~
```
[R/maps.R:726:7:](https://github.com/PredictiveEcology/LandR/blob/27b1c4deee19e9e8c012f8959f94d32192493a75/R/maps.R#L726) *style:* **Variable or function name should be lowerCamelCase.**
```r
      HQRast <- highQualityStack[[SPP]]
      ^~~~~~
```
[R/maps.R:730:7:](https://github.com/PredictiveEcology/LandR/blob/27b1c4deee19e9e8c012f8959f94d32192493a75/R/maps.R#L730) *style:* **Variable or function name should be lowerCamelCase.**
```r
      LQRast <- lowQualityStack[[SPP]]
      ^~~~~~
```
[R/maps.R:734:7:](https://github.com/PredictiveEcology/LandR/blob/27b1c4deee19e9e8c012f8959f94d32192493a75/R/maps.R#L734) *style:* **Variable or function name should be lowerCamelCase.**
```r
      HQRast <- highQualityStack[[SPP]]
      ^~~~~~
```
[R/maps.R:766:4:](https://github.com/PredictiveEcology/LandR/blob/27b1c4deee19e9e8c012f8959f94d32192493a75/R/maps.R#L766) *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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/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/27b1c4deee19e9e8c012f8959f94d32192493a75/R/overlayLCCs.R#L128) *style:* **Place a space before left parenthesis, except in a function call.**
```r
      dt2[, ':='(initialEcoregionCode = newLCC, ecoregionCode = newLCC)]
                ^
```
[R/overlayLCCs.R:131:1:](https://github.com/PredictiveEcology/LandR/blob/27b1c4deee19e9e8c012f8959f94d32192493a75/R/overlayLCCs.R#L131) *style:* **Lines should not be more than 100 characters.**
```r
      dt1 <- dt2[initialEcoregionCode %in% classesToReplace, c("initialEcoregionCode", "pixelIndex")]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/overlayLCCs.R:138:1:](https://github.com/PredictiveEcology/LandR/blob/27b1c4deee19e9e8c012f8959f94d32192493a75/R/overlayLCCs.R#L138) *style:* **Lines should not be more than 100 characters.**
```r
                                availableERC_by_Sp = na.omit(dt2)[, c("initialEcoregionCode", "pixelIndex")])
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepInputObjects.R:3:83:](https://github.com/PredictiveEcology/LandR/blob/27b1c4deee19e9e8c012f8959f94d32192493a75/R/prepInputObjects.R#L3) *style:* **Trailing whitespace is superfluous.**
```r
                           "lcc", "longevity", "maxB", "maxANPP", "postfireregen",
                                                                                ^
```
[R/prepInputObjects.R:10:1:](https://github.com/PredictiveEcology/LandR/blob/27b1c4deee19e9e8c012f8959f94d32192493a75/R/prepInputObjects.R#L10) *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/prepInputObjects.R:11:1:](https://github.com/PredictiveEcology/LandR/blob/27b1c4deee19e9e8c012f8959f94d32192493a75/R/prepInputObjects.R#L11) *style:* **Lines should not be more than 100 characters.**
```r
#' @param sppColorVect A named vector of colors to use for plotting. The names must conform with \code{names(speciesLayers)}
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepInputObjects.R:39:1:](https://github.com/PredictiveEcology/LandR/blob/27b1c4deee19e9e8c012f8959f94d32192493a75/R/prepInputObjects.R#L39) *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.


good


thank u


WarningLinuxRelease7314 (YanfeiNREL) - x86_64-Linux-Ubuntu-18.04-gcc-7.4: OK (2477 of 2477 tests passed, 0 test warnings)

![Build Badge](http://img.shields.io/badge/build%20status-passing-green.png) ![Test Badge](http://img.shields.io/badge/tests%20passed-100.0%25-green.png)


:white_check_mark: All Rules (2 / 2) Passed

      :crown: Good job! this pull request is aligned with your organization's best practices!

      :point_right: You can review your rules settings at smart policy management :point_left:

:point_right: click here to view a full list of the events :point_left:


missing the case Inout in getAssignType.


Сделай метод который будет возвращать победителя(дилера/игрока) или `nil` в случае ничьей.
```
def determine_winner
  ...
end
```
Возможные исходы:
1 Если у игрока и дилера больше 21, то ничья
2 Иначе если у игрока и дилера равное количество очков, то ничья
3 Иначе если у игрока больше 21, то победил дилер
4 Иначе если у дилера больше 21, то победил игрок
5 Иначе победил тот у кого больше очков

Вместо обращения к `hand.value` добавь в класс игрока метод `points`
https://ru.wikipedia.org/wiki/%D0%97%D0%B0%D0%BA%D0%BE%D0%BD_%D0%94%D0%B5%D0%BC%D0%B5%D1%82%D1%80%D1%8B


xoa


why not merge this with the previous lines? :p


166330897_Issue6707 (Nigusse) - x86_64-Linux-Ubuntu-18.04-gcc-7.4-IntegrationCoverage-Debug: OK (666 of 666 tests passed, 0 test warnings)

![Build Badge](http://img.shields.io/badge/build%20status-passing-green.png) ![Test Badge](http://img.shields.io/badge/tests%20passed-100.0%25-green.png) ![Coverage Badge](http://img.shields.io/badge/coverage%20status-68.46%25-green.png)