[inst/examples/Ants/Ants.R:13:2:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Ants/Ants.R#L13) *style:* **Commented code should be removed.**
```r
#library(testthat) # for testing
 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:19:2:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Ants/Ants.R#L19) *style:* **Commented code should be removed.**
```r
#torus <- FALSE
 ^~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:88:1:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Ants/Ants.R#L88) *style:* **Variable or function name should be lowerCamelCase.**
```r
f_fS_world <- of(world = world, var = c("food", "foodSource"), agents = patches(world))
^~~~~~~~~~
```
[inst/examples/Ants/Ants.R:99:4:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Ants/Ants.R#L99) *style:* **Commented code should be removed.**
```r
  #print(paste("toNest", NLcount(turtles)))
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:103:3:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Ants/Ants.R#L103) *style:* **Variable or function name should be lowerCamelCase.**
```r
  nestChem_pHere <- of(world = world, agents = pHere, var = c("nest", "chemical"))
  ^~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:133:4:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Ants/Ants.R#L133) *style:* **Commented code should be removed.**
```r
  #print(paste("toNest", NLcount(turtles)))
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:138:4:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Ants/Ants.R#L138) *style:* **Commented code should be removed.**
```r
  #print(paste("lookFood", NLcount(turtles)))
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:143:3:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Ants/Ants.R#L143) *style:* **Variable or function name should be lowerCamelCase.**
```r
  foodChem_pHere <- of(world = world, agents = pHere, var = c("food", "chemical"))
  ^~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:170:4:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Ants/Ants.R#L170) *style:* **Commented code should be removed.**
```r
  #print(paste("lookFood", NLcount(turtles)))
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:175:4:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Ants/Ants.R#L175) *style:* **Commented code should be removed.**
```r
  #print(paste("upPatch", NLcount(turtles)))
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:193:4:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Ants/Ants.R#L193) *style:* **Commented code should be removed.**
```r
  #print(paste("upPatch", NLcount(turtles)))
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:198:4:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Ants/Ants.R#L198) *style:* **Commented code should be removed.**
```r
  #print(paste("wiggle", NLcount(turtles)))
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:211:4:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Ants/Ants.R#L211) *style:* **Commented code should be removed.**
```r
  #print(paste("wiggle", NLcount(turtles)))
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:217:2:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Ants/Ants.R#L217) *style:* **Commented code should be removed.**
```r
#time <- 0
 ^~~~~~~~~
```
[inst/examples/Ants/Ants.R:218:40:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Ants/Ants.R#L218) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
while (sum(f_fS_world[, "food"]) != 0) { # as long as there is food in the world
                                       ^
```
[inst/examples/Ants/Ants.R:251:3:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Ants/Ants.R#L251) *style:* **Variable or function name should be lowerCamelCase.**
```r
  f_fS_world <- of(world = world, var = c("food", "foodSource"), agents = patches(world))
  ^~~~~~~~~~
```
[inst/examples/Ants/Ants.R:257:5:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Ants/Ants.R#L257) *style:* **Commented code should be removed.**
```r
  # time <- time + 1
    ^~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:258:5:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Ants/Ants.R#L258) *style:* **Commented code should be removed.**
```r
  # print(time)
    ^~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:261:5:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Ants/Ants.R#L261) *style:* **Commented code should be removed.**
```r
  # plot(world2raster(world)$layer.5) # food
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:262:5:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Ants/Ants.R#L262) *style:* **Commented code should be removed.**
```r
  # points(ants, pch = 16)
    ^~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:264:5:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Ants/Ants.R#L264) *style:* **Commented code should be removed.**
```r
  # expect_equivalent(NLcount(ants), nAnts)
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Butterfly/Butterfly-1.R:31:3:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Butterfly/Butterfly-1.R#L31) *style:* **Commented code should be removed.**
```r
# t1 <- createTurtles(n = 100, coords = cbind(xcor = 85, ycor = 95)) # can try with 100 butterflies
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Butterfly/Butterfly-1.R:65:5:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Butterfly/Butterfly-1.R#L65) *style:* **Commented code should be removed.**
```r
  # print(time)
    ^~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:33:3:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L33) *style:* **Commented code should be removed.**
```r
# torus <- TRUE # just for reminder, to be used in the movement functions (e.g., fd())
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:89:5:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L89) *style:* **Commented code should be removed.**
```r
#   plot(world2raster(field)[[1]])
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:90:5:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L90) *style:* **Commented code should be removed.**
```r
#   points(sheep, pch = 16, col = "red")
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:91:5:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L91) *style:* **Commented code should be removed.**
```r
#   points(wolves, pch = 16, col = "black")
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:93:5:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L93) *style:* **Commented code should be removed.**
```r
#   grass <- NLset(world = grass, agents = patches(grass), val = 0) # cannot plot an empty world
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:94:5:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L94) *style:* **Commented code should be removed.**
```r
#   plot(grass)
    ^~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:95:5:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L95) *style:* **Commented code should be removed.**
```r
#   points(sheep, pch = 16, col = "red")
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:96:5:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L96) *style:* **Commented code should be removed.**
```r
#   points(wolves, pch = 16, col = "black")
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:110:5:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L110) *style:* **Commented code should be removed.**
```r
  # turtles <- right(turtles, angle = runif(n = NLcount(turtles), min = 0, max = 50))
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:111:5:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L111) *style:* **Commented code should be removed.**
```r
  # turtles <- left(turtles, angle = runif(n = NLcount(turtles), min = 0, max = 50))
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:119:3:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L119) *style:* **Commented code should be removed.**
```r
# # Test move()
  ^~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:120:3:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L120) *style:* **Commented code should be removed.**
```r
# plot(wolves@.Data[, "xcor"], wolves@.Data[, "ycor"], col = rainbow(NLcount(wolves)), pch = 16)
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:122:5:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L122) *style:* **Commented code should be removed.**
```r
#   wolves <- move(wolves)
    ^~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:123:5:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L123) *style:* **Commented code should be removed.**
```r
#   points(wolves@.Data[, "xcor"], wolves@.Data[, "ycor"], col = rainbow(NLcount(wolves)), pch = 16)
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:149:3:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L149) *style:* **Commented code should be removed.**
```r
# # Test eatGrass()
  ^~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:150:3:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L150) *style:* **Commented code should be removed.**
```r
# grass <- createWorld(minPxcor = 1, maxPxcor = 10, minPycor = 1, maxPycor = 10)
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:151:3:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L151) *style:* **Commented code should be removed.**
```r
# grass <- NLset(world = grass, agents = patches(grass), val = c(rep(1, 50), rep(0, 50)))
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:152:3:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L152) *style:* **Commented code should be removed.**
```r
# countdown <- grass
  ^~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:153:3:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L153) *style:* **Commented code should be removed.**
