[inst/examples/Ants/Ants.R:12:2:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L12) *style:* **Commented code should be removed.**
```r
#library(NetLogoR)
 ^~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:13:2:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L13) *style:* **Commented code should be removed.**
```r
#library(testthat) # for testing
 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:19:3:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L19) *style:* **Commented code should be removed.**
```r
# torus = FALSE
  ^~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:29:1:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L29) *style:* **Lines should not be more than 100 characters.**
```r
chemical <- createWorld(minPxcor = -35, maxPxcor = 35, minPycor = -35, maxPycor = 35, data = 0) # amount of chemical on the patches
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:29:1:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L29) *style:* **Lines should not be more than 100 characters.**
```r
chemical <- createWorld(minPxcor = -35, maxPxcor = 35, minPycor = -35, maxPycor = 35, data = 0) # amount of chemical on the patches
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:35:1:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L35) *style:* **Lines should not be more than 100 characters.**
```r
patchNest <- which(distNest < 5) # patch/cell numbers for the ones at distance less than 5 from [x = 0, y = 0]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:35:1:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L35) *style:* **Lines should not be more than 100 characters.**
```r
patchNest <- which(distNest < 5) # patch/cell numbers for the ones at distance less than 5 from [x = 0, y = 0]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:37:1:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L37) *style:* **Lines should not be more than 100 characters.**
```r
nest <- NLset(world = nest, agents = PxcorPycorFromCell(world = nest, cellNum = patchNest), val = 1) # and reassign 1 to the patches in the nest
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:37:1:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L37) *style:* **Lines should not be more than 100 characters.**
```r
nest <- NLset(world = nest, agents = PxcorPycorFromCell(world = nest, cellNum = patchNest), val = 1) # and reassign 1 to the patches in the nest
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:38:1:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L38) *style:* **Lines should not be more than 100 characters.**
```r
nestScent <- NLset(world = nestScent, agents = patches(nestScent), val = 200 - distNest) # spread nestScent over the whole world, stronger near the nest
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:38:1:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L38) *style:* **Lines should not be more than 100 characters.**
```r
nestScent <- NLset(world = nestScent, agents = patches(nestScent), val = 200 - distNest) # spread nestScent over the whole world, stronger near the nest
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:43:1:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L43) *style:* **Lines should not be more than 100 characters.**
```r
distFood1 <- NLdist(agents = patches(foodSource), agents2 = cbind(x = 0.6 * maxPxcor(foodSource), y = 0)) # setup food source 1 on the right
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:43:1:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L43) *style:* **Lines should not be more than 100 characters.**
```r
distFood1 <- NLdist(agents = patches(foodSource), agents2 = cbind(x = 0.6 * maxPxcor(foodSource), y = 0)) # setup food source 1 on the right
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:46:1:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L46) *style:* **Lines should not be more than 100 characters.**
```r
foodSource <- NLset(world = foodSource, agents = PxcorPycorFromCell(world = foodSource, cellNum = patchFood1), val = 1) # and reassign 1 to the patches in the foodSource 1
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:46:1:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L46) *style:* **Lines should not be more than 100 characters.**
```r
foodSource <- NLset(world = foodSource, agents = PxcorPycorFromCell(world = foodSource, cellNum = patchFood1), val = 1) # and reassign 1 to the patches in the foodSource 1
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:47:1:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L47) *style:* **Lines should not be more than 100 characters.**
```r
distFood2 <- NLdist(agents = patches(foodSource), agents2 = cbind(x = -0.6 * maxPxcor(foodSource), y = -0.6 * maxPycor(foodSource))) # setup food source 2 on the lower-left
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:47:1:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L47) *style:* **Lines should not be more than 100 characters.**
```r
distFood2 <- NLdist(agents = patches(foodSource), agents2 = cbind(x = -0.6 * maxPxcor(foodSource), y = -0.6 * maxPycor(foodSource))) # setup food source 2 on the lower-left
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:49:1:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L49) *style:* **Lines should not be more than 100 characters.**
```r
foodSource <- NLset(world = foodSource, agents = PxcorPycorFromCell(world = foodSource, cellNum = patchFood2), val = 2) # and reassign 2 to the patches in the foodSource 2
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:49:1:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L49) *style:* **Lines should not be more than 100 characters.**
```r
foodSource <- NLset(world = foodSource, agents = PxcorPycorFromCell(world = foodSource, cellNum = patchFood2), val = 2) # and reassign 2 to the patches in the foodSource 2
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:50:1:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L50) *style:* **Lines should not be more than 100 characters.**
```r
distFood3 <- NLdist(agents = patches(foodSource), agents2 = cbind(x = -0.8 * maxPxcor(foodSource), y = 0.8 * maxPycor(foodSource))) # setup food source 3 on the upper-left
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:50:1:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L50) *style:* **Lines should not be more than 100 characters.**
```r
distFood3 <- NLdist(agents = patches(foodSource), agents2 = cbind(x = -0.8 * maxPxcor(foodSource), y = 0.8 * maxPycor(foodSource))) # setup food source 3 on the upper-left
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:52:1:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L52) *style:* **Lines should not be more than 100 characters.**
```r
foodSource <- NLset(world = foodSource, agents = PxcorPycorFromCell(world = foodSource, cellNum = patchFood3), val = 3) # and reassign 3 to the patches in the foodSource 3
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:52:1:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L52) *style:* **Lines should not be more than 100 characters.**
```r
foodSource <- NLset(world = foodSource, agents = PxcorPycorFromCell(world = foodSource, cellNum = patchFood3), val = 3) # and reassign 3 to the patches in the foodSource 3
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:55:1:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L55) *style:* **Lines should not be more than 100 characters.**
```r
food <- NLset(world = food, agents = patchFood123, val = sample(c(1,2), size = NLcount(patchFood123), replace = TRUE)) # set "food" at sources to either 1 or 2, randomly
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:55:1:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L55) *style:* **Lines should not be more than 100 characters.**
```r
food <- NLset(world = food, agents = patchFood123, val = sample(c(1,2), size = NLcount(patchFood123), replace = TRUE)) # set "food" at sources to either 1 or 2, randomly
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:55:69:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L55) *style:* **Commas should always have a space after.**
```r
food <- NLset(world = food, agents = patchFood123, val = sample(c(1,2), size = NLcount(patchFood123), replace = TRUE)) # set "food" at sources to either 1 or 2, randomly
                                                                    ^
