[inst/examples/Ants/Ants.R:12:2:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/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/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L13) *style:* **Commented code should be removed.**
```r
#library(testthat) # for testing
 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:16:1:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L16) *style:* **Variable or function name should be snake_case.**
```r
nAnts <- 125 # varies from 0 to 200 in the NetLogo model
^~~~~
```
[inst/examples/Ants/Ants.R:17:1:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L17) *style:* **Variable or function name should be snake_case.**
```r
rDiff <- 50 # varies from 0 to 99 in the NetLogo model
^~~~~
```
[inst/examples/Ants/Ants.R:18:1:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L18) *style:* **Variable or function name should be snake_case.**
```r
rEvap <- 10 # varies from 0 to 99 in the NetLogo model
^~~~~
```
[inst/examples/Ants/Ants.R:19:3:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L19) *style:* **Commented code should be removed.**
```r
# torus = FALSE
  ^~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:25:1:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L25) *style:* **Lines should not be more than 80 characters.**
```r
# As all the NLworldMatrix must have the same extent, you can copy past the object to a new name
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:29:1:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L29) *style:* **Lines should not be more than 80 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/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L29) *style:* **Lines should not be more than 80 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:33:1:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L33) *style:* **Variable or function name should be snake_case.**
```r
nestScent <- chemical # higher closer to the nest
^~~~~~~~~
```
[inst/examples/Ants/Ants.R:34:1:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L34) *style:* **Variable or function name should be snake_case.**
```r
distNest <- NLdist(agents = patches(nest), agents2 = cbind(x = 0, y = 0))
^~~~~~~~
```
[inst/examples/Ants/Ants.R:35:1:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L35) *style:* **Lines should not be more than 80 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/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L35) *style:* **Variable or function name should be snake_case.**
```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/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L35) *style:* **Lines should not be more than 80 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:36:1:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L36) *style:* **Lines should not be more than 80 characters.**
```r
nest <- NLset(world = nest, agents = patches(nest), val = 0) # 0 to all the patches
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:36:1:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L36) *style:* **Lines should not be more than 80 characters.**
```r
nest <- NLset(world = nest, agents = patches(nest), val = 0) # 0 to all the patches
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:37:1:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L37) *style:* **Lines should not be more than 80 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/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L37) *style:* **Lines should not be more than 80 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/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L38) *style:* **Lines should not be more than 80 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/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L38) *style:* **Variable or function name should be snake_case.**
```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/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L38) *style:* **Lines should not be more than 80 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:41:1:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L41) *style:* **Variable or function name should be snake_case.**
```r
foodSource <- chemical # number (1, 2, or 3) to identify the food sources
^~~~~~~~~~
```
[inst/examples/Ants/Ants.R:43:1:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L43) *style:* **Lines should not be more than 80 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/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L43) *style:* **Variable or function name should be snake_case.**
```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/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L43) *style:* **Lines should not be more than 80 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:44:1:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L44) *style:* **Variable or function name should be snake_case.**
```r
patchFood1 <- which(distFood1 < 5)
^~~~~~~~~~
```
[inst/examples/Ants/Ants.R:45:1:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L45) *style:* **Lines should not be more than 80 characters.**
```r
foodSource <- NLset(world = foodSource, agents = patches(foodSource), val = 0) # 0 to all patches
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:45:1:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L45) *style:* **Variable or function name should be snake_case.**
```r
foodSource <- NLset(world = foodSource, agents = patches(foodSource), val = 0) # 0 to all patches
^~~~~~~~~~
```
[inst/examples/Ants/Ants.R:45:1:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L45) *style:* **Lines should not be more than 80 characters.**
```r
foodSource <- NLset(world = foodSource, agents = patches(foodSource), val = 0) # 0 to all patches
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:46:1:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L46) *style:* **Lines should not be more than 80 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/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L46) *style:* **Variable or function name should be snake_case.**
```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/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L46) *style:* **Lines should not be more than 80 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/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L47) *style:* **Lines should not be more than 80 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/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L47) *style:* **Variable or function name should be snake_case.**
```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/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L47) *style:* **Lines should not be more than 80 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:48:1:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L48) *style:* **Variable or function name should be snake_case.**
```r
patchFood2 <- which(distFood2 < 5)
^~~~~~~~~~
```
[inst/examples/Ants/Ants.R:49:1:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L49) *style:* **Lines should not be more than 80 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/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L49) *style:* **Variable or function name should be snake_case.**
```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/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L49) *style:* **Lines should not be more than 80 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/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L50) *style:* **Lines should not be more than 80 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/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L50) *style:* **Variable or function name should be snake_case.**
```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/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L50) *style:* **Lines should not be more than 80 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:51:1:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L51) *style:* **Variable or function name should be snake_case.**
```r
patchFood3 <- which(distFood3 < 5)
^~~~~~~~~~
```
[inst/examples/Ants/Ants.R:52:1:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L52) *style:* **Lines should not be more than 80 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/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L52) *style:* **Variable or function name should be snake_case.**
```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/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L52) *style:* **Lines should not be more than 80 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:54:1:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L54) *style:* **Lines should not be more than 80 characters.**
```r
patchFood123 <- PxcorPycorFromCell(world = food, cellNum = c(patchFood1, patchFood2, patchFood3))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:54:1:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L54) *style:* **Variable or function name should be snake_case.**
```r
patchFood123 <- PxcorPycorFromCell(world = food, cellNum = c(patchFood1, patchFood2, patchFood3))
^~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:55:1:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L55) *style:* **Lines should not be more than 80 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/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L55) *style:* **Lines should not be more than 80 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/f372bd0465321093cb099cf502848c358768a75c/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/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L59) *style:* **Lines should not be more than 80 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/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L59) *style:* **Lines should not be more than 80 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/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L62) *style:* **Commented code should be removed.**
```r
# plot(world2raster(world)$layer.5) # food
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:63:3:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L63) *style:* **Commented code should be removed.**
```r
# points(turtles2spdf(ants), pch = 16)
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:66:1:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L66) *style:* **Lines should not be more than 80 characters.**
```r
f_fS_world <- of(world = world, var = c("food", "foodSource"), agents = patches(world))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:66:1:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L66) *style:* **Variable or function name should be snake_case.**
```r
f_fS_world <- of(world = world, var = c("food", "foodSource"), agents = patches(world))
^~~~~~~~~~
```
[inst/examples/Ants/Ants.R:67:1:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L67) *style:* **Lines should not be more than 80 characters.**
```r
food1 <- sum(f_fS_world[f_fS_world[, "foodSource"] == 1, "food"]) # sum of food values for the patches with foodSource equals to 1
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:67:1:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L67) *style:* **Lines should not be more than 80 characters.**
```r
food1 <- sum(f_fS_world[f_fS_world[, "foodSource"] == 1, "food"]) # sum of food values for the patches with foodSource equals to 1
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:68:1:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L68) *style:* **Lines should not be more than 80 characters.**
```r
food2 <- sum(f_fS_world[f_fS_world[, "foodSource"] == 2, "food"]) # sum of food values for the patches with foodSource equals to 2
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:68:1:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L68) *style:* **Lines should not be more than 80 characters.**
```r
food2 <- sum(f_fS_world[f_fS_world[, "foodSource"] == 2, "food"]) # sum of food values for the patches with foodSource equals to 2
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:69:1:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L69) *style:* **Lines should not be more than 80 characters.**
```r
food3 <- sum(f_fS_world[f_fS_world[, "foodSource"] == 3, "food"]) # sum of food values for the patches with foodSource equals to 3
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:69:1:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L69) *style:* **Lines should not be more than 80 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:73:1:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L73) *style:* **Variable or function name should be snake_case.**
```r
toNest <- function(turtles){
^~~~~~
```
[inst/examples/Ants/Ants.R:74:4:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L74) *style:* **Commented code should be removed.**
```r
  #print(paste("toNest", NLcount(turtles)))
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:76:3:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L76) *style:* **Variable or function name should be snake_case.**
```r
  pHere <- patchHere(world = world, turtles = turtles)
  ^~~~~
```
[inst/examples/Ants/Ants.R:76:12:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L76) *warning:* **no visible global function definition for ‘patchHere’**
```r
  pHere <- patchHere(world = world, turtles = turtles)
           ^~~~~~~~~
```
[inst/examples/Ants/Ants.R:77:1:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L77) *style:* **Lines should not be more than 80 characters.**
```r
  nest_chem_pHere <- of(world = world, agents = pHere, var = c("nest", "chemical")) # nest values (1 or 0) and chemical in the order of the turtles
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:77:3:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L77) *style:* **Variable or function name should be snake_case.**
```r
  nest_chem_pHere <- of(world = world, agents = pHere, var = c("nest", "chemical")) # nest values (1 or 0) and chemical in the order of the turtles
  ^~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:77:22:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L77) *warning:* **no visible global function definition for ‘of’, Did you mean 'df'?**
