[inst/examples/Ants/Ants.R:12:2:](https://github.com/PredictiveEcology/NetLogoR/blob/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/inst/examples/Ants/Ants.R#L62) *style:* **Commented code should be removed.**
```r
# plot(world) # all the layers
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:63:3:](https://github.com/PredictiveEcology/NetLogoR/blob/6920f512003f570ac1707e99a5b48cfcb75cc78c/inst/examples/Ants/Ants.R#L63) *style:* **Commented code should be removed.**
```r
# plot(ants) # the ants only
  ^~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:64:3:](https://github.com/PredictiveEcology/NetLogoR/blob/6920f512003f570ac1707e99a5b48cfcb75cc78c/inst/examples/Ants/Ants.R#L64) *style:* **Commented code should be removed.**
```r
# plot(world2raster(world)$layer.5) # only the food layer
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:65:3:](https://github.com/PredictiveEcology/NetLogoR/blob/6920f512003f570ac1707e99a5b48cfcb75cc78c/inst/examples/Ants/Ants.R#L65) *style:* **Commented code should be removed.**
```r
# points(ants, pch = 16) # add the ants on the food layer
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:68:1:](https://github.com/PredictiveEcology/NetLogoR/blob/6920f512003f570ac1707e99a5b48cfcb75cc78c/inst/examples/Ants/Ants.R#L68) *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:69:1:](https://github.com/PredictiveEcology/NetLogoR/blob/6920f512003f570ac1707e99a5b48cfcb75cc78c/inst/examples/Ants/Ants.R#L69) *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:69:1:](https://github.com/PredictiveEcology/NetLogoR/blob/6920f512003f570ac1707e99a5b48cfcb75cc78c/inst/examples/Ants/Ants.R#L69) *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:70:1:](https://github.com/PredictiveEcology/NetLogoR/blob/6920f512003f570ac1707e99a5b48cfcb75cc78c/inst/examples/Ants/Ants.R#L70) *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:70:1:](https://github.com/PredictiveEcology/NetLogoR/blob/6920f512003f570ac1707e99a5b48cfcb75cc78c/inst/examples/Ants/Ants.R#L70) *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:71:1:](https://github.com/PredictiveEcology/NetLogoR/blob/6920f512003f570ac1707e99a5b48cfcb75cc78c/inst/examples/Ants/Ants.R#L71) *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:71:1:](https://github.com/PredictiveEcology/NetLogoR/blob/6920f512003f570ac1707e99a5b48cfcb75cc78c/inst/examples/Ants/Ants.R#L71) *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:76:4:](https://github.com/PredictiveEcology/NetLogoR/blob/6920f512003f570ac1707e99a5b48cfcb75cc78c/inst/examples/Ants/Ants.R#L76) *style:* **Commented code should be removed.**
```r
  #print(paste("toNest", NLcount(turtles)))
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:79:1:](https://github.com/PredictiveEcology/NetLogoR/blob/6920f512003f570ac1707e99a5b48cfcb75cc78c/inst/examples/Ants/Ants.R#L79) *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:79:3:](https://github.com/PredictiveEcology/NetLogoR/blob/6920f512003f570ac1707e99a5b48cfcb75cc78c/inst/examples/Ants/Ants.R#L79) *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:83:1:](https://github.com/PredictiveEcology/NetLogoR/blob/6920f512003f570ac1707e99a5b48cfcb75cc78c/inst/examples/Ants/Ants.R#L83) *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:84:5:](https://github.com/PredictiveEcology/NetLogoR/blob/6920f512003f570ac1707e99a5b48cfcb75cc78c/inst/examples/Ants/Ants.R#L84) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(NLcount(turtlesIn) != 0){
    ^
```
[inst/examples/Ants/Ants.R:90:1:](https://github.com/PredictiveEcology/NetLogoR/blob/6920f512003f570ac1707e99a5b48cfcb75cc78c/inst/examples/Ants/Ants.R#L90) *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:91:5:](https://github.com/PredictiveEcology/NetLogoR/blob/6920f512003f570ac1707e99a5b48cfcb75cc78c/inst/examples/Ants/Ants.R#L91) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(NLcount(turtlesOut) != 0){
    ^
```
[inst/examples/Ants/Ants.R:92:1:](https://github.com/PredictiveEcology/NetLogoR/blob/6920f512003f570ac1707e99a5b48cfcb75cc78c/inst/examples/Ants/Ants.R#L92) *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:93:1:](https://github.com/PredictiveEcology/NetLogoR/blob/6920f512003f570ac1707e99a5b48cfcb75cc78c/inst/examples/Ants/Ants.R#L93) *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:94:1:](https://github.com/PredictiveEcology/NetLogoR/blob/6920f512003f570ac1707e99a5b48cfcb75cc78c/inst/examples/Ants/Ants.R#L94) *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:97:1:](https://github.com/PredictiveEcology/NetLogoR/blob/6920f512003f570ac1707e99a5b48cfcb75cc78c/inst/examples/Ants/Ants.R#L97) *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:98:1:](https://github.com/PredictiveEcology/NetLogoR/blob/6920f512003f570ac1707e99a5b48cfcb75cc78c/inst/examples/Ants/Ants.R#L98) *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:99:4:](https://github.com/PredictiveEcology/NetLogoR/blob/6920f512003f570ac1707e99a5b48cfcb75cc78c/inst/examples/Ants/Ants.R#L99) *style:* **Commented code should be removed.**
```r
  #print(paste("toNest", NLcount(turtles)))
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:104:4:](https://github.com/PredictiveEcology/NetLogoR/blob/6920f512003f570ac1707e99a5b48cfcb75cc78c/inst/examples/Ants/Ants.R#L104) *style:* **Commented code should be removed.**
```r
  #print(paste("lookFood", NLcount(turtles)))
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:107:1:](https://github.com/PredictiveEcology/NetLogoR/blob/6920f512003f570ac1707e99a5b48cfcb75cc78c/inst/examples/Ants/Ants.R#L107) *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:107:3:](https://github.com/PredictiveEcology/NetLogoR/blob/6920f512003f570ac1707e99a5b48cfcb75cc78c/inst/examples/Ants/Ants.R#L107) *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:112:5:](https://github.com/PredictiveEcology/NetLogoR/blob/6920f512003f570ac1707e99a5b48cfcb75cc78c/inst/examples/Ants/Ants.R#L112) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(NLcount(turtlesFood) != 0){
    ^
```
[inst/examples/Ants/Ants.R:113:1:](https://github.com/PredictiveEcology/NetLogoR/blob/6920f512003f570ac1707e99a5b48cfcb75cc78c/inst/examples/Ants/Ants.R#L113) *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:115:1:](https://github.com/PredictiveEcology/NetLogoR/blob/6920f512003f570ac1707e99a5b48cfcb75cc78c/inst/examples/Ants/Ants.R#L115) *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:116:1:](https://github.com/PredictiveEcology/NetLogoR/blob/6920f512003f570ac1707e99a5b48cfcb75cc78c/inst/examples/Ants/Ants.R#L116) *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:120:1:](https://github.com/PredictiveEcology/NetLogoR/blob/6920f512003f570ac1707e99a5b48cfcb75cc78c/inst/examples/Ants/Ants.R#L120) *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:121:5:](https://github.com/PredictiveEcology/NetLogoR/blob/6920f512003f570ac1707e99a5b48cfcb75cc78c/inst/examples/Ants/Ants.R#L121) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(NLcount(turtlesChem) != 0){
    ^
```
[inst/examples/Ants/Ants.R:123:1:](https://github.com/PredictiveEcology/NetLogoR/blob/6920f512003f570ac1707e99a5b48cfcb75cc78c/inst/examples/Ants/Ants.R#L123) *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:126:4:](https://github.com/PredictiveEcology/NetLogoR/blob/6920f512003f570ac1707e99a5b48cfcb75cc78c/inst/examples/Ants/Ants.R#L126) *style:* **Commented code should be removed.**
```r
  #print(paste("lookFood", NLcount(turtles)))
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:131:4:](https://github.com/PredictiveEcology/NetLogoR/blob/6920f512003f570ac1707e99a5b48cfcb75cc78c/inst/examples/Ants/Ants.R#L131) *style:* **Commented code should be removed.**
```r
  #print(paste("upPatch", NLcount(turtles)))
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:149:4:](https://github.com/PredictiveEcology/NetLogoR/blob/6920f512003f570ac1707e99a5b48cfcb75cc78c/inst/examples/Ants/Ants.R#L149) *style:* **Commented code should be removed.**
```r
  #print(paste("upPatch", NLcount(turtles)))
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:154:4:](https://github.com/PredictiveEcology/NetLogoR/blob/6920f512003f570ac1707e99a5b48cfcb75cc78c/inst/examples/Ants/Ants.R#L154) *style:* **Commented code should be removed.**
```r
  #print(paste("wiggle", NLcount(turtles)))
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:156:1:](https://github.com/PredictiveEcology/NetLogoR/blob/6920f512003f570ac1707e99a5b48cfcb75cc78c/inst/examples/Ants/Ants.R#L156) *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:160:5:](https://github.com/PredictiveEcology/NetLogoR/blob/6920f512003f570ac1707e99a5b48cfcb75cc78c/inst/examples/Ants/Ants.R#L160) *style:* **Commented code should be removed.**
```r
  # turtlesCannot <- right(turtles = turtlesCannot, angle = 180)
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:166:4:](https://github.com/PredictiveEcology/NetLogoR/blob/6920f512003f570ac1707e99a5b48cfcb75cc78c/inst/examples/Ants/Ants.R#L166) *style:* **Commented code should be removed.**
```r
  #print(paste("wiggle", NLcount(turtles)))
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:172:3:](https://github.com/PredictiveEcology/NetLogoR/blob/6920f512003f570ac1707e99a5b48cfcb75cc78c/inst/examples/Ants/Ants.R#L172) *style:* **Commented code should be removed.**
```r
# time <- 0
  ^~~~~~~~~
```
[inst/examples/Ants/Ants.R:173:6:](https://github.com/PredictiveEcology/NetLogoR/blob/6920f512003f570ac1707e99a5b48cfcb75cc78c/inst/examples/Ants/Ants.R#L173) *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:173:38:](https://github.com/PredictiveEcology/NetLogoR/blob/6920f512003f570ac1707e99a5b48cfcb75cc78c/inst/examples/Ants/Ants.R#L173) *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:177:5:](https://github.com/PredictiveEcology/NetLogoR/blob/6920f512003f570ac1707e99a5b48cfcb75cc78c/inst/examples/Ants/Ants.R#L177) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(NLcount(aRed) != 0){
    ^
```
[inst/examples/Ants/Ants.R:185:5:](https://github.com/PredictiveEcology/NetLogoR/blob/6920f512003f570ac1707e99a5b48cfcb75cc78c/inst/examples/Ants/Ants.R#L185) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(NLcount(aOrange) != 0){
    ^
```
[inst/examples/Ants/Ants.R:200:1:](https://github.com/PredictiveEcology/NetLogoR/blob/6920f512003f570ac1707e99a5b48cfcb75cc78c/inst/examples/Ants/Ants.R#L200) *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:203:3:](https://github.com/PredictiveEcology/NetLogoR/blob/6920f512003f570ac1707e99a5b48cfcb75cc78c/inst/examples/Ants/Ants.R#L203) *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:209:5:](https://github.com/PredictiveEcology/NetLogoR/blob/6920f512003f570ac1707e99a5b48cfcb75cc78c/inst/examples/Ants/Ants.R#L209) *style:* **Commented code should be removed.**
```r
  # time <- time + 1
    ^~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:210:5:](https://github.com/PredictiveEcology/NetLogoR/blob/6920f512003f570ac1707e99a5b48cfcb75cc78c/inst/examples/Ants/Ants.R#L210) *style:* **Commented code should be removed.**
```r
  # print(time)
    ^~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:213:5:](https://github.com/PredictiveEcology/NetLogoR/blob/6920f512003f570ac1707e99a5b48cfcb75cc78c/inst/examples/Ants/Ants.R#L213) *style:* **Commented code should be removed.**
```r
  # plot(world2raster(world)$layer.5) # food
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:214:5:](https://github.com/PredictiveEcology/NetLogoR/blob/6920f512003f570ac1707e99a5b48cfcb75cc78c/inst/examples/Ants/Ants.R#L214) *style:* **Commented code should be removed.**
```r
  # points(ants, pch = 16)
    ^~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:216:5:](https://github.com/PredictiveEcology/NetLogoR/blob/6920f512003f570ac1707e99a5b48cfcb75cc78c/inst/examples/Ants/Ants.R#L216) *style:* **Commented code should be removed.**
```r
  # expect_equivalent(NLcount(ants), nAnts)
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:226:1:](https://github.com/PredictiveEcology/NetLogoR/blob/6920f512003f570ac1707e99a5b48cfcb75cc78c/inst/examples/Ants/Ants.R#L226) *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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/inst/examples/Butterfly/Butterfly-1.R#L32) *style:* **Commented code should be removed.**
```r
# points(t1, pch = 16)
  ^~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Butterfly/Butterfly-1.R:38:4:](https://github.com/PredictiveEcology/NetLogoR/blob/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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 worldMatrix 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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L84) *style:* **Commented code should be removed.**
```r
#   points(sheep, pch = 16, col = "red")
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:85:5:](https://github.com/PredictiveEcology/NetLogoR/blob/6920f512003f570ac1707e99a5b48cfcb75cc78c/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L85) *style:* **Commented code should be removed.**
```r
#   points(wolves, pch = 16, col = "black")
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:87:5:](https://github.com/PredictiveEcology/NetLogoR/blob/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L88) *style:* **Commented code should be removed.**
```r
#   plot(grass)
    ^~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:89:5:](https://github.com/PredictiveEcology/NetLogoR/blob/6920f512003f570ac1707e99a5b48cfcb75cc78c/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L89) *style:* **Commented code should be removed.**
```r
#   points(sheep, pch = 16, col = "red")
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:90:5:](https://github.com/PredictiveEcology/NetLogoR/blob/6920f512003f570ac1707e99a5b48cfcb75cc78c/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L90) *style:* **Commented code should be removed.**
```r
#   points(wolves, pch = 16, col = "black")
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R:96:1:](https://github.com/PredictiveEcology/NetLogoR/blob/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/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/6920f512003f570ac1707e99a5b48cfcb75cc78c/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L171) *style:* **Commented code should be removed.**
```r
#   count2 <- c(count2, NLcount(wolves))
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```


Equation Soldier reporting for duty


@frankgraave isn't this used somewhere, seems odd that we it is not used. Also at the bottom there is something with the `$form` variable used.
@MaikelGG any clue perhaps?


@groovytron Justement, je te remercie pour ton message, toute critique est bonne à prendre!
Et si t'es chaud à faire des PR sur ce projet, c'est volontiers!
Je vais regarder Hacktoberfest, ça a l'air hyper intéressant!


Wondering about the possibility of using hardcoded strings here instead of variables. That would make the code snippet more self contained and potentially easier to follow when users are looking at the tutorial (for example http://docs-build.sc.couchbase.com:9000/develop/java#/2/5/0). I understand it would be a lot of duplicate lines throughout the codebase in that case though. Something to think about it (code structure vs ease of understanding the tutorial).


[R/getAvailablePoints.R:5:5:](https://github.com/RTMC/tmc-r-tester/blob/33e4d6c0c07c97cb8072b5b37ebcece789da08dc/R/getAvailablePoints.R#L5) *warning:* **no visible binding for '<<-' assignment to ‘all_available_points’**
```r
    all_available_points<<-c(all_available_points,point)
    ^~~~~~~~~~~~~~~~~~~~
```
[R/getAvailablePoints.R:5:5:](https://github.com/RTMC/tmc-r-tester/blob/33e4d6c0c07c97cb8072b5b37ebcece789da08dc/R/getAvailablePoints.R#L5) *warning:* **no visible binding for global variable ‘all_available_points’**
```r
    all_available_points<<-c(all_available_points,point)
    ^~~~~~~~~~~~~~~~~~~~
```
[R/getAvailablePoints.R:5:25:](https://github.com/RTMC/tmc-r-tester/blob/33e4d6c0c07c97cb8072b5b37ebcece789da08dc/R/getAvailablePoints.R#L5) *style:* **Put spaces around all infix operators.**
```r
    all_available_points<<-c(all_available_points,point)
                       ~^~~~
```
[R/getAvailablePoints.R:5:51:](https://github.com/RTMC/tmc-r-tester/blob/33e4d6c0c07c97cb8072b5b37ebcece789da08dc/R/getAvailablePoints.R#L5) *style:* **Commas should always have a space after.**
```r
    all_available_points<<-c(all_available_points,point)
                                                  ^
```
[R/getAvailablePoints.R:9:21:](https://github.com/RTMC/tmc-r-tester/blob/33e4d6c0c07c97cb8072b5b37ebcece789da08dc/R/getAvailablePoints.R#L9) *style:* **Put spaces around all infix operators.**
```r
points_for_all_tests<-function(point){
                   ~^~~
```
[R/getAvailablePoints.R:10:3:](https://github.com/RTMC/tmc-r-tester/blob/33e4d6c0c07c97cb8072b5b37ebcece789da08dc/R/getAvailablePoints.R#L10) *warning:* **no visible binding for '<<-' assignment to ‘all_available_points’**
```r
  all_available_points <<- c(all_available_points, point)
  ^~~~~~~~~~~~~~~~~~~~
```
[R/getAvailablePoints.R:10:3:](https://github.com/RTMC/tmc-r-tester/blob/33e4d6c0c07c97cb8072b5b37ebcece789da08dc/R/getAvailablePoints.R#L10) *warning:* **no visible binding for global variable ‘all_available_points’**
```r
  all_available_points <<- c(all_available_points, point)
  ^~~~~~~~~~~~~~~~~~~~
```
[R/getAvailablePoints.R:13:22:](https://github.com/RTMC/tmc-r-tester/blob/33e4d6c0c07c97cb8072b5b37ebcece789da08dc/R/getAvailablePoints.R#L13) *style:* **Put spaces around all infix operators.**
```r
get_available_points <-function(project_path){
                     ^~~
```
[R/getAvailablePoints.R:15:3:](https://github.com/RTMC/tmc-r-tester/blob/33e4d6c0c07c97cb8072b5b37ebcece789da08dc/R/getAvailablePoints.R#L15) *warning:* **no visible binding for '<<-' assignment to ‘all_available_points’**
```r
  all_available_points <<- c()
  ^~~~~~~~~~~~~~~~~~~~
```
[R/getAvailablePoints.R:16:32:](https://github.com/RTMC/tmc-r-tester/blob/33e4d6c0c07c97cb8072b5b37ebcece789da08dc/R/getAvailablePoints.R#L16) *style:* **Put spaces around all infix operators.**
```r
  test_files <- list.files(path="tests/testthat", pattern = "test.*\\.R", full.names = T, recursive = FALSE)
                              ~^~
```
[R/getAvailablePoints.R:18:46:](https://github.com/RTMC/tmc-r-tester/blob/33e4d6c0c07c97cb8072b5b37ebcece789da08dc/R/getAvailablePoints.R#L18) *style:* **Commas should always have a space after.**
```r
    test_file(test_file, reporter = "silent",load_helpers=FALSE)
                                             ^
```
[R/getAvailablePoints.R:18:58:](https://github.com/RTMC/tmc-r-tester/blob/33e4d6c0c07c97cb8072b5b37ebcece789da08dc/R/getAvailablePoints.R#L18) *style:* **Put spaces around all infix operators.**
```r
    test_file(test_file, reporter = "silent",load_helpers=FALSE)
                                                        ~^~
```
[R/getAvailablePoints.R:20:10:](https://github.com/RTMC/tmc-r-tester/blob/33e4d6c0c07c97cb8072b5b37ebcece789da08dc/R/getAvailablePoints.R#L20) *warning:* **no visible binding for global variable ‘all_available_points’**
```r
  return(all_available_points)
         ^~~~~~~~~~~~~~~~~~~~
```
[R/results_creator.R:13:18:](https://github.com/RTMC/tmc-r-tester/blob/33e4d6c0c07c97cb8072b5b37ebcece789da08dc/R/results_creator.R#L13) *warning:* **no visible global function definition for ‘.create_message_for_test_with_failures’**
```r
      message <- .create_message_for_test_with_failures(test)
                 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/results_creator.R:49:10:](https://github.com/RTMC/tmc-r-tester/blob/33e4d6c0c07c97cb8072b5b37ebcece789da08dc/R/results_creator.R#L49) *style:* **Remove spaces before the left parenthesis in a function call.**
```r
  return (ret)
         ^
```
[R/results_creator.R:61:10:](https://github.com/RTMC/tmc-r-tester/blob/33e4d6c0c07c97cb8072b5b37ebcece789da08dc/R/results_creator.R#L61) *style:* **Remove spaces before the left parenthesis in a function call.**
```r
  return (ret)
         ^
```
[R/results_creator.R:71:1:](https://github.com/RTMC/tmc-r-tester/blob/33e4d6c0c07c97cb8072b5b37ebcece789da08dc/R/results_creator.R#L71) *style:* **Variable or function name should be snake_case.**
```r
.message_from_failed_Result <- function(result) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/results_creator.R:77:10:](https://github.com/RTMC/tmc-r-tester/blob/33e4d6c0c07c97cb8072b5b37ebcece789da08dc/R/results_creator.R#L77) *style:* **Remove spaces before the left parenthesis in a function call.**
```r
  return (paste(sep = "", "Failed with call: ", language, "\n", result$message))
         ^
```
[R/ResultsJsonParser.R:5:25:](https://github.com/RTMC/tmc-r-tester/blob/33e4d6c0c07c97cb8072b5b37ebcece789da08dc/R/ResultsJsonParser.R#L5) *warning:* **no visible global function definition for ‘.create_json_test_result’**
```r
    test_json_result <- .create_json_test_result(test_result)
                        ^~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ResultsJsonParser.R:8:10:](https://github.com/RTMC/tmc-r-tester/blob/33e4d6c0c07c97cb8072b5b37ebcece789da08dc/R/ResultsJsonParser.R#L8) *style:* **Remove spaces before the left parenthesis in a function call.**
```r
  return (json_results)
         ^
```
[R/ResultsJsonParser.R:13:29:](https://github.com/RTMC/tmc-r-tester/blob/33e4d6c0c07c97cb8072b5b37ebcece789da08dc/R/ResultsJsonParser.R#L13) *style:* **Put spaces around all infix operators.**
```r
  test_result <- list(status=unbox(test_result$status),
                           ~^~
```
[R/ResultsJsonParser.R:14:26:](https://github.com/RTMC/tmc-r-tester/blob/33e4d6c0c07c97cb8072b5b37ebcece789da08dc/R/ResultsJsonParser.R#L14) *style:* **Put spaces around all infix operators.**
```r
                     name=unbox(format(test_result$name)),
                        ~^~
```
[R/ResultsJsonParser.R:15:29:](https://github.com/RTMC/tmc-r-tester/blob/33e4d6c0c07c97cb8072b5b37ebcece789da08dc/R/ResultsJsonParser.R#L15) *style:* **Put spaces around all infix operators.**
```r
                     message=unbox(test_result$message),
                           ~^~
```
[R/ResultsJsonParser.R:16:31:](https://github.com/RTMC/tmc-r-tester/blob/33e4d6c0c07c97cb8072b5b37ebcece789da08dc/R/ResultsJsonParser.R#L16) *style:* **Put spaces around all infix operators.**
```r
                     backtrace=test_result$backtrace,
                             ~^~
```
[R/ResultsJsonParser.R:17:28:](https://github.com/RTMC/tmc-r-tester/blob/33e4d6c0c07c97cb8072b5b37ebcece789da08dc/R/ResultsJsonParser.R#L17) *style:* **Put spaces around all infix operators.**
```r
                     points=test_result$points)
                          ~^~
```
[R/ResultsJsonParser.R:24:20:](https://github.com/RTMC/tmc-r-tester/blob/33e4d6c0c07c97cb8072b5b37ebcece789da08dc/R/ResultsJsonParser.R#L24) *warning:* **no visible global function definition for ‘toJSON’**
```r
  json <- enc2utf8(toJSON(results, pretty = FALSE))
                   ^~~~~~
```
[R/ResultsJsonParser.R:25:11:](https://github.com/RTMC/tmc-r-tester/blob/33e4d6c0c07c97cb8072b5b37ebcece789da08dc/R/ResultsJsonParser.R#L25) *warning:* **no visible global function definition for ‘prettify’, Did you mean 'pretty'?**
```r
  json <- prettify(json)
          ^~~~~~~~
```
[R/RunTests.R:12:19:](https://github.com/RTMC/tmc-r-tester/blob/33e4d6c0c07c97cb8072b5b37ebcece789da08dc/R/RunTests.R#L12) *warning:* **no visible global function definition for ‘.run_tests_project’**
```r
  test_results <- .run_tests_project(project_path)
                  ^~~~~~~~~~~~~~~~~~
```
[R/RunTests.R:14:19:](https://github.com/RTMC/tmc-r-tester/blob/33e4d6c0c07c97cb8072b5b37ebcece789da08dc/R/RunTests.R#L14) *warning:* **no visible global function definition for ‘.create_json_results’**
```r
  json_results <- .create_json_results(test_results)
                  ^~~~~~~~~~~~~~~~~~~~
```
[R/RunTests.R:15:3:](https://github.com/RTMC/tmc-r-tester/blob/33e4d6c0c07c97cb8072b5b37ebcece789da08dc/R/RunTests.R#L15) *warning:* **no visible global function definition for ‘.write_json’**
```r
  .write_json(json_results)
  ^~~~~~~~~~~
```
[R/RunTests.R:18:5:](https://github.com/RTMC/tmc-r-tester/blob/33e4d6c0c07c97cb8072b5b37ebcece789da08dc/R/RunTests.R#L18) *warning:* **no visible global function definition for ‘.print_results_from_json’**
```r
    .print_results_from_json(json_results)
    ^~~~~~~~~~~~~~~~~~~~~~~~
```
[R/RunTests.R:30:32:](https://github.com/RTMC/tmc-r-tester/blob/33e4d6c0c07c97cb8072b5b37ebcece789da08dc/R/RunTests.R#L30) *style:* **Put spaces around all infix operators.**
```r
  test_files <- list.files(path="tests/testthat", pattern = "test.*\\.R", full.names = T, recursive = FALSE)
                              ~^~
```
[R/RunTests.R:33:21:](https://github.com/RTMC/tmc-r-tester/blob/33e4d6c0c07c97cb8072b5b37ebcece789da08dc/R/RunTests.R#L33) *warning:* **no visible global function definition for ‘.run_tests_file’**
```r
    file_results <- .run_tests_file(test_file)
                    ^~~~~~~~~~~~~~~
```
[R/RunTests.R:43:3:](https://github.com/RTMC/tmc-r-tester/blob/33e4d6c0c07c97cb8072b5b37ebcece789da08dc/R/RunTests.R#L43) *warning:* **no visible global function definition for ‘test_file’**
```r
  test_file_output <- test_file(file_path, reporter = "silent")
  ^~~~~~~~~
```
[R/RunTests.R:45:24:](https://github.com/RTMC/tmc-r-tester/blob/33e4d6c0c07c97cb8072b5b37ebcece789da08dc/R/RunTests.R#L45) *warning:* **no visible global function definition for ‘.create_file_results’**
```r
  test_file_results <- .create_file_results(test_file_output, points, .GlobalEnv$points_for_all_tests)
                       ^~~~~~~~~~~~~~~~~~~~
```
[R/RunTests.R:51:3:](https://github.com/RTMC/tmc-r-tester/blob/33e4d6c0c07c97cb8072b5b37ebcece789da08dc/R/RunTests.R#L51) *warning:* **no visible global function definition for ‘run_tests’**
```r
  run_tests(getwd(), bol)
  ^~~~~~~~~
```
[tests/testthat/resources/simple_all_tests_pass/tests/testthat/helperTMC.R:12:3:](https://github.com/RTMC/tmc-r-tester/blob/33e4d6c0c07c97cb8072b5b37ebcece789da08dc/tests/testthat/resources/simple_all_tests_pass/tests/testthat/helperTMC.R#L12) *warning:* **no visible global function definition for ‘test_that’**
```r
  test_that(desc, code)
  ^~~~~~~~~
```
[tests/testthat/resources/simple_some_tests_fail/tests/testthat/helperTMC.R:12:3:](https://github.com/RTMC/tmc-r-tester/blob/33e4d6c0c07c97cb8072b5b37ebcece789da08dc/tests/testthat/resources/simple_some_tests_fail/tests/testthat/helperTMC.R#L12) *warning:* **no visible global function definition for ‘test_that’**
```r
  test_that(desc, code)
  ^~~~~~~~~
```
[tests/testthat/testLintr.R:2:5:](https://github.com/RTMC/tmc-r-tester/blob/33e4d6c0c07c97cb8072b5b37ebcece789da08dc/tests/testthat/testLintr.R#L2) *style:* **Commented code should be removed.**
```r
#   context("lints")
    ^~~~~~~~~~~~~~~~
```
[tests/testthat/testLintr.R:4:7:](https://github.com/RTMC/tmc-r-tester/blob/33e4d6c0c07c97cb8072b5b37ebcece789da08dc/tests/testthat/testLintr.R#L4) *style:* **Commented code should be removed.**
```r
#     lintr::expect_lint_free()
      ^~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testRunTests.R:71:5:](https://github.com/RTMC/tmc-r-tester/blob/33e4d6c0c07c97cb8072b5b37ebcece789da08dc/tests/testthat/testRunTests.R#L71) *style:* **Commented code should be removed.**
```r
#   runTests(simple_all_tests_pass_project_path)
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testRunTests.R:75:5:](https://github.com/RTMC/tmc-r-tester/blob/33e4d6c0c07c97cb8072b5b37ebcece789da08dc/tests/testthat/testRunTests.R#L75) *style:* **Commented code should be removed.**
```r
#   string1 <- format(.PrintResult("Testi1", "!", FALSE))
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testRunTests.R:76:5:](https://github.com/RTMC/tmc-r-tester/blob/33e4d6c0c07c97cb8072b5b37ebcece789da08dc/tests/testthat/testRunTests.R#L76) *style:* **Commented code should be removed.**
```r
#   string2 <- format("Testi1: PASS")
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testRunTests.R:77:5:](https://github.com/RTMC/tmc-r-tester/blob/33e4d6c0c07c97cb8072b5b37ebcece789da08dc/tests/testthat/testRunTests.R#L77) *style:* **Commented code should be removed.**
```r
#   expect_equal(string1, string2)
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```


Lekker bezig!!!


есть Assert.IsNull


Note - I can't actually install a new setup from the themes branch locally as I run into the table size issue. Is there a fix incoming soon for that?


P.S. there's an issue with serving theme CSS files on a site right now. I've asked @bloatware about it.


运行此项目的时候，在真机里面测试的，打开APP，定位的总是北京，不能够移动到自己的位置。

是否是百度API更改了呢？


yeah that works nice. thanks for all your excellent work.


можно ещё проверить, что его длина не равна 541 и не является палиндромом. а зачем? ты парсишь коэффициенты, так и проверяй коэффициенты.


For now, I'm delaying the patch update. Did this commit fix any issues or bugs related to this?


Yes, that sounds absolutely right; wonder how this ever worked before: I suppose it relied on the numbering of the velocity dofs in the coupled equation and the momentum (velocity only) equation being the same?


стоило бы насыпать чуть больше тестов на негативные сценарии


> the table size issue

Is that the index-too-large thing? If so, that's weird because the keys are limited to 50 bytes now. Which table(s) specifically? And what error is it, I'll try and reproduce it.


手误？改漏了一个 `l` :

```
disk_tota|default:""  >  disk_total|default:""
```


best for [Nintendo 3DS Emulator](http://www.3ds-emulators.com/) development all time nice help thank you....


@vernwalrahul, see the small changes


[R/add_species_trees.R:54:1:](https://github.com/richelbilderbeek/wiritttes/blob/047982e6bd9db85175a107cdc50effd8d064c40c/R/add_species_trees.R#L54) *style:* **Lines should not be more than 80 characters.**
```r
    file = file, sti = 1, species_tree = wiritttes::get_pbd_output(file)$stree_youngest
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/add_species_trees.R:57:1:](https://github.com/richelbilderbeek/wiritttes/blob/047982e6bd9db85175a107cdc50effd8d064c40c/R/add_species_trees.R#L57) *style:* **Lines should not be more than 80 characters.**
```r
    file = file, sti = 2, species_tree = wiritttes::get_pbd_output(file)$stree_oldest
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-get_posterior_tree.R:13:1:](https://github.com/richelbilderbeek/wiritttes/blob/047982e6bd9db85175a107cdc50effd8d064c40c/tests/testthat/test-get_posterior_tree.R#L13) *style:* **Lines should not be more than 80 characters.**
```r
  tree <- wiritttes::get_posterior_tree(file = file, sti = sti, ai = 1, pi = 1, si = 1)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```


Select multiple stars is now possible ;)


The profile fitting variances are not computed after the last iteration of the profile fitting algorithm fixing a bug where the variances reported for profile fitting were too small.


Actually this one was a bitch to fix. I'm not even sure why it triggered, so instead you have this.
Enjoy !


I get this message at database creation stage:

````
Fatal error: Row size too large. The maximum row size for the used table type, not counting BLOBs, is 65535. This includes storage overhead, check the manual. You have to change some columns to TEXT or BLOBs in /Users/pwareham/Sites/textpattern/textpattern/lib/txplib_db.php on line 409
````

Database encoding is `utf8mb4` and collation is `utf8mb4_unicode_ci` as per what I normally use.


how can I use with the new version of OpenCV 3.3.* ??.
when I just change it with version variable it shows error


These are linking to file:// which won't work anywhere but your local machine. Look at where this file is relative to your index.html and link accordingly. Look at home you are linking your images for a clue.


TeamCity Xbim :: Xbim Essentials :: XbimEssentials [Build 84](http://xbimbuilds.cloudapp.net/viewLog.html?buildId=1688&buildTypeId=XbimEssentials_XbimEssentials) is now running


You have some strange structure going on here with your icon and name. I would move the of your icon into your `h6.smallname`


[R/add_species_trees.R:54:1:](https://github.com/richelbilderbeek/wiritttes/blob/9f51bc9de17c1998a2a2b6dd9105732af503fd52/R/add_species_trees.R#L54) *style:* **Lines should not be more than 80 characters.**
```r
    file = file, sti = 1, species_tree = wiritttes::get_pbd_output(file)$stree_youngest
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/add_species_trees.R:57:1:](https://github.com/richelbilderbeek/wiritttes/blob/9f51bc9de17c1998a2a2b6dd9105732af503fd52/R/add_species_trees.R#L57) *style:* **Lines should not be more than 80 characters.**
```r
    file = file, sti = 2, species_tree = wiritttes::get_pbd_output(file)$stree_oldest
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-get_posterior_tree.R:13:1:](https://github.com/richelbilderbeek/wiritttes/blob/9f51bc9de17c1998a2a2b6dd9105732af503fd52/tests/testthat/test-get_posterior_tree.R#L13) *style:* **Lines should not be more than 80 characters.**
```r
  tree <- wiritttes::get_posterior_tree(file = file, sti = sti, ai = 1, pi = 1, si = 1)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```


ох.
это далеко не самая оптимальная регулярка для квадратного уравнения.
1. [\-], [2], [x] квадратные скобки обозначают группу символов, если символ один, скобки можно опустить
2. {0,1} заменяется ?
3. [0-9] заменяется \d
4. {1} - можно опустить. если символ должен быть ровно один раз, то его можно написать как есть.
5. {1,} заменяется +
6. Если юзаешь регулярки для валидации, то можно их и для парсинга использовать, делается с помощью групп.