[inst/examples/example_experiment.R:91:5:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/inst/examples/example_experiment.R#L91) *style:* **Commented code should be removed.**
```r
  # library(raster)
    ^~~~~~~~~~~~~~~
```
[inst/examples/example_experiment.R:92:5:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/inst/examples/example_experiment.R#L92) *style:* **Commented code should be removed.**
```r
  # beginCluster(20) # if you have multiple clusters available, use them here to save time
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/example_experiment.R:96:5:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/inst/examples/example_experiment.R#L96) *style:* **Commented code should be removed.**
```r
  # endCluster() # end the clusters
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/example_experiment.R:152:5:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/inst/examples/example_experiment.R#L152) *style:* **Commented code should be removed.**
```r
  # fires <- lapply(sims, function(x) x$landscape$fires) %>% stack
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/example_POM.R:48:5:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/inst/examples/example_POM.R#L48) *style:* **Commented code should be removed.**
```r
  # cl <- makeCluster(detectCores() - 1) # not implemented yet in DEoptim
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/example_POM.R:83:4:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/inst/examples/example_POM.R#L83) *style:* **Commented code should be removed.**
```r
  #stopCluster(cl) # not yet implemented, waiting for DEoptim
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/example_POM.R:106:34:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/inst/examples/example_POM.R#L106) *style:* **Variable or function name should be lowerCamelCase.**
```r
    params(sim1)$caribouMovement$N <- pars[2]
                                 ^
```
[inst/examples/example_POM.R:113:5:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/inst/examples/example_POM.R#L113) *style:* **Variable or function name should be lowerCamelCase.**
```r
    nPattern_Out <- caribouFn(out$caribou)
    ^~~~~~~~~~~~
```
[inst/examples/example_POM.R:119:7:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/inst/examples/example_POM.R#L119) *style:* **Commented code should be removed.**
```r
    # cat(minimizeFn)
      ^~~~~~~~~~~~~~~
```
[inst/examples/example_POM.R:120:7:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/inst/examples/example_POM.R#L120) *style:* **Commented code should be removed.**
```r
    # cat(" ")
      ^~~~~~~~
```
[inst/examples/example_POM.R:121:7:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/inst/examples/example_POM.R#L121) *style:* **Commented code should be removed.**
```r
    # cat(pars)
      ^~~~~~~~~
```
[inst/examples/example_POM.R:122:7:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/inst/examples/example_POM.R#L122) *style:* **Commented code should be removed.**
```r
    # cat("\n")
      ^~~~~~~~~
```
[inst/sampleModules/caribouMovement/caribouMovement.R:1:1:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/inst/sampleModules/caribouMovement/caribouMovement.R#L1) *style:* **Variable or function name should be lowerCamelCase.**
```r
SpaDES.core.version <- "0.1.0"
^~~~~~~~~~~~~~~~~~~
```
[inst/sampleModules/caribouMovement/caribouMovement.R:54:1:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/inst/sampleModules/caribouMovement/caribouMovement.R#L54) *style:* **Variable or function name should be lowerCamelCase.**
```r
doEvent.caribouMovement <- function(sim, eventTime, eventType, debug = FALSE) {
^~~~~~~~~~~~~~~~~~~~~~~
```
[inst/sampleModules/caribouMovement/caribouMovement.R:78:1:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/inst/sampleModules/caribouMovement/caribouMovement.R#L78) *style:* **Lines should not be more than 100 characters.**
```r
      sim <- scheduleEvent(sim, time(sim) + SpaDES.core::P(sim)$moveInterval, "caribouMovement", "move")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/sampleModules/caribouMovement/caribouMovement.R:82:1:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/inst/sampleModules/caribouMovement/caribouMovement.R#L82) *style:* **Lines should not be more than 100 characters.**
```r
      Plot(sim$caribou, addTo = paste("sim", SpaDES.core::P(sim)$stackName, "habitatQuality", sep = "$"),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/sampleModules/caribouMovement/caribouMovement.R:86:1:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/inst/sampleModules/caribouMovement/caribouMovement.R#L86) *style:* **Lines should not be more than 100 characters.**
```r
      sim <- scheduleEvent(sim, time(sim) + SpaDES.core::P(sim)$.plotInterval, "caribouMovement", "plot", .last())
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/sampleModules/caribouMovement/caribouMovement.R:90:1:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/inst/sampleModules/caribouMovement/caribouMovement.R#L90) *style:* **Lines should not be more than 100 characters.**
```r
      Plot(sim$caribou, addTo = paste("sim", SpaDES.core::P(sim)$stackName, "habitatQuality", sep = "$"),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/sampleModules/caribouMovement/caribouMovement.R:95:1:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/inst/sampleModules/caribouMovement/caribouMovement.R#L95) *style:* **Lines should not be more than 100 characters.**
```r
      sim <- scheduleEvent(sim, time(sim) + SpaDES.core::P(sim)$.plotInterval, "caribouMovement", "plot", .last())
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/sampleModules/caribouMovement/caribouMovement.R:102:1:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/inst/sampleModules/caribouMovement/caribouMovement.R#L102) *style:* **Lines should not be more than 100 characters.**
```r
      sim <- scheduleEvent(sim, time(sim) + SpaDES.core::P(sim)$.saveInterval, "caribouMovement", "save", .last() + 1)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/sampleModules/caribouMovement/caribouMovement.R:114:1:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/inst/sampleModules/caribouMovement/caribouMovement.R#L114) *style:* **Variable or function name should be lowerCamelCase.**
```r
Init <- function(sim) {
^~~~
```
[inst/sampleModules/caribouMovement/caribouMovement.R:121:3:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/inst/sampleModules/caribouMovement/caribouMovement.R#L121) *style:* **Variable or function name should be lowerCamelCase.**
```r
  N <- SpaDES.core::P(sim)$N
  ^
```
[inst/sampleModules/caribouMovement/caribouMovement.R:122:3:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/inst/sampleModules/caribouMovement/caribouMovement.R#L122) *style:* **Variable or function name should be lowerCamelCase.**
```r
  IDs <- as.character(1:N)
  ^~~
```
[inst/sampleModules/caribouMovement/caribouMovement.R:138:1:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/inst/sampleModules/caribouMovement/caribouMovement.R#L138) *style:* **Variable or function name should be lowerCamelCase.**
```r
Move <- function(sim) {
^~~~
```
[inst/sampleModules/fireSpread/fireSpread.R:1:1:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/inst/sampleModules/fireSpread/fireSpread.R#L1) *style:* **Variable or function name should be lowerCamelCase.**
```r
SpaDES.core.version <- "0.1.0"
^~~~~~~~~~~~~~~~~~~
```
[inst/sampleModules/fireSpread/fireSpread.R:20:1:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/inst/sampleModules/fireSpread/fireSpread.R#L20) *style:* **Lines should not be more than 100 characters.**
```r
    person(c("Alex", "M"), "Chubaty", email = "alexander.chubaty@canada.ca", role = c("aut", "cre")),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/sampleModules/fireSpread/fireSpread.R:21:1:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/inst/sampleModules/fireSpread/fireSpread.R#L21) *style:* **Lines should not be more than 100 characters.**
```r
    person(c("Eliot", "J", "B"), "McIntire", email = "eliot.mcintire@canada.ca", role = c("aut", "cre")),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/sampleModules/fireSpread/fireSpread.R:35:1:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/inst/sampleModules/fireSpread/fireSpread.R#L35) *style:* **Lines should not be more than 100 characters.**
```r
    defineParameter("persistprob", "numeric", 0.00, 0, 1, "probability of fire persisting in a pixel"),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/sampleModules/fireSpread/fireSpread.R:37:1:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/inst/sampleModules/fireSpread/fireSpread.R#L37) *style:* **Lines should not be more than 100 characters.**
```r
    defineParameter("spreadprob", "numeric", 0.225, 0.05, 0.5, "probability of fire spreading into a pixel"),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/sampleModules/fireSpread/fireSpread.R:38:1:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/inst/sampleModules/fireSpread/fireSpread.R#L38) *style:* **Lines should not be more than 100 characters.**
```r
    defineParameter("startTime", "numeric", start(sim) + 1, 0, end(sim), "time of initial fire ignition"),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/sampleModules/fireSpread/fireSpread.R:39:1:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/inst/sampleModules/fireSpread/fireSpread.R#L39) *style:* **Lines should not be more than 100 characters.**
```r
    defineParameter(".plotInitialTime", "numeric", start(sim), start(sim), end(sim) + 1, "time to schedule first plot event"),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/sampleModules/fireSpread/fireSpread.R:41:1:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/inst/sampleModules/fireSpread/fireSpread.R#L41) *style:* **Lines should not be more than 100 characters.**
```r
    defineParameter(".saveInitialTime", "numeric", NA_real_, NA, NA, "time to schedule first save event"),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/sampleModules/fireSpread/fireSpread.R:42:1:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/inst/sampleModules/fireSpread/fireSpread.R#L42) *style:* **Lines should not be more than 100 characters.**
```r
    defineParameter(".saveInterval", "numeric", NA_real_, NA, NA, "time interval between save events")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/sampleModules/fireSpread/fireSpread.R:45:1:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/inst/sampleModules/fireSpread/fireSpread.R#L45) *style:* **Lines should not be more than 100 characters.**
```r
    expectsInput(objectName = SpaDES.core::P(sim, "fireSpread")$stackName, objectClass = "RasterStack",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/sampleModules/fireSpread/fireSpread.R:51:1:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/inst/sampleModules/fireSpread/fireSpread.R#L51) *style:* **Lines should not be more than 100 characters.**
```r
    createsOutput(objectName = SpaDES.core::P(sim, "fireSpread")$stackName, objectClass = "RasterStack",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/sampleModules/fireSpread/fireSpread.R:59:1:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/inst/sampleModules/fireSpread/fireSpread.R#L59) *style:* **Variable or function name should be lowerCamelCase.**
```r
doEvent.fireSpread <- function(sim, eventTime, eventType, debug = FALSE) {
^~~~~~~~~~~~~~~~~~
```
[inst/sampleModules/fireSpread/fireSpread.R:80:1:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/inst/sampleModules/fireSpread/fireSpread.R#L80) *style:* **Lines should not be more than 100 characters.**
```r
      sim <- scheduleEvent(sim, SpaDES.core::P(sim)$.plotInitialTime, "fireSpread", "plot.init", .last())
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/sampleModules/fireSpread/fireSpread.R:87:1:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/inst/sampleModules/fireSpread/fireSpread.R#L87) *style:* **Lines should not be more than 100 characters.**
```r
      sim <- scheduleEvent(sim, time(sim), "fireSpread", "stats") # do stats immediately following burn
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/sampleModules/fireSpread/fireSpread.R:88:1:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/inst/sampleModules/fireSpread/fireSpread.R#L88) *style:* **Lines should not be more than 100 characters.**
```r
      sim <- scheduleEvent(sim, time(sim) + SpaDES.core::P(sim)$returnInterval, "fireSpread", "burn")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/sampleModules/fireSpread/fireSpread.R:108:1:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/inst/sampleModules/fireSpread/fireSpread.R#L108) *style:* **Lines should not be more than 100 characters.**
```r
      stackName <- SpaDES.core::P(sim)$stackName # Plot doesn't like long names -- create local variable
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/sampleModules/fireSpread/fireSpread.R:143:1:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/inst/sampleModules/fireSpread/fireSpread.R#L143) *style:* **Variable or function name should be lowerCamelCase.**
```r
Init <- function(sim) {
^~~~
```
[inst/sampleModules/fireSpread/fireSpread.R:147:3:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/inst/sampleModules/fireSpread/fireSpread.R#L147) *style:* **Variable or function name should be lowerCamelCase.**
```r
  Fires <- raster(extent(landscapes), ncol = ncol(landscapes),
  ^~~~~
```
[inst/sampleModules/fireSpread/fireSpread.R:151:3:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/inst/sampleModules/fireSpread/fireSpread.R#L151) *style:* **Variable or function name should be lowerCamelCase.**
```r
  Fires <- setValues(Fires, 0)
  ^~~~~
```
[inst/sampleModules/fireSpread/fireSpread.R:154:14:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/inst/sampleModules/fireSpread/fireSpread.R#L154) *style:* **Variable or function name should be lowerCamelCase.**
```r
  landscapes$Fires <- Fires
             ^~~~~
```
[inst/sampleModules/fireSpread/fireSpread.R:160:1:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/inst/sampleModules/fireSpread/fireSpread.R#L160) *style:* **Variable or function name should be lowerCamelCase.**
```r
Burn <- function(sim) {
^~~~
```
[inst/sampleModules/fireSpread/fireSpread.R:163:3:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/inst/sampleModules/fireSpread/fireSpread.R#L163) *style:* **Variable or function name should be lowerCamelCase.**
```r
  Fires <- spread(landscapes[[1]],
  ^~~~~
```
[inst/sampleModules/fireSpread/fireSpread.R:175:14:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/inst/sampleModules/fireSpread/fireSpread.R#L175) *style:* **Variable or function name should be lowerCamelCase.**
```r
  landscapes$Fires <- Fires
             ^~~~~
```
[inst/sampleModules/fireSpread/fireSpread.R:182:1:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/inst/sampleModules/fireSpread/fireSpread.R#L182) *style:* **Variable or function name should be lowerCamelCase.**
```r
Stats <- function(sim) {
^~~~~
```
[inst/sampleModules/randomLandscapes/randomLandscapes.R:1:1:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/inst/sampleModules/randomLandscapes/randomLandscapes.R#L1) *style:* **Variable or function name should be lowerCamelCase.**
```r
SpaDES.core.version <- "0.1.0"
^~~~~~~~~~~~~~~~~~~
```
[inst/sampleModules/randomLandscapes/randomLandscapes.R:33:1:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/inst/sampleModules/randomLandscapes/randomLandscapes.R#L33) *style:* **Lines should not be more than 100 characters.**
```r
    defineParameter("inRAM", "logical", FALSE, TRUE, FALSE, "should the raster be stored in memory?"),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/sampleModules/randomLandscapes/randomLandscapes.R:34:1:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/inst/sampleModules/randomLandscapes/randomLandscapes.R#L34) *style:* **Lines should not be more than 100 characters.**
```r
    defineParameter("nx", "numeric", 100L, 10L, 500L, "size of map (number of pixels) in the x dimension"),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/sampleModules/randomLandscapes/randomLandscapes.R:35:1:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/inst/sampleModules/randomLandscapes/randomLandscapes.R#L35) *style:* **Lines should not be more than 100 characters.**
```r
    defineParameter("ny", "numeric", 100L, 10L, 500L, "size of map (number of pixels) in the y dimension"),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/sampleModules/randomLandscapes/randomLandscapes.R:37:1:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/inst/sampleModules/randomLandscapes/randomLandscapes.R#L37) *style:* **Lines should not be more than 100 characters.**
```r
    defineParameter(".plotInitialTime", "numeric", start(sim), start(sim), NA, "time to schedule first plot event"),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/sampleModules/randomLandscapes/randomLandscapes.R:38:1:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/inst/sampleModules/randomLandscapes/randomLandscapes.R#L38) *style:* **Lines should not be more than 100 characters.**
```r
    defineParameter(".plotInterval", "numeric", NA_real_, NA, NA, "time interval between plot events"),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/sampleModules/randomLandscapes/randomLandscapes.R:39:1:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/inst/sampleModules/randomLandscapes/randomLandscapes.R#L39) *style:* **Lines should not be more than 100 characters.**
```r
    defineParameter(".saveInitialTime", "numeric", NA_real_, NA, NA, "time to schedule first save event"),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/sampleModules/randomLandscapes/randomLandscapes.R:40:1:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/inst/sampleModules/randomLandscapes/randomLandscapes.R#L40) *style:* **Lines should not be more than 100 characters.**
```r
    defineParameter(".saveInterval", "numeric", NA_real_, NA, NA, "time interval between save events"),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/sampleModules/randomLandscapes/randomLandscapes.R:41:1:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/inst/sampleModules/randomLandscapes/randomLandscapes.R#L41) *style:* **Lines should not be more than 100 characters.**
```r
    defineParameter(".useCache", "logical", FALSE, c("init", "plot"), NA, "should the module result be cached for future use")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/sampleModules/randomLandscapes/randomLandscapes.R:49:1:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/inst/sampleModules/randomLandscapes/randomLandscapes.R#L49) *style:* **Lines should not be more than 100 characters.**
```r
    createsOutput(objectName = SpaDES.core::P(sim, "randomLandscapes")$stackName, objectClass = "RasterStack",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/sampleModules/randomLandscapes/randomLandscapes.R:55:1:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/inst/sampleModules/randomLandscapes/randomLandscapes.R#L55) *style:* **Variable or function name should be lowerCamelCase.**
```r
doEvent.randomLandscapes <- function(sim, eventTime, eventType, debug = FALSE) {
^~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/sampleModules/randomLandscapes/randomLandscapes.R:63:1:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/inst/sampleModules/randomLandscapes/randomLandscapes.R#L63) *style:* **Lines should not be more than 100 characters.**
```r
      sim <- scheduleEvent(sim, SpaDES.core::P(sim)$.plotInitialTime, "randomLandscapes", "plot", .last())
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/sampleModules/randomLandscapes/randomLandscapes.R:64:1:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/inst/sampleModules/randomLandscapes/randomLandscapes.R#L64) *style:* **Lines should not be more than 100 characters.**
```r
      sim <- scheduleEvent(sim, SpaDES.core::P(sim)$.saveInitialTime, "randomLandscapes", "save", .last() + 1)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/sampleModules/randomLandscapes/randomLandscapes.R:76:1:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/inst/sampleModules/randomLandscapes/randomLandscapes.R#L76) *style:* **Lines should not be more than 100 characters.**
```r
      sim <- scheduleEvent(sim, time(sim) + SpaDES.core::P(sim)$.saveInterval, "randomLandscapes", "save", .last() + 1)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/sampleModules/randomLandscapes/randomLandscapes.R:87:1:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/inst/sampleModules/randomLandscapes/randomLandscapes.R#L87) *style:* **Variable or function name should be lowerCamelCase.**
```r
Init <- function(sim) {
^~~~
```
[inst/sampleModules/randomLandscapes/randomLandscapes.R:101:3:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/inst/sampleModules/randomLandscapes/randomLandscapes.R#L101) *style:* **Variable or function name should be lowerCamelCase.**
```r
  DEM <- gaussMap(template, scale = 300, var = 0.03, speedup = speedup, inMemory = inMemory)
  ^~~
```
[inst/sampleModules/SpaDES_sampleModules/SpaDES_sampleModules.R:17:1:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/inst/sampleModules/SpaDES_sampleModules/SpaDES_sampleModules.R#L17) *style:* **Lines should not be more than 100 characters.**
```r
    defineParameter(".plotInitialTime", "numeric", NA_real_, NA, NA, "This describes the simulation time at which the first plot event should occur"),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/sampleModules/SpaDES_sampleModules/SpaDES_sampleModules.R:18:1:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/inst/sampleModules/SpaDES_sampleModules/SpaDES_sampleModules.R#L18) *style:* **Lines should not be more than 100 characters.**
```r
    defineParameter(".saveInitialTime", "numeric", NA_real_, NA, NA, "This describes the simulation time at which the first save event should occur")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/cache.R:85:6:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/cache.R#L85) *style:* **Commented code should be removed.**
```r
    #names(envirHash) <- names(allObjsInSimList)
     ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/cache.R:127:1:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/cache.R#L127) *style:* **Lines should not be more than 100 characters.**
```r
    if (length(curMod) > 0) { # if this call is within a single module, only keep module-specific params
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/cache.R:127:29:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/cache.R#L127) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
    if (length(curMod) > 0) { # if this call is within a single module, only keep module-specific params
                            ^
```
[R/cache.R:137:22:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/cache.R#L137) *style:* **Variable or function name should be lowerCamelCase.**
```r
      obj$.list[[1]]$._startClockTime <- NULL
                     ^~~~~~~~~~~~~~~~
```
[R/cache.R:138:22:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/cache.R#L138) *style:* **Variable or function name should be lowerCamelCase.**
```r
      obj$.list[[1]]$._timestamp <- NULL
                     ^~~~~~~~~~~
```
[R/cache.R:245:50:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/cache.R#L245) *style:* **Commas should always have a space after.**
```r
          cat(crayon::blue("  Using ", fromWhere," copy of", cur$moduleName, "module\n"))
                                                 ^
```
[R/cache.R:258:50:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/cache.R#L258) *style:* **Commas should always have a space after.**
```r
          cat(crayon::blue("  Using ", fromWhere," copy of", cur$eventType, "event in",
                                                 ^
```
[R/cache.R:307:10:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/cache.R#L307) *style:* **Commented code should be removed.**
```r
        #checkPath(cacheRepo, create = TRUE) #SpaDES dependency
         ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/cache.R:348:8:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/cache.R#L348) *style:* **Commented code should be removed.**
```r
      #attr(object, ".Cache")$newCache <- NULL
       ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/cache.R:376:1:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/cache.R#L376) *style:* **Lines should not be more than 100 characters.**
```r
      pre <- lapply(preDigest[[whSimList]]$.list[[whSimList2]][existingObjs], fastdigest::fastdigest)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/cache.R:384:6:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/cache.R#L384) *style:* **Commented code should be removed.**
```r
    #attr(object, ".Cache")$changed <- changed
     ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/cache.R:457:1:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/cache.R#L457) *style:* **Lines should not be more than 100 characters.**
```r
        #   makes soft copy of all objects, i.e., they have the identical objects, which are pointers only
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/cache.R:473:1:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/cache.R#L473) *style:* **Lines should not be more than 100 characters.**
```r
        createOutputs <- c(createOutputs, currModules) # add the environments for each module - allow local objects
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/cache.R:489:36:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/cache.R#L489) *style:* **Put spaces around all infix operators.**
```r
        if (length(object2@current)==0) { # means it is not in a spades call
                                  ~^~~
```
[R/cache.R:489:41:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/cache.R#L489) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
        if (length(object2@current)==0) { # means it is not in a spades call
                                        ^
```
[R/cache.R:498:63:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/cache.R#L498) *style:* **Put spaces around all infix operators.**
```r
          eventsAddedByThisModule <- events(object)$moduleName==current(object2)$moduleName
                                                             ~^~~
```
[R/cache.R:502:42:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/cache.R#L502) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
              b <- lapply(b, function(x) {x[["order"]] <- 2; x})
                                         ^
```
[R/cache.R:505:42:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/cache.R#L505) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
              d <- lapply(d, function(x) {x[["order"]] <- 1; x})
                                         ^
```
[R/cache.R:512:1:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/cache.R#L512) *style:* **Lines should not be more than 100 characters.**
```r
              #              args = list(append(object@events[eventsAddedByThisModule], object2@events)))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/cache.R:515:56:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/cache.R#L515) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
              object2@events <- lapply(f1, function(f) {f$order <- NULL; f})
                                                       ^
```
[R/cache.R:517:1:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/cache.R#L517) *style:* **Lines should not be more than 100 characters.**
```r
              #                           args = list(append(object@events[eventsAddedByThisModule], object2@events)))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/cache.R:520:12:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/cache.R#L520) *style:* **Commented code should be removed.**
```r
          #object2@events <- unique(rbindlist(list(object@events, object2@events)))
           ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/cache.R:524:1:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/cache.R#L524) *style:* **Lines should not be more than 100 characters.**
```r
        # This is for objects that are not in the return environment yet because they are unrelated to the
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/cache.R:537:10:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/cache.R#L537) *style:* **Place a space before left parenthesis, except in a function call.**
```r
      for(atts in attrsToGrab) {
         ^
```
[R/cache.R:539:10:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/cache.R#L539) *style:* **Commented code should be removed.**
```r
        #attr(object2, atts) <- attr(object, atts)
         ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/cache.R:574:66:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/cache.R#L574) *style:* **Variable or function name should be lowerCamelCase.**
```r
  setGeneric(".addTagsToOutput", function(object, outputObjects, FUN) {
                                                                 ^~~
```
[R/cache.R:597:48:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/cache.R#L597) *style:* **Variable or function name should be lowerCamelCase.**
```r
  definition = function(object, outputObjects, FUN, preDigestByClass) {
                                               ^~~
```
[R/cache.R:608:8:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/cache.R#L608) *style:* **Commented code should be removed.**
```r
      #attr(outputToSave, "tags") <- attr(object, "tags")
       ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/cache.R:609:8:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/cache.R#L609) *style:* **Commented code should be removed.**
```r
      #attr(outputToSave, "call") <- attr(object, "call")
       ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/cache.R:612:11:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/cache.R#L612) *style:* **Commented code should be removed.**
```r
        # attr(outputToSave, "function") <- attr(object, "function")
          ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/cache.R:700:1:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/cache.R#L700) *style:* **Variable or function name should be lowerCamelCase.**
```r
objSize.simList <- function(x, quick = getOption("reproducible.quick", FALSE), ...) {
^~~~~~~~~~~~~~~
```
[R/cache.R:726:1:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/cache.R#L726) *style:* **Variable or function name should be lowerCamelCase.**
```r
makeMemoisable.simList <- function(x) {
^~~~~~~~~~~~~~~~~~~~~~
```
[R/cache.R:734:1:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/cache.R#L734) *style:* **Variable or function name should be lowerCamelCase.**
```r
unmakeMemoisable.simList_ <- function(x) {
^~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/cache.R:759:6:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/cache.R#L759) *style:* **Commented code should be removed.**
```r
    #attr(y, att) <- attr(x, att)
     ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/check.R:151:7:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/check.R#L151) *style:* **Commented code should be removed.**
```r
    # modules <- sim@modules
      ^~~~~~~~~~~~~~~~~~~~~~
```
[R/check.R:152:7:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/check.R#L152) *style:* **Commented code should be removed.**
```r
    # userModules <- modules[-which(coreModules %in% modules)]
      ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/checkpoint.R:36:1:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/checkpoint.R#L36) *style:* **Variable or function name should be lowerCamelCase.**
```r
doEvent.checkpoint <- function(sim, eventTime, eventType, debug = FALSE) {
^~~~~~~~~~~~~~~~~~
```
[R/code-checking.R:86:1:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/code-checking.R#L86) *style:* **Lines should not be more than 100 characters.**
```r
                xAsCall <- .isLastLineSim(x = x, xAsString = bb[seq(funStarts[yy], funEnds[yy + 1])])
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/code-checking.R:90:16:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/code-checking.R#L90) *style:* **Commented code should be removed.**
```r
              #y = strsplit(bb[funStarts[yy]], split = "\\s+")[[1]][1]
               ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/code-checking.R:91:53:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/code-checking.R#L91) *style:* **Commas should always have a space after.**
```r
              y <- paste0(cantCodeCheckMessage, "'",bb[funStarts[yy]], "'")
                                                    ^
```
[R/code-checking.R:144:39:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/code-checking.R#L144) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
    if (identical(type, "returnSim")) { # This is intended for only the last line of a function
                                      ^
```
[R/code-checking.R:182:48:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/code-checking.R#L182) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
      } else if (identical(x[[1]], quote(`<-`)) ) {
                                               ^
```
[R/code-checking.R:185:62:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/code-checking.R#L185) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
            if (any(grepl(x[[2]][[2]], pattern = ".xData"))) {# i.e., sim@.xData
                                                             ^
```
[R/code-checking.R:202:19:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/code-checking.R#L202) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          x <- x[-(1:2)]
                  ^
```
[R/code-checking.R:218:29:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/code-checking.R#L218) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          x[[2]] <- x[[2]][-(1:2)]
                            ^
```
[R/code-checking.R:319:1:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/code-checking.R#L319) *style:* **Lines should not be more than 100 characters.**
```r
    allChecks[anyCantCodeCheck] <- lapply(names(cantCodeCheck[anyCantCodeCheck]), function(objName) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/code-checking.R:367:51:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/code-checking.R#L367) *style:* **Commas should always have a space after.**
```r
                                              " ",verb," declared in metadata outputObjects, ",
                                                  ^
```
[R/code-checking.R:367:56:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/code-checking.R#L367) *style:* **Commas should always have a space after.**
```r
                                              " ",verb," declared in metadata outputObjects, ",
                                                       ^
```
[R/code-checking.R:383:20:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/code-checking.R#L383) *style:* **Commas should always have a space after.**
```r
               " ",verb," declared in metadata inputObjects, ",
                   ^
```
[R/code-checking.R:383:25:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/code-checking.R#L383) *style:* **Commas should always have a space after.**
```r
               " ",verb," declared in metadata inputObjects, ",
                        ^
```
[R/code-checking.R:394:90:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/code-checking.R#L394) *style:* **Commas should always have a space after.**
```r
                                       paste0(paste(missingFrmMod, collapse = ", "), " ",verb,
                                                                                ^
```
[R/code-checking.R:439:75:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/code-checking.R#L439) *style:* **Commas should always have a space after.**
```r
             " but only for the 'get' functions, not the 'set' function ","
                                                                          ^
```
[R/code-checking.R:453:1:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/code-checking.R#L453) *style:* **Lines should not be more than 100 characters.**
```r
    missingInMetadata <- simAssignsNotInDotInputObjects[!(simAssignsNotInDotInputObjects %in% outputObjNames)]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/code-checking.R:470:1:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/code-checking.R#L470) *style:* **Lines should not be more than 100 characters.**
```r
    missingInMetadata <- simAssignsInDotInputObjects[!(simAssignsInDotInputObjects %in% inputObjNames)]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/code-checking.R:662:6:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/code-checking.R#L662) *style:* **Commented code should be removed.**
```r
    #unique(pd[outerWh, "line1"])
     ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/code-checking.R:666:34:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/code-checking.R#L666) *style:* **Commas should always have a space after.**
```r
      whInner <- any((pd[outerWh,"line1"] < lwf) & (pd[outerWh,"line2"] > lwf) )
                                 ^
```
[R/code-checking.R:666:64:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/code-checking.R#L666) *style:* **Commas should always have a space after.**
```r
      whInner <- any((pd[outerWh,"line1"] < lwf) & (pd[outerWh,"line2"] > lwf) )
                                                               ^
```
[R/code-checking.R:666:79:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/code-checking.R#L666) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
      whInner <- any((pd[outerWh,"line1"] < lwf) & (pd[outerWh,"line2"] > lwf) )
                                                                              ^
```
[R/copy.R:37:13:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/copy.R#L37) *style:* **Variable or function name should be lowerCamelCase.**
```r
            sim_ <- object
            ^~~~
```
[R/copy.R:44:14:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/copy.R#L44) *style:* **Commented code should be removed.**
```r
            #sim_@.xData <- new.env(parent = asNamespace("SpaDES.core"))
             ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/copy.R:45:14:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/copy.R#L45) *style:* **Commented code should be removed.**
```r
            #sim_@.xData <- new.env(parent = as.environment("package:SpaDES.core"))
             ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/copy.R:99:1:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/copy.R#L99) *style:* **Trailing blank lines are superfluous.**
```r

^
```
[R/copy.R:100:1:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/copy.R#L100) *style:* **Trailing blank lines are superfluous.**
```r

^
```
[R/downloadData.R:55:96:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/downloadData.R#L55) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
    io <- .parseModulePartial(sim, modules = list(module), defineModuleElement = "inputObjects" )
                                                                                ^
```
[R/downloadData.R:245:7:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/downloadData.R#L245) *style:* **Commented code should be removed.**
```r
    # parsedModule <- parse(file = file.path(path, module, paste0(module, '.R')))
      ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/downloadData.R:246:7:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/downloadData.R#L246) *style:* **Commented code should be removed.**
```r
    # urls <- .getSourceURL(pattern = fileToDownload, x = parsedModule)
      ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/downloadData.R:253:8:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/downloadData.R#L253) *style:* **Commented code should be removed.**
```r
      #urls <- moduleMetadata(module, path)$inputObjects$sourceURL
       ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/downloadData.R:278:27:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/downloadData.R#L278) *style:* **Commas should always have a space after.**
```r
    chksums2 <- chksums[0,]
                          ^
```
[R/downloadData.R:279:6:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/downloadData.R#L279) *style:* **Commented code should be removed.**
```r
    #children <- moduleMetadata(module, path)$childModules
     ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/experiment.R:214:7:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/experiment.R#L214) *style:* **Commented code should be removed.**
```r
    # cl <- tryCatch(getCluster(), error = function(x) NULL)
      ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/experiment.R:215:7:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/experiment.R#L215) *style:* **Commented code should be removed.**
```r
    # on.exit(if (!is.null(cl)) returnCluster(), add = TRUE)
      ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/experiment.R:217:6:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/experiment.R#L217) *style:* **Commented code should be removed.**
```r
    #if (length(modules) == 0) modules <- list(modules(sim)[-(1:4)])
     ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/experiment.R:221:11:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/experiment.R#L221) *style:* **Commented code should be removed.**
```r
        # unlist(params[paramsTmp], recursive = FALSE)
          ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/experiment.R:267:6:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/experiment.R#L267) *style:* **Commented code should be removed.**
```r
    #cachePaths <- paste0(sim@paths$cachePath, "_", numToDo)
     ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/experiment.R:278:87:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/experiment.R#L278) *style:* **Commas should always have a space after.**
```r
        message("Completed a parallel cluster, returning data.table to setDTthreads(",b,")")
                                                                                ^
```
[R/experiment.R:278:89:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/experiment.R#L278) *style:* **Commas should always have a space after.**
```r
        message("Completed a parallel cluster, returning data.table to setDTthreads(",b,")")
                                                                                ^
```
[R/experiment.R:282:1:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/experiment.R#L282) *style:* **Lines should not be more than 100 characters.**
```r
    on.exit({try(stopCluster(cl), silent = TRUE); message("shutting down parallel nodes")}, add = TRUE)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/experiment.R:282:13:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/experiment.R#L282) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
    on.exit({try(stopCluster(cl), silent = TRUE); message("shutting down parallel nodes")}, add = TRUE)
            ^
```
[R/experiment.R:284:6:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/experiment.R#L284) *style:* **Commented code should be removed.**
```r
    #dots <- list(...)
     ^~~~~~~~~~~~~~~~~
```
[R/experiment.R:285:6:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/experiment.R#L285) *style:* **Commented code should be removed.**
```r
    #args <- append(args, dots)
     ^~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/experiment.R:286:6:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/experiment.R#L286) *style:* **Commented code should be removed.**
```r
    #args <- append(args, list(sim = sim))
     ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/experiment.R:287:8:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/experiment.R#L287) *style:* **Commented code should be removed.**
```r
      #if (missing(notOlderThan)) notOlderThan <- NULL
       ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/experiment.R:288:8:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/experiment.R#L288) *style:* **Commented code should be removed.**
```r
      #li <- list(notOlderThan = notOlderThan)
       ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/experiment.R:289:8:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/experiment.R#L289) *style:* **Commented code should be removed.**
```r
      #args <- append(args, li)
       ^~~~~~~~~~~~~~~~~~~~~~~~
```
[R/experiment.R:297:6:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/experiment.R#L297) *style:* **Commented code should be removed.**
```r
    #expOut <- do.call(get(parFun), args)
     ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/experiment.R:299:6:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/experiment.R#L299) *style:* **Commented code should be removed.**
```r
    #lapply(cachePaths, function(from) mergeCache(cachePath(sim), from))
     ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/experiment.R:300:6:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/experiment.R#L300) *style:* **Commented code should be removed.**
```r
    #unlink(cachePaths, recursive = TRUE)
     ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/experiment.R:330:1:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/experiment.R#L330) *style:* **Variable or function name should be lowerCamelCase.**
```r
FunDef <- function(ind, sim, factorialExp, modules, params,
^~~~~~
```
[R/experiment.R:383:54:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/experiment.R#L383) *style:* **Commented code should be removed.**
```r
        params(sim_)[[mod[x]]][[param[[x]]]] <- val #factorialExp[ind,x]
                                                     ^~~~~~~~~~~~~~~~~~~
```
[R/experiment.R:426:7:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/experiment.R#L426) *style:* **Variable or function name should be lowerCamelCase.**
```r
      sim_ <- sim
      ^~~~
```
[R/experiment.R:489:4:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/experiment.R#L489) *style:* **Commented code should be removed.**
```r
  #sim_@paths$cachePath <- cachePaths[ind]#, sim_@paths$cachePath)
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/experiment.R:495:32:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/experiment.R#L495) *style:* **Remove spaces before the left parenthesis in a function call.**
```r
.optimalClusterNum <- function (memRequiredMB = 500, maxNumClusters = 1) {
                               ^
```
[R/experiment.R:504:58:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/experiment.R#L504) *style:* **Put spaces around all infix operators.**
```r
      numClusters <- floor(min(detectedNumCores, availMem/memRequiredMB))
                                                        ~^~
```
[R/experiment.R:517:6:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/experiment.R#L517) *style:* **Commented code should be removed.**
```r
  #  message("This function returns 1 cluster on Windows.")
     ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/experiment.R:518:6:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/experiment.R#L518) *style:* **Commented code should be removed.**
```r
  #  numClusters <- 1
     ^~~~~~~~~~~~~~~~
```
[R/experiment.R:524:32:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/experiment.R#L524) *style:* **Remove spaces before the left parenthesis in a function call.**
```r
.makeClusterRandom <- function (..., iseed = NULL) {
                               ^
```
[R/experiment.R:530:1:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/experiment.R#L530) *style:* **Lines should not be more than 100 characters.**
```r
  for (i in 1:4) cat(file = dots$outfile, "------------------------------------------------------------")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/helpers.R:231:74:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/helpers.R#L231) *style:* **Place a space before left parenthesis, except in a function call.**
```r
                             paste0("package:", .pkgEnv$corePackagesVec[-(1:2)]))
                                                                         ^
```
[R/helpers.R:263:1:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/helpers.R#L263) *style:* **Variable or function name should be lowerCamelCase.**
```r
all.equal.simList <- function(target, current, ...) {
^~~~~~~~~~~~~~~~~
```
[R/helpers.R:279:5:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/helpers.R#L279) *style:* **Commented code should be removed.**
```r
  # suppressWarnings(rm("._startClockTime", envir = envir(target)))
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/helpers.R:280:5:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/helpers.R#L280) *style:* **Commented code should be removed.**
```r
  # suppressWarnings(rm("._startClockTime", envir = envir(current)))
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/helpers.R:281:5:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/helpers.R#L281) *style:* **Commented code should be removed.**
```r
  # suppressWarnings(rm("._firstEventClockTime", envir = envir(target)))
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/helpers.R:282:5:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/helpers.R#L282) *style:* **Commented code should be removed.**
```r
  # suppressWarnings(rm("._firstEventClockTime", envir = envir(current)))
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/helpers.R:283:5:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/helpers.R#L283) *style:* **Commented code should be removed.**
```r
  # suppressWarnings(rm(".timestamp", envir = envir(target)))
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/helpers.R:284:5:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/helpers.R#L284) *style:* **Commented code should be removed.**
```r
  # suppressWarnings(rm(".timestamp", envir = envir(current)))
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/load.R:127:55:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/load.R#L127) *style:* **Commas should always have a space after.**
```r
      nonNAFileList <- filelist[!is.na(filelist$file),]
                                                      ^
```
[R/load.R:207:1:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/load.R#L207) *style:* **Lines should not be more than 100 characters.**
```r
                names(argument) <- c(nam, names(formals(getFromNamespace(loadFun[y], loadPackage[y])))[1])
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/misc-methods.R:463:55:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/misc-methods.R#L463) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
          (inherits(get(w, envir = envir), "integer")) ) {
                                                      ^
```
[R/misc-methods.R:633:1:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/misc-methods.R#L633) *style:* **Variable or function name should be lowerCamelCase.**
```r
Paths <- .paths()
^~~~~
```
[R/misc-methods.R:649:14:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/misc-methods.R#L649) *style:* **Variable or function name should be lowerCamelCase.**
```r
    defaults$CP <- TRUE
             ^~
```
[R/misc-methods.R:653:14:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/misc-methods.R#L653) *style:* **Variable or function name should be lowerCamelCase.**
```r
    defaults$IP <- TRUE
             ^~
```
[R/misc-methods.R:657:14:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/misc-methods.R#L657) *style:* **Variable or function name should be lowerCamelCase.**
```r
    defaults$MP <- TRUE
             ^~
```
[R/misc-methods.R:661:14:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/misc-methods.R#L661) *style:* **Variable or function name should be lowerCamelCase.**
```r
    defaults$OP <- TRUE
             ^~
```
[R/misc-methods.R:684:68:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/misc-methods.R#L684) *style:* **Commas should never have a space before.**
```r
              if (!defaults$MP) paste0("    spades.modulePath = '" , modPaths, "'\n"),
                                                                  ~^
```
[R/misc-methods.R:700:1:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/misc-methods.R#L700) *style:* **Trailing blank lines are superfluous.**
```r

^
```
[R/module-define.R:753:63:](https://github.com/PredictiveEcology/SpaDES.core/blob/18fae25c041cb52c39998d7596a6612691f1db72/R/module-define.R#L753) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
      exts <- na.omit(match(file_ext(fl), .fileExts[, "exts"]) )
                                                              ^
```


Here it is: https://www.dropbox.com/sh/9y519uq74o3jh5f/AABTkvR7oCTjfKgT3aIgV76Oa?dl=0 pick out your format or create your own.
Btw: Added STEC 55x to development branch today.


166330897_Issue6707 (Nigusse) - x86_64-Linux-Ubuntu-18.04-gcc-7.4-IntegrationCoverage-Debug: OK (668 of 668 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)


![](https://github.trello.services/images/mini-trello-icon.png) [Corrigir erro de ortografia na mensagem sem conexão](https://trello.com/c/GXzs9QC3/60-corrigir-erro-de-ortografia-na-mensagem-sem-conex%C3%A3o)


Created multidev environment [eari-contenta#pr-4](https://dashboard.pantheon.io/sites/6207a978-eea6-466e-b84a-7fd8be31b6c6#pr-4).

[![Visit Site](https://raw.githubusercontent.com/pantheon-systems/ci-drops-8/0.1.0/data/img/visit-site-36.png)](https://pr-4-eari-contenta.pantheonsite.io/)


Successfully aliased the URL <https://memcode-tkzk-rhldkmtqe.now.sh> to the following aliases:

* https://memcode.now.sh
* https://memcode-tkzk.leoancap.now.sh
* https://memcode-tkzk-git-master.leoancap.now.sh


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

* https://effector.now.sh
* https://effector.zerobias.now.sh
* https://effector-git-master.zerobias.now.sh


`seed` is already declared on L135


Successfully aliased the URL <https://hudson-hemp-qp7cg2hhu.now.sh> to the following aliases:

* https://hudson-hemp.rebeccazhou.now.sh
* https://hudson-hemp-git-master.rebeccazhou.now.sh


TeamCity HearThis / HearThis pull requests [Build *.*.109.b028e2614285e5b38d7bcedc16b1dde37c5fbd3d](https://build.palaso.org/viewLog.html?buildId=159128&buildTypeId=HearThis_HearThisPullRequests) outcome was **SUCCESS**
Summary: Running Build time: 00:01:12


The way that Clause 10 of the TBNOA is written, the course of action that adhere's most closely to the text would be to return BP inflation to 1% once the ETRF expires.

`Block Producer and Standby Block Producers shall be paid each day from a daily fund consisting of the daily share of 1% annual inflation (the "BP Inflation Rate") of the entire value of the Telos blockchain as measured in TLOS tokens`

`...`

`For as long as funds exist in the Exchange Token Reserve Fund account named "exrsrv.tf", the aggregate amount of pay for all Block Producers and Standby Block Producers shall be drawn from that fund preferentially to creating new TLOS tokens to pay into the Block Producer pay account named "eosio.bpay" at a rate equivalent to 6% annual inflation. This rate may be adjusted by a 2/3+1 vote of the Block Producers provided it does not exceed the limits set in Clause 49 "Telos Economic Development".
`

I take this to mean that once the fund is depleted, we go back to 1% for BPs. Hopefully this will be in a few years and the value of TLOS will be high enough for this to work. If not, we'll have to address it then.