```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:78:3:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L78) *style:* **Variable or function name should be snake_case.**
```r
  whoTurtles <- of(agents = turtles, var = "who")
  ^~~~~~~~~~
```
[inst/examples/Ants/Ants.R:78:17:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L78) *warning:* **no visible global function definition for ‘of’, Did you mean 'df'?**
```r
  whoTurtles <- of(agents = turtles, var = "who")
                ^~
```
[inst/examples/Ants/Ants.R:81:1:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L81) *style:* **Lines should not be more than 80 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:81:3:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L81) *style:* **Variable or function name should be snake_case.**
```r
  turtlesIn <- turtle(turtles, who = whoTurtles[nest_chem_pHere[, "nest"] == 1]) # whoTurtles for which their nest value equals 1
  ^~~~~~~~~
```
[inst/examples/Ants/Ants.R:81:3:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L81) *warning:* **no visible global function definition for ‘turtle’, Did you mean 'turtles'?**
```r
  turtlesIn <- turtle(turtles, who = whoTurtles[nest_chem_pHere[, "nest"] == 1]) # whoTurtles for which their nest value equals 1
  ^~~~~~
```
[inst/examples/Ants/Ants.R:82:5:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L82) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(NLcount(turtlesIn) != 0){
    ^
```
[inst/examples/Ants/Ants.R:83:1:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L83) *style:* **Lines should not be more than 80 characters.**
```r
    turtlesIn <- NLset(turtles = turtlesIn, agents = turtlesIn, var = "color", val = "red")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:83:5:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L83) *style:* **Variable or function name should be snake_case.**
```r
    turtlesIn <- NLset(turtles = turtlesIn, agents = turtlesIn, var = "color", val = "red")
    ^~~~~~~~~