```
[inst/examples/Ants/Ants.R:59:1:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L59) *style:* **Lines should not be more than 100 characters.**
```r
ants <- createTurtles(n = nAnts, coords = cbind(xcor = 0, ycor = 0), color = "red") # red = not carrying food
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:59:1:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L59) *style:* **Lines should not be more than 100 characters.**
```r
ants <- createTurtles(n = nAnts, coords = cbind(xcor = 0, ycor = 0), color = "red") # red = not carrying food
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:62:3:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L62) *style:* **Commented code should be removed.**
```r
# plot(world2raster(world)$layer.5) # food
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:63:3:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L63) *style:* **Commented code should be removed.**
```r
# points(turtles2spdf(ants), pch = 16)
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:66:1:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L66) *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:67:1:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L67) *style:* **Lines should not be more than 100 characters.**
```r
food1 <- sum(f_fS_world[f_fS_world[, "foodSource"] == 1, "food"]) # sum of food values for the patches with foodSource equals to 1
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:67:1:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L67) *style:* **Lines should not be more than 100 characters.**
```r
food1 <- sum(f_fS_world[f_fS_world[, "foodSource"] == 1, "food"]) # sum of food values for the patches with foodSource equals to 1
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:68:1:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L68) *style:* **Lines should not be more than 100 characters.**
```r
food2 <- sum(f_fS_world[f_fS_world[, "foodSource"] == 2, "food"]) # sum of food values for the patches with foodSource equals to 2
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:68:1:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L68) *style:* **Lines should not be more than 100 characters.**
```r
food2 <- sum(f_fS_world[f_fS_world[, "foodSource"] == 2, "food"]) # sum of food values for the patches with foodSource equals to 2
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:69:1:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L69) *style:* **Lines should not be more than 100 characters.**
```r
food3 <- sum(f_fS_world[f_fS_world[, "foodSource"] == 3, "food"]) # sum of food values for the patches with foodSource equals to 3
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:69:1:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L69) *style:* **Lines should not be more than 100 characters.**
```r
food3 <- sum(f_fS_world[f_fS_world[, "foodSource"] == 3, "food"]) # sum of food values for the patches with foodSource equals to 3
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:74:4:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L74) *style:* **Commented code should be removed.**
```r
  #print(paste("toNest", NLcount(turtles)))
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:77:1:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L77) *style:* **Lines should not be more than 100 characters.**
```r
  nest_chem_pHere <- of(world = world, agents = pHere, var = c("nest", "chemical")) # nest values (1 or 0) and chemical in the order of the turtles
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:77:3:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L77) *style:* **Variable or function name should be lowerCamelCase.**
```r
  nest_chem_pHere <- of(world = world, agents = pHere, var = c("nest", "chemical")) # nest values (1 or 0) and chemical in the order of the turtles
  ^~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:81:1:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L81) *style:* **Lines should not be more than 100 characters.**