```r
# countdown <- NLset(world = countdown, agents = patches(countdown), val = 0)
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:154:3:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L154) *style:* **Commented code should be removed.**
```r
# field <- stackWorlds(grass, countdown)
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:155:3:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L155) *style:* **Commented code should be removed.**
```r
# sheep <- createTurtles(n = 10, coords = cbind(xcor = 1:10, ycor = 1:10))
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:156:3:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L156) *style:* **Commented code should be removed.**
```r
# sheep <- turtlesOwn(turtles = sheep, tVar = "energy", tVal = 1:10)
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:157:3:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L157) *style:* **Commented code should be removed.**
```r
# resultsEatGrass <- eatGrass()
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:158:3:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L158) *style:* **Commented code should be removed.**
```r
# fieldEat <- resultsEatGrass[[1]]
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:162:3:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L162) *style:* **Commented code should be removed.**
```r
# sheepEat <- resultsEatGrass[[2]]
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:163:3:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L163) *style:* **Commented code should be removed.**
```r
# of(agents = sheepEat, var = "energy")[6:10] == (6:10 + gainFoodSheep)
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:180:3:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L180) *style:* **Commented code should be removed.**
```r
# # Test death()
  ^~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:185:3:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L185) *style:* **Commented code should be removed.**
```r
# count1 <- NLcount(wolves)
  ^~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:186:3:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L186) *style:* **Commented code should be removed.**
```r
# count2 <- NLcount(wolves)
  ^~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:188:5:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L188) *style:* **Commented code should be removed.**
```r
#   energy <- runif(NLcount(wolves), min = -10, max = 100)
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:189:5:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L189) *style:* **Commented code should be removed.**
```r
#   wolves <- NLset(turtles = wolves, agents = wolves, var = "energy", val = energy)
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:190:5:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L190) *style:* **Commented code should be removed.**
```r
#   count1 <- c(count1, NLcount(wolves) - length(energy[energy < 0]))
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:191:5:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L191) *style:* **Commented code should be removed.**
```r
#   wolves <- death(wolves)
    ^~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:192:5:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L192) *style:* **Commented code should be removed.**
```r
#   count2 <- c(count2, NLcount(wolves))
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:194:3:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L194) *style:* **Commented code should be removed.**
```r
# plot(1:length(count1), count1, pch = 16)
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:195:3:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L195) *style:* **Commented code should be removed.**
```r
# points(1:length(count2), count2, pch = 16, col = "red")
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:229:3:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L229) *style:* **Commented code should be removed.**
```r
# # Test reproduce()
  ^~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:234:3:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L234) *style:* **Commented code should be removed.**
```r
# count1 <- NLcount(wolves)
  ^~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:235:3:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L235) *style:* **Commented code should be removed.**
```r
# count2 <- NLcount(wolves)
  ^~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:237:5:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L237) *style:* **Commented code should be removed.**
```r
#   count1 <- c(count1,NLcount(wolves) + NLcount(wolves) * reproWolf / 100)
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:238:5:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L238) *style:* **Commented code should be removed.**
```r
#   wolves <- reproduce(wolves, reproWolf)
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:239:5:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L239) *style:* **Commented code should be removed.**
```r
#   count2 <- c(count2, NLcount(wolves))
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:241:3:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L241) *style:* **Commented code should be removed.**
```r
# plot(1:length(count1), count1, pch = 16)
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:242:3:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L242) *style:* **Commented code should be removed.**
```r
# points(1:length(count2), count2, pch = 16, col = "red")
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:268:3:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L268) *style:* **Commented code should be removed.**
```r
# # Test catchSheep()
  ^~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:271:3:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L271) *style:* **Commented code should be removed.**
```r
# countdown <- grass
  ^~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:272:3:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L272) *style:* **Commented code should be removed.**
```r
# countdown <- NLset(world = countdown, agents = patches(countdown), val = 0)
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:273:3:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L273) *style:* **Commented code should be removed.**
```r
# field <- stackWorlds(grass, countdown)
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:276:3:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L276) *style:* **Commented code should be removed.**
```r
# wolves <- createTurtles(n = 5, coords = cbind(xcor = 1:5, ycor = 1:5))
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:277:3:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L277) *style:* **Commented code should be removed.**
```r
# wolves <- turtlesOwn(turtles = wolves, tVar = "energy", tVal = 1:5)
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:278:3:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L278) *style:* **Commented code should be removed.**
```r
# catchSheepResults <- catchSheep()
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:279:3:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L279) *style:* **Commented code should be removed.**
```r
# sheepCatch <- catchSheepResults[[1]]
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:280:3:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L280) *style:* **Commented code should be removed.**
```r
# wolvesCatch <- catchSheepResults[[2]]
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:281:3:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L281) *style:* **Commented code should be removed.**
```r
# NLcount(sheepCatch) == 5
  ^~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:282:3:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L282) *style:* **Commented code should be removed.**
