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

^
```
[R/cohorts.R:46:1:](https://github.com/PredictiveEcology/LandR/blob/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/R/cohorts.R#L683) *style:* **Commented code should be removed.**
```r
    #describeCohortData(cohortData)
     ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/cohorts.R:692:16:](https://github.com/PredictiveEcology/LandR/blob/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/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/51a54759c420a7815812c5f99f1aa713144dc3b3/R/overlayLCCs.R#L128) *style:* **Place a space before left parenthesis, except in a function call.**
```r
      dt2[, ':='(initialEcoregionCode = newLCC, ecoregionCode = newLCC)]
                ^
```


Remover console.


а написать что то наверное надо?


![](https://github.trello.services/images/mini-trello-icon.png) [INICIO](https://trello.com/c/acgZtdLx/1-inicio)


why prepending instead of appending?


I AM playing RO career without RP-1 now, so that works for me (I actually did look into SMURFF, RO is actually too radical realistic for my taste, I basically just want RSS and Realfuels, but that combination only works with RO as far as I understand).
The only thing that is not working for me now is Kerbalism. I actually haven't tried Kerbalism with the default config. Would that work on RO without RP-1?


Now could not deploy this pull request since the `now.json` file is empty.
It should be a valid JSON file.

    For more information on now.json visit https://zeit.co/docs/features/configuration#now.json.


You creepin’?


Remover oia.


Allows for there to be multiple fluids in a keg and for them to all be removed


166818055_Issue7048 (Nigusse) - Win64-Windows-10-VisualStudio-16: OK (2431 of 2431 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)


мдааа слабовато


TeamCity Bvcms / Build [Build 1374](https://builds.tpsdb.com/viewLog.html?buildId=6967&buildTypeId=Bvcms_Build) outcome was **FAILURE**
Summary: Compilation error: UnitTests\CMSWebTests\CMSWebTests.csproj (new) Build time: 00:04:34


Deployment failed with the following error:

~~~
You defined 1 build that did not match any source files (please ensure they are NOT defined in .nowignore):
~~~


Se dejó PromotionActivity como ejemplo de Activity en ves de los fragment


Declara a classe no arquivo css.


Ah, thanks for the detailed explanation. I'm indeed sporting a gcc 7.4.0 on my Ubtuntu 18.04, and even [Debian stable](https://distrowatch.com/table.php?distribution=debian) is at gcc 6.3.0, so I think we could even upgrade to at least the latter?


Seems that the 1.05 nomalization factor could be instead made as `k=2/(A+B)`

Where A
https://www.wolframalpha.com/input/?i=integrate++((cos(%CE%B8_1)+-+eta+sqrt(1+-+(eta+sin(%CE%B8_1))%5E2))%2F(cos(%CE%B8_1)+%2B+eta+sqrt(1+-+(eta+sin(%CE%B8_1))%5E2)))%5E2*sin(%CE%B8_1)*cos(%CE%B8_1)+from+0+to+pi%2F2

and B
https://www.wolframalpha.com/input/?i=integrate++((eta+cos(%CE%B8_1)+-+sqrt(1+-+(eta+sin(%CE%B8_1))%5E2))%2F(eta+cos(%CE%B8_1)+%2B+sqrt(1+-+(eta+sin(%CE%B8_1))%5E2)))%5E2*sin(%CE%B8_1)*cos(%CE%B8_1)+from+0+to+pi%2F2

You could use Sage to compute these integrals and then fit functions to them (just create a 1D plot of k vs. IoR {eta})


PlantMassFlowRatesChangeForTankSourceSide (yzhou601) - x86_64-MacOS-10.13-clang: OK (2431 of 2431 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)


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

* https://components-git-master.undataforum.now.sh


It would, but not perfectly; if you're playing an RO career (in which I'm guessing you haven't got that far) and are enjoying it, I guess you might find stock kerbalism in RO enjoyable too. You're free to try it out, but I don't know how much will make sense.


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

* https://madmasters.pro
* https://madmasters.voloshynajelena.now.sh
* https://madmasters-git-master.voloshynajelena.now.sh


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

* https://phse.net
* https://phsenet.setphen1.now.sh
* https://phsenet-git-master.setphen1.now.sh


wrong message...
the next commit is an ammend of this one...


Whole 1