```r
  turtlesIn <- turtle(turtles, who = whoTurtles[nest_chem_pHere[, "nest"] == 1]) # whoTurtles for which their nest value equals 1
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:82:5:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L82) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(NLcount(turtlesIn) != 0){
    ^
```
[inst/examples/Ants/Ants.R:88:1:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L88) *style:* **Lines should not be more than 100 characters.**
```r
  turtlesOut <- turtle(turtles, who = whoTurtles[nest_chem_pHere[, "nest"] == 0]) # whoTurtles for which their nest value equals 0
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:89:5:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L89) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(NLcount(turtlesOut) != 0){
    ^
```
[inst/examples/Ants/Ants.R:90:1:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L90) *style:* **Lines should not be more than 100 characters.**
```r
    pHereOut <- pHere[nest_chem_pHere[, "nest"] == 0, , drop = FALSE] # pHere for which their nest value equals 0 (drop = FALSE keeps a format matrix when 1 row)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:91:1:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L91) *style:* **Lines should not be more than 100 characters.**
```r
    world <- NLset(world = world, agents = pHereOut, var = "chemical", val = nest_chem_pHere[nest_chem_pHere[, "nest"] == 0, "chemical"] + 60) # drop some chemical
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:92:1:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L92) *style:* **Lines should not be more than 100 characters.**
```r
    turtlesOut <- upPatch(turtles = turtlesOut, varPatch = "nestScent") # head toward the greatest value of nestScent
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:95:1:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L95) *style:* **Lines should not be more than 100 characters.**
```r
  # Because turtles have been modified separately as turtlesIn and turtlesOut, we need to put them back together to execute the following procedure
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:96:1:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L96) *style:* **Lines should not be more than 100 characters.**
```r
  turtles <- turtleSet(turtlesIn, turtlesOut) # there should not be any problem (e.g., duplicates) as turtles are always either in or out, but never both or neither
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:97:4:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L97) *style:* **Commented code should be removed.**
```r
  #print(paste("toNest", NLcount(turtles)))
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:102:4:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L102) *style:* **Commented code should be removed.**
```r
  #print(paste("lookFood", NLcount(turtles)))
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:105:1:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L105) *style:* **Lines should not be more than 100 characters.**
```r
  food_chem_pHere <- of(world = world, agents = pHere, var = c("food", "chemical")) # faster to extract both values at the same time
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:105:3:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L105) *style:* **Variable or function name should be lowerCamelCase.**
```r
  food_chem_pHere <- of(world = world, agents = pHere, var = c("food", "chemical")) # faster to extract both values at the same time
  ^~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:110:5:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L110) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(NLcount(turtlesFood) != 0){
    ^
```
[inst/examples/Ants/Ants.R:111:1:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L111) *style:* **Lines should not be more than 100 characters.**
```r
    turtlesFood <- NLset(turtles = turtlesFood, agents = turtlesFood, var = "color", val = "orange") # pick up food
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:113:1:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L113) *style:* **Lines should not be more than 100 characters.**
```r
    turtles <- turtleSet(turtlesFood, other(agents = turtles, except = turtlesFood)) # reconstruct the turtles with turtlesFood modified and the others
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:114:1:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L114) *style:* **Lines should not be more than 100 characters.**
```r
    world <- NLset(world = world, agents = pHere[food_chem_pHere[, "food"] > 0, , drop = FALSE], var = "food", val = food_chem_pHere[food_chem_pHere[, "food"] > 0, "food"] - 1) # and reduce the food source
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:118:1:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L118) *style:* **Lines should not be more than 100 characters.**
```r
  turtlesChem <- turtle(turtles, who = whoTurtles[food_chem_pHere[, "chemical"] >= 0.05 & food_chem_pHere[, "chemical"] < 2])
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:119:5:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L119) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(NLcount(turtlesChem) != 0){
    ^
```
[inst/examples/Ants/Ants.R:121:1:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L121) *style:* **Lines should not be more than 100 characters.**
```r
    turtles <- turtleSet(turtlesChem, other(agents = turtles, except = turtlesChem)) # reconstruct the turtles with turtlesChem modified and the others
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:124:4:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L124) *style:* **Commented code should be removed.**
```r
  #print(paste("lookFood", NLcount(turtles)))
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:129:4:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L129) *style:* **Commented code should be removed.**
```r
  #print(paste("upPatch", NLcount(turtles)))
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:147:4:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L147) *style:* **Commented code should be removed.**
```r
  #print(paste("upPatch", NLcount(turtles)))
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:152:4:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L152) *style:* **Commented code should be removed.**
```r
  #print(paste("wiggle", NLcount(turtles)))
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:154:1:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L154) *style:* **Lines should not be more than 100 characters.**
```r
  turtles <- right(turtles, angle = runif(n = NLcount(turtles), min = -40, max = 40)) # random angle between - 40 (40 to left) and 40 (40 to right)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:158:5:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L158) *style:* **Commented code should be removed.**
```r
  # turtlesCannot <- right(turtles = turtlesCannot, angle = 180)
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:164:4:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L164) *style:* **Commented code should be removed.**
```r
  #print(paste("wiggle", NLcount(turtles)))
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:170:3:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L170) *style:* **Commented code should be removed.**
```r
# time <- 0
  ^~~~~~~~~