```r
# NLcount(wolvesCatch) == 5
  ^~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:283:3:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L283) *style:* **Commented code should be removed.**
```r
# of(agents = wolvesCatch, var = "energy") == (1:5 + gainFoodWolf)
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:315:3:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L315) *style:* **Commented code should be removed.**
```r
# # Test growGrass()
  ^~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:316:3:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L316) *style:* **Commented code should be removed.**
```r
# grass <- createWorld(1, 5, 1, 5)
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:317:3:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L317) *style:* **Commented code should be removed.**
```r
# grass <- NLset(world = grass, agents = patches(grass), val = c(rep(1, 10), rep(0, 15)))
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:318:3:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L318) *style:* **Commented code should be removed.**
```r
# countdown <- grass
  ^~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:321:3:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L321) *style:* **Commented code should be removed.**
```r
# field <- stackWorlds(grass, countdown)
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:322:3:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L322) *style:* **Commented code should be removed.**
```r
# fieldGrow <- growGrass()
  ^~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:323:3:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L323) *style:* **Commented code should be removed.**
```r
# of(world = fieldGrow, agents = patches(fieldGrow), var = "grass") == c(rep(1, 15), rep(0, 10))
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:332:8:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L332) *style:* **Place a space before left parenthesis, except in a function call.**
```r
while ((NLany(sheep) | NLany(wolves)) & time < maxTime) {
       ^
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:379:5:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L379) *style:* **Commented code should be removed.**
```r
  # print(time)
    ^~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:403:1:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L403) *style:* **Trailing blank lines are superfluous.**
```r

