[inst/examples/example_distanceFromEachPoint.R:37:2:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/inst/examples/example_distanceFromEachPoint.R#L37) *style:* **Commented code should be removed.**
```r
#beginCluster(3) # can do parallel
 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/example_distanceFromEachPoint.R:40:2:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/inst/examples/example_distanceFromEachPoint.R#L40) *style:* **Commented code should be removed.**
```r
#endCluster() # if beginCluster was run
 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:83:11:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/initialize.R#L83) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
      if ( method != "RMexp") {
          ^
```
[R/initialize.R:88:1:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/initialize.R#L88) *style:* **Lines should not be more than 100 characters.**
```r
    map <- raster(RandomFields::RFsimulate(model, y = 1:ncSpeedup, x = 1:nrSpeedup, grid = TRUE, ...))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:223:1:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/initialize.R#L223) *style:* **Variable or function name should be lowerCamelCase.**
```r
randomPolygon.SpatialPoints <- function(x, hectares, area) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:247:4:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/initialize.R#L247) *style:* **Commented code should be removed.**
```r
  #y <- spTransform(x, areaCRS)
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:263:3:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/initialize.R#L263) *style:* **Variable or function name should be lowerCamelCase.**
```r
  X <- c(jitter(sort(rbeta(nPoints, betaPar, betaPar) * (maxX - minX) + minX)),
  ^
```
[R/initialize.R:265:3:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/initialize.R#L265) *style:* **Variable or function name should be lowerCamelCase.**
```r
  Y <- c(jitter(sort(rbeta(nPoints / 2, betaPar, betaPar) * (maxY - meanY) + meanY)),
  ^
```
[R/initialize.R:269:3:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/initialize.R#L269) *style:* **Variable or function name should be lowerCamelCase.**
```r
  Sr1 <- Polygon(cbind(X + xAdd, Y + yAdd))
  ^~~
```
[R/initialize.R:270:3:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/initialize.R#L270) *style:* **Variable or function name should be lowerCamelCase.**
```r
  Srs1 <- Polygons(list(Sr1), "s1")
  ^~~~
```
[R/initialize.R:283:1:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/initialize.R#L283) *style:* **Variable or function name should be lowerCamelCase.**
```r
randomPolygon.matrix <- function(x, hectares, area) {
^~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:300:1:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/initialize.R#L300) *style:* **Variable or function name should be lowerCamelCase.**
```r
randomPolygon.SpatialPolygons <- function(x, hectares, area) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:307:8:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/initialize.R#L307) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  while(need) {
       ^
```
[R/initialize.R:407:3:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/initialize.R#L407) *style:* **Commented code should be removed.**
```r
# ### INCORPORATE RELEVANT PARTS OF THIS OLD INIT FUNCTION INTO INITCOORDS()
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:412:3:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/initialize.R#L412) *style:* **Commented code should be removed.**
```r
# #'                      (currently only \code{RasterLayer} or
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:413:3:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/initialize.R#L413) *style:* **Commented code should be removed.**
```r
# #'                      \code{SpatialPolygonsDataFrame}) accepted.
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:423:7:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/initialize.R#L423) *style:* **Commented code should be removed.**
```r
#     ext <- extent(agentlocation)
      ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:425:9:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/initialize.R#L425) *style:* **Commented code should be removed.**
```r
#       #            nonNAs <- !is.na(getvalue(probinit))
        ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:426:9:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/initialize.R#L426) *style:* **Commented code should be removed.**
```r
#       nonNAs <- !is.na(getValues(probinit))
        ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:427:9:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/initialize.R#L427) *style:* **Commented code should be removed.**
```r
#       wh.nonNAs <- which(nonNAs)
        ^~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:428:9:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/initialize.R#L428) *style:* **Commented code should be removed.**
```r
#       #            ProbInit.v <- cumsum(getvalue(probinit)[nonNAs])
        ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:429:9:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/initialize.R#L429) *style:* **Commented code should be removed.**
```r
#       ProbInit.v <- cumsum(getValues(probinit)[nonNAs])
        ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:431:11:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/initialize.R#L431) *style:* **Commented code should be removed.**
```r
#         ran <- runif(numagents,0,1)
          ^~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:432:11:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/initialize.R#L432) *style:* **Commented code should be removed.**
```r
#         fI <- findInterval(ran, ProbInit.v)+1
          ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:433:11:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/initialize.R#L433) *style:* **Commented code should be removed.**
```r
#         fI2 <- wh.nonNAs[fI]
          ^~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:434:11:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/initialize.R#L434) *style:* **Commented code should be removed.**
```r
#         last.ran <- runif(numagents,0,1)
          ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:435:11:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/initialize.R#L435) *style:* **Commented code should be removed.**
```r
#         last.fI <- findInterval(last.ran, ProbInit.v)+1
          ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:436:11:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/initialize.R#L436) *style:* **Commented code should be removed.**
```r
#         last.fI2 <- wh.nonNAs[last.fI]
          ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:438:11:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/initialize.R#L438) *style:* **Commented code should be removed.**
```r
#         #                va <- getvalue(probinit)[nonNAs]
          ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:439:11:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/initialize.R#L439) *style:* **Commented code should be removed.**
```r
#         va <- getValues(probinit)[nonNAs]
          ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:440:11:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/initialize.R#L440) *style:* **Commented code should be removed.**
```r
#         ran <- runif(length(va), 0, 1)
          ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:441:11:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/initialize.R#L441) *style:* **Commented code should be removed.**
```r
#         fI2 <- wh.nonNAs[ran<va]
          ^~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:443:11:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/initialize.R#L443) *style:* **Commented code should be removed.**
```r
#         last.ran <- runif(length(fI2), 0, 1)
          ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:444:11:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/initialize.R#L444) *style:* **Commented code should be removed.**
```r
#         last.fI <- findInterval(last.ran, ProbInit.v) + 1
          ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:445:11:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/initialize.R#L445) *style:* **Commented code should be removed.**
```r
#         last.fI2 <- wh.nonNAs[last.fI]
          ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:447:11:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/initialize.R#L447) *style:* **Commented code should be removed.**
```r
#         #                last.ran <- runif(length(fI2),0,1)
          ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:448:11:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/initialize.R#L448) *style:* **Commented code should be removed.**
```r
#         #                last.fI2 <- wh.nonNAs[last.ran<va]
          ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:451:11:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/initialize.R#L451) *style:* **Commented code should be removed.**
```r
#         position <- xyFromCell(agentlocation,fI2,spatial = TRUE)
          ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:453:11:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/initialize.R#L453) *style:* **Commented code should be removed.**
```r
#         position <- coordinates(agentlocation)
          ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:455:11:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/initialize.R#L455) *style:* **Commented code should be removed.**
```r
#         stop("need raster layer or Spatial Points object")
          ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:457:9:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/initialize.R#L457) *style:* **Commented code should be removed.**
```r
#       numagents <- length(position)
        ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:465:13:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/initialize.R#L465) *style:* **Commented code should be removed.**
```r
#           colnames(xy) = c("x", "y")
            ^~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:466:13:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/initialize.R#L466) *style:* **Commented code should be removed.**
```r
#           position <- SpatialPoints(xy)
            ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:467:13:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/initialize.R#L467) *style:* **Commented code should be removed.**
```r
#           position <- SpatialPoints(sampleRandom(agentlocation, numagents, xy = TRUE, sp = TRUE))
            ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:469:13:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/initialize.R#L469) *style:* **Commented code should be removed.**
```r
#           sam <- sample(1:length(agentlocation),numagents)
            ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:470:13:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/initialize.R#L470) *style:* **Commented code should be removed.**
```r
#           position <- SpatialPoints(agentlocation[sam,])
            ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:472:13:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/initialize.R#L472) *style:* **Commented code should be removed.**
```r
#           stop("need raster layer or Spatial Points object")
            ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:479:13:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/initialize.R#L479) *style:* **Commented code should be removed.**
```r
#           position <- SpatialPoints(agentlocation)
            ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:481:13:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/initialize.R#L481) *style:* **Commented code should be removed.**
```r
#           stop("need raster layer or Spatial Points object")
            ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:483:11:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/initialize.R#L483) *style:* **Commented code should be removed.**
```r
#         numagents <- length(position)
          ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:491:11:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/initialize.R#L491) *style:* **Commented code should be removed.**
```r
#         numagents <- length(position)
          ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:495:7:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/initialize.R#L495) *style:* **Commented code should be removed.**
```r
#     stop("Need to provide agentlocation, which can be a map layer")
      ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:497:5:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/initialize.R#L497) *style:* **Commented code should be removed.**
```r
#   heading1 <- runif(numagents, 0, 360)
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:498:5:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/initialize.R#L498) *style:* **Commented code should be removed.**
```r
#   distance <- runif(numagents, 0.1, 10)
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:500:5:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/initialize.R#L500) *style:* **Commented code should be removed.**
```r
#   .Object@ID <- as.character(1:numagents)
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:501:5:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/initialize.R#L501) *style:* **Commented code should be removed.**
```r
#   .Object@spatial <- position
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:502:5:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/initialize.R#L502) *style:* **Commented code should be removed.**
```r
#   .Object@heading <- heading1
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:503:5:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/initialize.R#L503) *style:* **Commented code should be removed.**
```r
#   .Object@distance <- distance
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:505:5:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/initialize.R#L505) *style:* **Commented code should be removed.**
```r
#   return(.Object)
    ^~~~~~~~~~~~~~~
```
[R/initialize.R:510:32:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/initialize.R#L510) *style:* **Commas should always have a space after.**
```r
  CRS(paste("+proj=utm +zone=",zone," ellps=WGS84",sep=''))
                               ^
```
[R/initialize.R:510:37:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/initialize.R#L510) *style:* **Commas should always have a space after.**
```r
  CRS(paste("+proj=utm +zone=",zone," ellps=WGS84",sep=''))
                                    ^
```
[R/initialize.R:510:52:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/initialize.R#L510) *style:* **Commas should always have a space after.**
```r
  CRS(paste("+proj=utm +zone=",zone," ellps=WGS84",sep=''))
                                                   ^
```
[R/initialize.R:510:55:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/initialize.R#L510) *style:* **Put spaces around all infix operators.**
```r
  CRS(paste("+proj=utm +zone=",zone," ellps=WGS84",sep=''))
                                                     ~^~
```
[R/initialize.R:510:56:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/initialize.R#L510) *style:* **Only use double-quotes.**
```r
  CRS(paste("+proj=utm +zone=",zone," ellps=WGS84",sep=''))
                                                       ^~
```
[R/initialize.R:514:22:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/initialize.R#L514) *style:* **Put spaces around all infix operators.**
```r
  (floor((long + 180)/6) %% 60) + 1
                    ~^~
```
[R/mapReduce.R:53:3:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/mapReduce.R#L53) *style:* **Variable or function name should be lowerCamelCase.**
```r
  BsumVec <- reduced[fullRasterVals] # join
  ^~~~~~~
```
[R/neighbourhood.R:114:21:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/neighbourhood.R#L114) *style:* **Variable or function name should be lowerCamelCase.**
```r
                    match.adjacent = FALSE, cutoff.for.data.table = 2e3,
                    ^~~~~~~~~~~~~~
```
[R/neighbourhood.R:114:45:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/neighbourhood.R#L114) *style:* **Variable or function name should be lowerCamelCase.**
```r
                    match.adjacent = FALSE, cutoff.for.data.table = 2e3,
                                            ^~~~~~~~~~~~~~~~~~~~~
```
[R/neighbourhood.R:233:1:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/neighbourhood.R#L233) *style:* **Lines should not be more than 100 characters.**
```r
              ((adj[, "from"] %% numCol + adj[, "to"] %% numCol) == 1)) # | #right & left edge cells, with neighbours wrapped
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/neighbourhood.R:238:1:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/neighbourhood.R#L238) *style:* **Lines should not be more than 100 characters.**
```r
              ((adj[, "from"] %% numCol + adj[, "to"] %% numCol) == 1)) # | #right & left edge cells, with neighbours wrapped
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/neighbourhood.R:297:1:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/neighbourhood.R#L297) *style:* **Lines should not be more than 100 characters.**
```r
              ((from %% numCol + to %% numCol) == 1))# | #right & left edge cells, with neighbours wrapped
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/neighbourhood.R:806:29:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/neighbourhood.R#L806) *style:* **Variable or function name should be lowerCamelCase.**
```r
setGeneric("wrap", function(X, bounds, withHeading) {
                            ^
```
[R/neighbourhood.R:815:25:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/neighbourhood.R#L815) *style:* **Variable or function name should be lowerCamelCase.**
```r
  definition = function(X, bounds) {
                        ^
```
[R/neighbourhood.R:832:25:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/neighbourhood.R#L832) *style:* **Variable or function name should be lowerCamelCase.**
```r
  definition = function(X, bounds) {
                        ^
```
[R/neighbourhood.R:842:25:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/neighbourhood.R#L842) *style:* **Variable or function name should be lowerCamelCase.**
```r
  definition = function(X, bounds) {
                        ^
```
[R/neighbourhood.R:843:5:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/neighbourhood.R#L843) *style:* **Variable or function name should be lowerCamelCase.**
```r
    X <- wrap(X, bounds = extent(bounds))
    ^
```
[R/neighbourhood.R:852:25:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/neighbourhood.R#L852) *style:* **Variable or function name should be lowerCamelCase.**
```r
  definition = function(X, bounds) {
                        ^
```
[R/neighbourhood.R:853:5:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/neighbourhood.R#L853) *style:* **Variable or function name should be lowerCamelCase.**
```r
    X <- wrap(X, bounds = extent(bounds))
    ^
```
[R/neighbourhood.R:862:25:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/neighbourhood.R#L862) *style:* **Variable or function name should be lowerCamelCase.**
```r
  definition = function(X, bounds) {
                        ^
```
[R/neighbourhood.R:865:7:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/neighbourhood.R#L865) *style:* **Variable or function name should be lowerCamelCase.**
```r
      X <- wrap(X, bounds = extent(bounds))
      ^
```
[R/neighbourhood.R:877:25:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/neighbourhood.R#L877) *style:* **Variable or function name should be lowerCamelCase.**
```r
  definition = function(X, bounds, withHeading) {
                        ^
```
[R/neighbourhood.R:902:25:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/neighbourhood.R#L902) *style:* **Variable or function name should be lowerCamelCase.**
```r
  definition = function(X, bounds, withHeading) {
                        ^
```
[R/neighbourhood.R:903:7:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/neighbourhood.R#L903) *style:* **Variable or function name should be lowerCamelCase.**
```r
      X <- wrap(X, bounds = extent(bounds), withHeading = withHeading)
      ^
```
[R/neighbourhood.R:912:25:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/neighbourhood.R#L912) *style:* **Variable or function name should be lowerCamelCase.**
```r
  definition = function(X, bounds, withHeading) {
                        ^
```
[R/neighbourhood.R:915:7:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/neighbourhood.R#L915) *style:* **Variable or function name should be lowerCamelCase.**
```r
      X <- wrap(X, bounds = extent(bounds), withHeading = withHeading)
      ^
```
[R/neighbourhood.R:1052:40:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/neighbourhood.R#L1052) *style:* **Commas should always have a space after.**
```r
  cc <- cbind(pureCircle2[, "x"] - xy[,"x"], pureCircle2[, "y"] - xy[, "y"])
                                       ^
```
[R/probability.R:41:35:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/probability.R#L41) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    1 / sqrt(var * 2 * pi) * exp(-((theta - mu + 2 * pi * k) ^ 2) / (2 * var))
                                  ^
```
[R/probability.R:44:3:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/probability.R#L44) *style:* **Variable or function name should be lowerCamelCase.**
```r
  Next <- term(theta, mu, var, k)
  ^~~~
```
[R/probability.R:45:3:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/probability.R#L45) *style:* **Variable or function name should be lowerCamelCase.**
```r
  Last <- Next
  ^~~~
```
[R/RcppExports.R:68:20:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/RcppExports.R#L68) *style:* **Variable or function name should be lowerCamelCase.**
```r
runifC <- function(N) {
                   ^
```
[R/RcppExports.R:71:1:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/RcppExports.R#L71) *style:* **Trailing blank lines are superfluous.**
```r

^
```
[R/SELES.R:53:23:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/SELES.R#L53) *style:* **Variable or function name should be lowerCamelCase.**
```r
numAgents <- function(N, probInit) {
                      ^
```
[R/splitRaster.R:116:1:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/splitRaster.R#L116) *style:* **Lines should not be more than 100 characters.**
```r
      clusterApplyLB(cl = cl, x = seq_along(extents), fun = croppy, e = extents, r = r, path = path, rType = rType)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/spread.R:538:8:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/spread.R#L538) *style:* **Commented code should be removed.**
```r
      #isNASpreadProb <- is.na(spreadProb[])
       ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/spread.R:540:11:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/spread.R#L540) *style:* **Commented code should be removed.**
```r
      #   isNASpreadProb <- is.na(spreadProb[])
          ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/spread.R:541:11:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/spread.R#L541) *style:* **Commented code should be removed.**
```r
      #   spreadProb[isNASpreadProb] <- 0L
          ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/spread.R:942:41:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/spread.R#L942) *style:* **Place a space before left parenthesis, except in a function call.**
```r
              notDupsEvents <- notDups[-(1:(nrSpreads - nrPotentials))]
                                        ^
```
[R/spread2.R:5:1:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/spread2.R#L5) *style:* **Lines should not be more than 100 characters.**
```r
                           "quantityAdj", "quantityAdj2", "state", "size", "tooBigByNCells", "V1", "proportion"
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/spread2.R:674:12:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/spread2.R#L674) *style:* **Commented code should be removed.**
```r
          #pureCircle <- unique(pureCircle)
           ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/spread2.R:759:13:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/spread2.R#L759) *style:* **Commented code should be removed.**
```r
          # colnamesDtPot <- colnames(dtPotential)
            ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/spread2.R:760:13:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/spread2.R#L760) *style:* **Commented code should be removed.**
```r
          # ll <-  lapply(colnamesDtPot, function(x) dtPotential[[x]][!spreadProbNA])
            ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/spread2.R:761:13:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/spread2.R#L761) *style:* **Commented code should be removed.**
```r
          # names(ll) <- colnamesDtPot
            ^~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/spread2.R:762:13:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/spread2.R#L762) *style:* **Commented code should be removed.**
```r
          # dtPotential <- as.data.table(ll)
            ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/spread2.R:772:1:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/spread2.R#L772) *style:* **Lines should not be more than 100 characters.**
```r
                                                                   .I[sample.int(length(numNeighs), size = numNeighs, prob = spreadProbRel)],
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/spread2.R:787:7:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/spread2.R#L787) *style:* **Variable or function name should be lowerCamelCase.**
```r
      NAaSP <- !is.na(actualSpreadProb)
      ^~~~~
```
[R/spread2.R:789:42:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/spread2.R#L789) *style:* **Commas should always have a space after.**
```r
        dtPotential <- dtPotential[NAaSP,]
                                         ^
```
[R/spread2.R:830:1:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/spread2.R#L830) *style:* **Lines should not be more than 100 characters.**
```r
        # this is to prevent overlap within an event... in some cases, overlap within event is desired, so skip this block
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/spread2.R:848:1:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/spread2.R#L848) *style:* **Lines should not be more than 100 characters.**
```r
        #successCells <- na.omit(successCells[!dupsWithinDtPotential]) # remove the dupsWithinDtPotential
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/spread2.R:848:10:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/R/spread2.R#L848) *style:* **Commented code should be removed.**
```r
        #successCells <- na.omit(successCells[!dupsWithinDtPotential]) # remove the dupsWithinDtPotential
         ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-examples.R:6:11:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/tests/testthat/test-examples.R#L6) *style:* **Commented code should be removed.**
```r
    cat("#START##############\n", file = tmpExFile, append = FALSE)
          ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-examples.R:17:5:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/tests/testthat/test-examples.R#L17) *style:* **Commas should never have a space before.**
```r
  } , add = TRUE)
   ~^
```
[tests/testthat/test-mapReduce.R:23:4:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/tests/testthat/test-mapReduce.R#L23) *style:* **Commented code should be removed.**
```r
  #expect_equal(sort(unique(getValues(biomass))), sort(reducedDT$biomass))
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-mapReduce.R:27:5:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/tests/testthat/test-mapReduce.R#L27) *style:* **Commented code should be removed.**
```r
#   library(data.table)
    ^~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-mapReduce.R:28:5:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/tests/testthat/test-mapReduce.R#L28) *style:* **Commented code should be removed.**
```r
#   library(raster)
    ^~~~~~~~~~~~~~~
```
[tests/testthat/test-mapReduce.R:31:6:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/tests/testthat/test-mapReduce.R#L31) *style:* **Commented code should be removed.**
```r
#    detach("package:data.table")
     ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-mapReduce.R:35:5:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/tests/testthat/test-mapReduce.R#L35) *style:* **Commented code should be removed.**
```r
#   ras <- raster(extent(0,15,0,15), res=1)
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-mapReduce.R:36:5:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/tests/testthat/test-mapReduce.R#L36) *style:* **Commented code should be removed.**
```r
#   fullRas <- randomPolygons(ras, numTypes=5, speedup=1, p=0.3)
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-mapReduce.R:37:5:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/tests/testthat/test-mapReduce.R#L37) *style:* **Commented code should be removed.**
```r
#   names(fullRas) <- "mapcodeAll"
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-mapReduce.R:38:5:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/tests/testthat/test-mapReduce.R#L38) *style:* **Commented code should be removed.**
```r
#   uniqueComms <- raster::unique(fullRas)
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-mapReduce.R:42:7:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/tests/testthat/test-mapReduce.R#L42) *style:* **Commented code should be removed.**
```r
#     biomass=rnbinom(length(uniqueComms), mu=4000, 0.4)
      ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-mapReduce.R:44:5:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/tests/testthat/test-mapReduce.R#L44) *style:* **Commented code should be removed.**
```r
#   biomass <- rasterizeReduced(reducedDT, fullRas, "biomass")
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-mapReduce.R:46:5:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/tests/testthat/test-mapReduce.R#L46) *style:* **Commented code should be removed.**
```r
#   expect_equal(sort(unique(getValues(biomass))), sort(reducedDT$biomass))
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-mapReduce.R:47:5:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/tests/testthat/test-mapReduce.R#L47) *style:* **Commented code should be removed.**
```r
#   expect_equal(length(unique(getValues(biomass))), length(unique(getValues(fullRas))))
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-mapReduce.R:49:5:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/tests/testthat/test-mapReduce.R#L49) *style:* **Commented code should be removed.**
```r
#   setkey(reducedDT, biomass)
    ^~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-mapReduce.R:50:5:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/tests/testthat/test-mapReduce.R#L50) *style:* **Commented code should be removed.**
```r
#   communities <- rasterizeReduced(reducedDT, fullRas, "communities")
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-mapReduce.R:51:5:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/tests/testthat/test-mapReduce.R#L51) *style:* **Commented code should be removed.**
```r
#   expect_equal(sort(unique(getValues(communities))), sort(reducedDT$communities))
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-mapReduce.R:52:5:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/tests/testthat/test-mapReduce.R#L52) *style:* **Commented code should be removed.**
```r
#   expect_equal(length(unique(getValues(communities))), length(unique(getValues(fullRas))))
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-mapReduce.R:56:5:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/tests/testthat/test-mapReduce.R#L56) *style:* **Commented code should be removed.**
```r
#   library(data.table)
    ^~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-mapReduce.R:57:5:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/tests/testthat/test-mapReduce.R#L57) *style:* **Commented code should be removed.**
```r
#   library(raster)
    ^~~~~~~~~~~~~~~
```
[tests/testthat/test-mapReduce.R:60:6:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/tests/testthat/test-mapReduce.R#L60) *style:* **Commented code should be removed.**
```r
#    detach("package:data.table")
     ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-mapReduce.R:64:5:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/tests/testthat/test-mapReduce.R#L64) *style:* **Commented code should be removed.**
```r
#   ras <- raster(extent(0, 15, 0, 15), res = 1)
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-mapReduce.R:65:5:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/tests/testthat/test-mapReduce.R#L65) *style:* **Commented code should be removed.**
```r
#   fullRas <- randomPolygons(ras, numTypes = 5, speedup = 1, p = 0.3)
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-mapReduce.R:67:5:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/tests/testthat/test-mapReduce.R#L67) *style:* **Commented code should be removed.**
```r
#   uniqueComms <- raster::unique(fullRas)
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-mapReduce.R:71:7:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/tests/testthat/test-mapReduce.R#L71) *style:* **Commented code should be removed.**
```r
#     biomass=rnbinom(length(uniqueComms), mu = 4000, 0.4)
      ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-mapReduce.R:73:5:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/tests/testthat/test-mapReduce.R#L73) *style:* **Commented code should be removed.**
```r
#   biomass <- rasterizeReduced(reducedDT, fullRas, "biomass")
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-mapReduce.R:75:5:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/tests/testthat/test-mapReduce.R#L75) *style:* **Commented code should be removed.**
```r
#   setkey(reducedDT, biomass)
    ^~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-mapReduce.R:76:5:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/tests/testthat/test-mapReduce.R#L76) *style:* **Commented code should be removed.**
```r
#   communities <- rasterizeReduced(reducedDT, fullRas, "communities")
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-mapReduce.R:77:5:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/tests/testthat/test-mapReduce.R#L77) *style:* **Commented code should be removed.**
```r
#   expect_equal(sort(unique(getValues(communities))), sort(reducedDT$communities))
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-mapReduce.R:81:5:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/tests/testthat/test-mapReduce.R#L81) *style:* **Commented code should be removed.**
```r
#   library(data.table)
    ^~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-mapReduce.R:82:5:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/tests/testthat/test-mapReduce.R#L82) *style:* **Commented code should be removed.**
```r
#   library(raster)
    ^~~~~~~~~~~~~~~
```
[tests/testthat/test-mapReduce.R:85:6:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/tests/testthat/test-mapReduce.R#L85) *style:* **Commented code should be removed.**
```r
#    detach("package:data.table")
     ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-mapReduce.R:89:5:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/tests/testthat/test-mapReduce.R#L89) *style:* **Commented code should be removed.**
```r
#   ras <- raster(extent(0,15,0,15), res=1)
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-mapReduce.R:90:5:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/tests/testthat/test-mapReduce.R#L90) *style:* **Commented code should be removed.**
```r
#   fullRas <- randomPolygons(ras, numTypes=5, speedup=1, p=0.3)
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-mapReduce.R:91:5:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/tests/testthat/test-mapReduce.R#L91) *style:* **Commented code should be removed.**
```r
#   names(fullRas) <- "mapcodeAll"
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-mapReduce.R:92:5:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/tests/testthat/test-mapReduce.R#L92) *style:* **Commented code should be removed.**
```r
#   uniqueComms <- raster::unique(fullRas)
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-mapReduce.R:96:7:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/tests/testthat/test-mapReduce.R#L96) *style:* **Commented code should be removed.**
```r
#     biomass=rnbinom(length(uniqueComms), mu=4000, 0.4)
      ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-mapReduce.R:98:5:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/tests/testthat/test-mapReduce.R#L98) *style:* **Commented code should be removed.**
```r
#   biomass <- rasterizeReduced(reducedDT, fullRas, "biomass")
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-mapReduce.R:100:5:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/tests/testthat/test-mapReduce.R#L100) *style:* **Commented code should be removed.**
```r
#   setkey(reducedDT, biomass)
    ^~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-mapReduce.R:101:5:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/tests/testthat/test-mapReduce.R#L101) *style:* **Commented code should be removed.**
```r
#   communities <- rasterizeReduced(reducedDT, fullRas, "communities")
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-mapReduce.R:102:5:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/tests/testthat/test-mapReduce.R#L102) *style:* **Commented code should be removed.**
```r
#   expect_equal(length(unique(getValues(communities))), length(unique(getValues(fullRas))))
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-mergeRaster.R:4:6:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/tests/testthat/test-mergeRaster.R#L4) *style:* **Use <-, not =, for assignment.**
```r
  nx = 3
     ^
```
[tests/testthat/test-mergeRaster.R:5:6:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/tests/testthat/test-mergeRaster.R#L5) *style:* **Use <-, not =, for assignment.**
```r
  ny = 3
     ^
```
[tests/testthat/test-mergeRaster.R:10:54:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/tests/testthat/test-mergeRaster.R#L10) *style:* **Commas should never have a space before.**
```r
                        vals = round(runif(n = 14400 , min = 1, max = 10)))
                                                    ~^
```
[tests/testthat/test-mergeRaster.R:13:29:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/tests/testthat/test-mergeRaster.R#L13) *style:* **Put spaces around all infix operators.**
```r
  expect_length(splitted, nx*ny)
                           ~^~
```
[tests/testthat/test-mergeRaster.R:33:6:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/tests/testthat/test-mergeRaster.R#L33) *style:* **Use <-, not =, for assignment.**
```r
  nx = 3
     ^
```
[tests/testthat/test-mergeRaster.R:34:6:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/tests/testthat/test-mergeRaster.R#L34) *style:* **Use <-, not =, for assignment.**
```r
  ny = 3
     ^
```
[tests/testthat/test-mergeRaster.R:39:54:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/tests/testthat/test-mergeRaster.R#L39) *style:* **Commas should never have a space before.**
```r
                        vals = round(runif(n = 14400 , min = 1, max = 10)))
                                                    ~^
```
[tests/testthat/test-mergeRaster.R:42:29:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/tests/testthat/test-mergeRaster.R#L42) *style:* **Put spaces around all infix operators.**
```r
  expect_length(splitted, nx*ny)
                           ~^~
```
[tests/testthat/test-mergeRaster.R:52:54:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/tests/testthat/test-mergeRaster.R#L52) *style:* **Commas should never have a space before.**
```r
                        vals = round(runif(n = 14400 , min = 1, max = 10)))
                                                    ~^
```
[tests/testthat/test-randomPolygon.R:24:60:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/tests/testthat/test-randomPolygon.R#L24) *style:* **Put spaces around all infix operators.**
```r
  expect_true(base::abs(base::abs(polyArea - area)) <  area/4) ## TODO: why is this area/4?
                                                          ~^~
```
[tests/testthat/test-randomPolygon.R:28:3:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/tests/testthat/test-randomPolygon.R#L28) *style:* **Variable or function name should be lowerCamelCase.**
```r
  centerSP_UTM <- sp::spTransform(centerSP, CRSobj = raster::crs(poly1InUTM))
  ^~~~~~~~~~~~
```
[tests/testthat/test-randomPolygon.R:30:1:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/tests/testthat/test-randomPolygon.R#L30) *style:* **Lines should not be more than 100 characters.**
```r
  expect_true(raster::pointDistance(centerSP_UTM, polyCenter, lonlat = FALSE) < 100) ## TODO: appropriate test?
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-splitRaster.R:148:38:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/tests/testthat/test-splitRaster.R#L148) *style:* **Commas should always have a space after.**
```r
  expect_identical(dataType(y4[[1]]),"INT1U")
                                     ^
```
[tests/testthat/test-splitRaster.R:165:1:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/tests/testthat/test-splitRaster.R#L165) *style:* **Lines should not be more than 100 characters.**
```r
    tmpdir <- file.path(tempdir(), "splitRaster-test-parallel") %>% reproducible::checkPath(create = TRUE)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-splitRaster.R:168:8:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/tests/testthat/test-splitRaster.R#L168) *style:* **Commented code should be removed.**
```r
      #detach("package:raster")
       ^~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-splitRaster.R:226:1:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/tests/testthat/test-splitRaster.R#L226) *style:* **Lines should not be more than 100 characters.**
```r
  tmpdir <- file.path(tempdir(), "splitRaster-test-large") %>% reproducible::checkPath(create = TRUE)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-splitRaster.R:264:4:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/tests/testthat/test-splitRaster.R#L264) *style:* **Commented code should be removed.**
```r
  #expect_equal(min(values(m)), min(values(r))) ## Error: cannot allocate vector of size 4.8 Gb
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-splitRaster.R:283:4:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/tests/testthat/test-splitRaster.R#L283) *style:* **Commented code should be removed.**
```r
  #expect_equal(max(values(m1)), max(values(r)))
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-splitRaster.R:284:4:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/tests/testthat/test-splitRaster.R#L284) *style:* **Commented code should be removed.**
```r
  #expect_equal(min(values(m1)), min(values(r)))
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-spread.R:209:1:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/tests/testthat/test-spread.R#L209) *style:* **Lines should not be more than 100 characters.**
```r
    if (interactive()) Plot(circEdge, addTo = "circs", cols = c("transparent", rainbow(numCircs)[whCirc]))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-spread2.R:148:4:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/tests/testthat/test-spread2.R#L148) *style:* **Commented code should be removed.**
```r
  #quickDT <- data.table(id = seq_along(sams), initialPixels = sams, key = "id")
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-spread2.R:150:4:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/tests/testthat/test-spread2.R#L150) *style:* **Commented code should be removed.**
```r
  #cirOut <- quickDT[cirOut, on = ]
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-spread2.R:473:1:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/tests/testthat/test-spread2.R#L473) *style:* **Lines should not be more than 100 characters.**
```r
  ##                                    expr       min        lq      mean   median        uq       max neval
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-spread2.R:474:1:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/tests/testthat/test-spread2.R#L474) *style:* **Lines should not be more than 100 characters.**
```r
  ##         iterativeFun(ras, FALSE, n, sp)  3.096979 12.642477  73.02248 35.17520  91.10528  764.4073   300
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-spread2.R:475:1:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/tests/testthat/test-spread2.R#L475) *style:* **Lines should not be more than 100 characters.**
```r
  ##      nonIterativeFun(ras, FALSE, n, sp)  1.509484  6.555565  31.18444 14.91066  42.78317  158.5237   300
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-spread2.R:476:1:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/tests/testthat/test-spread2.R#L476) *style:* **Lines should not be more than 100 characters.**
```r
  ##           origSpread(ras, FALSE, n, sp)  5.154006  7.555631  14.87158 11.49005  17.50599  231.5487   300
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-spread2.R:477:1:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/tests/testthat/test-spread2.R#L477) *style:* **Lines should not be more than 100 characters.**
```r
  ## origSpreadIterations(ras, FALSE, n, sp) 10.754669 51.524368 141.48620 93.61996 169.10808 2110.2683   300
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-spread2.R:688:38:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/tests/testthat/test-spread2.R#L688) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  ciCentre[seq_len(ncell(ciCentre))[-(ncell(ciCentre) / 2 - ncol(ciCentre) / 2)]] <- NA_integer_
                                     ^
```
[tests/testthat/test-spread2.R:884:1:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/tests/testthat/test-spread2.R#L884) *style:* **Lines should not be more than 100 characters.**
```r
                       spreadProb = 0.23, persistProb = 0, iterations = 10, directions = 8L, plot.it = FALSE)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-spread2.R:886:1:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/tests/testthat/test-spread2.R#L886) *style:* **Lines should not be more than 100 characters.**
```r
                      spreadProb = 0.23, persistProb = 0.8, iterations = 10, directions = 8L, plot.it = FALSE)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-spread2.R:891:3:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/tests/testthat/test-spread2.R#L891) *style:* **Variable or function name should be lowerCamelCase.**
```r
  M <- matrix(0.8, nrow = 50, ncol = 50)
  ^
```
[tests/testthat/test-spread2.R:898:35:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/tests/testthat/test-spread2.R#L898) *style:* **Put spaces around all infix operators.**
```r
  start <- c(50, length(landscape)-49)
                                 ~^~
```
[tests/testthat/test-spread2.R:902:1:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/tests/testthat/test-spread2.R#L902) *style:* **Lines should not be more than 100 characters.**
```r
                        spreadProb = 0.23, persistProb = persistRas, iterations = 10, directions = 8L,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-spread2.R:916:14:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/tests/testthat/test-spread2.R#L916) *style:* **Use <-, not =, for assignment.**
```r
  spreadProb = landscape
             ^
```
[tests/testthat/test-spread2.R:918:72:](https://github.com/PredictiveEcology/SpaDES.tools/blob/ff9c9fb79cd4fc6f8a4f7efd9313f82a883fa2c9/tests/testthat/test-spread2.R#L918) *style:* **Commas should always have a space after.**
```r
  expect_silent(spread2(landscape = landscape, spreadProb = spreadProb,start = start,
                                                                       ^
```


已阅