[inst/examples/Ants/Ants.R:12:2:](https://github.com/PredictiveEcology/NetLogoR/blob/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/inst/examples/Ants/Ants.R#L65) *style:* **Commented code should be removed.**
```r
# points(turtles2spdf(ants), pch = 16) # add the ants on the food layer
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:68:1:](https://github.com/PredictiveEcology/NetLogoR/blob/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/inst/examples/Ants/Ants.R#L214) *style:* **Commented code should be removed.**
```r
  # points(turtles2spdf(ants), pch = 16)
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:216:5:](https://github.com/PredictiveEcology/NetLogoR/blob/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/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/874be9c6a90b43817dccf74915c5398807c86d24/inst/examples/Wolf-Sheep-Predation/Wolf-Sheep-Predation.R#L171) *style:* **Commented code should be removed.**
```r
#   count2 <- c(count2, NLcount(wolves))
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```


Looks like you need to check your gitconfig


see the docs, crypto.
for memcmp or memcmp_s you can easily time when a buffer is found or not. with timingsafe_memcmp not, as it traverses the whole buffer, even if found earlier. no info leaks.


thanks @katomaso


[R/add_species_trees.R:54:1:](https://github.com/richelbilderbeek/wiritttes/blob/f0ea0334d1bbfa691788f14a845800064839de39/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/f0ea0334d1bbfa691788f14a845800064839de39/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/f0ea0334d1bbfa691788f14a845800064839de39/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)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```


Perhaps this is meant for debugging only and need to be removed?


[R/add_species_trees.R:54:1:](https://github.com/richelbilderbeek/wiritttes/blob/22dc36066ff00fb63635c13631c65be81d78a5c0/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/22dc36066ff00fb63635c13631c65be81d78a5c0/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/22dc36066ff00fb63635c13631c65be81d78a5c0/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)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```


норм, запускаешь программу, ничего не происходит. ты догоняешь, что нужно ввести выражение. возможно ты вводишь его неправильно, программа просто вырубается, ни сказав не слова. ты делаешь это упражнение до тех пор, пока не поймёшь нужный формат. тогда тебе в столбик выдаёт три числа: разбирайся где какое. не очень-то юзер френдли получилось


@melloware could you provide a new PR?


Your image has a width + height attributes defined. Remove these and it should get responsive.


こっちは将棋盤です(^^;


This is also still set to `twelve columns` which is why the image is on its own row.


ss


Submit this matter


нарушение конвенции названия тестов "ЧтоПередаём_ЧтоХотимПолучить". по названию теста должно быть понятно, какой конкретно набор данных передаётся на вход и чем он уникален. у тебя же почти любой тест на этот метод можно было бы назвать таким образом


можно не указывать всё время namespace, а вверху написать `using EquationSolder;`
это сократило бы код


nah stupid ArduinoIDE monitor.... anyway I have fixed it, please pull the latest change and try again ;) was missing allocator flag


Think it just needs a single change in the code to point to the themes directory. As long as the format of the files is the same... I wonder if we should use the theme import code during setup now? @makss / @NicolasGraph what do you think?

And, yes, if we can add a series of checkboxes or a multi-select (or something) during setup to pick any themes in the `themes` directory that can be imported, that'd be brilliant. Makes sense to do that on the last step, just below the selector for the admin-side theme, I reckon.