{"comment":{"url":"https://api.github.com/repos/PredictiveEcology/NetLogoR/comments/25815339","html_url":"https://github.com/PredictiveEcology/NetLogoR/commit/d46b99e3e8cdfd3edfe3ec0515babecec4709c7d#commitcomment-25815339","id":25815339,"user":{"login":"lintr-bot","id":10925265,"avatar_url":"https://avatars3.githubusercontent.com/u/10925265?v=4","gravatar_id":"","url":"https://api.github.com/users/lintr-bot","html_url":"https://github.com/lintr-bot","followers_url":"https://api.github.com/users/lintr-bot/followers","following_url":"https://api.github.com/users/lintr-bot/following{/other_user}","gists_url":"https://api.github.com/users/lintr-bot/gists{/gist_id}","starred_url":"https://api.github.com/users/lintr-bot/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/lintr-bot/subscriptions","organizations_url":"https://api.github.com/users/lintr-bot/orgs","repos_url":"https://api.github.com/users/lintr-bot/repos","events_url":"https://api.github.com/users/lintr-bot/events{/privacy}","received_events_url":"https://api.github.com/users/lintr-bot/received_events","type":"User","site_admin":false},"position":null,"line":null,"path":null,"commit_id":"d46b99e3e8cdfd3edfe3ec0515babecec4709c7d","created_at":"2017-11-23T22:49:47Z","updated_at":"2017-11-23T22:49:47Z","author_association":"NONE","body":"[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:249:8:](https://github.com/PredictiveEcology/NetLogoR/blob/d46b99e3e8cdfd3edfe3ec0515babecec4709c7d/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L249) *style:* **Place a space before left parenthesis, except in a function call.**\n```r\n​while ((NLany(sheep) | NLany(wolves)) & time < maxTime) {\n       ^\n```\n[inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R:64:1:](https://github.com/PredictiveEcology/NetLogoR/blob/d46b99e3e8cdfd3edfe3ec0515babecec4709c7d/inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R#L64) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​doEvent.WolfSheepPredation <- function(sim, eventTime, eventType, debug = FALSE) {\n^~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R:113:1:](https://github.com/PredictiveEcology/NetLogoR/blob/d46b99e3e8cdfd3edfe3ec0515babecec4709c7d/inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R#L113) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​WolfSheepPredationInit <- function(sim) {\n^~~~~~~~~~~~~~~~~~~~~~\n```\n[inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R:185:1:](https://github.com/PredictiveEcology/NetLogoR/blob/d46b99e3e8cdfd3edfe3ec0515babecec4709c7d/inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R#L185) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​WolfSheepPredationSave <- function(sim) {\n^~~~~~~~~~~~~~~~~~~~~~\n```\n[inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R:200:1:](https://github.com/PredictiveEcology/NetLogoR/blob/d46b99e3e8cdfd3edfe3ec0515babecec4709c7d/inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R#L200) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​WolfSheepPredationPosition <- function(sim) {\n^~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R:220:1:](https://github.com/PredictiveEcology/NetLogoR/blob/d46b99e3e8cdfd3edfe3ec0515babecec4709c7d/inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R#L220) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​WolfSheepPredationPopSize <- function(sim) {\n^~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R:243:1:](https://github.com/PredictiveEcology/NetLogoR/blob/d46b99e3e8cdfd3edfe3ec0515babecec4709c7d/inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R#L243) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​WolfSheepPredationEvent <- function(sim){\n^~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/agentMatrix-Class-methods.R:15:12:](https://github.com/PredictiveEcology/NetLogoR/blob/d46b99e3e8cdfd3edfe3ec0515babecec4709c7d/R/agentMatrix-Class-methods.R#L15) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​  function(.Object=\"agentMatrix\", coords, ..., levelsAM) {\n           ^~~~~~~\n```\n[R/agentMatrix-Class-methods.R:16:5:](https://github.com/PredictiveEcology/NetLogoR/blob/d46b99e3e8cdfd3edfe3ec0515babecec4709c7d/R/agentMatrix-Class-methods.R#L16) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​    Coords <- TRUE\n    ^~~~~~\n```\n[R/agentMatrix-Class-methods.R:29:7:](https://github.com/PredictiveEcology/NetLogoR/blob/d46b99e3e8cdfd3edfe3ec0515babecec4709c7d/R/agentMatrix-Class-methods.R#L29) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​      Coords <- FALSE\n      ^~~~~~\n```\n[R/agentMatrix-Class-methods.R:99:11:](https://github.com/PredictiveEcology/NetLogoR/blob/d46b99e3e8cdfd3edfe3ec0515babecec4709c7d/R/agentMatrix-Class-methods.R#L99) *style:* **Place a space before left parenthesis, except in a function call.**\n```r\n​      if ((is.matrix(dotCols[[1]]) & is.numeric(dotCols[[1]])) | is(dotCols[[1]], \"agentMatrix\"))\n          ^\n```\n[R/agentMatrix-Class-methods.R:395:6:](https://github.com/PredictiveEcology/NetLogoR/blob/d46b99e3e8cdfd3edfe3ec0515babecec4709c7d/R/agentMatrix-Class-methods.R#L395) *style:* **Commented code should be removed.**\n```r\n​    #charCols <- match(j, nam)\n     ^~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/agentMatrix-Class-methods.R:396:6:](https://github.com/PredictiveEcology/NetLogoR/blob/d46b99e3e8cdfd3edfe3ec0515babecec4709c7d/R/agentMatrix-Class-methods.R#L396) *style:* **Commented code should be removed.**\n```r\n​    #charCols <- match(nam, j)\n     ^~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/agentMatrix-Class-methods.R:397:34:](https://github.com/PredictiveEcology/NetLogoR/blob/d46b99e3e8cdfd3edfe3ec0515babecec4709c7d/R/agentMatrix-Class-methods.R#L397) *style:* **Commented code should be removed.**\n```r\n​    numCols <- which(!charCols) #colNums[!(colNums %in% charCols)]\n                                 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/agentMatrix-Class-methods.R:404:8:](https://github.com/PredictiveEcology/NetLogoR/blob/d46b99e3e8cdfd3edfe3ec0515babecec4709c7d/R/agentMatrix-Class-methods.R#L404) *style:* **Commented code should be removed.**\n```r\n​      #numColsJ <- which(colNums %in% numCols)\n       ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/agentMatrix-Class-methods.R:409:8:](https://github.com/PredictiveEcology/NetLogoR/blob/d46b99e3e8cdfd3edfe3ec0515babecec4709c7d/R/agentMatrix-Class-methods.R#L409) *style:* **Commented code should be removed.**\n```r\n​      #charColsJ <- which(colNums %in% charCols)\n       ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/agentMatrix-Class-methods.R:609:1:](https://github.com/PredictiveEcology/NetLogoR/blob/d46b99e3e8cdfd3edfe3ec0515babecec4709c7d/R/agentMatrix-Class-methods.R#L609) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​head.agentMatrix <- function(x, n = 6L, ...) {\n^~~~~~~~~~~~~~~~\n```\n[R/agentMatrix-Class-methods.R:617:1:](https://github.com/PredictiveEcology/NetLogoR/blob/d46b99e3e8cdfd3edfe3ec0515babecec4709c7d/R/agentMatrix-Class-methods.R#L617) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​tail.agentMatrix <- function(x, n = 6L, ...) {\n^~~~~~~~~~~~~~~~\n```\n[R/agentMatrix-Class-methods.R:638:36:](https://github.com/PredictiveEcology/NetLogoR/blob/d46b99e3e8cdfd3edfe3ec0515babecec4709c7d/R/agentMatrix-Class-methods.R#L638) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​cbind.agentMatrix <- function(..., deparse.level) {\n                                   ^~~~~~~~~~~~~\n```\n[R/agentMatrix-Class-methods.R:662:36:](https://github.com/PredictiveEcology/NetLogoR/blob/d46b99e3e8cdfd3edfe3ec0515babecec4709c7d/R/agentMatrix-Class-methods.R#L662) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​rbind.agentMatrix <- function(..., deparse.level = 1) {\n                                   ^~~~~~~~~~~~~\n```\n[R/agentset-functions.R:1537:1:](https://github.com/PredictiveEcology/NetLogoR/blob/d46b99e3e8cdfd3edfe3ec0515babecec4709c7d/R/agentset-functions.R#L1537) *style:* **Lines should not be more than 100 characters.**\n```r\n​        pOverL <- over(pBuffer, SpatialPoints(coords = agents2cAll, proj4string = projNowhere), returnList = TRUE)\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/agentset-functions.R:1549:1:](https://github.com/PredictiveEcology/NetLogoR/blob/d46b99e3e8cdfd3edfe3ec0515babecec4709c7d/R/agentset-functions.R#L1549) *style:* **Lines should not be more than 100 characters.**\n```r\n​                       SpatialPoints(coords = agents2@.Data[, c(\"xcor\", \"ycor\"), drop = FALSE], proj4string = projNowhere),\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/agentset-functions.R:1561:1:](https://github.com/PredictiveEcology/NetLogoR/blob/d46b99e3e8cdfd3edfe3ec0515babecec4709c7d/R/agentset-functions.R#L1561) *style:* **Lines should not be more than 100 characters.**\n```r\n​      agentsSP <- SpatialPoints(coords = agents, proj4string = projNowhere) # as of raster version 2.6-7, buffer needs a proj4 string in the SP object\n^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/plot.R:37:3:](https://github.com/PredictiveEcology/NetLogoR/blob/d46b99e3e8cdfd3edfe3ec0515babecec4709c7d/R/plot.R#L37) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​  Ras <- world2raster(x)\n  ^~~\n```\n[R/plot.R:53:3:](https://github.com/PredictiveEcology/NetLogoR/blob/d46b99e3e8cdfd3edfe3ec0515babecec4709c7d/R/plot.R#L53) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​  Ras <- world2raster(x)\n  ^~~\n```\n[R/quickPlot.R:179:39:](https://github.com/PredictiveEcology/NetLogoR/blob/d46b99e3e8cdfd3edfe3ec0515babecec4709c7d/R/quickPlot.R#L179) *style:* **Commas should always have a space after.**\n```r\n​    grobToPlot@.Data <- toPlot@.Data[,,sGrob@layerName];\n                                      ^\n```\n[R/turtle-functions.R:92:32:](https://github.com/PredictiveEcology/NetLogoR/blob/d46b99e3e8cdfd3edfe3ec0515babecec4709c7d/R/turtle-functions.R#L92) *style:* **Place a space before left parenthesis, except in a function call.**\n```r\n​    coords <- cbind(xcor = rep(((maxPxcor(world) - minPxcor(world)) / 2) + minPxcor(world), n),\n                               ^\n```\n[R/turtle-functions.R:92:33:](https://github.com/PredictiveEcology/NetLogoR/blob/d46b99e3e8cdfd3edfe3ec0515babecec4709c7d/R/turtle-functions.R#L92) *style:* **Place a space before left parenthesis, except in a function call.**\n```r\n​    coords <- cbind(xcor = rep(((maxPxcor(world) - minPxcor(world)) / 2) + minPxcor(world), n),\n                                ^\n```\n[R/turtle-functions.R:93:32:](https://github.com/PredictiveEcology/NetLogoR/blob/d46b99e3e8cdfd3edfe3ec0515babecec4709c7d/R/turtle-functions.R#L93) *style:* **Place a space before left parenthesis, except in a function call.**\n```r\n​                    ycor = rep(((maxPycor(world) - minPycor(world)) / 2) + minPycor(world), n))\n                               ^\n```\n[R/turtle-functions.R:93:33:](https://github.com/PredictiveEcology/NetLogoR/blob/d46b99e3e8cdfd3edfe3ec0515babecec4709c7d/R/turtle-functions.R#L93) *style:* **Place a space before left parenthesis, except in a function call.**\n```r\n​                    ycor = rep(((maxPycor(world) - minPycor(world)) / 2) + minPycor(world), n))\n                                ^\n```\n[R/turtle-functions.R:449:35:](https://github.com/PredictiveEcology/NetLogoR/blob/d46b99e3e8cdfd3edfe3ec0515babecec4709c7d/R/turtle-functions.R#L449) *style:* **Place a space before left parenthesis, except in a function call.**\n```r\n​                          xcor = ((world@extent@xmax - world@extent@xmin) / 2) +\n                                  ^\n```\n[R/turtle-functions.R:451:35:](https://github.com/PredictiveEcology/NetLogoR/blob/d46b99e3e8cdfd3edfe3ec0515babecec4709c7d/R/turtle-functions.R#L451) *style:* **Place a space before left parenthesis, except in a function call.**\n```r\n​                          ycor = ((world@extent@ymax - world@extent@ymin) / 2) +\n                                  ^\n```\n[R/world-functions.R:517:25:](https://github.com/PredictiveEcology/NetLogoR/blob/d46b99e3e8cdfd3edfe3ec0515babecec4709c7d/R/world-functions.R#L517) *style:* **Put spaces around all infix operators.**\n```r\n​          mid <- floor(n/2)\n                       ~^~\n```\n[R/world-functions.R:534:9:](https://github.com/PredictiveEcology/NetLogoR/blob/d46b99e3e8cdfd3edfe3ec0515babecec4709c7d/R/world-functions.R#L534) *style:* **Commented code should be removed.**\n```r\n​    #   cat(\"names       :\", paste(ln, collapse=\", \"), \"\\n\")\n        ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/world-functions.R:538:28:](https://github.com/PredictiveEcology/NetLogoR/blob/d46b99e3e8cdfd3edfe3ec0515babecec4709c7d/R/world-functions.R#L538) *style:* **Commas should always have a space after.**\n```r\n​    print(object@.Data[1:4,1:4,])\n                           ^\n```\n[R/world-functions.R:538:32:](https://github.com/PredictiveEcology/NetLogoR/blob/d46b99e3e8cdfd3edfe3ec0515babecec4709c7d/R/world-functions.R#L538) *style:* **Commas should always have a space after.**\n```r\n​    print(object@.Data[1:4,1:4,])\n                               ^\n```\n[R/worldNLR-classes-methods.R:340:5:](https://github.com/PredictiveEcology/NetLogoR/blob/d46b99e3e8cdfd3edfe3ec0515babecec4709c7d/R/worldNLR-classes-methods.R#L340) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​    NLwMs <- list(...)\n    ^~~~~\n```\n[R/worldNLR-classes-methods.R:502:11:](https://github.com/PredictiveEcology/NetLogoR/blob/d46b99e3e8cdfd3edfe3ec0515babecec4709c7d/R/worldNLR-classes-methods.R#L502) *style:* **Place a space before left parenthesis, except in a function call.**\n```r\n​    floor((cellNum - 1) / b[2]) + seq.int(from = 1, to = prod(b),\n          ^\n```\n[tests/testthat/test-plotting.R:6:3:](https://github.com/PredictiveEcology/NetLogoR/blob/d46b99e3e8cdfd3edfe3ec0515babecec4709c7d/tests/testthat/test-plotting.R#L6) *style:* **Variable or function name should be lowerCamelCase.**\n```r\n​  t1_0 <- createTurtles(n = 10, coords = cbind(rep(0, 10), rep(0, 10)))\n  ^~~~\n```"}}
{"actor":{"display_login":"lintr-bot"}}