```
[inst/examples/Ants/Ants.R:83:18:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L83) *warning:* **no visible global function definition for ‘NLset’**
```r
    turtlesIn <- NLset(turtles = turtlesIn, agents = turtlesIn, var = "color", val = "red")
                 ^~~~~
```
[inst/examples/Ants/Ants.R:84:1:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L84) *style:* **Lines should not be more than 80 characters.**
```r
    turtlesIn <- right(turtles = turtlesIn, angle = 180) # drop food and head out again
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:84:5:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L84) *style:* **Variable or function name should be snake_case.**
```r
    turtlesIn <- right(turtles = turtlesIn, angle = 180) # drop food and head out again
    ^~~~~~~~~
```
[inst/examples/Ants/Ants.R:84:18:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L84) *warning:* **no visible global function definition for ‘right’**
```r
    turtlesIn <- right(turtles = turtlesIn, angle = 180) # drop food and head out again
                 ^~~~~
```
[inst/examples/Ants/Ants.R:88:1:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L88) *style:* **Lines should not be more than 80 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:88:3:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L88) *style:* **Variable or function name should be snake_case.**
```r
  turtlesOut <- turtle(turtles, who = whoTurtles[nest_chem_pHere[, "nest"] == 0]) # whoTurtles for which their nest value equals 0
  ^~~~~~~~~~
```
[inst/examples/Ants/Ants.R:88:3:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L88) *warning:* **no visible global function definition for ‘turtle’, Did you mean 'turtles'?**
```r
  turtlesOut <- turtle(turtles, who = whoTurtles[nest_chem_pHere[, "nest"] == 0]) # whoTurtles for which their nest value equals 0
  ^~~~~~
```
[inst/examples/Ants/Ants.R:89:5:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L89) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(NLcount(turtlesOut) != 0){
    ^
```
[inst/examples/Ants/Ants.R:90:1:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L90) *style:* **Lines should not be more than 80 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:90:5:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L90) *style:* **Variable or function name should be snake_case.**
```r
    pHereOut <- pHere[nest_chem_pHere[, "nest"] == 0, , drop = FALSE] # pHere for which their nest value equals 0 (drop = FALSE keeps a format matrix when 1 row)
    ^~~~~~~~
```
[inst/examples/Ants/Ants.R:91:1:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L91) *style:* **Lines should not be more than 80 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:91:14:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L91) *warning:* **no visible global function definition for ‘NLset’**
```r
    world <- NLset(world = world, agents = pHereOut, var = "chemical", val = nest_chem_pHere[nest_chem_pHere[, "nest"] == 0, "chemical"] + 60) # drop some chemical
             ^~~~~
```
[inst/examples/Ants/Ants.R:92:1:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L92) *style:* **Lines should not be more than 80 characters.**
```r
    turtlesOut <- upPatch(turtles = turtlesOut, varPatch = "nestScent") # head toward the greatest value of nestScent
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:92:5:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L92) *style:* **Variable or function name should be snake_case.**
```r
    turtlesOut <- upPatch(turtles = turtlesOut, varPatch = "nestScent") # head toward the greatest value of nestScent
    ^~~~~~~~~~
```
[inst/examples/Ants/Ants.R:92:19:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L92) *warning:* **no visible global function definition for ‘upPatch’, Did you mean 'pmatch'?**
```r
    turtlesOut <- upPatch(turtles = turtlesOut, varPatch = "nestScent") # head toward the greatest value of nestScent
                  ^~~~~~~
```
[inst/examples/Ants/Ants.R:95:1:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L95) *style:* **Lines should not be more than 80 characters.**
```r
  # Because turtles have been modified separately as turtlesIn and turtlesOut, we need to put them back together to execute the following procedure
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:96:1:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L96) *style:* **Lines should not be more than 80 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:96:14:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L96) *warning:* **no visible global function definition for ‘turtleSet’**
```r
  turtles <- turtleSet(turtlesIn, turtlesOut) # there should not be any problem (e.g., duplicates) as turtles are always either in or out, but never both or neither
             ^~~~~~~~~