```
[inst/examples/Ants/Ants.R:171:6:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L171) *style:* **Place a space before left parenthesis, except in a function call.**
```r
while(sum(f_fS_world[, "food"]) != 0){ # as long as there is food in the world
     ^
```
[inst/examples/Ants/Ants.R:171:38:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L171) *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:175:5:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L175) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(NLcount(aRed) != 0){
    ^
```
[inst/examples/Ants/Ants.R:183:5:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L183) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(NLcount(aOrange) != 0){
    ^
```
[inst/examples/Ants/Ants.R:198:1:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L198) *style:* **Lines should not be more than 100 characters.**
```r
  world <- NLset(world = world, agents = pWorld, var = "chemical", val = pChem * (100 - rEvap) / 100) # slowly evaporate chemical
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:201:3:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L201) *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:207:5:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L207) *style:* **Commented code should be removed.**
```r
  # time <- time + 1
    ^~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:208:5:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L208) *style:* **Commented code should be removed.**
```r
  # print(time)
    ^~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:211:5:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L211) *style:* **Commented code should be removed.**
```r
  # plot(world2raster(world)$layer.5) # food
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:212:5:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L212) *style:* **Commented code should be removed.**
```r
  # points(turtles2spdf(ants), pch = 16)
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:214:5:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L214) *style:* **Commented code should be removed.**
```r
  # expect_equivalent(NLcount(ants), nAnts)
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:224:1:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Ants/Ants.R#L224) *style:* **Lines should not be more than 100 characters.**
```r
legend("topright", legend = c("food1", "food2", "food3"), lwd = c(2, 2, 2), col = c("coral", "yellow", "green"),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Butterfly/Butterfly-1.R:10:2:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Butterfly/Butterfly-1.R#L10) *style:* **Commented code should be removed.**
```r
#library(NetLogoR)
 ^~~~~~~~~~~~~~~~~
```
[inst/examples/Butterfly/Butterfly-1.R:29:1:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Butterfly/Butterfly-1.R#L29) *style:* **Lines should not be more than 100 characters.**
```r
t1 <- createTurtles(n = 1, coords = cbind(xcor = 85, ycor = 95)) # the butterfly's initial location is [85, 95]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Butterfly/Butterfly-1.R:29:1:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Butterfly/Butterfly-1.R#L29) *style:* **Lines should not be more than 100 characters.**
```r
t1 <- createTurtles(n = 1, coords = cbind(xcor = 85, ycor = 95)) # the butterfly's initial location is [85, 95]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Butterfly/Butterfly-1.R:30:3:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Butterfly/Butterfly-1.R#L30) *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:32:3:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Butterfly/Butterfly-1.R#L32) *style:* **Commented code should be removed.**
```r
# points(turtles2spdf(t1), pch = 16)
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Butterfly/Butterfly-1.R:38:4:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Butterfly/Butterfly-1.R#L38) *style:* **Place a space before left parenthesis, except in a function call.**
```r
for(time in 1:1000){ # what is inside this loop will be iterated 1000 times
   ^
```
[inst/examples/Butterfly/Butterfly-1.R:38:20:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Butterfly/Butterfly-1.R#L38) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
for(time in 1:1000){ # what is inside this loop will be iterated 1000 times
                   ^
```
[inst/examples/Butterfly/Butterfly-1.R:40:1:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Butterfly/Butterfly-1.R#L40) *style:* **Lines should not be more than 100 characters.**
```r
  # The "move" function can be written directly here or before in the script as a separate function and then called here
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Butterfly/Butterfly-1.R:44:5:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Butterfly/Butterfly-1.R#L44) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(runif(n = 1, min = 0, max = 1) < q){ # conditional statement
    ^
```
[inst/examples/Butterfly/Butterfly-1.R:44:41:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Butterfly/Butterfly-1.R#L44) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
  if(runif(n = 1, min = 0, max = 1) < q){ # conditional statement
                                        ^
```
[inst/examples/Butterfly/Butterfly-1.R:52:1:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Butterfly/Butterfly-1.R#L52) *style:* **Lines should not be more than 100 characters.**
```r
    # Creating local variables instead of putting everything in the same one line code helps to understand
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Butterfly/Butterfly-1.R:66:5:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Butterfly/Butterfly-1.R#L66) *style:* **Commented code should be removed.**
```r
  # print(time)
    ^~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:12:2:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L12) *style:* **Commented code should be removed.**
```r
#library(NetLogoR)
 ^~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:33:3:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/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:45:1:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L45) *style:* **Lines should not be more than 100 characters.**
```r
  grassVal <- sample(c(0, 1), size = NLcount(patches(grass)), replace = TRUE) # 0 or 1 (i.e., green or brown in the NetLogo model)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:53:1:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L53) *style:* **Lines should not be more than 100 characters.**
```r
# When no patches values are used, using grass, countdown or field as the world argument required by a function does not change anything
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:55:1:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L55) *style:* **Lines should not be more than 100 characters.**
```r
# When patches values are used (e.g., when the sheep eat the grass), use only field as the world argument for the functions
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:57:1:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L57) *style:* **Lines should not be more than 100 characters.**
```r
# When field is updated, the values on the individual NLworld grass and countdown are not updated, only the layers in field are
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:77:1:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L77) *style:* **Lines should not be more than 100 characters.**
```r
  pGreen <- NLwith(world = field, var = "grass", agents = patches(field), val = 1) # patches equal to 1 (green)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:83:5:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L83) *style:* **Commented code should be removed.**
```r
#   plot(world2raster(field)[[1]])
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:84:5:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L84) *style:* **Commented code should be removed.**
```r
#   points(turtles2spdf(sheep), pch = 16, col = "red")
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:85:5:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L85) *style:* **Commented code should be removed.**
```r
#   points(turtles2spdf(wolves), pch = 16, col = "black")
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:87:5:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L87) *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:88:5:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L88) *style:* **Commented code should be removed.**
```r
#   plot(world2raster(grass))
    ^~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:89:5:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L89) *style:* **Commented code should be removed.**
```r
#   points(turtles2spdf(sheep), pch = 16, col = "red")
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:90:5:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L90) *style:* **Commented code should be removed.**
```r
#   points(turtles2spdf(wolves), pch = 16, col = "black")
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:96:1:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L96) *style:* **Lines should not be more than 100 characters.**
```r
# When only one type of input is permitted (e.g., only sheep or only wolves), the function does not need to express arguments
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:97:1:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L97) *style:* **Lines should not be more than 100 characters.**
```r
# When a function can be used by both sheep and wolves, the argument "turtles" must be used when building the function
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:100:27:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L100) *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/Wolf-Sheep-Predation.R:101:5:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L101) *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:102:5:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L102) *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:103:1:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L103) *style:* **Lines should not be more than 100 characters.**
```r
  # The two above functions can be replaced by this next one, as a negative value to turn right will turn left
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:109:3:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L109) *style:* **Commented code should be removed.**
```r
# # Test move()
  ^~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:110:3:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L110) *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:112:5:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L112) *style:* **Commented code should be removed.**
```r
#   wolves <- move(wolves)
    ^~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:113:5:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L113) *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:117:24:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L117) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
