[inst/examples/example_distanceFromEachPoint.R:37:2:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/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/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/inst/examples/example_distanceFromEachPoint.R#L40) *style:* **Commented code should be removed.**
```r
#endCluster() # if beginCluster was run
 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/downloadData.R:192:7:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/downloadData.R#L192) *style:* **Variable or function name should be lowerCamelCase.**
```r
      results.df <- out %>%
      ^~~~~~~~~~
```
[R/downloadData.R:197:9:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/downloadData.R#L197) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
        {
        ^
```
[R/downloadData.R:205:9:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/downloadData.R#L205) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
        {
        ^
```
[R/downloadData.R:248:1:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/downloadData.R#L248) *style:* **Lines should not be more than 100 characters.**
```r
appendChecksumsTable <- function(checkSumFilePath, filesToChecksum, destinationPath, append = TRUE) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/downloadData.R:249:15:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/downloadData.R#L249) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
  if (append) {# needChecksums == 2) { # a checksums file already existed, need to keep some of it
              ^
```
[R/downloadData.R:251:30:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/downloadData.R#L251) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
    if (is(cs, "try-error")) { # meant that it was an empty CHECKSUMS.txt file -- rebuild it
                             ^
```
[R/downloadData.R:260:15:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/downloadData.R#L260) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
  if (append) { # a checksums file already existed, need to keep some of it
              ^
```
[R/downloadData.R:388:1:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/downloadData.R#L388) *style:* **Lines should not be more than 100 characters.**
```r
  definition = function(module, path, quiet, quickCheck, overwrite, files, checked, urls, children) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/downloadData.R:393:7:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/downloadData.R#L393) *style:* **Commented code should be removed.**
```r
    # urls <- inputs$sourceURL
      ^~~~~~~~~~~~~~~~~~~~~~~~
```
[R/downloadData.R:400:8:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/downloadData.R#L400) *style:* **Commented code should be removed.**
```r
      #urls <- moduleMetadata(module, path)$inputObjects$sourceURL
       ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/downloadData.R:404:5:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/downloadData.R#L404) *style:* **Variable or function name should be lowerCamelCase.**
```r
    to.dl <- if (length(ids)) urls[-ids] else urls
    ^~~~~
```
[R/downloadData.R:412:46:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/downloadData.R#L412) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
    dataDir <- file.path(path, module, "data" )
                                             ^
```
[R/downloadData.R:427:7:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/downloadData.R#L427) *style:* **Variable or function name should be lowerCamelCase.**
```r
      to.dl <- to.dl[fileMatching]
      ^~~~~
```
[R/downloadData.R:432:12:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/downloadData.R#L432) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
    if (! ( NROW(chksums) > 0 && all(compareNA(chksums$result, "OK")))) {
           ^
```
[R/downloadData.R:446:13:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/downloadData.R#L446) *style:* **Commented code should be removed.**
```r
        #   out <- readline(prompt = "Would you like to download it now anyway? (Y)es or (N)o: ")
            ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/downloadData.R:448:13:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/downloadData.R#L448) *style:* **Commented code should be removed.**
```r
        #   out = "No"
            ^~~~~~~~~~
```
[R/downloadData.R:450:49:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/downloadData.R#L450) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
        if (!isTRUE(any(pmatch("Y", toupper(out) )))) {
                                                ^
```
[R/downloadData.R:493:1:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/downloadData.R#L493) *style:* **Lines should not be more than 100 characters.**
```r
                                    paste(chksums$expectedFile[id], collapse = ",\n      "), sep = ""))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/downloadData.R:559:1:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/downloadData.R#L559) *style:* **Lines should not be more than 100 characters.**
```r
        #   readline("If download was successful, would you like to run a new checksums? (Y)es or (N)o: ")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/downloadData.R:559:13:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/downloadData.R#L559) *style:* **Commented code should be removed.**
```r
        #   readline("If download was successful, would you like to run a new checksums? (Y)es or (N)o: ")
            ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/downloadData.R:561:13:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/downloadData.R#L561) *style:* **Commented code should be removed.**
```r
        #   out = "No"
            ^~~~~~~~~~
```
[R/downloadData.R:572:13:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/downloadData.R#L572) *style:* **Commented code should be removed.**
```r
          # files = file.path(destinationPath, filesToChecksum)
            ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/downloadData.R:573:13:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/downloadData.R#L573) *style:* **Commented code should be removed.**
```r
          # checksums(module = module, path = path, write = TRUE)
            ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/downloadData.R:589:37:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/downloadData.R#L589) *style:* **`%>%` should always have a space before it and a new line after it, unless the full pipeline fits on one line.**
```r
             !(chksums$actualFile %>% is.na() )) %>%
                                  ~~^
```
[R/downloadData.R:589:46:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/downloadData.R#L589) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
             !(chksums$actualFile %>% is.na() )) %>%
                                             ^
```
[R/downloadData.R:593:46:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/downloadData.R#L593) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
        if (!is.na(chksums$expectedFile[id])  ) {
                                             ^
```
[R/downloadData.R:606:27:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/downloadData.R#L606) *style:* **Commas should always have a space after.**
```r
    chksums2 <- chksums[0,]
                          ^
```
[R/downloadData.R:607:6:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/downloadData.R#L607) *style:* **Commented code should be removed.**
```r
    #children <- moduleMetadata(module, path)$childModules
     ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/downloadData.R:610:13:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/downloadData.R#L610) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
        if ( all( nzchar(children) & !is.na(children) ) ) {
            ^
```
[R/downloadData.R:610:18:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/downloadData.R#L610) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
        if ( all( nzchar(children) & !is.na(children) ) ) {
                 ^
```
[R/downloadData.R:610:54:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/downloadData.R#L610) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
        if ( all( nzchar(children) & !is.na(children) ) ) {
                                                     ^
```
[R/downloadData.R:610:56:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/downloadData.R#L610) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
        if ( all( nzchar(children) & !is.na(children) ) ) {
                                                       ^
```
[R/gis.R:307:1:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/gis.R#L307) *style:* **Lines should not be more than 100 characters.**
```r
      # write the polygon object to disk as a shapefile -- can't handle NAs without showing a warning
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:82:9:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/initialize.R#L82) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
    if ( method != "RMexp") {
        ^
```
[R/initialize.R:242:3:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/initialize.R#L242) *style:* **Variable or function name should be lowerCamelCase.**
```r
  X <- c(jitter(sort(rbeta(nPoints, betaPar, betaPar) * (maxX - minX) + minX)),
  ^
```
[R/initialize.R:244:3:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/initialize.R#L244) *style:* **Variable or function name should be lowerCamelCase.**
```r
  Y <- c(jitter(sort(rbeta(nPoints / 2, betaPar, betaPar) * (maxY - meanY) + meanY)),
  ^
```
[R/initialize.R:248:3:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/initialize.R#L248) *style:* **Variable or function name should be lowerCamelCase.**
```r
  Sr1 <- Polygon(cbind(X + xAdd, Y + yAdd))
  ^~~
```
[R/initialize.R:249:3:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/initialize.R#L249) *style:* **Variable or function name should be lowerCamelCase.**
```r
  Srs1 <- Polygons(list(Sr1), "s1")
  ^~~~
```
[R/initialize.R:346:3:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/initialize.R#L346) *style:* **Commented code should be removed.**
```r
# ### INCORPORATE RELEVANT PARTS OF THIS OLD INIT FUNCTION INTO INITCOORDS()
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:351:3:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/initialize.R#L351) *style:* **Commented code should be removed.**
```r
# #'                      (currently only \code{RasterLayer} or
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:352:3:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/initialize.R#L352) *style:* **Commented code should be removed.**
```r
# #'                      \code{SpatialPolygonsDataFrame}) accepted.
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:362:7:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/initialize.R#L362) *style:* **Commented code should be removed.**
```r
#     ext <- extent(agentlocation)
      ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:364:9:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/initialize.R#L364) *style:* **Commented code should be removed.**
```r
#       #            nonNAs <- !is.na(getvalue(probinit))
        ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:365:9:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/initialize.R#L365) *style:* **Commented code should be removed.**
```r
#       nonNAs <- !is.na(getValues(probinit))
        ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:366:9:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/initialize.R#L366) *style:* **Commented code should be removed.**
```r
#       wh.nonNAs <- which(nonNAs)
        ^~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:367:9:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/initialize.R#L367) *style:* **Commented code should be removed.**
```r
#       #            ProbInit.v <- cumsum(getvalue(probinit)[nonNAs])
        ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:368:9:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/initialize.R#L368) *style:* **Commented code should be removed.**
```r
#       ProbInit.v <- cumsum(getValues(probinit)[nonNAs])
        ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:370:11:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/initialize.R#L370) *style:* **Commented code should be removed.**
```r
#         ran <- runif(numagents,0,1)
          ^~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:371:11:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/initialize.R#L371) *style:* **Commented code should be removed.**
```r
#         fI <- findInterval(ran, ProbInit.v)+1
          ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:372:11:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/initialize.R#L372) *style:* **Commented code should be removed.**
```r
#         fI2 <- wh.nonNAs[fI]
          ^~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:373:11:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/initialize.R#L373) *style:* **Commented code should be removed.**
```r
#         last.ran <- runif(numagents,0,1)
          ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:374:11:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/initialize.R#L374) *style:* **Commented code should be removed.**
```r
#         last.fI <- findInterval(last.ran, ProbInit.v)+1
          ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:375:11:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/initialize.R#L375) *style:* **Commented code should be removed.**
```r
#         last.fI2 <- wh.nonNAs[last.fI]
          ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:377:11:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/initialize.R#L377) *style:* **Commented code should be removed.**
```r
#         #                va <- getvalue(probinit)[nonNAs]
          ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:378:11:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/initialize.R#L378) *style:* **Commented code should be removed.**
```r
#         va <- getValues(probinit)[nonNAs]
          ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:379:11:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/initialize.R#L379) *style:* **Commented code should be removed.**
```r
#         ran <- runif(length(va), 0, 1)
          ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:380:11:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/initialize.R#L380) *style:* **Commented code should be removed.**
```r
#         fI2 <- wh.nonNAs[ran<va]
          ^~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:382:11:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/initialize.R#L382) *style:* **Commented code should be removed.**
```r
#         last.ran <- runif(length(fI2), 0, 1)
          ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:383:11:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/initialize.R#L383) *style:* **Commented code should be removed.**
```r
#         last.fI <- findInterval(last.ran, ProbInit.v) + 1
          ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:384:11:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/initialize.R#L384) *style:* **Commented code should be removed.**
```r
#         last.fI2 <- wh.nonNAs[last.fI]
          ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:386:11:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/initialize.R#L386) *style:* **Commented code should be removed.**
```r
#         #                last.ran <- runif(length(fI2),0,1)
          ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:387:11:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/initialize.R#L387) *style:* **Commented code should be removed.**
```r
#         #                last.fI2 <- wh.nonNAs[last.ran<va]
          ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:390:11:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/initialize.R#L390) *style:* **Commented code should be removed.**
```r
#         position <- xyFromCell(agentlocation,fI2,spatial = TRUE)
          ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:392:11:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/initialize.R#L392) *style:* **Commented code should be removed.**
```r
#         position <- coordinates(agentlocation)
          ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:394:11:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/initialize.R#L394) *style:* **Commented code should be removed.**
```r
#         stop("need raster layer or Spatial Points object")
          ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:396:9:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/initialize.R#L396) *style:* **Commented code should be removed.**
```r
#       numagents <- length(position)
        ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:404:13:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/initialize.R#L404) *style:* **Commented code should be removed.**
```r
#           colnames(xy) = c("x", "y")
            ^~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:405:13:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/initialize.R#L405) *style:* **Commented code should be removed.**
```r
#           position <- SpatialPoints(xy)
            ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:406:13:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/initialize.R#L406) *style:* **Commented code should be removed.**
```r
#           position <- SpatialPoints(sampleRandom(agentlocation, numagents, xy = TRUE, sp = TRUE))
            ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:408:13:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/initialize.R#L408) *style:* **Commented code should be removed.**
```r
#           sam <- sample(1:length(agentlocation),numagents)
            ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:409:13:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/initialize.R#L409) *style:* **Commented code should be removed.**
```r
#           position <- SpatialPoints(agentlocation[sam,])
            ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:411:13:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/initialize.R#L411) *style:* **Commented code should be removed.**
```r
#           stop("need raster layer or Spatial Points object")
            ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:418:13:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/initialize.R#L418) *style:* **Commented code should be removed.**
```r
#           position <- SpatialPoints(agentlocation)
            ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:420:13:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/initialize.R#L420) *style:* **Commented code should be removed.**
```r
#           stop("need raster layer or Spatial Points object")
            ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:422:11:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/initialize.R#L422) *style:* **Commented code should be removed.**
```r
#         numagents <- length(position)
          ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:430:11:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/initialize.R#L430) *style:* **Commented code should be removed.**
```r
#         numagents <- length(position)
          ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:434:7:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/initialize.R#L434) *style:* **Commented code should be removed.**
```r
#     stop("Need to provide agentlocation, which can be a map layer")
      ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:436:5:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/initialize.R#L436) *style:* **Commented code should be removed.**
```r
#   heading1 <- runif(numagents, 0, 360)
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:437:5:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/initialize.R#L437) *style:* **Commented code should be removed.**
```r
#   distance <- runif(numagents, 0.1, 10)
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:439:5:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/initialize.R#L439) *style:* **Commented code should be removed.**
```r
#   .Object@ID <- as.character(1:numagents)
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:440:5:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/initialize.R#L440) *style:* **Commented code should be removed.**
```r
#   .Object@spatial <- position
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:441:5:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/initialize.R#L441) *style:* **Commented code should be removed.**
```r
#   .Object@heading <- heading1
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:442:5:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/initialize.R#L442) *style:* **Commented code should be removed.**
```r
#   .Object@distance <- distance
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/initialize.R:444:5:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/initialize.R#L444) *style:* **Commented code should be removed.**
```r
#   return(.Object)
    ^~~~~~~~~~~~~~~
```
[R/mapReduce.R:53:3:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/mapReduce.R#L53) *style:* **Variable or function name should be lowerCamelCase.**
```r
  BsumVec <- reduced[fullRasterVals] # join
  ^~~~~~~
```
[R/neighbourhood.R:112:1:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/neighbourhood.R#L112) *style:* **Variable or function name should be lowerCamelCase.**
```r
adj.raw <- function(x = NULL, cells, directions = 8, sort = FALSE, pairs = TRUE,
^~~~~~~
```
[R/neighbourhood.R:114:21:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/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/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/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/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/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/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/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/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/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:813:29:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/neighbourhood.R#L813) *style:* **Variable or function name should be lowerCamelCase.**
```r
setGeneric("wrap", function(X, bounds, withHeading) {
                            ^
```
[R/neighbourhood.R:822:25:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/neighbourhood.R#L822) *style:* **Variable or function name should be lowerCamelCase.**
```r
  definition = function(X, bounds) {
                        ^
```
[R/neighbourhood.R:839:25:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/neighbourhood.R#L839) *style:* **Variable or function name should be lowerCamelCase.**
```r
  definition = function(X, bounds) {
                        ^
```
[R/neighbourhood.R:849:25:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/neighbourhood.R#L849) *style:* **Variable or function name should be lowerCamelCase.**
```r
  definition = function(X, bounds) {
                        ^
```
[R/neighbourhood.R:850:5:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/neighbourhood.R#L850) *style:* **Variable or function name should be lowerCamelCase.**
```r
    X <- wrap(X, bounds = extent(bounds))
    ^
```
[R/neighbourhood.R:859:25:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/neighbourhood.R#L859) *style:* **Variable or function name should be lowerCamelCase.**
```r
  definition = function(X, bounds) {
                        ^
```
[R/neighbourhood.R:860:5:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/neighbourhood.R#L860) *style:* **Variable or function name should be lowerCamelCase.**
```r
    X <- wrap(X, bounds = extent(bounds))
    ^
```
[R/neighbourhood.R:869:25:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/neighbourhood.R#L869) *style:* **Variable or function name should be lowerCamelCase.**
```r
  definition = function(X, bounds) {
                        ^
```
[R/neighbourhood.R:872:7:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/neighbourhood.R#L872) *style:* **Variable or function name should be lowerCamelCase.**
```r
      X <- wrap(X, bounds = extent(bounds))
      ^
```
[R/neighbourhood.R:884:25:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/neighbourhood.R#L884) *style:* **Variable or function name should be lowerCamelCase.**
```r
  definition = function(X, bounds, withHeading) {
                        ^
```
[R/neighbourhood.R:909:25:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/neighbourhood.R#L909) *style:* **Variable or function name should be lowerCamelCase.**
```r
  definition = function(X, bounds, withHeading) {
                        ^
```
[R/neighbourhood.R:910:7:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/neighbourhood.R#L910) *style:* **Variable or function name should be lowerCamelCase.**
```r
      X <- wrap(X, bounds = extent(bounds), withHeading = withHeading)
      ^
```
[R/neighbourhood.R:919:25:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/neighbourhood.R#L919) *style:* **Variable or function name should be lowerCamelCase.**
```r
  definition = function(X, bounds, withHeading) {
                        ^
```
[R/neighbourhood.R:922:7:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/neighbourhood.R#L922) *style:* **Variable or function name should be lowerCamelCase.**
```r
      X <- wrap(X, bounds = extent(bounds), withHeading = withHeading)
      ^
```
[R/neighbourhood.R:1059:40:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/neighbourhood.R#L1059) *style:* **Commas should always have a space after.**
```r
  cc <- cbind(pureCircle2[, "x"] - xy[,"x"], pureCircle2[, "y"] - xy[, "y"])
                                       ^
```
[R/prepInputs.R:294:21:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/prepInputs.R#L294) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
  if (is.null(url)) { # the only way for this to be useful is if there is a SpaDES module
                    ^
```
[R/prepInputs.R:351:11:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/prepInputs.R#L351) *style:* **Commented code should be removed.**
```r
      #   cs <- try(read.table(checkSumFilePath, header = TRUE), silent = TRUE)
          ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepInputs.R:353:13:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/prepInputs.R#L353) *style:* **Commented code should be removed.**
```r
      #     needChecksums <- 1
            ^~~~~~~~~~~~~~~~~~
```
[R/prepInputs.R:356:15:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/prepInputs.R#L356) *style:* **Commented code should be removed.**
```r
      #       filter(!file %in% filesToChecksum)
              ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepInputs.R:359:1:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/prepInputs.R#L359) *style:* **Lines should not be more than 100 characters.**
```r
      # currentFiles <- checksums(path = destinationPath, write = TRUE, #checksumFile = checkSumFilePath,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepInputs.R:362:11:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/prepInputs.R#L362) *style:* **Commented code should be removed.**
```r
      #   currentFiles <- rbind(nonCurrentFiles, currentFiles)
          ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepInputs.R:363:11:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/prepInputs.R#L363) *style:* **Commented code should be removed.**
```r
      #   writeChecksumsTable(currentFiles, checkSumFilePath, dots = list())
          ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepInputs.R:416:1:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/prepInputs.R#L416) *style:* **Lines should not be more than 100 characters.**
```r
    # Don't cache the reading of a raster -- normal reading of raster on disk is fast b/c only reads metadata
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepInputs.R:456:1:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/prepInputs.R#L456) *style:* **Variable or function name should be lowerCamelCase.**
```r
fixErrors.default <- function(x, objectName, attemptErrorFixes = TRUE,
^~~~~~~~~~~~~~~~~
```
[R/prepInputs.R:469:1:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/prepInputs.R#L469) *style:* **Variable or function name should be lowerCamelCase.**
```r
fixErrors.SpatialPolygons <- function(x, objectName = NULL,
^~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepInputs.R:485:1:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/prepInputs.R#L485) *style:* **Lines should not be more than 100 characters.**
```r
        #   message("Found more errors in ", objectName, ". Attempting to correct using lwgeom::st_make_valid()")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepInputs.R:485:13:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/prepInputs.R#L485) *style:* **Commented code should be removed.**
```r
        #   message("Found more errors in ", objectName, ". Attempting to correct using lwgeom::st_make_valid()")
            ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepInputs.R:487:11:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/prepInputs.R#L487) *style:* **Place a space before left parenthesis, except in a function call.**
```r
        if(attempt > 1L){
          ^
```
[R/prepInputs.R:510:15:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/prepInputs.R#L510) *style:* **Commented code should be removed.**
```r
        #     xTrans <- sf::st_as_sf(x) # flexible to errors? Return messages of errors?
              ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepInputs.R:512:15:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/prepInputs.R#L512) *style:* **Commented code should be removed.**
```r
        #     stop("Please install sf package: https://github.com/r-spatial/sf")
              ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepInputs.R:516:1:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/prepInputs.R#L516) *style:* **Lines should not be more than 100 characters.**
```r
        #     x1 <- try(Cache(lwgeom::st_make_valid, x, useCache = useCache)) # Testing using st_is_valid() doesn't work for big files.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepInputs.R:516:15:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/prepInputs.R#L516) *style:* **Commented code should be removed.**
```r
        #     x1 <- try(Cache(lwgeom::st_make_valid, x, useCache = useCache)) # Testing using st_is_valid() doesn't work for big files.
              ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepInputs.R:520:15:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/prepInputs.R#L520) *style:* **Commented code should be removed.**
```r
        #     attempt <- attempt + 1                                         # works? Didn't test.
              ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepInputs.R:522:1:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/prepInputs.R#L522) *style:* **Lines should not be more than 100 characters.**
```r
        #       x2 <- sf::as(x1, "Spatial") #Make it flexible to errors? Does it return messages of errors?
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepInputs.R:522:17:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/prepInputs.R#L522) *style:* **Commented code should be removed.**
```r
        #       x2 <- sf::as(x1, "Spatial") #Make it flexible to errors? Does it return messages of errors?
                ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepInputs.R:523:17:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/prepInputs.R#L523) *style:* **Commented code should be removed.**
```r
        #       message("  Some or all of the errors fixed with lwgeom::st_make_valid().")
                ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepInputs.R:524:17:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/prepInputs.R#L524) *style:* **Commented code should be removed.**
```r
        #       x <- x2
                ^~~~~~~
```
[R/prepInputs.R:525:17:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/prepInputs.R#L525) *style:* **Commented code should be removed.**
```r
        #       attempt <- attempt + 1
                ^~~~~~~~~~~~~~~~~~~~~~
```
[R/prepInputs.R:529:15:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/prepInputs.R#L529) *style:* **Commented code should be removed.**
```r
        #     stop("Please install sf package: lwgeom")
              ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepInputs.R:586:46:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/prepInputs.R#L586) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
      if ("Name" %in% names(filesInArchive)) { # for zips, rm directories (length = 0)
                                             ^
```
[R/prepInputs.R:595:30:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/prepInputs.R#L595) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
          NROW(result) == 0) { # don't extract if we already have all files and they are fine
                             ^
```
[R/prepInputs.R:596:1:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/prepInputs.R#L596) *style:* **Lines should not be more than 100 characters.**
```r
        if (needChecksums == 0) needChecksums <- 2 # use binary addition -- 1 is new file, 2 is append
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepInputs.R:600:1:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/prepInputs.R#L600) *style:* **Lines should not be more than 100 characters.**
```r
                              .unzipOrUnTar(funWArgs$fun, funWArgs$args, files = basename(archive[2])))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepInputs.R:609:1:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/prepInputs.R#L609) *style:* **Lines should not be more than 100 characters.**
```r
          extractingTheseFiles <- paste(basename(filesInArchive[basename(filesInArchive) %in% neededFiles]),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepInputs.R:612:1:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/prepInputs.R#L612) *style:* **Lines should not be more than 100 characters.**
```r
            extractingTheseFiles <- paste0("all files: ", paste(basename(filesInArchive), collapse = ", "))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepInputs.R:616:1:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/prepInputs.R#L616) *style:* **Lines should not be more than 100 characters.**
```r
                                            files = filesInArchive[basename(filesInArchive) %in% neededFiles]))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepInputs.R:634:1:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/prepInputs.R#L634) *style:* **Lines should not be more than 100 characters.**
```r
                                     neededFiles = neededFiles, extractedArchives = extractedArchives,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepInputs.R:643:1:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/prepInputs.R#L643) *style:* **Lines should not be more than 100 characters.**
```r
        filesExtracted <- checkSums[checkSums$expectedFile %in% basename(filesInArchive), ]$expectedFile
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepInputs.R:666:4:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/prepInputs.R#L666) *style:* **Commented code should be removed.**
```r
  #filesExtracted <- dir(destinationPath)
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepInputs.R:670:21:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/prepInputs.R#L670) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
  if (is.null(fun)) { #i.e., the default
                    ^
```
[R/prepInputs.R:734:1:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/prepInputs.R#L734) *style:* **Variable or function name should be lowerCamelCase.**
```r
postProcess.default <- function(x, ...) {
^~~~~~~~~~~~~~~~~~~
```
[R/prepInputs.R:832:1:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/prepInputs.R#L832) *style:* **Variable or function name should be lowerCamelCase.**
```r
postProcess.spatialObjects <- function(x, inputFilePath = NULL,
^~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepInputs.R:957:1:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/prepInputs.R#L957) *style:* **Variable or function name should be lowerCamelCase.**
```r
cropInputs.default <- function(x, studyArea, rasterToMatch, ...) {
^~~~~~~~~~~~~~~~~~
```
[R/prepInputs.R:971:1:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/prepInputs.R#L971) *style:* **Variable or function name should be lowerCamelCase.**
```r
cropInputs.spatialObjects <- function(x, studyArea, rasterToMatch = NULL, extentToMatch = NULL,
^~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepInputs.R:1057:1:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/prepInputs.R#L1057) *style:* **Variable or function name should be lowerCamelCase.**
```r
projectInputs.Raster <- function(x, targetCRS = NULL, rasterToMatch = NULL, ...) {
^~~~~~~~~~~~~~~~~~~~
```
[R/prepInputs.R:1079:1:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/prepInputs.R#L1079) *style:* **Variable or function name should be lowerCamelCase.**
```r
projectInputs.sf <- function(x, targetCRS, ...) {
^~~~~~~~~~~~~~~~
```
[R/prepInputs.R:1094:1:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/prepInputs.R#L1094) *style:* **Variable or function name should be lowerCamelCase.**
```r
projectInputs.Spatial <- function(x, targetCRS, ...) {
^~~~~~~~~~~~~~~~~~~~~
```
[R/prepInputs.R:1142:1:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/prepInputs.R#L1142) *style:* **Variable or function name should be lowerCamelCase.**
```r
maskInputs.Raster <- function(x, studyArea, rasterToMatch, maskWithRTM = FALSE, ...) {
^~~~~~~~~~~~~~~~~
```
[R/prepInputs.R:1161:1:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/prepInputs.R#L1161) *style:* **Variable or function name should be lowerCamelCase.**
```r
maskInputs.Spatial <- function(x, studyArea, ...) {
^~~~~~~~~~~~~~~~~~
```
[R/prepInputs.R:1230:64:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/prepInputs.R#L1230) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
  newFilename <- if (!identical(postProcessedFilename, FALSE)) { # allow TRUE or path
                                                               ^
```
[R/prepInputs.R:1274:1:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/prepInputs.R#L1274) *style:* **Variable or function name should be lowerCamelCase.**
```r
writeOutputs.Raster <- function(x, filename, overwrite = FALSE, ...) {
^~~~~~~~~~~~~~~~~~~
```
[R/prepInputs.R:1279:7:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/prepInputs.R#L1279) *style:* **Commented code should be removed.**
```r
    # +proj=lcc +lat_1=49 +lat_2=77 +lat_0=0 +lon_0=-95 +x_0=0
      ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepInputs.R:1282:7:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/prepInputs.R#L1282) *style:* **Commented code should be removed.**
```r
    # +proj=lcc +lat_1=49 +lat_2=77 +lat_0=0 +lon_0=-95 +x_0=0
      ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/prepInputs.R:1293:1:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/prepInputs.R#L1293) *style:* **Variable or function name should be lowerCamelCase.**
```r
writeOutputs.Spatial <- function(x, filename, overwrite = FALSE, ...) {
^~~~~~~~~~~~~~~~~~~~
```
[R/prepInputs.R:1300:1:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/prepInputs.R#L1300) *style:* **Variable or function name should be lowerCamelCase.**
```r
writeOutputs.sf <- function(x, filename, overwrite = FALSE, ...) {
^~~~~~~~~~~~~~~
```
[R/prepInputs.R:1311:1:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/prepInputs.R#L1311) *style:* **Variable or function name should be lowerCamelCase.**
```r
writeOutputs.default <- function(x, filename, ...) {
^~~~~~~~~~~~~~~~~~~~
```
[R/prepInputs.R:1388:43:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/prepInputs.R#L1388) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
    if ("shp" %in% file_ext(neededFiles)) { # if user wants .shp file, needs other anciliary files
                                          ^
```
[R/prepInputs.R:1430:31:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/prepInputs.R#L1430) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
    if (!is.null(moduleName)) { # means it is inside a SpaDES module
                              ^
```
[R/prepInputs.R:1440:37:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/prepInputs.R#L1440) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
      if (!is.null(fileToDownload)) {#|| is.null(targetFile)) {
                                    ^
```
[R/RcppExports.R:68:20:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/RcppExports.R#L68) *style:* **Variable or function name should be lowerCamelCase.**
```r
runifC <- function(N) {
                   ^
```
[R/RcppExports.R:71:1:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/RcppExports.R#L71) *style:* **Trailing blank lines are superfluous.**
```r

^
```
[R/SELES.R:53:23:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/SELES.R#L53) *style:* **Variable or function name should be lowerCamelCase.**
```r
numAgents <- function(N, probInit) {
                      ^
```
[R/splitRaster.R:51:1:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/splitRaster.R#L51) *style:* **Lines should not be more than 100 characters.**
```r
  function(r, nx = 1, ny = 1, buffer = c(0, 0), path = file.path(getwd(), names(r)), cl, rType = "FLT4S") {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/splitRaster.R:111:1:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/splitRaster.R#L111) *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/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/spread.R#L538) *style:* **Commented code should be removed.**
```r
      #isNASpreadProb <- is.na(spreadProb[])
       ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/spread.R:540:11:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/spread.R#L540) *style:* **Commented code should be removed.**
```r
      #   isNASpreadProb <- is.na(spreadProb[])
          ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/spread.R:541:11:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/spread.R#L541) *style:* **Commented code should be removed.**
```r
      #   spreadProb[isNASpreadProb] <- 0L
          ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/spread.R:942:41:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/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/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/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/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/spread2.R#L674) *style:* **Commented code should be removed.**
```r
          #pureCircle <- unique(pureCircle)
           ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/spread2.R:759:13:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/spread2.R#L759) *style:* **Commented code should be removed.**
```r
          # colnamesDtPot <- colnames(dtPotential)
            ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/spread2.R:760:13:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/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/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/spread2.R#L761) *style:* **Commented code should be removed.**
```r
          # names(ll) <- colnamesDtPot
            ^~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/spread2.R:762:13:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/spread2.R#L762) *style:* **Commented code should be removed.**
```r
          # dtPotential <- as.data.table(ll)
            ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/spread2.R:772:1:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/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/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/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/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/spread2.R#L789) *style:* **Commas should always have a space after.**
```r
        dtPotential <- dtPotential[NAaSP,]
                                         ^
```
[R/spread2.R:830:1:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/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/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/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/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/spread2.R#L848) *style:* **Commented code should be removed.**
```r
        #successCells <- na.omit(successCells[!dupsWithinDtPotential]) # remove the dupsWithinDtPotential
         ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/webDatabases.R:122:1:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/webDatabases.R#L122) *style:* **Lines should not be more than 100 characters.**
```r
    stop("You must provide a data.table that contain the link between url, datasetName and password.")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/webDatabases.R:127:4:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/webDatabases.R#L127) *style:* **Commented code should be removed.**
```r
  #if (missing(dfile)) dfile <- "all"
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/webDatabases.R:141:7:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/webDatabases.R#L141) *style:* **Variable or function name should be lowerCamelCase.**
```r
      file.list <- getURL(url2data, ftp.use.epsv = FALSE, dirlistonly = TRUE)
      ^~~~~~~~~
```
[R/webDatabases.R:142:7:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/webDatabases.R#L142) *style:* **Variable or function name should be lowerCamelCase.**
```r
      file.list <- strsplit(file.list, "\r*\n")[[1]]
      ^~~~~~~~~
```
[R/webDatabases.R:143:7:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/webDatabases.R#L143) *style:* **Variable or function name should be lowerCamelCase.**
```r
      file.list <- file.list[!file.list %in% c(".", "..")]
      ^~~~~~~~~
```
[R/webDatabases.R:144:7:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/webDatabases.R#L144) *style:* **Variable or function name should be lowerCamelCase.**
```r
      file.list <- paste(url2data, file.list, sep = "")
      ^~~~~~~~~
```
[R/webDatabases.R:147:7:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/webDatabases.R#L147) *style:* **Variable or function name should be lowerCamelCase.**
```r
      file.list <- getURL(url2data, userpwd = password, ftp.use.epsv = FALSE, dirlistonly = TRUE)
      ^~~~~~~~~
```
[R/webDatabases.R:148:7:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/webDatabases.R#L148) *style:* **Variable or function name should be lowerCamelCase.**
```r
      file.list <- strsplit(file.list,"\r*\n")[[1]]
      ^~~~~~~~~
```
[R/webDatabases.R:148:39:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/webDatabases.R#L148) *style:* **Commas should always have a space after.**
```r
      file.list <- strsplit(file.list,"\r*\n")[[1]]
                                      ^
```
[R/webDatabases.R:149:7:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/webDatabases.R#L149) *style:* **Variable or function name should be lowerCamelCase.**
```r
      file.list <- file.list[!file.list %in% c(".", "..")]
      ^~~~~~~~~
```
[R/webDatabases.R:150:7:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/webDatabases.R#L150) *style:* **Variable or function name should be lowerCamelCase.**
```r
      file.list <- paste(typeConn, password, "@", address, file.list, sep = "")
      ^~~~~~~~~
```
[R/webDatabases.R:153:5:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/webDatabases.R#L153) *style:* **Variable or function name should be lowerCamelCase.**
```r
    file.list <- readHTMLTable(url2data, skip.rows = 1:2)[[1]]$Name
    ^~~~~~~~~
```
[R/webDatabases.R:154:5:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/webDatabases.R#L154) *style:* **Variable or function name should be lowerCamelCase.**
```r
    file.list <- paste(url2data, file.list[!is.na(file.list)], sep = "")
    ^~~~~~~~~
```
[R/webDatabases.R:155:5:](https://github.com/tati-micheletti/SpaDES.tools/blob/2c77e016f13ae3f8420b26392ad3f42a5fcc20f4/R/webDatabases.R#L155) *style:* **Variable or function name should be lowerCamelCase.**
```r
    file.list <- file.list[!file.list %in% c(".", "..")]
    ^~~~~~~~~
```


don't think it's mine -- but what file/line?


don't know if this fix is correct, also it seems full_shape is not used. but here, `shape` is an optional field from rule editor, so key might be missing. @saggu @RqS


Ops...
```
$ node generator.js 314572800

<--- Last few GCs --->

[3642:0x3f772a0]   192186 ms: Mark-sweep 1401.0 (1729.4) -> 1401.0 (1729.4) MB, 2784.8 / 0.0 ms  allocation failure GC in old space requested
[3642:0x3f772a0]   195472 ms: Mark-sweep 1401.0 (1729.4) -> 1401.0 (1729.4) MB, 3284.6 / 0.0 ms  last resort GC in old space requested
[3642:0x3f772a0]   198730 ms: Mark-sweep 1401.0 (1729.4) -> 1401.0 (1729.4) MB, 3256.8 / 0.0 ms  last resort GC in old space requested

<--- JS stacktrace --->

==== JS stack trace =========================================

Security context: 0x14437ce25ee1 <JSObject>
    2: generator(aka generator) [/home/rianby64/Testing/generator/generator.js:~3] [pc=0x2dcbfb6054c7](this=0x13c061a02311 <undefined>,N=0x2f401a6ae849 <String[9]: 314572800>)
    4: /* anonymous */ [/home/rianby64/Testing/generator/generator.js:38] [bytecode=0x160a70a4d589 offset=43](this=0x19d298d04a59 <Object map = 0x3b8aa85823b9>,exports=0x19d298d04a59 <Object map = 0x3b8aa85823b9>,require=0...

FATAL ERROR: CALL_AND_RETRY_LAST Allocation failed - JavaScript heap out of memory
 1: node::Abort() [node]
 2: 0x121a2cc [node]
 3: v8::Utils::ReportOOMFailure(char const*, bool) [node]
 4: v8::internal::V8::FatalProcessOutOfMemory(char const*, bool) [node]
 5: v8::internal::Factory::NewRawOneByteString(int, v8::internal::PretenureFlag) [node]
 6: v8::internal::Factory::NewStringFromOneByte(v8::internal::Vector<unsigned char const>, v8::internal::PretenureFlag) [node]
 7: v8::internal::Factory::NumberToString(v8::internal::Handle<v8::internal::Object>, bool) [node]
 8: v8::internal::Runtime_NumberToString(int, v8::internal::Object**, v8::internal::Isolate*) [node]
 9: 0x2dcbfb48463d
Aborted
```


@mbiebl, good point. My RHEL-7 machine doesn't have `C.UTF-8`. Fedora 28 has `C.utf8`. I changed this to LANG="C.UTF-8" and it still seems to work on both RHEL-7 and Fedora 28. So I'll make the change. Thanks again.


Is this ref correct?


> @ZogStriP Hmm you can try adding it back to the official plugin list to see if the build fails agian.

Will do that Monday


Initial commit


No, it needs some functionality from C++11 as I see.
[VW Makefile](https://github.com/JohnLangford/vowpal_wabbit/blob/a80fe5e7f5182ff4ae5e8509a4e560ba5416819c/Makefile#L82)


THIS IS NOT CORRECT! YOU ONLY INC WHEN THE KEY IS NEW. The CritBitTree is set-like.


Created multidev environment [sfgov#ci-350](https://dashboard.pantheon.io/sites/91d50373-c4cf-40e4-a646-cb73e16a140c#ci-350).

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


Why trigger-event?


Die CRC Devision, durch Data und Polynom


New-Feature---Account-for-fan-heat-is-zone-cooling-coils (rraustad) - x86_64-Linux-Ubuntu-14.04-gcc-4.8: OK (2909 of 2967 tests passed, 12 test warnings)

Messages:

 * 11 tests had: AUD diffs.
 * 57 tests had: EIO diffs.
 * 12 tests had: ESO small diffs.
 * 57 tests had: Table big diffs.
 * 44 tests had: ESO big diffs.
 * 17 tests had: MTR big diffs.
 * 8 tests had: ERR diffs.
 * 2 tests had: MTR small diffs.

Failures:

regression Test Summary
 * Passed: 585
 * Failed: 58

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


What is the "reflect" sentence?


@thomasmari
It is possible it might be inappropriate to put these two papers into a public GitHub repository, because that might be seen as re-distributing them, i.e. piracy. Better be careful about that.
Chances are we might only have free access to these papers in the first place just because the university has prepaid access to popular scientific document publishers (e.g. Springer).
I am not 100% sure about this though.


I'm using xcode to build. I don't think any flags are set

<img width="1310" alt="screen shot 2018-06-08 at 22 23 03" src="https://user-images.githubusercontent.com/245131/41176846-a346691a-6b6a-11e8-82d2-21302ca1351a.png">


typo :   OnBookevent -> OnLastTimeBar

?


Andy! Forgive the bizarre method of communication. This is y'er old colleague Matt Clifton, late of Sweet and Maxwell and all that. I wanted to check in and say hi and hope all's well. There's nothing wrong with your code, as far as I can tell (I didn't check too closely, though, it might be awful.) You can get in touch at mc@lokimac.com should you so wish. xx


As I mentioned, I was trying to create the badge state and hence passing triggering on-mouse-over and on-mouse-out events.

Regards,

Gupta Siddhant
GuptaSiddhant.com
"good design is good business"  <http://www.guptasiddhant.com/>

> On 09-Jun-2018, at 02:45, Daniel Schlaug <notifications@github.com> wrote:
>
> Why trigger-event?
>
> —
> You are receiving this because you authored the thread.
> Reply to this email directly, view it on GitHub <https://github.com/solidfox/inventist/commit/539376e19c297f6bca6e42da8de47d4d0637d235#commitcomment-29302717>, or mute the thread <https://github.com/notifications/unsubscribe-auth/AgIvsgBKMbXq6GVikpX04K2coWe77xY7ks5t6umGgaJpZM4Ug9pR>.
>


New-Feature---Account-for-fan-heat-is-zone-cooling-coils (rraustad) - x86_64-Linux-Ubuntu-14.04-cppcheck-1.61: OK (0 of 0 tests passed, 0 test warnings)

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


COOL


maybe so


Project which computes the winner of a second price auction and its winning price.
The input data is passed through .txt files, which are also used to test using JUnit tests.


There's no good way to draw the line (including and especially the way it's currently being drawn) because you can't get accurate, up-to-the-minute data on every single person's status, and statuses and names of different kinds of "leave" are not comparable across universities.  (Note that "leave" status, just like employment status, can change at any time.)  I could list a ton of people who are spending more time on industry engagements than I am, but haven't been removed.  Under the current policy, this website becomes next to useless for understanding university AI-and-related groups.  Perhaps a better (and easier to track down) criterion would be, "did the person teach a course at the university in the last year?"  As is, I cannot recommend students interested in my research areas use this site any longer, as it's incredibly misleading.

(In my case, I'm not changing my teaching, advising, or service levels at UW -- these are the things that would seem to matter to readers of the site.)


Just use a flat array. In by far most scenarios, we'll be looking at a single device in use. Even if we have 5, there's no point for the overhead of a dictionary.

In fact, recommend using InlinedArray for this. Zero heap allocations if you only have a single element.


I think, that there should be static method `DbStorage.get_db_storage(connection_string)` which woiuld return instance of Postgres or SQLite (or anything else) storage class (factory design pattern).

The connection string is to be stored in the configuration file in in `db` section `storage_connection_string` I would say.


Yes, there is lot of old information, I am correcting it sometimes, but there is just too many answers to keep track of. I really need to take together information on tex4ht page, info written to the log file with the `info` option (you should take a look, try `make4ht filename.tex "info"`) and answers on TeX.sx. And clean and update everything.


`ScriptableObject` is the class you want for components that don't need to go on GOs. However, this should neither be a `MonoBehaviour` nor a `ScriptableObject`. Engine objects are super heavyweight. Use them only where really justified.


delete cname


You still alive...


@ldionne Looks that there are three _s usages left in the main function in difference.cpp


BTW, if you go for having a manager to coordinate device data, I would recommend moving all the `InputControl` handling into here. I.e.  `OnScreenControls` register themselves with the manager (would recommend naming it `OnScreenControlManger`) and the manager performs the creation and assignment of devices. That's probably a better setup than splitting those responsibilities between the OSCs and the manager.


Please use lowercase


the other bug now seems fixed, although didn't do anything


This should be stored by the manager on the OSC.


How odd. I don't see that at my end. No problem for me.