```
[inst/examples/Ants/Ants.R:97:4:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L97) *style:* **Commented code should be removed.**
```r
  #print(paste("toNest", NLcount(turtles)))
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:101:1:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L101) *style:* **Variable or function name should be snake_case.**
```r
lookFood <- function(turtles){
^~~~~~~~
```
[inst/examples/Ants/Ants.R:102:4:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L102) *style:* **Commented code should be removed.**
```r
  #print(paste("lookFood", NLcount(turtles)))
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:104:3:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L104) *style:* **Variable or function name should be snake_case.**
```r
  pHere <- patchHere(world = world, turtles = turtles)
  ^~~~~
```
[inst/examples/Ants/Ants.R:104:12:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L104) *warning:* **no visible global function definition for ‘patchHere’**
```r
  pHere <- patchHere(world = world, turtles = turtles)
           ^~~~~~~~~
```
[inst/examples/Ants/Ants.R:105:1:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L105) *style:* **Lines should not be more than 80 characters.**
```r
  food_chem_pHere <- of(world = world, agents = pHere, var = c("food", "chemical")) # faster to extract both values at the same time
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:105:3:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L105) *style:* **Variable or function name should be snake_case.**
```r
  food_chem_pHere <- of(world = world, agents = pHere, var = c("food", "chemical")) # faster to extract both values at the same time
  ^~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:105:22:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L105) *warning:* **no visible global function definition for ‘of’, Did you mean 'df'?**
```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:106:3:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L106) *style:* **Variable or function name should be snake_case.**
```r
  whoTurtles <- of(agents = turtles, var = "who")
  ^~~~~~~~~~
```
[inst/examples/Ants/Ants.R:106:17:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L106) *warning:* **no visible global function definition for ‘of’, Did you mean 'df'?**
```r
  whoTurtles <- of(agents = turtles, var = "who")
                ^~
```
[inst/examples/Ants/Ants.R:109:1:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L109) *style:* **Lines should not be more than 80 characters.**
```r
  turtlesFood <- turtle(turtles, who = whoTurtles[food_chem_pHere[, "food"] > 0])
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:109:3:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L109) *style:* **Variable or function name should be snake_case.**
```r
  turtlesFood <- turtle(turtles, who = whoTurtles[food_chem_pHere[, "food"] > 0])
  ^~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:109:3:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L109) *warning:* **no visible global function definition for ‘turtle’, Did you mean 'turtles'?**
```r
  turtlesFood <- turtle(turtles, who = whoTurtles[food_chem_pHere[, "food"] > 0])
  ^~~~~~
```
[inst/examples/Ants/Ants.R:110:5:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L110) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(NLcount(turtlesFood) != 0){
    ^
```
[inst/examples/Ants/Ants.R:111:1:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L111) *style:* **Lines should not be more than 80 characters.**
```r
    turtlesFood <- NLset(turtles = turtlesFood, agents = turtlesFood, var = "color", val = "orange") # pick up food
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:111:5:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L111) *style:* **Variable or function name should be snake_case.**
```r
    turtlesFood <- NLset(turtles = turtlesFood, agents = turtlesFood, var = "color", val = "orange") # pick up food
    ^~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:111:20:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L111) *warning:* **no visible global function definition for ‘NLset’**
```r
    turtlesFood <- NLset(turtles = turtlesFood, agents = turtlesFood, var = "color", val = "orange") # pick up food
                   ^~~~~
```
[inst/examples/Ants/Ants.R:112:5:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L112) *style:* **Variable or function name should be snake_case.**
```r
    turtlesFood <- right(turtles = turtlesFood, angle = 180) # and turn around
    ^~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:112:20:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L112) *warning:* **no visible global function definition for ‘right’**
```r
    turtlesFood <- right(turtles = turtlesFood, angle = 180) # and turn around
                   ^~~~~
```
[inst/examples/Ants/Ants.R:113:1:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L113) *style:* **Lines should not be more than 80 characters.**
```r
    turtles <- turtleSet(turtlesFood, other(agents = turtles, except = turtlesFood)) # reconstruct the turtles with turtlesFood modified and the others
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:113:16:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L113) *warning:* **no visible global function definition for ‘turtleSet’**
```r
    turtles <- turtleSet(turtlesFood, other(agents = turtles, except = turtlesFood)) # reconstruct the turtles with turtlesFood modified and the others
               ^~~~~~~~~