^
```
[inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R:64:1:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R#L64) *style:* **Variable or function name should be lowerCamelCase.**
```r
doEvent.WolfSheepPredation = function(sim, eventTime, eventType, debug = FALSE) {
^~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R:64:28:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R#L64) *style:* **Use <-, not =, for assignment.**
```r
doEvent.WolfSheepPredation = function(sim, eventTime, eventType, debug = FALSE) {
                           ^
```
[inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R:113:1:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R#L113) *style:* **Variable or function name should be lowerCamelCase.**
```r
WolfSheepPredationInit <- function(sim) {
^~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R:185:1:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R#L185) *style:* **Variable or function name should be lowerCamelCase.**
```r
WolfSheepPredationSave <- function(sim) {
^~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R:199:1:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R#L199) *style:* **Variable or function name should be lowerCamelCase.**
```r
WolfSheepPredationPosition <- function(sim) { # Plot the positions
^~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R:199:45:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R#L199) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
WolfSheepPredationPosition <- function(sim) { # Plot the positions
                                            ^
```
[inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R:222:1:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R#L222) *style:* **Variable or function name should be lowerCamelCase.**
```r
WolfSheepPredationPopSize <- function(sim) {  # Plot the population sizes
^~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R:222:44:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R#L222) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
WolfSheepPredationPopSize <- function(sim) {  # Plot the population sizes
                                           ^
```
[inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R:246:1:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R#L246) *style:* **Variable or function name should be lowerCamelCase.**
```r
WolfSheepPredationEvent <- function(sim){
^~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R:331:26:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R#L331) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
move <- function(turtles){ # sheep and wolves
                         ^
```
[inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R:332:5:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R#L332) *style:* **Commented code should be removed.**
```r
  # turtles <- right(turtles, angle = runif(n = NLcount(turtles), min = 0, max = 50))
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R:333:5:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R#L333) *style:* **Commented code should be removed.**
```r
  # turtles <- left(turtles, angle = runif(n = NLcount(turtles), min = 0, max = 50))
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R:341:27:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R#L341) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
death <- function(turtles){ # sheep and wolves
                          ^
```
[inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R:345:38:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R#L345) *style:* **Commas should always have a space after.**
```r
  who0 <- whoEnergy[which(whoEnergy[,"energy"] < 0), "who"]
                                     ^
```
[inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R:354:45:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R#L354) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
reproduce <- function(turtles, reproTurtles){ # sheep and wolves
                                            ^
```
[inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R:413:67:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R#L413) *style:* **Trailing whitespace is superfluous.**
```r
  sheepWolves <- turtlesOn(world = sim$grass, turtles = sim$sheep,
                                                                  ^
```
[inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R:423:56:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/inst/examples/Wolf-Sheep-Predation/WolfSheepPredation/WolfSheepPredation.R#L423) *style:* **Commas should always have a space after.**
```r
    whoGrabbingWolves <- whoWolves[unique(sheepWolves[,"id"])]
                                                       ^
```
[R/agentset-functions.R:261:32:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/R/agentset-functions.R#L261) *style:* **Commas should always have a space after.**
```r
    agentsVal <- world[agents[,1], agents[,2]]
                               ^
```
[R/agentset-functions.R:261:44:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/R/agentset-functions.R#L261) *style:* **Commas should always have a space after.**
```r
    agentsVal <- world[agents[,1], agents[,2]]
                                           ^
```
[R/agentset-functions.R:262:40:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/R/agentset-functions.R#L262) *style:* **Commas should always have a space after.**
```r
    pCoords <- agents[order(agentsVal),]
                                       ^
```
[R/agentset-functions.R:274:32:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/R/agentset-functions.R#L274) *style:* **Commas should always have a space after.**
```r
    agentsVal <- world[agents[,1], agents[,2]]
                               ^
```
[R/agentset-functions.R:274:44:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/R/agentset-functions.R#L274) *style:* **Commas should always have a space after.**
```r
    agentsVal <- world[agents[,1], agents[,2]]
                                           ^
```
[R/agentset-functions.R:275:40:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/R/agentset-functions.R#L275) *style:* **Commas should always have a space after.**
```r
    pCoords <- agents[order(agentsVal[,var]),]
                                       ^
```
[R/agentset-functions.R:275:46:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/R/agentset-functions.R#L275) *style:* **Commas should always have a space after.**
```r
    pCoords <- agents[order(agentsVal[,var]),]
                                             ^
```
[R/agentset-functions.R:288:56:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/R/agentset-functions.R#L288) *style:* **Commas should always have a space after.**
```r
      agents@.Data <- agents@.Data[order(agents@.Data[,var]),]
                                                       ^
```
[R/agentset-functions.R:288:62:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/R/agentset-functions.R#L288) *style:* **Commas should always have a space after.**
```r
      agents@.Data <- agents@.Data[order(agents@.Data[,var]),]
                                                             ^
```
[R/agentset-functions.R:356:35:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/R/agentset-functions.R#L356) *style:* **Commas should always have a space after.**
```r
    agentsValues <- world[agents[,1], agents[,2]]
                                  ^
```
[R/agentset-functions.R:356:47:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/R/agentset-functions.R#L356) *style:* **Commas should always have a space after.**
```r
    agentsValues <- world[agents[,1], agents[,2]]
                                              ^
```
[R/agentset-functions.R:370:69:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/R/agentset-functions.R#L370) *style:* **Commas should always have a space after.**
```r
    agentsCell <- cellFromPxcorPycor(world = world, pxcor = agents[,1], pycor = agents[,2])
                                                                    ^
```
[R/agentset-functions.R:370:89:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/R/agentset-functions.R#L370) *style:* **Commas should always have a space after.**
```r
    agentsCell <- cellFromPxcorPycor(world = world, pxcor = agents[,1], pycor = agents[,2])
                                                                                ^
```
[R/agentset-functions.R:371:41:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/R/agentset-functions.R#L371) *style:* **Commas should always have a space after.**
```r
    allVal <- as.numeric(t(world@.Data[,,var])) # t() to retrieve the values by rows
                                        ^
```
[R/agentset-functions.R:385:20:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/R/agentset-functions.R#L385) *style:* **Put spaces around all infix operators.**
```r
    if (length(val)==1) { # simpler for speed if only 1 val
                  ~^~~
```
[R/agentset-functions.R:385:25:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/R/agentset-functions.R#L385) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
    if (length(val)==1) { # simpler for speed if only 1 val
                        ^
```
[R/agentset-functions.R:387:64:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/R/agentset-functions.R#L387) *style:* **Commas should always have a space after.**
```r
        toReturn <- (agents[agents@levels[[var]][agents@.Data[,var]] == val,])
                                                               ^
```
[R/agentset-functions.R:387:77:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/R/agentset-functions.R#L387) *style:* **Commas should always have a space after.**
```r
        toReturn <- (agents[agents@levels[[var]][agents@.Data[,var]] == val,])
                                                                            ^
```
[R/agentset-functions.R:389:42:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/R/agentset-functions.R#L389) *style:* **Commas should always have a space after.**
```r
        toReturn <- agents[agents@.Data[,var] == val,]
                                         ^
```
[R/agentset-functions.R:389:54:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/R/agentset-functions.R#L389) *style:* **Commas should always have a space after.**
```r
        toReturn <- agents[agents@.Data[,var] == val,]
                                                     ^
```
[R/agentset-functions.R:393:64:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/R/agentset-functions.R#L393) *style:* **Commas should always have a space after.**
```r
        toReturn <- (agents[agents@levels[[var]][agents@.Data[,var]] %in% val,])
                                                               ^
```
[R/agentset-functions.R:393:79:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/R/agentset-functions.R#L393) *style:* **Commas should always have a space after.**
```r
        toReturn <- (agents[agents@levels[[var]][agents@.Data[,var]] %in% val,])
                                                                              ^
```
[R/agentset-functions.R:395:42:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/R/agentset-functions.R#L395) *style:* **Commas should always have a space after.**
```r
        toReturn <- agents[agents@.Data[,var] %in% val,]
                                         ^
```
[R/agentset-functions.R:395:56:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/R/agentset-functions.R#L395) *style:* **Commas should always have a space after.**
```r
        toReturn <- agents[agents@.Data[,var] %in% val,]
                                                       ^
```
[R/agentset-functions.R:399:44:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/R/agentset-functions.R#L399) *style:* **Commas should always have a space after.**
```r
    return(toReturn[!is.na(toReturn@.Data[,"who"]),])
                                           ^
```
[R/agentset-functions.R:399:52:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/R/agentset-functions.R#L399) *style:* **Commas should always have a space after.**
```r
    return(toReturn[!is.na(toReturn@.Data[,"who"]),])
                                                   ^
```
[R/agentset-functions.R:686:26:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/R/agentset-functions.R#L686) *style:* **Commas should always have a space after.**
```r
    return(maxAgents[row,,drop = FALSE])
                         ^
```
[R/agentset-functions.R:698:26:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/R/agentset-functions.R#L698) *style:* **Commas should always have a space after.**
```r
    return(maxAgents[row,,drop = FALSE])
                         ^
```
[R/agentset-functions.R:710:26:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/R/agentset-functions.R#L710) *style:* **Commas should always have a space after.**
```r
    return(maxAgents[row,])
                         ^
```
[R/agentset-functions.R:781:26:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/R/agentset-functions.R#L781) *style:* **Commas should always have a space after.**
```r
    return(minAgents[row,,drop = FALSE])
                         ^
```
[R/agentset-functions.R:793:26:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/R/agentset-functions.R#L793) *style:* **Commas should always have a space after.**
```r
    return(minAgents[row,,drop = FALSE])
                         ^
```
[R/agentset-functions.R:805:26:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/R/agentset-functions.R#L805) *style:* **Commas should always have a space after.**
```r
    return(minAgents[row,])
                         ^
```
[R/agentset-functions.R:875:41:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/R/agentset-functions.R#L875) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
    if (class(agents) == "agentMatrix") { # turtles
                                        ^
```
[R/agentset-functions.R:884:1:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/R/agentset-functions.R#L884) *style:* **Lines should not be more than 100 characters.**
```r
      if (all(colnames(agents@.Data)[1:8] == c("xcor", "ycor", "who", "heading", "prevX", "prevY", "breed", "color")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/agentset-functions.R:996:41:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/R/agentset-functions.R#L996) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
    if (class(agents) == "agentMatrix") { # agentMatrix
                                        ^
```
[R/agentset-functions.R:1000:29:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/R/agentset-functions.R#L1000) *style:* **Commas should always have a space after.**
```r
      turtles <- agents[row,]
                            ^
```
[R/agentset-functions.R:1005:63:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/R/agentset-functions.R#L1005) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
      if (ncol(agents) == 2 & colnames(agents)[1] == "pxcor") { # patches
                                                              ^
```
[R/agentset-functions.R:1008:31:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/R/agentset-functions.R#L1008) *style:* **Commas should always have a space after.**
```r
        patches <- agents[row,, drop = FALSE]
                              ^
```
[R/agentset-functions.R:1011:14:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/R/agentset-functions.R#L1011) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
      } else { # patches
             ^
```
[R/agentset-functions.R:1017:34:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/R/agentset-functions.R#L1017) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
          if (ncol(agents) == 3) { # patches with id
                                 ^
```
[R/agentset-functions.R:1020:45:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/R/agentset-functions.R#L1020) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
                          FUN = function(x) {sample(x, size = n, replace = FALSE)})
                                            ^
```
[R/agentset-functions.R:1024:18:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/R/agentset-functions.R#L1024) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
          } else { # whoNUmbers of turtles with id
                 ^
```
[R/agentset-functions.R:1027:45:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/R/agentset-functions.R#L1027) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
                          FUN = function(x) {sample(x, size = n, replace = FALSE)})
                                            ^
```
[R/agentset-functions.R:1113:41:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/R/agentset-functions.R#L1113) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
    if (class(agents) == "agentMatrix") { # agentMatrix
                                        ^
```
[R/agentset-functions.R:1119:63:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/R/agentset-functions.R#L1119) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
      if (ncol(agents) == 2 & colnames(agents)[1] == "pxcor") { # patches
                                                              ^
```
[R/agentset-functions.R:1122:37:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/R/agentset-functions.R#L1122) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
      } else if (ncol(agents) == 3) { # patches with id
                                    ^
```
[R/agentset-functions.R:1126:14:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/R/agentset-functions.R#L1126) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
      } else { # whoNUmbers of turtles with id
             ^
```
[R/agentset-functions.R:1127:42:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/R/agentset-functions.R#L1127) *style:* **Commas should always have a space after.**
```r
        whoTurtles <- tapply(X = agents[,"whoTurtles"], INDEX = as.factor(agents[, "id"]),
                                         ^
```
[R/agentset-functions.R:1128:48:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/R/agentset-functions.R#L1128) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
                             FUN = function(x) {ifelse(length(x) == 1, x, sample(x, size = 1))})
                                               ^
```
[R/agentset-functions.R:1207:48:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/R/agentset-functions.R#L1207) *style:* **Commas should always have a space after.**
```r
      agentsVal <- agentsVal[order(-agentsVal[,"val"]),] # decreasing order
                                               ^
```
[R/agentset-functions.R:1207:56:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/R/agentset-functions.R#L1207) *style:* **Commas should always have a space after.**
```r
      agentsVal <- agentsVal[order(-agentsVal[,"val"]),] # decreasing order
                                                       ^
```
[R/agentset-functions.R:1210:41:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/R/agentset-functions.R#L1210) *style:* **Commas should always have a space after.**
```r
      maxAgents <- agentsVal[agentsVal[,"val"] >= minVal, , drop = FALSE]
                                        ^
```
[R/agentset-functions.R:1215:54:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/R/agentset-functions.R#L1215) *style:* **Commas should always have a space after.**
```r
        toKeep <- sample(1:NROW(maxAgents[maxAgents[,"val"] == minVal,]),
                                                     ^
```
[R/agentset-functions.R:1215:71:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/R/agentset-functions.R#L1215) *style:* **Commas should always have a space after.**
```r
        toKeep <- sample(1:NROW(maxAgents[maxAgents[,"val"] == minVal,]),
                                                                      ^
```
[R/agentset-functions.R:1216:1:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/R/agentset-functions.R#L1216) *style:* **Lines should not be more than 100 characters.**
```r
                         size = NROW(maxAgents[maxAgents[,"val"] == minVal,]) -nToRemove) # rows to keep
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/agentset-functions.R:1216:59:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/R/agentset-functions.R#L1216) *style:* **Commas should always have a space after.**
```r
                         size = NROW(maxAgents[maxAgents[,"val"] == minVal,]) -nToRemove) # rows to keep
                                                          ^
```
[R/agentset-functions.R:1216:76:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/R/agentset-functions.R#L1216) *style:* **Commas should always have a space after.**
```r
                         size = NROW(maxAgents[maxAgents[,"val"] == minVal,]) -nToRemove) # rows to keep
                                                                           ^
```
[R/agentset-functions.R:1216:79:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/R/agentset-functions.R#L1216) *style:* **Put spaces around all infix operators.**
```r
                         size = NROW(maxAgents[maxAgents[,"val"] == minVal,]) -nToRemove) # rows to keep
                                                                              ^~
```
[R/agentset-functions.R:1217:49:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/R/agentset-functions.R#L1217) *style:* **Commas should always have a space after.**
```r
        maxAgents <- rbind(maxAgents[maxAgents[,"val"] > minVal,],
                                                ^
```
[R/agentset-functions.R:1217:65:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/R/agentset-functions.R#L1217) *style:* **Commas should always have a space after.**
```r
        maxAgents <- rbind(maxAgents[maxAgents[,"val"] > minVal,],
                                                                ^
```
[R/agentset-functions.R:1218:49:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/R/agentset-functions.R#L1218) *style:* **Commas should always have a space after.**
```r
                           maxAgents[maxAgents[,"val"] == minVal,][toKeep,])
                                                ^
```
[R/agentset-functions.R:1218:66:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/R/agentset-functions.R#L1218) *style:* **Commas should always have a space after.**
```r
                           maxAgents[maxAgents[,"val"] == minVal,][toKeep,])
                                                                 ^
```
[R/agentset-functions.R:1218:75:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/R/agentset-functions.R#L1218) *style:* **Commas should always have a space after.**
```r
                           maxAgents[maxAgents[,"val"] == minVal,][toKeep,])
                                                                          ^
```
[R/agentset-functions.R:1221:25:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/R/agentset-functions.R#L1221) *style:* **Commas should always have a space after.**
```r
      return(maxAgents[,c("pxcor", "pycor"), drop = FALSE])
                        ^
```
[R/agentset-functions.R:1243:48:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/R/agentset-functions.R#L1243) *style:* **Commas should always have a space after.**
```r
      agentsVal <- agentsVal[order(-agentsVal[,"val"]),] # decreasing order
                                               ^
```
[R/agentset-functions.R:1243:56:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/R/agentset-functions.R#L1243) *style:* **Commas should always have a space after.**
```r
      agentsVal <- agentsVal[order(-agentsVal[,"val"]),] # decreasing order
                                                       ^
```
[R/agentset-functions.R:1246:41:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/R/agentset-functions.R#L1246) *style:* **Commas should always have a space after.**
```r
      maxAgents <- agentsVal[agentsVal[,"val"] >= minVal, , drop = FALSE]
                                        ^
```
[R/agentset-functions.R:1251:54:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/R/agentset-functions.R#L1251) *style:* **Commas should always have a space after.**
```r
        toKeep <- sample(1:NROW(maxAgents[maxAgents[,"val"] == minVal,]),
                                                     ^
```
[R/agentset-functions.R:1251:71:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/R/agentset-functions.R#L1251) *style:* **Commas should always have a space after.**
```r
        toKeep <- sample(1:NROW(maxAgents[maxAgents[,"val"] == minVal,]),
                                                                      ^
```
[R/agentset-functions.R:1252:1:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/R/agentset-functions.R#L1252) *style:* **Lines should not be more than 100 characters.**
```r
                         size = NROW(maxAgents[maxAgents[,"val"] == minVal,]) -nToRemove) # rows to keep
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/agentset-functions.R:1252:59:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/R/agentset-functions.R#L1252) *style:* **Commas should always have a space after.**
```r
                         size = NROW(maxAgents[maxAgents[,"val"] == minVal,]) -nToRemove) # rows to keep
                                                          ^
```
[R/agentset-functions.R:1252:76:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/R/agentset-functions.R#L1252) *style:* **Commas should always have a space after.**
```r
                         size = NROW(maxAgents[maxAgents[,"val"] == minVal,]) -nToRemove) # rows to keep
                                                                           ^
```
[R/agentset-functions.R:1252:79:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/R/agentset-functions.R#L1252) *style:* **Put spaces around all infix operators.**
```r
                         size = NROW(maxAgents[maxAgents[,"val"] == minVal,]) -nToRemove) # rows to keep
                                                                              ^~
```
[R/agentset-functions.R:1253:49:](https://github.com/PredictiveEcology/NetLogoR/blob/7c699bc5839534b5805a31e3e7d8b8e89102f943/R/agentset-functions.R#L1253) *style:* **Commas should always have a space after.**
```r
        maxAgents <- rbind(maxAgents[maxAgents[,"val"] > minVal,],
                                                ^
```


Hello,
Is this issue related to the following error message :
`2017-09-28 18:17:13.265 [ERROR] [netatmo.handler.NetatmoDeviceHandler] - Exception when trying to update channels: null`
If yes this message is still present only for the netamo Thermostat (no concern for the external and internal modules).


Ok, I can remove it completely, I just thought that it would make the
update bit smoother for the users that rely on it.


Bluemix toolchain: An unknown tool deployed [testRepo-Traceability-jerome-lanneluc](https://github.com/idsdev/testRepo-Traceability-jerome-lanneluc/releases/tag/deployed-2-env-ibm-yp-us-south-user-ibm.com-prod-20170928-162325 "deployed-2-env-ibm-yp-us-south-user-ibm.com-prod-20170928-162325") to [prod](https://console.bluemix.net/apps/6e3bc311-c83d-4cd1-a457-99d9a5f20f19?env_id=ibm:yp:us-south "ibm:yp:us-south:user@ibm.com:prod"), including this commit


Bluemix toolchain: An unknown tool deployed [testRepo-Traceability-jerome-lanneluc](https://github.com/idsdev/testRepo-Traceability-jerome-lanneluc/releases/tag/deployed-2-env-ibm-yp-us-south-user-ibm.com-prod-20170928-162336 "deployed-2-env-ibm-yp-us-south-user-ibm.com-prod-20170928-162336") to [prod](https://console.bluemix.net/apps/6e3bc311-c83d-4cd1-a457-99d9a5f20f19?env_id=ibm:yp:us-south "ibm:yp:us-south:user@ibm.com:prod"), including this commit


Bluemix toolchain: An unknown tool deployed [testRepo-Traceability-jerome-lanneluc](https://github.com/idsdev/testRepo-Traceability-jerome-lanneluc/releases/tag/deployed-2-env-Prod-20170928-162351 "deployed-2-env-Prod-20170928-162351") to [Prod](https://console.bluemix.net/apps/6e3bc311-c83d-4cd1-a457-99d9a5f20f19?env_id=ibm:yp:us-south "There was a problem retrieving the space name"), including this commit


Hi,
Very nice job!
I tried your code but it seems that we can't force dns to use a specific interface but only the interface address. Thus, the route table will overwrite our choice. I don't know how curl do it with c-ares, but the result is good with option --dns-interface.
Do you know any workaround working with go?


Bluemix toolchain: An unknown tool deployed [testRepo-Traceability-jerome-lanneluc](https://github.com/idsdev/testRepo-Traceability-jerome-lanneluc/releases/tag/deployed-2-env-ibm-yp-us-south-user-ibm.com-prod-20170928-162408 "deployed-2-env-ibm-yp-us-south-user-ibm.com-prod-20170928-162408") to [prod](https://console.bluemix.net/apps/6e3bc311-c83d-4cd1-a457-99d9a5f20f19?env_id=ibm:yp:us-south "ibm:yp:us-south:user@ibm.com:prod"), including this commit


Шо це такив ээээ


https://coveralls.io/github/T13-B1-JAROP/addressbook-level4?branch=master[image:https://coveralls.io/github/T13-B1-JAROP/addressbook-level4/badge.svg?branch=master[Coverage Status]]


nope 😬


s/Aviable/Available


Version analysis for protocol definitions in this commit:

## Diffs

### `S_INVEN` 7 => 8
```diff
--- a/protocol/S_INVEN.7.def
+++ b/protocol/S_INVEN.8.def
@@ -30,38 +30,35 @@
 - int32  crystal3 # number of crystals that the item supports will be displayed in the equipment window.
 - int32  crystal4
 - int32  crystal5
-- int32  unk3 # 0, 30, ?
-- int32  unk4
+- int32  unk3 # 0, 30?
+- int32  unk4 # 0, 1?
 - int32  remodel # dbid
 - uint32 dye
 - int32  dyeSecRemaining # -1 = unlimited
-- bool   masterworked
 - int32  unk5
-- bool   unk6
-- bool   unk7
-- bool   unk8
-- bool   unk9 # true = breaks dye duration in tooltip?
-- uint32 itemLevel
-- uint32 minItemLevel
-- uint32 maxItemLevel
-- int32  unk10
+- int32  unk6
+- int64  dyeExpiryDate
+- bool   masterwork
+- uint32 enigma
+- int32  unk7
 - int32  enchantAdvantage # % x 100
 - int32  enchantAdvantageBonus # % x 100 (added to enchantAdvantage + displayed separately)
 - int32  enchantAdvantageBonusUntil
 - uint64 ownerId2 # soulbound to?
 - bool   awakened
-- int32  liberation # negative number = liberations left, 0 = default, positive number = liberated (removes untradable flag)
-- int32  feedstock # -1 if N/A
-- uint32 unk11
+- int32  liberationStatus # negative number = liberations left, 0 = default, positive number = liberated (removes untradable flag)
+- int32  feedstock
+- uint32 unk8
 - bool   equipped
 - bool   pcbang

 - array  passivitySets
 - - uint32 index
-- - uint64 unk1
-- - uint64 unk2
-
+- - int32  masterworkBonus
+- - int32  itemLevel
+- - int32  minItemLevel
+- - int32  maxItemLevel
 - - array  passivities
-- - - uint32 id
+- - - int32 dbid

 - string unkStr # possibly custom text?
\ No newline at end of file
```

### `S_SHOW_ITEM_TOOLTIP` 6 => 7
```diff
--- a/protocol/S_SHOW_ITEM_TOOLTIP.6.def
+++ b/protocol/S_SHOW_ITEM_TOOLTIP.7.def
@@ -17,15 +17,22 @@
 byte   unk5_2
 byte   unk5_3
 bool   compareStats
-int32  etching
-int32  hiddenPassivity
+int32  etching1
+int32  etching2
+int32  etching3
+int32  etching4
+int32  etching5 # etchings 5-8 are red in standard tooltips (new etching tooltip displays them as green)
+int32  etching6
+int32  etching7
+int32  etching8
+int32  etchingSecRemaining
 int32  unk6
 int32  unk7
 int32  unk8
 int32  unk9
 int32  unk10
 int32  unk11
-int32  etchingSecRemaining
+int32  unk12
 int32  unk13
 int32  unk14
 int32  unk15
@@ -34,43 +41,36 @@
 int32  unk18
 int32  unk19
 int32  unk20
+int32  enigma
+bool   masterwork
 int32  unk21
+int32  remodel
+uint32 dye
+int32  dyeSecRemaining
 int32  unk22
 int32  unk23
 int32  unk24
 int32  unk25
 int32  unk26
+int32  acquisitionDate
 int32  unk27
-int32  enigma
-bool   masterwork
-int32  unk29
-int32  remodel
-uint32 dye
-int32  dyeSecRemaining
-int32  unk33
-int32  unk34
-int32  unk35
-int32  unk36
-int32  unk37
-int32  acquisitionDate
-int32  unk39
 int32  secRemaining # -1 = display acquisition date instead
-int32  unk41
+int32  unk28
 int32  setId
-int32  unk42
+int32  unk29
 int32  enchantAdvantage
 int32  enchantAdvantageBonus
 int32  enchantAdvantageBonusUntil
 int64  averageBrokerPrice
 int32  feedstock
 int32  dismantlePrice # feedstock x 3?
-int32  unk48
+int32  unk30
 bool   awakened
 int32  liberationStatus # See S_INVEN
-byte   unk49_1
-byte   unk49_2
-byte   unk49_3
-int32  unk51
+byte   unk31_1
+byte   unk31_2
+byte   unk31_3
+int32  unk32

 array  crystals
 - int32 dbid
```


Created multidev environment [badcamp-2017#pr-56](https://dashboard.pantheon.io/sites/8d658997-7a61-4db8-9be8-0f16b8b62022#pr-56).

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


TeamCity Glyssen :: Glyssen pull requests [Build *.*.645.4d42b951345222699bdaee94b72d8f346c608d93](http://build.palaso.org/viewLog.html?buildId=98447&buildTypeId=Glyssen_GlyssenPullRequests) outcome was **SUCCESS**
Summary: Tests passed: 1776, ignored: 18 Build time: 00:10:37


It's just strange because the statement is guarded by a `if (!file.parent.exists())`


Not using parameter?


Нащо?


Maybe better set canBeBatched for PlayerListPacket to false?


@noxify supposed to be fixed now in https://github.com/rinvex/cortex-foundation/commit/6a478d52a212722dbaa241faf17c00097e2d0280

Please let me know if there's still any other related issues.


You already wrote your own geocoder module at Geocode/FixaMinGata.pm - so you can do whatever you like in that, yes!


Sorry, there is a typo in commit message. Not debugger but bootloader


no, everything is always batched, has to be (because mojang)... the bug was a race-condition in packet sending that this commit introduced.


Sorry, I dunno how your EXIT case got removed in the last commit, my bad. Adding it back in in this commit.


Since these are the only two methods in this controller at this point, you could also do this:

```
skip_before_action :authenticate_user
```

You can also do something similar for the following line.


See above


Yes, I dont see much value in it also


So my earlier commit 5a4490b84675ff4165 was causing some problems in certain cases it seems. I think I can attribute this mostly to the `project(nalu)` call being moved to before the trilinos search and settings. Just to be safe though, I reverted the whole thing.

I'm really sorry if this caused problems for anybody the two days it was live.


The following doc(s) have been deployed to the [2591cronn](https://2591cronn-static-docs.pantheonsite.io/docs) Multidev environment:
- [/docs/drupal-cron](https://2591cronn-static-docs.pantheonsite.io/docs/drupal-cron)


@gegl I fixed this on '0.1.1', can you give it a spin and report if you still have issues?


*[Hook UI build recap](http://ci.perseids.org/repo/OpenGreekAndLatin/First1KGreek/2942)*


Agreed.


@maffydavison

This is an example of how you can deploy CloudPassage Halo agent via Ansible. Halo API is not included in this therefore it would not allow you to launch scans. Cloud you please explain to me your use case? You can setup scan schedulers in Halo and it will automatically launch scans. Or are you thinking to make changes via Ansible and launch scans right after?

Thank you,
Hana Lee


## Global

| Changed            |   Status |
|:-------------------|---------:|
| `metadata_passing` |       +1 |
| `metadata_total`   |       +1 |
| `nodes_count`      |     +951 |
| `texts_passing`    |       +1 |
| `texts_total`      |       +1 |

## Words

| Changed   |   Status |
|:----------|---------:|
| `grc`     |   +15960 |

## Units

| Changed                                               | Status   |
|:------------------------------------------------------|:---------|
| `./data/tlg0527/tlg015/__cts__.xml`                   | New      |
| `./data/tlg0527/tlg015/tlg0527.tlg015.1st1K-grc1.xml` | New      |
| `./data/tlg0527/tlg015/__cts__.xml`                   | Passing  |
| `./data/tlg0527/tlg015/tlg0527.tlg015.1st1K-grc1.xml` | Passing  |

*[Hook UI build recap](http://ci.perseids.org/repo/OpenGreekAndLatin/First1KGreek/2943)*


TeamCity Glyssen :: Glyssen pull requests [Build *.*.646.7d82963f3930d24a74a191a5bf14e656863c10e9](http://build.palaso.org/viewLog.html?buildId=98448&buildTypeId=Glyssen_GlyssenPullRequests) outcome was **SUCCESS**
Summary: Tests passed: 1776, ignored: 18 Build time: 00:10:46


test


Unless. The parent file DOESN'T exist (new user), but plugins/PerWorldInventory/data DOES. That would cause the reported issue to happen, because `mkdirs()` would return false due to those directories existing. So yeah, that actually does make sense.


meh, issue number was #6, not #2.  lol


i can


According to [AddressBook - Level 4: Setting up Travis CI](https://nus-cs2103-ay1718s1.github.io/addressbook-level4/UsingTravis.html#setting-up-travis-ci) only the 'build status' badge should be updated. I tried updating the 'coverage status' badge also and caused a mess.
Apologies for the redundant commits.


Make sure to test if the new .project file will work. Removing variable definitions might break some things


## Global

| Changed            |   Status |
|:-------------------|---------:|
| `metadata_passing` |       +1 |
| `metadata_total`   |       +1 |
| `nodes_count`      |     +863 |
| `texts_passing`    |       +1 |
| `texts_total`      |       +1 |

## Words

| Changed   |   Status |
|:----------|---------:|
| `grc`     |   +21063 |

## Units

| Changed                                               | Status   |
|:------------------------------------------------------|:---------|
| `./data/tlg0527/tlg016/__cts__.xml`                   | New      |
| `./data/tlg0527/tlg016/tlg0527.tlg016.1st1K-grc1.xml` | New      |
| `./data/tlg0527/tlg016/__cts__.xml`                   | Passing  |
| `./data/tlg0527/tlg016/tlg0527.tlg016.1st1K-grc1.xml` | Passing  |

*[Hook UI build recap](http://ci.perseids.org/repo/OpenGreekAndLatin/First1KGreek/2944)*


Good catch abut the table definition. I'll fix that, thanks.

The only reason I didn't consider TEXT type is because it seemed overkill, and is not usually cached by MySQL in memory. I try and avoid TEXT wherever I can for this reason, unless there's no other choice.

I'd even consider changing the core table structures one day so any TEXT/MEDIUMTEXT columns are in a separate table and joined to the metadata tables via their unique keys. That way we could get 'info' about a table without bringing the massive disk-based payload with it.

`textpattern` table:
id
posted
expires
authorid
lastmod
lastmodid
title
html_title
annotate
...

`textpattern_content` table:
id
body
body_html
excerpt
excerpt_html

or even:

`textpattern_body` table:
id
body
body_html

and `textpattern_excerpt` table:
id
excerpt
excerpt_html

Potentially higher performance in the admin side Content->Articles and Presentation->Section panels, plus we could pre-parse containers and if they don't contain any body/excerpt tags, could omit the joins in the query for faster landing pages that don't contain copy.