eatGrass <- function() { # only sheep
                       ^
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:118:1:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L118) *style:* **Lines should not be more than 100 characters.**
```r
  pGreen <- NLwith(world = field, var = "grass", agents = patches(field), val = 1) # patches with grass equal to 1 (green)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:119:1:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L119) *style:* **Lines should not be more than 100 characters.**
```r
  sheepOnGreen <- turtlesOn(world = field, turtles = sheep, agents = pGreen) # sheep on green patches
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:124:1:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L124) *style:* **Lines should not be more than 100 characters.**
```r
    sheep <- NLset(turtles = sheep, agents = sheepOnGreen, var = "energy", val = energySheep + gainFoodSheep) # update energy
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:126:1:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L126) *style:* **Lines should not be more than 100 characters.**
```r
    # If a sheep is on a green patch (value equal to 1), it eats the grass and turns it to brown (value to 0)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:134:3:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L134) *style:* **Commented code should be removed.**
```r
# # Test eatGrass()
  ^~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:135:3:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L135) *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:136:3:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L136) *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:137:3:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L137) *style:* **Commented code should be removed.**
```r
# countdown <- grass
  ^~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:138:3:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L138) *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:139:3:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L139) *style:* **Commented code should be removed.**
```r
# field <- stackWorlds(grass, countdown)
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:140:3:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L140) *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:141:3:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L141) *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:142:3:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L142) *style:* **Commented code should be removed.**
```r
# resultsEatGrass <- eatGrass()
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:143:3:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L143) *style:* **Commented code should be removed.**
```r
# fieldEat <- resultsEatGrass[[1]]
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:144:1:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L144) *style:* **Lines should not be more than 100 characters.**
```r
# of(world = fieldEat, var = "grass", agents = patches(grass)) == c(rep(1,9), 0, rep(1, 8), 0, rep(1, 8), 0 , rep(1, 8), 0, rep(1, 8), 0, rep(1, 4), rep(0, 50))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:144:3:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L144) *style:* **Commented code should be removed.**
```r
# of(world = fieldEat, var = "grass", agents = patches(grass)) == c(rep(1,9), 0, rep(1, 8), 0, rep(1, 8), 0 , rep(1, 8), 0, rep(1, 8), 0, rep(1, 4), rep(0, 50))
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:145:3:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L145) *style:* **Commented code should be removed.**
```r
# sheepEat <- resultsEatGrass[[2]]
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:146:3:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L146) *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:149:28:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L149) *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/Wolf-Sheep-Predation.R:152:1:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L152) *style:* **Lines should not be more than 100 characters.**
```r
  who0 <- whoEnergy[which(whoEnergy[,"energy"] < 0), "who"] # "who" numbers of the turtles with their energy value below 0
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:152:38:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L152) *style:* **Commas should always have a space after.**
```r
  who0 <- whoEnergy[which(whoEnergy[,"energy"] < 0), "who"] # "who" numbers of the turtles with their energy value below 0
                                     ^
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:161:3:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L161) *style:* **Commented code should be removed.**
```r
# # Test death()
  ^~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:162:1:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L162) *style:* **Lines should not be more than 100 characters.**
```r
# wolves <- createTurtles(n = nWolf, coords = randomXYcor(world = grass, n = nWolf), breed = "wolf", color = rep("black", nWolf))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:162:3:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L162) *style:* **Commented code should be removed.**
```r
# wolves <- createTurtles(n = nWolf, coords = randomXYcor(world = grass, n = nWolf), breed = "wolf", color = rep("black", nWolf))
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:163:1:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L163) *style:* **Lines should not be more than 100 characters.**
```r
# wolves <- turtlesOwn(turtles = wolves, tVar = "energy", tVal = runif(n = nWolf, min = 0, max = 2 * gainFoodWolf))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:163:3:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L163) *style:* **Commented code should be removed.**
```r
# wolves <- turtlesOwn(turtles = wolves, tVar = "energy", tVal = runif(n = nWolf, min = 0, max = 2 * gainFoodWolf))
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:164:3:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L164) *style:* **Commented code should be removed.**
```r
# count1 <- NLcount(wolves)
  ^~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:165:3:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L165) *style:* **Commented code should be removed.**