```
[inst/examples/Ants/Ants.R:113:39:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L113) *warning:* **no visible global function definition for ‘other’, Did you mean 'order'?**
```r
    turtles <- turtleSet(turtlesFood, other(agents = turtles, except = turtlesFood)) # reconstruct the turtles with turtlesFood modified and the others
                                      ^~~~~
```
[inst/examples/Ants/Ants.R:114:1:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L114) *style:* **Lines should not be more than 80 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:114:14:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L114) *warning:* **no visible global function definition for ‘NLset’**
```r
    world <- NLset(world = world, agents = pHere[food_chem_pHere[, "food"] > 0, , drop = FALSE], var = "food", val = food_chem_pHere[food_chem_pHere[, "food"] > 0, "food"] - 1) # and reduce the food source
             ^~~~~
```
[inst/examples/Ants/Ants.R:118:1:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L118) *style:* **Lines should not be more than 80 characters.**
```r
  turtlesChem <- turtle(turtles, who = whoTurtles[food_chem_pHere[, "chemical"] >= 0.05 & food_chem_pHere[, "chemical"] < 2])
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:118:3:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L118) *style:* **Variable or function name should be snake_case.**
```r
  turtlesChem <- turtle(turtles, who = whoTurtles[food_chem_pHere[, "chemical"] >= 0.05 & food_chem_pHere[, "chemical"] < 2])
  ^~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:118:3:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L118) *warning:* **no visible global function definition for ‘turtle’, Did you mean 'turtles'?**
```r
  turtlesChem <- turtle(turtles, who = whoTurtles[food_chem_pHere[, "chemical"] >= 0.05 & food_chem_pHere[, "chemical"] < 2])
  ^~~~~~
```
[inst/examples/Ants/Ants.R:119:5:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L119) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(NLcount(turtlesChem) != 0){
    ^
```
[inst/examples/Ants/Ants.R:120:5:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L120) *style:* **Variable or function name should be snake_case.**
```r
    turtlesChem <- upPatch(turtles = turtlesChem, varPatch = "chemical")
    ^~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:120:20:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L120) *warning:* **no visible global function definition for ‘upPatch’, Did you mean 'pmatch'?**
```r
    turtlesChem <- upPatch(turtles = turtlesChem, varPatch = "chemical")
                   ^~~~~~~
```
[inst/examples/Ants/Ants.R:121:1:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L121) *style:* **Lines should not be more than 80 characters.**
```r
    turtles <- turtleSet(turtlesChem, other(agents = turtles, except = turtlesChem)) # reconstruct the turtles with turtlesChem modified and the others
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:121:16:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L121) *warning:* **no visible global function definition for ‘turtleSet’**
```r
    turtles <- turtleSet(turtlesChem, other(agents = turtles, except = turtlesChem)) # reconstruct the turtles with turtlesChem modified and the others
               ^~~~~~~~~
```
[inst/examples/Ants/Ants.R:121:39:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L121) *warning:* **no visible global function definition for ‘other’, Did you mean 'order'?**
```r
    turtles <- turtleSet(turtlesChem, other(agents = turtles, except = turtlesChem)) # reconstruct the turtles with turtlesChem modified and the others
                                      ^~~~~
```
[inst/examples/Ants/Ants.R:124:4:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L124) *style:* **Commented code should be removed.**
```r
  #print(paste("lookFood", NLcount(turtles)))
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:128:1:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L128) *style:* **Variable or function name should be snake_case.**
```r
upPatch <- function(turtles, varPatch){
^~~~~~~
```
[inst/examples/Ants/Ants.R:128:30:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L128) *style:* **Variable or function name should be snake_case.**
```r
upPatch <- function(turtles, varPatch){
                             ^~~~~~~~
```
[inst/examples/Ants/Ants.R:129:4:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L129) *style:* **Commented code should be removed.**
```r
  #print(paste("upPatch", NLcount(turtles)))
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:132:3:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L132) *style:* **Variable or function name should be snake_case.**
```r
  pAhead <- patchAhead(world = world, turtles = turtles, dist = 1)
  ^~~~~~
```
[inst/examples/Ants/Ants.R:132:13:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L132) *warning:* **no visible global function definition for ‘patchAhead’**
```r
  pAhead <- patchAhead(world = world, turtles = turtles, dist = 1)
            ^~~~~~~~~~
```
[inst/examples/Ants/Ants.R:132:24:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L132) *warning:* **no visible binding for global variable ‘world’**
```r
  pAhead <- patchAhead(world = world, turtles = turtles, dist = 1)
                       ^~~~~
```
[inst/examples/Ants/Ants.R:133:3:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L133) *style:* **Variable or function name should be snake_case.**
```r
  scentAhead <- of(world = world, var = varPatch, agents = pAhead)
  ^~~~~~~~~~
```
[inst/examples/Ants/Ants.R:133:17:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L133) *warning:* **no visible global function definition for ‘of’, Did you mean 'df'?**
```r
  scentAhead <- of(world = world, var = varPatch, agents = pAhead)
                ^~
```
[inst/examples/Ants/Ants.R:133:20:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L133) *warning:* **no visible binding for global variable ‘world’**
```r
  scentAhead <- of(world = world, var = varPatch, agents = pAhead)
                   ^~~~~
```
[inst/examples/Ants/Ants.R:134:3:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L134) *style:* **Variable or function name should be snake_case.**
```r
  pRight <- patchRight(world = world, turtles = turtles, dist = 1, angle = 45)
  ^~~~~~
```
[inst/examples/Ants/Ants.R:134:13:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L134) *warning:* **no visible global function definition for ‘patchRight’**
```r
  pRight <- patchRight(world = world, turtles = turtles, dist = 1, angle = 45)
            ^~~~~~~~~~
```
[inst/examples/Ants/Ants.R:134:24:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L134) *warning:* **no visible binding for global variable ‘world’**
```r
  pRight <- patchRight(world = world, turtles = turtles, dist = 1, angle = 45)
                       ^~~~~
```
[inst/examples/Ants/Ants.R:135:3:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L135) *style:* **Variable or function name should be snake_case.**
```r
  scentRight <- of(world = world, var = varPatch, agents = pRight)
  ^~~~~~~~~~
```
[inst/examples/Ants/Ants.R:135:17:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L135) *warning:* **no visible global function definition for ‘of’, Did you mean 'df'?**
```r
  scentRight <- of(world = world, var = varPatch, agents = pRight)
                ^~
```
[inst/examples/Ants/Ants.R:135:20:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L135) *warning:* **no visible binding for global variable ‘world’**
```r
  scentRight <- of(world = world, var = varPatch, agents = pRight)
                   ^~~~~
```
[inst/examples/Ants/Ants.R:136:3:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L136) *style:* **Variable or function name should be snake_case.**
```r
  pLeft <- patchLeft(world = world, turtles = turtles, dist = 1, angle = 45)
  ^~~~~
```
[inst/examples/Ants/Ants.R:136:12:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L136) *warning:* **no visible global function definition for ‘patchLeft’**
```r
  pLeft <- patchLeft(world = world, turtles = turtles, dist = 1, angle = 45)
           ^~~~~~~~~
```
[inst/examples/Ants/Ants.R:136:22:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L136) *warning:* **no visible binding for global variable ‘world’**
```r
  pLeft <- patchLeft(world = world, turtles = turtles, dist = 1, angle = 45)
                     ^~~~~
```
[inst/examples/Ants/Ants.R:137:3:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L137) *style:* **Variable or function name should be snake_case.**
```r
  scentLeft <- of(world = world, var = varPatch, agents = pLeft)
  ^~~~~~~~~
```
[inst/examples/Ants/Ants.R:137:16:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L137) *warning:* **no visible global function definition for ‘of’, Did you mean 'df'?**
```r
  scentLeft <- of(world = world, var = varPatch, agents = pLeft)
               ^~
```
[inst/examples/Ants/Ants.R:137:19:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L137) *warning:* **no visible binding for global variable ‘world’**
```r
  scentLeft <- of(world = world, var = varPatch, agents = pLeft)
                  ^~~~~
```
[inst/examples/Ants/Ants.R:139:3:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L139) *style:* **Variable or function name should be snake_case.**
```r
  whoTurtles <- of(agents = turtles, var = "who")
  ^~~~~~~~~~
```
[inst/examples/Ants/Ants.R:139:17:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L139) *warning:* **no visible global function definition for ‘of’, Did you mean 'df'?**
```r
  whoTurtles <- of(agents = turtles, var = "who")
                ^~
```
[inst/examples/Ants/Ants.R:140:1:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L140) *style:* **Lines should not be more than 80 characters.**
```r
  tRight <- turtle(turtles, who = whoTurtles[scentRight > scentLeft & scentRight > scentAhead])
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:140:3:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L140) *style:* **Variable or function name should be snake_case.**
```r
  tRight <- turtle(turtles, who = whoTurtles[scentRight > scentLeft & scentRight > scentAhead])
  ^~~~~~
```
[inst/examples/Ants/Ants.R:140:13:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L140) *warning:* **no visible global function definition for ‘turtle’, Did you mean 'turtles'?**
```r
  tRight <- turtle(turtles, who = whoTurtles[scentRight > scentLeft & scentRight > scentAhead])
            ^~~~~~
```
[inst/examples/Ants/Ants.R:141:3:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L141) *style:* **Variable or function name should be snake_case.**
```r
  tRight <- right(turtles = tRight, angle = 45)
  ^~~~~~
```
[inst/examples/Ants/Ants.R:141:13:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L141) *warning:* **no visible global function definition for ‘right’, Did you mean 'pRight'?**
```r
  tRight <- right(turtles = tRight, angle = 45)
            ^~~~~
```
[inst/examples/Ants/Ants.R:142:1:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L142) *style:* **Lines should not be more than 80 characters.**
```r
  tLeft <- turtle(turtles, who = whoTurtles[scentLeft > scentRight & scentLeft > scentAhead])
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:142:3:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L142) *style:* **Variable or function name should be snake_case.**
```r
  tLeft <- turtle(turtles, who = whoTurtles[scentLeft > scentRight & scentLeft > scentAhead])
  ^~~~~
```
[inst/examples/Ants/Ants.R:142:12:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L142) *warning:* **no visible global function definition for ‘turtle’, Did you mean 'turtles'?**
```r
  tLeft <- turtle(turtles, who = whoTurtles[scentLeft > scentRight & scentLeft > scentAhead])
           ^~~~~~
```
[inst/examples/Ants/Ants.R:143:3:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L143) *style:* **Variable or function name should be snake_case.**
```r
  tLeft <- left(turtles = tLeft, angle = 45)
  ^~~~~
```
[inst/examples/Ants/Ants.R:143:12:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L143) *warning:* **no visible global function definition for ‘left’, Did you mean 'pLeft'?**
```r
  tLeft <- left(turtles = tLeft, angle = 45)
           ^~~~
```
[inst/examples/Ants/Ants.R:145:3:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L145) *style:* **Variable or function name should be snake_case.**
```r
  turtlesMoved <- turtleSet(tRight, tLeft)
  ^~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:145:19:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L145) *warning:* **no visible global function definition for ‘turtleSet’**
```r
  turtlesMoved <- turtleSet(tRight, tLeft)
                  ^~~~~~~~~