```r
# count2 <- NLcount(wolves)
  ^~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:167:5:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L167) *style:* **Commented code should be removed.**
```r
#   energy <- runif(NLcount(wolves), min = -10, max = 100)
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:168:5:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L168) *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:169:5:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L169) *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:170:5:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L170) *style:* **Commented code should be removed.**
```r
#   wolves <- death(wolves)
    ^~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:171:5:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L171) *style:* **Commented code should be removed.**
```r
#   count2 <- c(count2, NLcount(wolves))
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:173:3:](https://github.com/PredictiveEcology/NetLogoR/blob/612d9bdf1390cd38f6d7a10d69af36803647ec03/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L173) *style:* **Commented code should be removed.**
```r
# plot(1:length(count1), count1, pch = 16)
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```


#### 概要部分
1.功能暂时不全；
2.设计暂时不是很周全；
3.可读性一般；
4.代码不太容易维护；

#### 设计规范部分
1.类的成员变量都声明成了public，建议改成private，类的成员变量的命名也有问题；
2.代码中的存在较多的硬编码数字，比如6、9等；
3.存在部分多余代码，以及有一些函数功能重复；

#### 代码规范部分（参考《构建之法》）
1.大括号应单独占一行；
2.变量和函数的命名也有一定的问题，需要改进；
3.有部分地方忘了缩进；

#### 具体代码部分
1.处理了命令行参数的大部分错误，但是没有对输入文件中的数独题目进行检查不能处理其出现异常的情况；

#### 效能
1.IO的部分可以优化，可以一次向文件输出一个数独终局；

#### 可读性
1.可读性一般，注释不是很多，不太容易读；

#### 可测试性
1.由于大量修改了generator类中生成全排列的TransForm()函数，因此我认为需要对其进行测试以保证其可以生成全排列；


Hi @ashimura -san,
I have a question.
I was wondering what this Overview.html is for, and how it is different from index.html.
Thank you,


Ok! I think it should be "epub -> epub/mobi" rather than "mobi -> epub+mobi"  so if someone only activates mobi, it will also activate epub, instead of doing nothing.


Bluemix [toolchain](https://console.bluemix.net/devops/toolchains/0591872d-2e1a-4721-bb93-2c1b2603b359 "simple-toolchain-cognitive"): [Delivery Pipeline](https://console.bluemix.net/devops/pipelines/644cd8ed-84c6-48a4-8802-1bdf15c07779 "simple-toolchain-cognitive") deployed [simple-toolchain-cognitive](https://github.com/marina62/simple-toolchain-cognitive/releases/tag/deploy-ibm-yp-us-south-greenstm-us.ibm.com-dev-20170927-183519 "deploy-ibm-yp-us-south-greenstm-us.ibm.com-dev-20170927-183519") to [dev](https://console.bluemix.net/apps/015f5c61-2ba0-4311-9882-70414331b542?env_id=ibm:yp:us-south "ibm:yp:us-south:greenstm@us.ibm.com:dev"), including this commit


What do you mean? If MLV App finds appropriate .fpm in the directory it will use fpm instead of calc. Look at console output. It says either "Generating pixel" or "Used pixel map 'file.fpm'" accordingly. Everything is straightforward :)


I added them because placeTileHere in Tile.js threw an error when I didn't bind it. It looks like it works without them.


This logic may fit big amount of users as it''s implemented in popular tool. Why is it slow?


Typo


Refactored it.
Thank you for review


```
@Override
    protected void onStop() {
        super.onStop();
        releaseMediaPlayer();
    }
@Override
    protected void onPause() {
        super.onPause();
        releaseMediaPlayer();
    }
```


There is an extra > after your p tag here - watchout


We should set it back to `false`. I got an 500 error.
I assume that the app tried to redirect to german home page.


Yeah, you're right.


same here. I have disabled the `local_redirect`, too.


I mean we're not gonna place .fpm files in the directory by default. We put them there only in the very special case when calc is not working properly.


breaks subtile german channels not more testet yet


Created multidev environment [kanopi-support#pr-develop](https://dashboard.pantheon.io/sites/ea4e0e46-baba-4a80-bd9b-1bc7603ef6e2#pr-develop).

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


FYI, you should now compile using `npm run compile` and not your global `truffle compile` command.


@ankurk91 but I got multiple event emitted, using `@onChange` or `config.onChange`


&& and "and" it's different. @95CivicSi


Done.


This is what I wanted to know. So I delete the copy action from the .pro file? So they are no longer in the OSX app bundle by default.
But is the usibility good to copy a fpm anywhere in a bundle in this special case?


RIP mmm


Well, if it's used in NodeJS, then it's probably ok.
Why is it slow: after you've concat'd this strings, you'll probably split them by this ',', to get each value.


Please add `N_Back(int n)` constructor and remove `int parameter` argument from `showListWithRandomLetter`


Does
`tvad.me##script:inject(popads-dummy.js)`
work for you?
I ask because the video won't play on my end, because of a network error.


Also, then `private String instruction` can be moved into a method and will read `this.n`


[Jenkins vg tests](http://jenkins.cgcloud.info/job/vg/653/) complete for merge to master.  View the [full report here](http://cgl-pipeline-inputs.s3.amazonaws.com/vg_cgl/vg_ci/jenkins_reports/branch/master/index.html).

8 tests passed, 0 tests failed and 12 tests skipped in 15957 seconds

Tests produced 9321 warnings. 9321 were for lower-than-expected alignment scores


Here's one approach . . .
It has the advantage that it doesn't change any file names and it doesn't rely on externally run scripts.
Sadly it has to read every sfx file but I can't think of a way that doesn't involve doing that at some time or another. The only difference is this will have to run everytime someone enters the bank.
It uses pyparsing which seems a 'proper' way to parse files, I don't like re's ( write only) and simplistic string handling will get brittle, whilst pyparsing can do all kinds of clever extraction of details that we may or may not be interested in the future.

Any comments gratefully received before I submit a pull request.

`def get_preset_list(bank):
        import pyparsing as pp

        filename = pp.Suppress('"') + pp.Word(pp.alphanums +'.'+'_') +pp.Suppress('"')

        full_filename = pp.Combine(filename)

        include = pp.Suppress('#') +\
         pp.Literal('include')+\
         full_filename('included')

        preset_list=[]
        preset_dpath=bank[0]
        if os.path.isdir(preset_dpath):
                cmd="find '"+preset_dpath+"' -maxdepth 2 -type f -name '*.sfz'"
                output=check_output(cmd, shell=True).decode('utf8')
                cmd="find '"+preset_dpath+"' -maxdepth 2 -type f -name '*.gig'"
                output=output+"\n"+check_output(cmd, shell=True).decode('utf8')
                lines=output.split('\n')
                preset_set = set()
                kicked_set = set()
                for f in lines:
                        preset_set.add(f)
                        if os.path.isfile(f):
                                with open(f) as fp:
                                        content = fp.read()

                        filehead,filetail=os.path.split(f)
                        for result, start, stop in include.scanString(content):
                                kicked_set.add(os.path.join(filehead, result['included']))

        preset_set.difference_update(kicked_set)
        i = 0
        for pitem in preset_set:
            if pitem:
                filename,filext=os.path.splitext(pitem)
                title=filename[len(preset_dpath)+1:].replace('_', ' ')
                engine=filext[1:].lower()
                preset_list.append((i,[0,0,0], title, pitem ,engine))
                i=i+1

        return preset_list`


develop (kbenne) - x86_64-MacOS-10.10-clang: Build Failed

![Build Badge](http://img.shields.io/badge/build%20status-failing-red.png) ![Test Badge](http://img.shields.io/badge/tests%20passed-NA-red.png)