```
[inst/examples/Ants/Ants.R:146:1:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L146) *style:* **Lines should not be more than 80 characters.**
```r
  turtles <- turtleSet(turtlesMoved, other(agents = turtles, except = turtlesMoved))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/examples/Ants/Ants.R:146:14:](https://github.com/PredictiveEcology/NetLogoR/blob/f372bd0465321093cb099cf502848c358768a75c/inst/examples/Ants/Ants.R#L146) *warning:* **no visible global function definition for ‘turtleSet’**
```r
  turtles <- turtleSet(turtlesMoved, other(agents = turtles, except = turtlesMoved))
             ^~~~~~~~~
```


Created multidev environment [monthofmud#pr-hof](https://dashboard.pantheon.io/sites/c1008179-94f3-4a56-ba0b-53c7f98ca3f8#pr-hof).

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


Skipper exception should move to the package `org.springframework.cloud.skipper`


@saifdp
Can you please share your code ?


Ahm but can you also change my files or only to download them ?


, bitte...


hotovo ;)


#### 概要部分
1.代码还是不能满足所有需要，无法生成100,0000个数独终局；
2.设计比上一次考虑的多了，但依旧不太周全；
3.可读性一般；
4.代码不太容易维护；

#### 设计规范部分
1.类的成员变量依旧没有声明为private，成员变量的命名问题也还是存在；
2.硬编码字符串和数字的数量比上一次更多了，主要增多的部分是main函数中处理命令行输入的那一部分；
3.自己写的compare()函数应该可以用库函数strcmp()代替；
4.之前提到的generator.h中的问题暂时还没解决；

#### 代码规范部分
1.大括号应单独占一行；
2.变量和函数的命名也有一定的问题，需要改进；

#### 具体代码部分
1.对命令行输入进行了检查并处理，但是对于数独题目文件中题目异常没有处理；
2.创建Generator类时，没有对传入构造函数的参数进行检查；

#### 效能
1.IO部分可以优化，可以每次读入一行；

#### 可读性
1.注释依旧很少，但是由于解数独采用的是回溯法，比较简单，因此可读性还是比较好的；

#### 可测试性


![](https://github.trello.services/images/mini-trello-icon.png) [NFR30](https://trello.com/c/0t95mgAF/37-nfr30)


That means you're using the new hpilo_cli with the old hpilo.py. That's never going to work.


LaserGRBL can manage color images as well as greyscale. When you load a color image LaserGRBL offer some kind of control of how to convert color to grayscale (average, perceptive or custom where you can decide the weight of each channel in conversion). All this controls are useless if you load an image which is already a grayscale, so I remove (hide) them when not needed.

But... what is a grayscale image? If you want to be strict is a image with Format16bppGrayScale pixel format. If you want to be less strict you can consider as grayscale any RGB image where R=G=B in each pixel. Usually due of jpg compression you dont' have R=G=B but R~G~B so you fail if you check for strict equals.

My IsGrayScaleImage means "look like grayscale", not a strict check. So I can check only "samples" (step of 10) and assume pixels as gray if maxdiff < 20.

If image "look like grayscale" i will hide all the controls related to color to grayscale conversion ad (later) I use a simple average of RGB (cause they can have some small difference) because any more complex weighting control is not needed.

P.s. this function is ok if work only with Format32bppArgb because the caller use to convert the loaded image to this pixel format.


Most likely from yet another road closure!


missing space after `wenn {if LANGUAGE_USE_INFORMAL_VARIANT}du{else}Sie{/if}`


这个生成全排列的算法写的不对，这个只能生成一部分排列。


Will this forever remain the case?   Any plans to expose the opt-out in the UI?


![](https://github.trello.services/images/mini-trello-icon.png) [Remove the "Encumbered Credits" column from the Fuel Supplier List screen table.](https://trello.com/c/fI6AZCZG/220-remove-the-encumbered-credits-column-from-the-fuel-supplier-list-screen-table)


Could you add this to the 17.09 release notes, this has been cherry-picked


I'm not sure if this is the best place to discuss this or if this conversation already took place elsewhere, but: is it possible this was not the appropriate solution for #21608?

At the very least, I feel this change has made the signature of this method unintuitive:

- `must_create=True` means that `save()` will raise if the object already existed, which makes sense.
- `must_create=False` means that `save()` will raise if the object *didn't* already exist.

In other words, `must_create=False` now implies `must_update=True`, where it didn't before (in 1.9). Previously I could call `session_store.save()` and not worry about whether the session existed previously or not; now I can't.

I appreciate that #21608 was a real problem in need of a solution; I just wonder if there were some other approach that could be taken to address the problem (unintended resurrection of deleted sessions) without introducing this behavioral change.


Do you really need to watch this entity?


I don't think this change is correct. In order to obtain the total wind induced bed level change you should get the sum of the pickup in every timestep, so the sum of pickup.sum. Now you take the sum of every output tipestep, which is arbitrary.


Is that aimed at me, or anyone careless enough to remove the line, no knowing what it does?


Not sure what this is for. If this is a method on the class (which it looks like it is), then 'this' should already be the class (meaning the binding is unnecessary).


<details>

<summary>Submitting the task to TaskCluster failed. Details</summary>

```js

Schema Validation Failed!
Rejecting Schema: http://schemas.taskcluster.net/queue/v1/create-task-request.json#
Errors:
  * data should NOT have additional properties
----
method:     createTask
errorCode:  InputValidationError
statusCode: 400
time:       2017-09-27T18:18:43.429Z
```

</details>


Text zu lang


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

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

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


这里不应该直接用新生成的数独终局来进行下一次变换，应该一直用最开始的那个终局，这样可以保证不会生成重复的终局。


Уже  подключился к тестовой базе данных, которую ты указал в Slack


Поправил, как ты написал)


Haha! I hadn't read through any of the code. This is funny!


I know of no reflection oriented technique to instantiate a Java object without calling a constructor.  Can you provide a reference to documentation or an example?  The only thing like this I can think of is object creation via deserialziation which can avoid calling constructors of some classes on the inheritance chain marked as serializable.


Created multidev environment [monthofmud#ci-39](https://dashboard.pantheon.io/sites/c1008179-94f3-4a56-ba0b-53c7f98ca3f8#ci-39).

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


Created multidev environment [monthofmud#pr-migrate](https://dashboard.pantheon.io/sites/c1008179-94f3-4a56-ba0b-53c7f98ca3f8#pr-migrate).

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


hier auf zeile 108 definitv klein.


nice.
There is a Pivotal Tracker item i opened a long time ago that was about making ON_DEMAND_LOAD the default, and removing special cases. It looks like you are on that anyway, you might want to associate these changes with that tracker item and activate it. (and include it in checkin summaries?)

needless to say, massive risk of regression when doing this, i hope this is all well baked in tests :)


Программистки)


This looks pretty good. The only suggestion I would give is to make those strings constants at the top of your component. Usually you will see constants declared with all caps like `const FULL = 'full';`. It just makes it a little more sane to use because if you fudge the spelling of the constant, at least the program will puke at you. If you fudge the spelling of a string, you may be searching through  your program for a while to find where the mistake was.