🔥 Device tests completed (Failed) on TvOS-Beta on [Azure DevOps](https://dev.azure.com/devdiv/DevDiv/_build/index?buildId=2789736)(TvOS-Beta): [Html Report](http://xamarin-storage/jenkins/xamarin-macios/xcode11/cc57c04c91d35cfabdc89f04cf5d851c8a099e3c/2789736/device-tests/jenkins-results/tests/index.html) 🔥

# Test results

230 tests' device not found, 0 tests passed.


# Specs execution successful
:scroll: [View logs](http://bamboo.comnull)
### Plans updated

Bamboo specs have been successfully imported and the following plans have been updated.

Project | Plan | Build
---|---|---
[Test](http://bamboo.com/browse/TEST) | [Comment test](http://bamboo.com/browse/TEST-CTEST)  | :white_check_mark: [\#1](http://bamboo.com/browse/TEST-CTEST-1)
[New project](http://bamboo.com/browse/NEW) | [Disabled plan](http://bamboo.com/browse/NEW-DISABLED) **disabled** | :white_check_mark: [\#1](http://bamboo.com/browse/NEW-DISABLED-1)

### Deployments updated

Bamboo specs have been successfully imported and the following deployment projects have been updated.

|Deployment project |
----|
[Deployment test](http://bamboo.com/deploy/viewDeploymentProjectVersions.action?id=2162689)|


I can't find the change in #1373 or in the branch itself, but I think this will be easier (and will make more sense) after #1601


ZEIT Now cannot deploy this project to production due to following domain related issues:

 * `nextjs.org`(for alias `nextjs.org`) is not found inside your account. [Add it](https://zeit.co/dashboard/zeit/domains?action=add&domain=nextjs.org).


![final](https://user-images.githubusercontent.com/3508305/59943933-27be8480-9481-11e9-909c-2de12557978e.png)
Output after debugging


[R/ggcorrmat.R:270:5:](https://github.com/IndrajeetPatil/ggstatsplot/blob/a94f27ebec1e3f36329db769c6c5e653bf56478c/R/ggcorrmat.R#L270) *warning:* **local variable ‘corr.method.text’ assigned but may not be used**
```r
    corr.method.text <- "Pearson"
    ^~~~~~~~~~~~~~~~
```
[R/ggcorrmat.R:379:9:](https://github.com/IndrajeetPatil/ggstatsplot/blob/a94f27ebec1e3f36329db769c6c5e653bf56478c/R/ggcorrmat.R#L379) *warning:* **local variable ‘n_summary’ assigned but may not be used**
```r
        n_summary <- numdf_summary(corr_df$n)
        ^~~~~~~~~
```
[R/helpers_gghistostats.R:49:5:](https://github.com/IndrajeetPatil/ggstatsplot/blob/a94f27ebec1e3f36329db769c6c5e653bf56478c/R/helpers_gghistostats.R#L49) *warning:* **local variable ‘label.value’ assigned but may not be used**
```r
    label.value <- x_pos
    ^~~~~~~~~~~
```
[tests/testthat/test_ggcoefstats.R:134:7:](https://github.com/IndrajeetPatil/ggstatsplot/blob/a94f27ebec1e3f36329db769c6c5e653bf56478c/tests/testthat/test_ggcoefstats.R#L134) *style:* **Commented code should be removed.**
```r
    # testthat::expect_equal(tidy_df$std.error, broom_df$std.error, tolerance = 1e-3)
      ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test_ggcoefstats.R:498:7:](https://github.com/IndrajeetPatil/ggstatsplot/blob/a94f27ebec1e3f36329db769c6c5e653bf56478c/tests/testthat/test_ggcoefstats.R#L498) *style:* **Commented code should be removed.**
```r
    # testthat::expect_equal(broom_df1$p.value, tidy_df1$p.value, tolerance = 0.001)
      ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```


![_home_khuddus_Documents_pesto_exercises-batch-8_debugging-css_index html](https://user-images.githubusercontent.com/3508305/59943992-4ae93400-9481-11e9-8055-be7057dd2eea.png)
Output after debugging


Successfully aliased the URL <https://salted-egg-3ho8fswfm.now.sh> to the following aliases.

* https://salted-egg.phoomparin.now.sh
* https://salted-egg-git-master.phoomparin.now.sh


Successfully aliased the URL <https://lightkeeper-o7vtnukvj.now.sh> to the following aliases.

* https://app.lightkeeper.dev
* https://lightkeeper.lopez.now.sh
* https://lightkeeper-git-master.lopez.now.sh


teste


looks good; thanks for making those changes


@adamConnerSax are you ok with this shout out? If so, where should I link here?


In case anybody stumbles upon this commit and wonders what it's for, I can now pass around a keyword list of `order_by` for both a query and for its windows, sorting by any arbitrary fragment 😄

```ex
sort = [asc: dynamic([p], fragment("?->>?", p.payload, "Name")), asc: :id]

query = from(q in query, order_by: ^sort)

windowed_query =
  from(q in query,
    select: %{id: q.id, dense_rank: over(dense_rank(), :paginate)},
    windows: [
      paginate: [
        partition_by: ^partition_field,
        order_by: ^sort
      ]
    ]
  )
```


@TheMatten where should I link your name?


Successfully aliased the URL <https://salted-egg-apr5fz7wg.now.sh> to the following aliases.

* https://salted-egg.phoomparin.now.sh
* https://salted-egg-git-master.phoomparin.now.sh


You cannot really play RO career without RP-1

On Fri, Jun 21, 2019 at 1:30 PM codebori <notifications@github.com> wrote:

> Hmm, so it started with that I couldn't use the scansat scanners, they
> halted with the error that there was not enough space. After some
> troubleshooting I noticed that Kerbalism was responsible. Then I assumed it
> was because of the harddrives, but I actually haven't tested if scansat
> works when the harddrives work.
> BTW, I am playing career without RP-0. I'm not really sure what RP-0 does,
> and I couldn't find a version for KSP 1.6.1.
>
> —
> You are receiving this because you are subscribed to this thread.
> Reply to this email directly, view it on GitHub
> <https://github.com/Standecco/ROKerbalism/commit/b21d5b957e9d5c8a15e7d11a0016af4ec9d5a5ff?email_source=notifications&email_token=AEUNW72Q3SJRORCGXX4LHG3P3UM2TA5CNFSM4H2TZ6O2YY3PNVWWK3TUL52HS4DFVVBW63LNNF2EG33NNVSW45FKMNXW23LFNZ2F62LEZYBAOVPV#commitcomment-34035189>,
> or mute the thread
> <https://github.com/notifications/unsubscribe-auth/AEUNW76RVRFXYAV5JATSNKLP3UM2TANCNFSM4H2TZ6OQ>
> .
>


🔥 Device tests completed (Failed) on iOS-Beta on [Azure DevOps](https://dev.azure.com/devdiv/DevDiv/_build/index?buildId=2789733)(iOS-Beta): [Html Report](http://xamarin-storage//jenkins-results/tests/index.html) 🔥

🔥 Tests failed catastrophically on iOS-Beta  (no summary found)


@CypherNoodle rip
Will reverse and force push


It is hard to say, I cannot recreate the bug from my own example, some kind of magic, I think it is better to rollback sql-common for now, as it probably breaks mysql library in some cases. Some heavy research has to be done to catch the source of the problem with stuck busy connections. I will write back once I am confident how to approach it. If anybody complains about same problem, `gc_collect_cycles` might be suggested as a workaround. Worked for me.


Successfully aliased the URL <https://nhatdinh-bqmhuuxn4.now.sh> to the following aliases.

* https://nhatdinh.me
* https://nhatdinh.nhatldinh.now.sh
* https://nhatdinh-git-master.nhatldinh.now.sh


# Specs execution successful
:scroll: [View logs](http://bamboo.comnull)
### Plans updated

Bamboo specs have been successfully imported and the following plans have been updated.

Project | Plan | Build
---|---|---
[Test](http://bamboo.com/browse/TEST) | [Comment test](http://bamboo.com/browse/TEST-CTEST)  | :white_check_mark: [\#1](http://bamboo.com/browse/TEST-CTEST-1)
[New project](http://bamboo.com/browse/NEW) | [Disabled plan](http://bamboo.com/browse/NEW-DISABLED) **disabled** | :white_check_mark: [\#1](http://bamboo.com/browse/NEW-DISABLED-1)

### Deployments updated

Bamboo specs have been successfully imported and the following deployment projects have been updated.

|Deployment project |
----|
[Deployment test](http://bamboo.com/deploy/viewDeploymentProjectVersions.action?id=2162689)|


ок, начнем с того зачем эту переменную инициализировать?
потом зачем ее объявлять как знаковой, непонятно


а кто сказал что ненадо проверять на коректность введеное число


выровняйте код, он у вас полез кудато)


>  I cannot recreate the bug from my own example, some kind of magic

When you're on my branch? Or what are you using? I believe I fixed the issue, I was hoping you'd confirm. If you can't recreate the bug, then my branch should be good to merge.


потом мне не понятно что такое `i` `j` `k`
Давайте обдуманые имена переменным


This commit has been mentioned on **Discourse Meta**. There might be relevant details there:

https://meta.discourse.org/t/unable-to-go-back-to-a-previous-page-from-account-page/120948/8


зачем при каждой итерации цикла вычислять выражение в условии проверки цикла


как вы думаете счестчик логично делать знаковым? количество в вашем коде может быть -1?


responsive css fix


проверить вводимые данные на коректность


Successfully aliased the URL <https://salted-egg-71hf8u6t4.now.sh> to the following aliases.

* https://salted-egg.phoomparin.now.sh
* https://salted-egg-git-master.phoomparin.now.sh


что не так с типом переменной summ? размер там явно не тот


Why not?


`fraction` should be `T`, i.e.
```
auto fraction = T((prng() - PRNG::min()) / (PRNG::max() - PRNG::min()));
```


or?


а среднее арифметическое может быть дробным?) наверное да, только там что то надо сделать с аргументами


Successfully aliased the URL <https://salted-egg-hnp9p0kfr.now.sh> to the following aliases.

* https://salted-egg.phoomparin.now.sh
* https://salted-egg-git-master.phoomparin.now.sh


No, I cannot see the bug on the previous commits without your fix. It is very weird, because I managed to detect it before, and I made sure that with `gc_collect_cycles` issue goes away, and without it it comes back.


как вас не удивило что counter может быть равен нулю


can we just write one proper for loop here instead of 2 list comprehensions?


I don't think we should install lunatik and luadata on net/core


responsive
fix


# Specs execution successful
:scroll: [View logs](http://bamboo.comnull)
### Plans updated

Bamboo specs have been successfully imported and the following plans have been updated.

Project | Plan | Build
---|---|---
[Test](http://bamboo.com/browse/TEST) | [Comment test](http://bamboo.com/browse/TEST-CTEST)  | :white_check_mark: [\#1](http://bamboo.com/browse/TEST-CTEST-1)
[New project](http://bamboo.com/browse/NEW) | [Disabled plan](http://bamboo.com/browse/NEW-DISABLED) **disabled** | :white_check_mark: [\#1](http://bamboo.com/browse/NEW-DISABLED-1)

### Deployments updated

Bamboo specs have been successfully imported and the following deployment projects have been updated.

|Deployment project |
----|
[Deployment test](http://bamboo.com/deploy/viewDeploymentProjectVersions.action?id=2162689)|


sorting is unnecessary


Successfully aliased the URL <https://phsenet-p6f5ia69o.now.sh> to the following aliases.

* https://phse.net
* https://phsenet.setphen1.now.sh
* https://phsenet-git-master.setphen1.now.sh


you should use `<>` and adjust the include path


проверка числа


also, you should add some guards for the code you are adding..


а кто сказал что размер 32 бита


The pan/drag with the middle mouse was updated to a better version. It's still not perfect but it's better.


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

Created multidev environment [ci-2](https://dashboard.pantheon.io/sites/fda2fedb-8a1f-4d86-aa2d-9cdd569a1d89#ci-2) for baseless.


переделайте это на while
т.е. вас не должно волновать размерность бит в числе


Successfully aliased the URL <https://salted-egg-9c1czqezk.now.sh> to the following aliases.

* https://salted-egg.phoomparin.now.sh
* https://salted-egg-git-master.phoomparin.now.sh


непонятно с вывода что вы выводите


зачем?)


Based on the above, just having `src/release/release/` in the gitignore instead of `release/` sounds like it would be sufficient.
However, no objections to changing it to staging to make things more clear.


вас не смутило std::bitset<8>
а именно 8 бит?)


Successfully aliased the URL <https://salted-egg-owiphym9h.now.sh> to the following aliases.

* https://salted-egg.phoomparin.now.sh
* https://salted-egg-git-master.phoomparin.now.sh


166818055_Issue7048 (Nigusse) - x86_64-Linux-Ubuntu-18.04-gcc-7.4: OK (2471 of 2471 tests passed, 0 test warnings)

![Build Badge](http://img.shields.io/badge/build%20status-passing-green.png) ![Test Badge](http://img.shields.io/badge/tests%20passed-100.0%25-green.png)


как по мне миксовать в коде cout и printf ну не очень хорошое решение по многим причинам


Successfully aliased the URL <https://salted-egg-jhltzdlwt.now.sh> to the following aliases.

* https://salted-egg.phoomparin.now.sh
* https://salted-egg-git-master.phoomparin.now.sh


Choise number: 3
Input number to count set bit: 65535
16

Check using bitset class 11111111

немного вывод не тот)


final project for an university course


Successfully aliased the URL <https://destiny-report-5r1qajlh9.now.sh> to the following aliases.

* https://destiny-report.sarkurd.now.sh
* https://destiny-report-git-master.sarkurd.now.sh


в этом предложении явно не то? "Summ bit ..." Сумма битов, чтооооооооо?)


что за имена?????


проверка


yup, T is better


это сделайте как тернарный оператор


isko chck kr


Aur yeh bhi


Anyway, I am playing career with RO and without RP-1. I found instructions how to install RP-1, so I can try to install it and see if it messes up my current save. But I'd rather just keep playing without RP-1, but with a working Kerbalism.

So, will Kerbalism work if I replace all instances of "RP-0" with "RealismOverhaul" in the config files?


зачем писать два цикла)


что это за подход в одну строку, вам жалко количество строк?


Th¡$ cud B 1 liN3R


Thanks.


Successfully aliased the URL <https://salted-egg-c9pkmhj4z.now.sh> to the following aliases.

* https://salted-egg.phoomparin.now.sh
* https://salted-egg-git-master.phoomparin.now.sh


Successfully aliased the URL <https://monorepo-da3lrbxic.now.sh> to the following aliases.

* https://monorepo.storybook.now.sh
* https://monorepo-git-next.storybook.now.sh


почему все пишут счестчик как знаковый


@SeekerWing I may want to process each message multiple ways. So this could take a list of `MessageProcessor`s. @plastic-karma 's solution is another way of solving the same problem: finding some way to represent 1 or more `MessageProcessor`s. To me it seems simpler and clearer to do it here. You could use a list and also guarantee that the MessageProcessors are called in order, but maybe you don't want that. You could also implement your own data structure which disallows zero elements, unlike a list.


166818055_Issue7048 (Nigusse) - x86_64-MacOS-10.13-clang: OK (2431 of 2431 tests passed, 0 test warnings)

![Build Badge](http://img.shields.io/badge/build%20status-passing-green.png) ![Test Badge](http://img.shields.io/badge/tests%20passed-100.0%25-green.png)


circular dependency


👏

> On 21 Jun 2019, at 14:48, Leon Jacobs <notifications@github.com> wrote:
>
> Fix ascii art! Thanks @trufae.
>
> --
> You are receiving this because you were mentioned.
> Reply to this email directly or view it on GitHub:
> https://github.com/sensepost/objection/commit/5b6296f224cbf0e128d8e5c3e1d7c4afcb4c6bb3


вывод вашей программы просто огонь)
Choise number: 4
Input ticket number:
123321
Yes

что Yes???


created a recipe file.


что это за имя?) soup?)))))


Successfully aliased the URL <https://net-8h9dfkib9.now.sh> to the following aliases.

* https://louis-andre.net
* https://www.louis-andre.net
* https://net.l-a.now.sh
* https://net-git-master.l-a.now.sh


Successfully aliased the URL <https://salted-egg-cyfoh3z1y.now.sh> to the following aliases.

* https://salted-egg.phoomparin.now.sh
* https://salted-egg-git-master.phoomparin.now.sh


Successfully aliased the URL <https://salted-egg-l3tb7mrj3.now.sh> to the following aliases.

* https://salted-egg.phoomparin.now.sh
* https://salted-egg-git-master.phoomparin.now.sh


что за названия переменных, вам жалко лишних символов?


проверка вводимого числа


Successfully aliased the URL <https://salted-egg-h8cnde3l4.now.sh> to the following aliases.

* https://salted-egg.phoomparin.now.sh
* https://salted-egg-git-master.phoomparin.now.sh


There is not module plt in matplotlib this will always throw an exception.


Successfully aliased the URL <https://salted-egg-6tvv2ne33.now.sh> to the following aliases.

* https://salted-egg.phoomparin.now.sh
* https://salted-egg-git-master.phoomparin.now.sh


ok, made it optional


что вы тут выводите????


Your attribute 'content' has html as a source. So if your saving null there is no source to pull the content from. If its just a H2 you can use TextControl and store it as a type: 'string' attribute.


@JuliaRegistrator register


Registration pull request created: [JuliaRegistries/General/1501](https://github.com/JuliaRegistries/General/pull/1501)

After the above pull request is merged, it is recommended that a tag is created on this repository for the registered package version.

This will be done automatically if [Julia TagBot](https://github.com/apps/julia-tagbot) is installed, or can be done manually through the github interface, or via:
```
git tag -a v0.0.1 -m "<description of version>" ab81c7e383991081c5852d125d15bc829dd34ac8
git push origin v0.0.1
```


Successfully aliased the URL <https://salted-egg-4m5k8prer.now.sh> to the following aliases.

* https://salted-egg.phoomparin.now.sh
* https://salted-egg-git-master.phoomparin.now.sh


Only if someone will delete voice creation in constructor. I think critical error in such case is not bad thing. It will indicate that something is wrong.


```
Card::SUIT.each do |suit|
  Card::RANKS.each do |rank|
    cards << Card.new(suit, rank)
  end
end
cards.shuffle
```


Отступ два пробела


Nit: remove space


В методе `initialize` не хватает закрывающего `end`


These links to ramcloud.stanford.edu ( DNS for **ramcloud**.stanford.edu isn't resolving on 2019-06-21 )

Referring to this paper through the consul.cio site always lends well to the street cred for the Consul's RAFT Consensus Protocol.


Uploaded test apks for [armv7](https://download.opengis.ch/qfield/ci-builds/qfield-dev--59a7858d0db947383b261e05b57e046c6bde08a3-armv7-X.apk) and [x86](https://download.opengis.ch/qfield/ci-builds/qfield-dev--59a7858d0db947383b261e05b57e046c6bde08a3-x86-X.apk) (Android 5 versions [armv7](https://download.opengis.ch/qfield/ci-builds/qfield-dev--59a7858d0db947383b261e05b57e046c6bde08a3-armv7-5.apk) and [x86](https://download.opengis.ch/qfield/ci-builds/qfield-dev--59a7858d0db947383b261e05b57e046c6bde08a3-x86-5.apk)


Yes please include the latest commit I added so you can use the urbansim_parcels master branch. The commit changes the models.py file in 4 lines.

You can omit changing the Simulation.py script since I created a new one called Simulation_unit_level_clustvars.py so you can run that directly.


Now could not deploy this pull request since the `now.json` file is empty.
It should be a valid JSON file.

    For more information on now.json visit https://zeit.co/docs/features/configuration#now.json.


@dutchTender @JackieBabos @serra-trinh for integration also had to add two <div>s to Amend Mark for rendering of long checkbox labels on wide-screen. Pls. see description


Nice catch ;)


numpy


not working that way. Source.buffer is pointer.


166818055_Issue7048 (Nigusse) - x86_64-Linux-Ubuntu-18.04-gcc-7.4-UnitTestsCoverage-Debug: OK (1113 of 1113 tests passed, 0 test warnings)

![Build Badge](http://img.shields.io/badge/build%20status-passing-green.png) ![Test Badge](http://img.shields.io/badge/tests%20passed-100.0%25-green.png) ![Coverage Badge](http://img.shields.io/badge/coverage%20status-42.24%25-green.png)


В конструкторе класса игрока уже есть инициализация `@cards = []`
убрать


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

Created multidev environment [ci-520](https://dashboard.pantheon.io/sites/ad79477c-5d06-4234-b6b8-582ebeee0e5c#ci-520) for mtcv.


Gracias !! Sisi solo el main lo use para debuggear y encontrar errores,
tendría que haber hecho un test pero no llegue. Saludos

On Thu, Jun 20, 2019 at 11:40 PM juliagambuzzi <notifications@github.com>
wrote:

> Hola Cristian,
>
> Tu TP está muy bien. Es un poco raro lo que hacés en algunos estados de
> pasar al estado ConDinero y después volver a llamar a ingresarDinero
> peroagrupa la lógica solo ahí, eso me gusta.
>
> El main está bien para tus pruebas pero tiene como 3 o 4 casos de test que
> deberían estar por separado. La idea de los test tendría que ser, preparar
> la máquina en un estado, ejecutar una acción que la pasa a otro y validar
> (con asserts) que haya terminado bien.
> Los System.out.println son solo para verlo por consola, no son necesarios
> en un test
>
> Tu nota es un 9
>
> Saludos
>
> —
> You are receiving this because you authored the thread.
> Reply to this email directly, view it on GitHub
> <https://github.com/obj2-unahur-2019s1/tp-maquina-de-gasesas-cristians775/commit/9f56e1b5acc76b426168d050e0dcae7317c2fcf8?email_source=notifications&email_token=AKDNVL4BLQKNDXWG42FJAXLP3Q5SJA5CNFSM4H2IEZVKYY3PNVWWK3TUL52HS4DFVVBW63LNNF2EG33NNVSW45FKMNXW23LFNZ2F62LEZYBAOKJS#commitcomment-34023730>,
> or mute the thread
> <https://github.com/notifications/unsubscribe-auth/AKDNVL7VJN6VYZ5TI5SFUALP3Q5SJANCNFSM4H2IEZVA>
> .
>


I dont think thats the case. If you read argument clues it will make more sense, i dont think that extracting it to some variable or constant will be rational.


Unfortunately I don't have time left to help you, I think it is up to you what to do: rollback for now, or test it yourself, and push changes for both `sql-common` and `mysql`. First option leaves us with the issue occurring under mysterious circumstances (though there is a workaround), second option requires quite some time as the complexity is high


@nunomaduro

> $ export DOCKER_PASSWORD=[secure]
> We were unable to parse one of your secure environment variables.
> Please make sure to escape special characters such as ' ' (white space) and $ (dollar symbol) with \ (backslash) .

Could it be that the Docker pwd has just changed?


Deployment failed with the following error:

~~~
You defined 1 build that did not match any source files (please ensure they are NOT defined in .nowignore):
~~~


The translation was very literal and contained many errors.


Juce tutorials use it that way. I think its wrapper around smart pointers, it will prevent leaks in the future cos framework working with this kind well.


Рука ничего не должна знать о дилере
дилер должен владеть рукой(и игрок).
Добавь в конструктор класса игрока создание руки. Тогда у игрок и диллер будут обладать рукой


> Nah, I think its reasonable to approximate and say that it's real (Mitsuba, Cycles, etc. don't allow imaginary IoR)

My bad, they do..

But imaginary part of IoR actually handles absorption (this is slightly confusing as one would think it'd make more sense to encode transmittance for dielectrics in the imaginary part).
https://en.wikipedia.org/wiki/Refractive_index#Complex_refractive_index }

We actually use the Metallic workflow which makes F0=albedo for conductors, which is a bit fake (artificially boosts IoR to really high real value) but a good tradeoff.

Maybe in the future we'll have to invent functions that can do
```cpp
mat3x2 complexIoRFromF0(in vec3 F0, in vec3 edgeTint) // on assumption F0=FresnelComplex(1.0,complexIoR) && edgeTint=FresnelComplex(0.0,complexIoR)
```
But that's for when we will do mitsuba-loader seriously

I think this has to do with the fact that dielectrics (or materials with real IoR) will reflect with 100% true untinted colors towards the edges even if they tint the middle, whereas you'd want gold to tint the entire reflection yellow (even at the edges).
Some renderers (Autodesk, Disney Principled BSDF) add an "edgeTint" parameter that is supposed to give back the tint at the edges (and display conductors more physically).


[R/boxplots.R:2:1:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/boxplots.R#L2) *style:* **Lines should not be more than 80 characters.**
```r
  utils::globalVariables(c(".", ":=", ".SD", "ageClass", "group", "proportionCC",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/boxplots.R:11:1:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/boxplots.R#L11) *style:* **Variable or function name should be snake_case.**
```r
.doPlotBoxplot <- function(data, authStatus, fname = NULL, ageClasses,
^~~~~~~~~~~~~~
```
[R/boxplots.R:11:34:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/boxplots.R#L11) *style:* **Variable or function name should be snake_case.**
```r
.doPlotBoxplot <- function(data, authStatus, fname = NULL, ageClasses,
                                 ^~~~~~~~~~
```
[R/boxplots.R:11:60:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/boxplots.R#L11) *style:* **Variable or function name should be snake_case.**
```r
.doPlotBoxplot <- function(data, authStatus, fname = NULL, ageClasses,
                                                           ^~~~~~~~~~
```
[R/boxplots.R:12:41:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/boxplots.R#L12) *style:* **Variable or function name should be snake_case.**
```r
                           fout = NULL, vegCover, zone, ...) {
                                        ^~~~~~~~
```
[R/boxplots.R:16:3:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/boxplots.R#L16) *style:* **Variable or function name should be snake_case.**
```r
  boxplotData <- data.table(zone = rep(zone, 4),
  ^~~~~~~~~~~
```
[R/boxplots.R:32:1:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/boxplots.R#L32) *style:* **Lines should not be more than 80 characters.**
```r
    points(data$proportionCC[ids], factor(data$ageClass[1:4]), col = "red", pch = 20, cex = 3)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/boxplots.R:55:1:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/boxplots.R#L55) *style:* **Variable or function name should be snake_case.**
```r
runBoxPlotsVegCover <- function(map, functionName, analysisGroups, dPath) {
^~~~~~~~~~~~~~~~~~~
```
[R/boxplots.R:55:38:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/boxplots.R#L55) *style:* **Variable or function name should be snake_case.**
```r
runBoxPlotsVegCover <- function(map, functionName, analysisGroups, dPath) {
                                     ^~~~~~~~~~~~
```
[R/boxplots.R:55:52:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/boxplots.R#L55) *style:* **Variable or function name should be snake_case.**
```r
runBoxPlotsVegCover <- function(map, functionName, analysisGroups, dPath) {
                                                   ^~~~~~~~~~~~~~
```
[R/boxplots.R:55:68:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/boxplots.R#L55) *style:* **Variable or function name should be snake_case.**
```r
runBoxPlotsVegCover <- function(map, functionName, analysisGroups, dPath) {
                                                                   ^~~~~
```
[R/boxplots.R:56:4:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/boxplots.R#L56) *style:* **Commented code should be removed.**
```r
  #ageClasses = c("Young", "Immature", "Mature", "Old")
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/boxplots.R:57:3:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/boxplots.R#L57) *style:* **Variable or function name should be snake_case.**
```r
  ageClasses <- c("Young", "Immature", "Mature", "Old")
  ^~~~~~~~~~
```
[R/boxplots.R:58:3:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/boxplots.R#L58) *style:* **Variable or function name should be snake_case.**
```r
  allRepPolys <- na.omit(map@metadata[[analysisGroups]])
  ^~~~~~~~~~~
```
[R/boxplots.R:62:1:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/boxplots.R#L62) *style:* **Lines should not be more than 80 characters.**
```r
    allData <- map@analysesData[[functionName]][["LeadingVegTypeByAgeClass"]][[poly]]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/boxplots.R:62:5:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/boxplots.R#L62) *style:* **Variable or function name should be snake_case.**
```r
    allData <- map@analysesData[[functionName]][["LeadingVegTypeByAgeClass"]][[poly]]
    ^~~~~~~
```
[R/boxplots.R:64:7:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/boxplots.R#L64) *style:* **Variable or function name should be snake_case.**
```r
      allData <- map@analysesData[[functionName]][[poly]] ## TODO: fix upstream
      ^~~~~~~
```
[R/boxplots.R:65:5:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/boxplots.R#L65) *style:* **Variable or function name should be snake_case.**
```r
    allData <- unique(allData) ## remove duplicates; with LandWeb#89
    ^~~~~~~
```
[R/boxplots.R:66:13:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/boxplots.R#L66) *style:* **Variable or function name should be snake_case.**
```r
    allData$vegCover <- gsub(" leading", "", allData$vegCover) %>%
            ^~~~~~~~
```
[R/boxplots.R:69:13:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/boxplots.R#L69) *style:* **Variable or function name should be snake_case.**
```r
    allData$ageClass <- factor(allData$ageClass, ageClasses)
            ^~~~~~~~
```
[R/boxplots.R:71:34:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/boxplots.R#L71) *warning:* **no visible binding for global variable ‘group’, Did you mean 'drop'?**
```r
    data <- allData[!grepl("CC", group)]
                                 ^~~~~
```
[R/boxplots.R:73:5:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/boxplots.R#L73) *style:* **Variable or function name should be snake_case.**
```r
    dataCC <- allData[grepl("CC", group)]
    ^~~~~~
```
[R/boxplots.R:73:35:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/boxplots.R#L73) *warning:* **no visible binding for global variable ‘group’, Did you mean 'drop'?**
```r
    dataCC <- allData[grepl("CC", group)]
                                  ^~~~~
```
[R/boxplots.R:74:1:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/boxplots.R#L74) *style:* **Lines should not be more than 80 characters.**
```r
    setnames(dataCC, "proportion", "proportionCC") ## rename the column to proportionCC
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/boxplots.R:74:5:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/boxplots.R#L74) *warning:* **no visible global function definition for ‘setnames’, Did you mean 'setNames'?**
```r
    setnames(dataCC, "proportion", "proportionCC") ## rename the column to proportionCC
    ^~~~~~~~
```
[R/boxplots.R:75:5:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/boxplots.R#L75) *style:* **Variable or function name should be snake_case.**
```r
    dataCC <- dataCC[, c("group", "label", "NPixels") := list(NULL, NULL, NULL)]
    ^~~~~~
```
[R/boxplots.R:75:55:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/boxplots.R#L75) *warning:* **no visible global function definition for ‘:=’, Did you mean ':'?**
```r
    dataCC <- dataCC[, c("group", "label", "NPixels") := list(NULL, NULL, NULL)]
                                                      ^~
```
[R/boxplots.R:77:32:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/boxplots.R#L77) *warning:* **no visible global function definition for ‘.’, Did you mean 'C'?**
```r
    data2 <- dataCC[data, on = .(zone, vegCover, ageClass)]
                               ^
```
[R/boxplots.R:77:34:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/boxplots.R#L77) *warning:* **no visible binding for global variable ‘zone’, Did you mean 'line'?**
```r
    data2 <- dataCC[data, on = .(zone, vegCover, ageClass)]
                                 ^~~~
```
[R/boxplots.R:77:40:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/boxplots.R#L77) *warning:* **no visible binding for global variable ‘vegCover’**
```r
    data2 <- dataCC[data, on = .(zone, vegCover, ageClass)]
                                       ^~~~~~~~
```
[R/boxplots.R:77:50:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/boxplots.R#L77) *warning:* **no visible binding for global variable ‘ageClass’, Did you mean 'ageClasses'?**
```r
    data2 <- dataCC[data, on = .(zone, vegCover, ageClass)]
                                                 ^~~~~~~~
```
[R/boxplots.R:78:17:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/boxplots.R#L78) *warning:* **no visible binding for global variable ‘NPixels’**
```r
    data2[is.na(NPixels), NPixels := 0]
                ^~~~~~~
```
[R/boxplots.R:78:17:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/boxplots.R#L78) *warning:* **no visible binding for global variable ‘NPixels’**
```r
    data2[is.na(NPixels), NPixels := 0]
                ^~~~~~~
```
[R/boxplots.R:78:27:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/boxplots.R#L78) *style:* **Variable or function name should be snake_case.**
```r
    data2[is.na(NPixels), NPixels := 0]
                          ^~~~~~~
```
[R/boxplots.R:78:35:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/boxplots.R#L78) *warning:* **no visible global function definition for ‘:=’, Did you mean ':'?**
```r
    data2[is.na(NPixels), NPixels := 0]
                                  ^~
```
[R/boxplots.R:81:1:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/boxplots.R#L81) *style:* **Lines should not be more than 80 characters.**
```r
    ## NOTE: this is number of TREED pixels, which is likely smaller than the polygon area
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/boxplots.R:82:13:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/boxplots.R#L82) *style:* **Variable or function name should be snake_case.**
```r
    data2[, totalPixels := as.double(base::sum(NPixels, na.rm = TRUE)),
            ^~~~~~~~~~~
```
[R/boxplots.R:84:13:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/boxplots.R#L84) *style:* **Variable or function name should be snake_case.**
```r
    data2[, totalPixels2 := as.double(base::mean(totalPixels, na.rm = TRUE)),
            ^~~~~~~~~~~~
```
[R/boxplots.R:86:1:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/boxplots.R#L86) *style:* **Lines should not be more than 80 characters.**
```r
    try(write.csv(data2, file.path(dPath, paste0("leading_", gsub(" ", "_", poly), ".csv"))))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/boxplots.R:93:1:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/boxplots.R#L93) *style:* **Lines should not be more than 80 characters.**
```r
    fout <- file.path(dPath, paste0("leading_boxplots_", gsub(" ", "_", poly), ".csv"))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/boxplots.R:96:5:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/boxplots.R#L96) *style:* **Variable or function name should be snake_case.**
```r
    saveDir <- checkPath(file.path(dPath, poly), create = TRUE)
    ^~~~~~~
```
[R/boxplots.R:96:5:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/boxplots.R#L96) *warning:* **local variable ‘saveDir’ assigned but may not be used**
```r
    saveDir <- checkPath(file.path(dPath, poly), create = TRUE)
    ^~~~~~~
```
[R/boxplots.R:96:16:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/boxplots.R#L96) *warning:* **no visible global function definition for ‘checkPath’**
```r
    saveDir <- checkPath(file.path(dPath, poly), create = TRUE)
               ^~~~~~~~~
```
[R/boxplots.R:97:1:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/boxplots.R#L97) *style:* **Lines should not be more than 80 characters.**
```r
    savePng <- quote(file.path(saveDir, paste0(unique(paste(zone, vegCover, collapse = " ")), ".png")))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/boxplots.R:97:5:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/boxplots.R#L97) *style:* **Variable or function name should be snake_case.**
```r
    savePng <- quote(file.path(saveDir, paste0(unique(paste(zone, vegCover, collapse = " ")), ".png")))
    ^~~~~~~
```
[R/boxplots.R:108:1:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/boxplots.R#L108) *style:* **Lines should not be more than 80 characters.**
```r
                                    main = unique(paste(zone, vegCover, collapse = "_")),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/boxplots.R:109:1:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/boxplots.R#L109) *style:* **Lines should not be more than 80 characters.**
```r
                                    xlab = paste0("Proportion of forest area (total ",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/boxplots.R:111:1:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/boxplots.R#L111) *style:* **Lines should not be more than 80 characters.**
```r
                                                           prod(res(rasterToMatch(map))) / 1e4,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/boxplots.R:117:1:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/boxplots.R#L117) *style:* **Lines should not be more than 80 characters.**
```r
          .SDcols = c("ageClass", "proportion", "proportionCC", "NPixels"), by = slices]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/histograms.R:8:1:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/histograms.R#L8) *style:* **Variable or function name should be snake_case.**
```r
.doPlotHistogram <- function(data, xlim, fname = NULL, ...) {
^~~~~~~~~~~~~~~~
```
[R/histograms.R:9:3:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/histograms.R#L9) *style:* **Variable or function name should be snake_case.**
```r
  minNumBars <- 6
  ^~~~~~~~~~
```
[R/histograms.R:10:3:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/histograms.R#L10) *style:* **Variable or function name should be snake_case.**
```r
  maxNumBars <- 30
  ^~~~~~~~~~
```
[R/histograms.R:11:3:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/histograms.R#L11) *style:* **Variable or function name should be snake_case.**
```r
  rangeNClusters <- range(c(0, xlim, minNumBars)) ## TODO: verify
  ^~~~~~~~~~~~~~
```
[R/histograms.R:12:3:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/histograms.R#L12) *style:* **Variable or function name should be snake_case.**
```r
  attemptedNumBars <- max(minNumBars, min(maxNumBars, diff(rangeNClusters)))
  ^~~~~~~~~~~~~~~~
```
[R/histograms.R:14:1:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/histograms.R#L14) *style:* **Lines should not be more than 80 characters.**
```r
  breaksRaw <- seq(rangeNClusters[1], rangeNClusters[2], length.out = attemptedNumBars)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/histograms.R:14:3:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/histograms.R#L14) *style:* **Variable or function name should be snake_case.**
```r
  breaksRaw <- seq(rangeNClusters[1], rangeNClusters[2], length.out = attemptedNumBars)
  ^~~~~~~~~
```
[R/histograms.R:15:1:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/histograms.R#L15) *style:* **Lines should not be more than 80 characters.**
```r
  prettyBreaks <- pretty(breaksRaw, n = attemptedNumBars, min.n = min(attemptedNumBars, minNumBars))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/histograms.R:15:3:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/histograms.R#L15) *style:* **Variable or function name should be snake_case.**
```r
  prettyBreaks <- pretty(breaksRaw, n = attemptedNumBars, min.n = min(attemptedNumBars, minNumBars))
  ^~~~~~~~~~~~
```
[R/histograms.R:17:3:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/histograms.R#L17) *style:* **Variable or function name should be snake_case.**
```r
  dataForBreaks <- dataForHistogram <- if (NROW(data) == 0) {
  ^~~~~~~~~~~~~
```
[R/histograms.R:17:20:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/histograms.R#L17) *style:* **Variable or function name should be snake_case.**
```r
  dataForBreaks <- dataForHistogram <- if (NROW(data) == 0) {
                   ^~~~~~~~~~~~~~~~
```
[R/histograms.R:24:3:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/histograms.R#L24) *style:* **Variable or function name should be snake_case.**
```r
  breaksLabels <- dataForBreaks$breaks
  ^~~~~~~~~~~~
```
[R/histograms.R:25:3:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/histograms.R#L25) *style:* **Variable or function name should be snake_case.**
```r
  breaksInterval <- diff(breaksLabels)[1]
  ^~~~~~~~~~~~~~
```
[R/histograms.R:27:1:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/histograms.R#L27) *style:* **Lines should not be more than 80 characters.**
```r
  histogramData <- dataForHistogram$counts / sum(dataForHistogram$counts) ## use proportion
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/histograms.R:27:3:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/histograms.R#L27) *style:* **Variable or function name should be snake_case.**
```r
  histogramData <- dataForHistogram$counts / sum(dataForHistogram$counts) ## use proportion
  ^~~~~~~~~~~~~
```
[R/histograms.R:28:1:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/histograms.R#L28) *style:* **Lines should not be more than 80 characters.**
```r
  histogramData[is.na(histogramData)] <- 0 # NA means that there were no large patches in dt
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/histograms.R:29:2:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/histograms.R#L29) *style:* **Commented code should be removed.**
```r
#browser()
 ^~~~~~~~~
```
[R/histograms.R:30:3:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/histograms.R#L30) *style:* **Variable or function name should be snake_case.**
```r
  barplotBreaks <- seq_along(breaksLabels) - 0.5
  ^~~~~~~~~~~~~
```
[R/histograms.R:31:1:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/histograms.R#L31) *style:* **Lines should not be more than 80 characters.**
```r
  addAxisParams <- list(side = 1, labels = breaksLabels, at = barplotBreaks - min(breaksLabels))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/histograms.R:31:3:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/histograms.R#L31) *style:* **Variable or function name should be snake_case.**
```r
  addAxisParams <- list(side = 1, labels = breaksLabels, at = barplotBreaks - min(breaksLabels))
  ^~~~~~~~~~~~~
```
[R/histograms.R:32:1:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/histograms.R#L32) *style:* **Lines should not be more than 80 characters.**
```r
  verticalLineAtX <- unique(data$NCC)[1] / breaksInterval + 0.5 # The barplot xaxis is 1/2 a barwidth off
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/histograms.R:32:3:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/histograms.R#L32) *style:* **Variable or function name should be snake_case.**
```r
  verticalLineAtX <- unique(data$NCC)[1] / breaksInterval + 0.5 # The barplot xaxis is 1/2 a barwidth off
  ^~~~~~~~~~~~~~~
```
[R/histograms.R:37:1:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/histograms.R#L37) *style:* **Lines should not be more than 80 characters.**
```r
  if (!is.null(verticalLineAtX)) abline(v = verticalLineAtX, col = "red", lwd = 3)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/histograms.R:57:1:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/histograms.R#L57) *style:* **Variable or function name should be snake_case.**
```r
runHistsLargePatches <- function(map, functionName, analysisGroups, dPath) {
^~~~~~~~~~~~~~~~~~~~
```
[R/histograms.R:57:39:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/histograms.R#L57) *style:* **Variable or function name should be snake_case.**
```r
runHistsLargePatches <- function(map, functionName, analysisGroups, dPath) {
                                      ^~~~~~~~~~~~
```
[R/histograms.R:57:53:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/histograms.R#L57) *style:* **Variable or function name should be snake_case.**
```r
runHistsLargePatches <- function(map, functionName, analysisGroups, dPath) {
                                                    ^~~~~~~~~~~~~~
```
[R/histograms.R:57:69:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/histograms.R#L57) *style:* **Variable or function name should be snake_case.**
```r
runHistsLargePatches <- function(map, functionName, analysisGroups, dPath) {
                                                                    ^~~~~
```
[R/histograms.R:58:3:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/histograms.R#L58) *style:* **Variable or function name should be snake_case.**
```r
  allRepPolys <- na.omit(map@metadata[[analysisGroups]])
  ^~~~~~~~~~~
```
[R/histograms.R:62:5:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/histograms.R#L62) *style:* **Variable or function name should be snake_case.**
```r
    allData <- map@analysesData[[functionName]][["LargePatches"]][[poly]]
    ^~~~~~~
```
[R/histograms.R:64:7:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/histograms.R#L64) *style:* **Variable or function name should be snake_case.**
```r
      allData <- map@analysesData[[functionName]][[poly]] ## TODO: fix upstream
      ^~~~~~~
```
[R/histograms.R:66:34:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/histograms.R#L66) *warning:* **no visible binding for global variable ‘group’, Did you mean 'drop'?**
```r
    data <- allData[!grepl("CC", group)]
                                 ^~~~~
```
[R/histograms.R:67:5:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/histograms.R#L67) *style:* **Variable or function name should be snake_case.**
```r
    dataCC <- allData[grepl("CC", group)]
    ^~~~~~
```
[R/histograms.R:67:35:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/histograms.R#L67) *warning:* **no visible binding for global variable ‘group’, Did you mean 'drop'?**
```r
    dataCC <- allData[grepl("CC", group)]
                                  ^~~~~
```
[R/histograms.R:69:1:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/histograms.R#L69) *style:* **Lines should not be more than 80 characters.**
```r
    data$rep <- as.numeric(factor(data$group)) ## TODO: workaround for incorrect rep values from LargePatches
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/histograms.R:72:5:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/histograms.R#L72) *style:* **Variable or function name should be snake_case.**
```r
    slicesNoRep <- slices[slices != "rep"]
    ^~~~~~~~~~~
```
[R/histograms.R:74:19:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/histograms.R#L74) *warning:* **no visible binding for global variable ‘ageClass’, Did you mean 'getClass'?**
```r
    data <- data[!ageClass == "NA" | !vegCover == "NA"]
                  ^~~~~~~~
```
[R/histograms.R:74:39:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/histograms.R#L74) *warning:* **no visible binding for global variable ‘vegCover’**
```r
    data <- data[!ageClass == "NA" | !vegCover == "NA"]
                                      ^~~~~~~~
```
[R/histograms.R:75:5:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/histograms.R#L75) *style:* **Variable or function name should be snake_case.**
```r
    emptyDT <- data.table(expand.grid(ageClass = unique(data$ageClass),
    ^~~~~~~
```
[R/histograms.R:80:5:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/histograms.R#L80) *style:* **Variable or function name should be snake_case.**
```r
    patchSizes <- c(100, 500, 1000, 5000) ## minPatchSize <- 100
    ^~~~~~~~~~
```
[R/histograms.R:80:46:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/histograms.R#L80) *style:* **Commented code should be removed.**
```r
    patchSizes <- c(100, 500, 1000, 5000) ## minPatchSize <- 100
                                             ^~~~~~~~~~~~~~~~~~~
```
[R/histograms.R:82:41:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/histograms.R#L82) *style:* **Variable or function name should be snake_case.**
```r
    fout <- lapply(patchSizes, function(minPatchSize) {
                                        ^~~~~~~~~~~~
```
[R/histograms.R:83:7:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/histograms.R#L83) *style:* **Variable or function name should be snake_case.**
```r
      nClustersDT <- data[sizeInHa >= minPatchSize, .N, by = slices]
      ^~~~~~~~~~~
```
[R/histograms.R:83:27:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/histograms.R#L83) *warning:* **no visible binding for global variable ‘sizeInHa’**
```r
      nClustersDT <- data[sizeInHa >= minPatchSize, .N, by = slices]
                          ^~~~~~~~
```
[R/histograms.R:83:53:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/histograms.R#L83) *warning:* **no visible binding for global variable ‘.N’, Did you mean 'ar'?**
```r
      nClustersDT <- data[sizeInHa >= minPatchSize, .N, by = slices]
                                                    ^~
```
[R/histograms.R:84:7:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/histograms.R#L84) *style:* **Variable or function name should be snake_case.**
```r
      nClustersDT <- nClustersDT[emptyDT, on = slices, nomatch = NA]
      ^~~~~~~~~~~
```
[R/histograms.R:85:25:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/histograms.R#L85) *warning:* **no visible binding for global variable ‘N’, Did you mean 'C'?**
```r
      nClustersDT[is.na(N), N := 0]
                        ^
```
[R/histograms.R:85:25:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/histograms.R#L85) *warning:* **no visible binding for global variable ‘N’, Did you mean 'C'?**
```r
      nClustersDT[is.na(N), N := 0]
                        ^
```
[R/histograms.R:85:29:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/histograms.R#L85) *style:* **Variable or function name should be snake_case.**
```r
      nClustersDT[is.na(N), N := 0]
                            ^
```
[R/histograms.R:85:31:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/histograms.R#L85) *warning:* **no visible global function definition for ‘:=’, Did you mean ':'?**
```r
      nClustersDT[is.na(N), N := 0]
                              ^~
```
[R/histograms.R:87:7:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/histograms.R#L87) *style:* **Variable or function name should be snake_case.**
```r
      nClustersDT_CC <- dataCC[sizeInHa >= minPatchSize, .N, by = slicesNoRep]
      ^~~~~~~~~~~~~~
```
[R/histograms.R:87:32:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/histograms.R#L87) *warning:* **no visible binding for global variable ‘sizeInHa’**
```r
      nClustersDT_CC <- dataCC[sizeInHa >= minPatchSize, .N, by = slicesNoRep]
                               ^~~~~~~~
```
[R/histograms.R:87:58:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/histograms.R#L87) *warning:* **no visible binding for global variable ‘.N’, Did you mean 'ar'?**
```r
      nClustersDT_CC <- dataCC[sizeInHa >= minPatchSize, .N, by = slicesNoRep]
                                                         ^~
```
[R/histograms.R:88:8:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/histograms.R#L88) *style:* **Commented code should be removed.**
```r
      #nClustersDT_CC$rep <- as.numeric(nClustersDT_CC$rep)
       ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/histograms.R:89:7:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/histograms.R#L89) *warning:* **no visible global function definition for ‘setnames’, Did you mean 'setNames'?**
```r
      setnames(nClustersDT_CC, "N", "NCC")
      ^~~~~~~~
```
[R/histograms.R:90:7:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/histograms.R#L90) *style:* **Variable or function name should be snake_case.**
```r
      nClustersDT_CC <- nClustersDT_CC[emptyDT, on = slicesNoRep, nomatch = NA]
      ^~~~~~~~~~~~~~
```
[R/histograms.R:91:28:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/histograms.R#L91) *warning:* **no visible binding for global variable ‘NCC’, Did you mean 'AIC'?**
```r
      nClustersDT_CC[is.na(NCC), NCC := 0]
                           ^~~
```
[R/histograms.R:91:28:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/histograms.R#L91) *warning:* **no visible binding for global variable ‘NCC’, Did you mean 'AIC'?**
```r
      nClustersDT_CC[is.na(NCC), NCC := 0]
                           ^~~
```
[R/histograms.R:91:34:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/histograms.R#L91) *style:* **Variable or function name should be snake_case.**
```r
      nClustersDT_CC[is.na(NCC), NCC := 0]
                                 ^~~
```
[R/histograms.R:91:38:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/histograms.R#L91) *warning:* **no visible global function definition for ‘:=’, Did you mean ':'?**
```r
      nClustersDT_CC[is.na(NCC), NCC := 0]
                                     ^~
```
[R/histograms.R:93:7:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/histograms.R#L93) *style:* **Variable or function name should be snake_case.**
```r
      nClustersDT <- nClustersDT[nClustersDT_CC, on = slices]
      ^~~~~~~~~~~
```
[R/histograms.R:97:1:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/histograms.R#L97) *style:* **Lines should not be more than 80 characters.**
```r
                                                         "_", minPatchSize, ".csv"))))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/histograms.R:99:1:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/histograms.R#L99) *style:* **Lines should not be more than 80 characters.**
```r
      saveDir <- checkPath(file.path(dPath, poly, "largePatches", minPatchSize), create = TRUE)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/histograms.R:99:7:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/histograms.R#L99) *style:* **Variable or function name should be snake_case.**
```r
      saveDir <- checkPath(file.path(dPath, poly, "largePatches", minPatchSize), create = TRUE)
      ^~~~~~~
```
[R/histograms.R:99:7:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/histograms.R#L99) *warning:* **local variable ‘saveDir’ assigned but may not be used**
```r
      saveDir <- checkPath(file.path(dPath, poly, "largePatches", minPatchSize), create = TRUE)
      ^~~~~~~
```
[R/histograms.R:99:18:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/histograms.R#L99) *warning:* **no visible global function definition for ‘checkPath’**
```r
      saveDir <- checkPath(file.path(dPath, poly, "largePatches", minPatchSize), create = TRUE)
                 ^~~~~~~~~
```
[R/histograms.R:100:7:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/histograms.R#L100) *style:* **Variable or function name should be snake_case.**
```r
      savePng <- quote(file.path(saveDir, paste0(paste(unique(polygonName),
      ^~~~~~~
```
[R/histograms.R:103:1:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/histograms.R#L103) *style:* **Lines should not be more than 80 characters.**
```r
                                                       collapse = " "), ".png")))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/histograms.R:105:8:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/histograms.R#L105) *style:* **Commented code should be removed.**
```r
      #browser()
       ^~~~~~~~~
```
[R/histograms.R:117:1:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/histograms.R#L117) *style:* **Lines should not be more than 80 characters.**
```r
                                              xlab = paste0("Number of patches greater than ",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/histograms.R:118:1:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/histograms.R#L118) *style:* **Lines should not be more than 80 characters.**
```r
                                                            minPatchSize, " ha"),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/largePatches.R:25:1:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/largePatches.R#L25) *style:* **Lines should not be more than 80 characters.**
```r
LargePatches <- function(tsf, vtm, poly, labelColumn, id, ageClassCutOffs, ageClasses,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/largePatches.R:25:1:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/largePatches.R#L25) *style:* **Variable or function name should be snake_case.**
```r
LargePatches <- function(tsf, vtm, poly, labelColumn, id, ageClassCutOffs, ageClasses,
^~~~~~~~~~~~
```
[R/largePatches.R:25:42:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/largePatches.R#L25) *style:* **Variable or function name should be snake_case.**
```r
LargePatches <- function(tsf, vtm, poly, labelColumn, id, ageClassCutOffs, ageClasses,
                                         ^~~~~~~~~~~
```
[R/largePatches.R:25:59:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/largePatches.R#L25) *style:* **Variable or function name should be snake_case.**
```r
LargePatches <- function(tsf, vtm, poly, labelColumn, id, ageClassCutOffs, ageClasses,
                                                          ^~~~~~~~~~~~~~~
```
[R/largePatches.R:25:76:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/largePatches.R#L25) *style:* **Variable or function name should be snake_case.**
```r
LargePatches <- function(tsf, vtm, poly, labelColumn, id, ageClassCutOffs, ageClasses,
                                                                           ^~~~~~~~~~
```
[R/largePatches.R:26:26:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/largePatches.R#L26) *style:* **Variable or function name should be snake_case.**
```r
                         sppEquivCol, sppEquiv) {
                         ^~~~~~~~~~~
```
[R/largePatches.R:26:39:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/largePatches.R#L26) *style:* **Variable or function name should be snake_case.**
```r
                         sppEquivCol, sppEquiv) {
                                      ^~~~~~~~
```
[R/largePatches.R:32:3:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/largePatches.R#L32) *style:* **Variable or function name should be snake_case.**
```r
  timeSinceFireFilesRast <- Cache(.rasterToMemory, tsf[1])
  ^~~~~~~~~~~~~~~~~~~~~~
```
[R/largePatches.R:32:29:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/largePatches.R#L32) *warning:* **no visible global function definition for ‘Cache’**
```r
  timeSinceFireFilesRast <- Cache(.rasterToMemory, tsf[1])
                            ^~~~~
```
[R/largePatches.R:32:35:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/largePatches.R#L32) *warning:* **no visible binding for global variable ‘.rasterToMemory’**
```r
  timeSinceFireFilesRast <- Cache(.rasterToMemory, tsf[1])
                                  ^~~~~~~~~~~~~~~
```
[R/largePatches.R:41:3:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/largePatches.R#L41) *style:* **Variable or function name should be snake_case.**
```r
  rasRepPoly <- Cache(
  ^~~~~~~~~~
```
[R/largePatches.R:44:1:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/largePatches.R#L44) *style:* **Lines should not be more than 80 characters.**
```r
    emptyRaster = raster(timeSinceFireFilesRast), # doesn't need to the data -- makes Caching more effective
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/largePatches.R:49:3:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/largePatches.R#L49) *style:* **Variable or function name should be snake_case.**
```r
  rasVeg <- Cache(.rasterToMemory, vtm)
  ^~~~~~
```
[R/largePatches.R:49:13:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/largePatches.R#L49) *warning:* **no visible global function definition for ‘Cache’**
```r
  rasVeg <- Cache(.rasterToMemory, vtm)
            ^~~~~
```
[R/largePatches.R:49:19:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/largePatches.R#L49) *warning:* **no visible binding for global variable ‘.rasterToMemory’**
```r
  rasVeg <- Cache(.rasterToMemory, vtm)
                  ^~~~~~~~~~~~~~~
```
[R/largePatches.R:51:1:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/largePatches.R#L51) *style:* **Lines should not be more than 80 characters.**
```r
  splitVal <- paste0("_", 75757575, "_") # unlikely to occur for any other reason
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/largePatches.R:51:3:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/largePatches.R#L51) *style:* **Variable or function name should be snake_case.**
```r
  splitVal <- paste0("_", 75757575, "_") # unlikely to occur for any other reason
  ^~~~~~~~
```
[R/largePatches.R:55:35:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/largePatches.R#L55) *warning:* **no visible global function definition for ‘factorValues2’**
```r
  nas2 <- is.na(rasVeg[]) | is.na(factorValues2(rasVeg, rasVeg[], att = 1))
                                  ^~~~~~~~~~~~~
```
[R/largePatches.R:60:6:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/largePatches.R#L60) *style:* **Commented code should be removed.**
```r
    #name1a <- as.character(raster::levels(tsf)[[1]]$Factor)[tsf[][!nas]]
     ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/largePatches.R:61:27:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/largePatches.R#L61) *warning:* **no visible global function definition for ‘factorValues2’**
```r
    name1 <- as.character(factorValues2(tsf, tsf[], att = 2)[!nas])
                          ^~~~~~~~~~~~~
```
[R/largePatches.R:63:1:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/largePatches.R#L63) *style:* **Lines should not be more than 80 characters.**
```r
    colID <- which(colnames(raster::levels(rasVeg)[[1]]) %in% c("category", "Factor", "VALUE"))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/largePatches.R:63:5:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/largePatches.R#L63) *style:* **Variable or function name should be snake_case.**
```r
    colID <- which(colnames(raster::levels(rasVeg)[[1]]) %in% c("category", "Factor", "VALUE"))
    ^~~~~
```
[R/largePatches.R:65:1:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/largePatches.R#L65) *style:* **Lines should not be more than 80 characters.**
```r
    #name2a <- as.character(raster::levels(rasVeg)[[1]][[colID]])[rasVeg[][!nas]]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/largePatches.R:65:6:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/largePatches.R#L65) *style:* **Commented code should be removed.**
```r
    #name2a <- as.character(raster::levels(rasVeg)[[1]][[colID]])[rasVeg[][!nas]]
     ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/largePatches.R:66:27:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/largePatches.R#L66) *warning:* **no visible global function definition for ‘factorValues2’**
```r
    name2 <- as.character(factorValues2(rasVeg, rasVeg[], att = colID)[!nas])
                          ^~~~~~~~~~~~~
```
[R/largePatches.R:72:1:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/largePatches.R#L72) *style:* **Lines should not be more than 80 characters.**
```r
    if (!identical(length(name1), length(name2)) || !identical(length(name1), length(name3)))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/largePatches.R:73:1:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/largePatches.R#L73) *style:* **Lines should not be more than 80 characters.**
```r
      stop("There is something wrong with tsf or rasVeg or rasRepPoly inside LargePatches")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/largePatches.R:76:12:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/largePatches.R#L76) *warning:* **no visible global function definition for ‘raster’, Did you mean 'rasVeg'?**
```r
    ras <- raster(rasVeg)
           ^~~~~~
```
[R/largePatches.R:77:5:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/largePatches.R#L77) *style:* **Variable or function name should be snake_case.**
```r
    ffFactor <- factor(ff)
    ^~~~~~~~
```
[R/largePatches.R:78:1:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/largePatches.R#L78) *style:* **Lines should not be more than 80 characters.**
```r
    ras[!nas] <- ffFactor # 2 seconds ## note: sum(!nas, na.rm = TRUE) should equal length(ffFactor)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/largePatches.R:80:1:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/largePatches.R#L80) *style:* **Lines should not be more than 80 characters.**
```r
    areaAndPolyOut <- Cache(areaAndPolyValue, ras, length = Inf) # maybe lots of NAs on edge
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/largePatches.R:80:5:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/largePatches.R#L80) *style:* **Variable or function name should be snake_case.**
```r
    areaAndPolyOut <- Cache(areaAndPolyValue, ras, length = Inf) # maybe lots of NAs on edge
    ^~~~~~~~~~~~~~
```
[R/largePatches.R:80:23:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/largePatches.R#L80) *warning:* **no visible global function definition for ‘Cache’**
```r
    areaAndPolyOut <- Cache(areaAndPolyValue, ras, length = Inf) # maybe lots of NAs on edge
                      ^~~~~
```
[R/largePatches.R:80:29:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/largePatches.R#L80) *warning:* **no visible binding for global variable ‘areaAndPolyValue’**
```r
    areaAndPolyOut <- Cache(areaAndPolyValue, ras, length = Inf) # maybe lots of NAs on edge
                            ^~~~~~~~~~~~~~~~
```
[R/largePatches.R:81:1:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/largePatches.R#L81) *style:* **Lines should not be more than 80 characters.**
```r
    eTable <- data.frame(ID = seq_along(levels(ffFactor)), VALUE = levels(ffFactor))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/largePatches.R:81:5:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/largePatches.R#L81) *style:* **Variable or function name should be snake_case.**
```r
    eTable <- data.frame(ID = seq_along(levels(ffFactor)), VALUE = levels(ffFactor))
    ^~~~~~
```
[R/largePatches.R:85:5:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/largePatches.R#L85) *style:* **Variable or function name should be snake_case.**
```r
    facPolygonID <- factor(types[areaAndPolyOut$polyID,3])
    ^~~~~~~~~~~~
```
[R/largePatches.R:85:56:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/largePatches.R#L85) *style:* **Commas should always have a space after.**
```r
    facPolygonID <- factor(types[areaAndPolyOut$polyID,3])
                                                       ^
```
[R/largePatches.R:86:5:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/largePatches.R#L86) *style:* **Variable or function name should be snake_case.**
```r
    outBySpecies <- data.table(polygonID = as.numeric(facPolygonID),
    ^~~~~~~~~~~~
```
[R/largePatches.R:96:12:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/largePatches.R#L96) *warning:* **no visible global function definition for ‘raster’, Did you mean 'rasVeg'?**
```r
    ras <- raster(rasVeg)
           ^~~~~~
```
[R/largePatches.R:97:5:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/largePatches.R#L97) *style:* **Variable or function name should be snake_case.**
```r
    ffFactor <- factor(ff)
    ^~~~~~~~
```
[R/largePatches.R:101:1:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/largePatches.R#L101) *style:* **Lines should not be more than 80 characters.**
```r
    areaAndPolyOut2 <- Cache(areaAndPolyValue, ras, length = Inf) # maybe lots of NAs on edge
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/largePatches.R:101:5:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/largePatches.R#L101) *style:* **Variable or function name should be snake_case.**
```r
    areaAndPolyOut2 <- Cache(areaAndPolyValue, ras, length = Inf) # maybe lots of NAs on edge
    ^~~~~~~~~~~~~~~
```
[R/largePatches.R:101:24:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/largePatches.R#L101) *warning:* **no visible global function definition for ‘Cache’**
```r
    areaAndPolyOut2 <- Cache(areaAndPolyValue, ras, length = Inf) # maybe lots of NAs on edge
                       ^~~~~
```
[R/largePatches.R:101:30:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/largePatches.R#L101) *warning:* **no visible binding for global variable ‘areaAndPolyValue’**
```r
    areaAndPolyOut2 <- Cache(areaAndPolyValue, ras, length = Inf) # maybe lots of NAs on edge
                             ^~~~~~~~~~~~~~~~
```
[R/largePatches.R:103:1:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/largePatches.R#L103) *style:* **Lines should not be more than 80 characters.**
```r
    eTable <- data.frame(ID = seq_along(levels(ffFactor)), VALUE = levels(ffFactor))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/largePatches.R:103:5:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/largePatches.R#L103) *style:* **Variable or function name should be snake_case.**
```r
    eTable <- data.frame(ID = seq_along(levels(ffFactor)), VALUE = levels(ffFactor))
    ^~~~~~
```
[R/largePatches.R:107:5:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/largePatches.R#L107) *style:* **Variable or function name should be snake_case.**
```r
    facPolygonID <- factor(types[areaAndPolyOut2$polyID, 2])
    ^~~~~~~~~~~~
```
[R/largePatches.R:109:5:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/largePatches.R#L109) *style:* **Variable or function name should be snake_case.**
```r
    outAllSpecies <- data.table(polygonID = as.numeric(facPolygonID),
    ^~~~~~~~~~~~~
```
[R/largePatches.R:116:12:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/largePatches.R#L116) *warning:* **no visible global function definition for ‘rbindlist’**
```r
    out <- rbindlist(list(outBySpecies, outAllSpecies))
           ^~~~~~~~~
```
[R/largePatches.R:117:16:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/largePatches.R#L117) *warning:* **no visible binding for global variable ‘sizeInHa’**
```r
    out <- out[sizeInHa >= 100] # never will need patches smaller than 100 ha
               ^~~~~~~~
```
[R/largePatches.R:119:1:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/largePatches.R#L119) *style:* **Lines should not be more than 80 characters.**
```r
    out <- data.table(polygonID = character(), sizeInHa = numeric(), vegCover = character(),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/largePatches.R:120:1:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/largePatches.R#L120) *style:* **Lines should not be more than 80 characters.**
```r
                      rep = numeric(), ageClass = numeric(), polygonName = numeric())
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/largePatches.R:124:7:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/largePatches.R#L124) *style:* **Variable or function name should be snake_case.**
```r
      vegCover := equivalentName(vegCover, sppEquiv, sppEquivCol)]
      ^~~~~~~~
```
[R/leading.R:11:1:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/leading.R#L11) *style:* **Lines should not be more than 80 characters.**
```r
#' It is also recursive of passed a vector of filenames for \code{tsf} and \code{vtm}.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/leading.R:13:1:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/leading.R#L13) *style:* **Lines should not be more than 80 characters.**
```r
#' @param tsf A single filename, relative or absolute, pointing to a Time Since Fire raster.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/leading.R:15:1:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/leading.R#L15) *style:* **Lines should not be more than 80 characters.**
```r
#' @param vtm A single filename, relative or absolute, pointing to a Vegetation Type Map raster.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/leading.R:17:1:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/leading.R#L17) *style:* **Lines should not be more than 80 characters.**
```r
#' @param poly A single \code{SpatialPolygonsDataFrame} object or a factor \code{RasterLayer}.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/leading.R:19:1:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/leading.R#L19) *style:* **Lines should not be more than 80 characters.**
```r
#' @param ageClasses A character vector with labels for age classes to bin the \code{tsf} times,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/leading.R:21:1:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/leading.R#L21) *style:* **Lines should not be more than 80 characters.**
```r
#' @param ageClassCutOffs A numeric vector with the endpoints for the \code{ageClasses}.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/leading.R:24:1:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/leading.R#L24) *style:* **Lines should not be more than 80 characters.**
```r
#' @return A \code{data.table} with proportion of the pixels in each vegetation class,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/leading.R:32:1:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/leading.R#L32) *style:* **Lines should not be more than 80 characters.**
```r
LeadingVegTypeByAgeClass <- function(tsf, vtm, poly, ageClassCutOffs, ageClasses) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/leading.R:32:1:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/leading.R#L32) *style:* **Variable or function name should be snake_case.**
```r
LeadingVegTypeByAgeClass <- function(tsf, vtm, poly, ageClassCutOffs, ageClasses) {
^~~~~~~~~~~~~~~~~~~~~~~~
```
[R/leading.R:32:54:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/leading.R#L32) *style:* **Variable or function name should be snake_case.**
```r
LeadingVegTypeByAgeClass <- function(tsf, vtm, poly, ageClassCutOffs, ageClasses) {
                                                     ^~~~~~~~~~~~~~~
```
[R/leading.R:32:71:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/leading.R#L32) *style:* **Variable or function name should be snake_case.**
```r
LeadingVegTypeByAgeClass <- function(tsf, vtm, poly, ageClassCutOffs, ageClasses) {
                                                                      ^~~~~~~~~~
```
[R/leading.R:34:3:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/leading.R#L34) *style:* **Variable or function name should be snake_case.**
```r
  startTime <- Sys.time()
  ^~~~~~~~~
```
[R/leading.R:36:5:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/leading.R#L36) *style:* **Variable or function name should be snake_case.**
```r
    ageClassCutOffs <- c(ageClassCutOffs, Inf)
    ^~~~~~~~~~~~~~~
```
[R/leading.R:42:3:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/leading.R#L42) *style:* **Variable or function name should be snake_case.**
```r
  timeSinceFireFilesRast <- raster(tsf[1])
  ^~~~~~~~~~~~~~~~~~~~~~
```
[R/leading.R:42:29:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/leading.R#L42) *warning:* **no visible global function definition for ‘raster’, Did you mean 'rasVeg'?**
```r
  timeSinceFireFilesRast <- raster(tsf[1])
                            ^~~~~~
```
[R/leading.R:46:4:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/leading.R#L46) *style:* **Commented code should be removed.**
```r
  #timeSinceFireFilesRast <- Cache(rasterToMemory, tsf[1])
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/leading.R:48:3:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/leading.R#L48) *style:* **Variable or function name should be snake_case.**
```r
  rasTsf <- reclassify(
  ^~~~~~
```
[R/leading.R:60:3:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/leading.R#L60) *style:* **Variable or function name should be snake_case.**
```r
  rasVeg <- raster(vtm[1])
  ^~~~~~
```
[R/leading.R:60:13:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/leading.R#L60) *warning:* **no visible global function definition for ‘raster’, Did you mean 'rasVeg'?**
```r
  rasVeg <- raster(vtm[1])
            ^~~~~~
```
[R/leading.R:63:1:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/leading.R#L63) *style:* **Lines should not be more than 80 characters.**
```r
  splitVal <- paste0("_", 75757575, "_") # unlikely to occur for any other reason
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/leading.R:63:3:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/leading.R#L63) *style:* **Variable or function name should be snake_case.**
```r
  splitVal <- paste0("_", 75757575, "_") # unlikely to occur for any other reason
  ^~~~~~~~
```
[R/leading.R:69:25:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/leading.R#L69) *warning:* **no visible global function definition for ‘factorValues’**
```r
  name1 <- as.character(factorValues(rasTsf, rasTsf[][!nas])[, 1])
                        ^~~~~~~~~~~~
```
[R/leading.R:70:4:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/leading.R#L70) *style:* **Commented code should be removed.**
```r
  #as.character(raster::levels(rasTsf)[[1]]$Factor)[rasTsf[][!nas]]
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/leading.R:71:25:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/leading.R#L71) *warning:* **no visible global function definition for ‘factorValues’**
```r
  name3 <- as.character(factorValues(rasVeg, rasVeg[][!nas])[, 1])
                        ^~~~~~~~~~~~
```
[R/leading.R:72:4:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/leading.R#L72) *style:* **Commented code should be removed.**
```r
  #as.character(raster::levels(rasVeg)[[1]]$Factor)[rasVeg[][!nas]]
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/leading.R:75:10:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/leading.R#L75) *warning:* **no visible global function definition for ‘raster’, Did you mean 'rasVeg'?**
```r
  ras <- raster(rasVeg)
         ^~~~~~
```
[R/leading.R:76:3:](https://github.com/PredictiveEcology/LandWebUtils/blob/82b05ce7d0dc8be531320ac87650f958e585ae47/R/leading.R#L76) *style:* **Variable or function name should be snake_case.**
```r
  ffFactor <- factor(ff)
  ^~~~~~~~
```


ok, changed


у меня два вопроса?
первый зачем вам массив?
потом если вы пишете массив, но он ненужен, как пользовател понимает что ему надо ввести 4 числа, и потом почему 4е)


This change does expand the specific cases for which the Signedness Checker works.
However, it should not override visitMethodInvocation nor visitIdentifier.
Instead, it should process all expressions uniformly.


зачем этот цикл, почему не один)


Leak was in 195. This one is not producing any leaks as far as i know. Thumbnail class get rid of it, i guess. But if leaking bug will be regressed, than this line will be first to blame.


а чем вамне понравилось `sum += ...`


Fix ya godsdamn git config


Successfully aliased the URL <https://react-pure-loaders-of9verzrn.now.sh> to the following aliases.

* https://reactpureloaders.io
* https://www.reactpureloaders.io
* https://react-pure-loaders.jameswlane.now.sh
* https://react-pure-loaders-git-master.jameswlane.now.sh


что не так с sum?


Looks good. Could there be benefit in expanding the struct to include location also (header vs. cookie, etc).


как болезнь писать знаковый счетчик


Нужно создать игроков. А уже у игроков должна быть рука

```
@dealer = Dealer.new
@dealer.hand # геттер должен возвращать руку игрока
```


Thanks sbertrand-witekio, I agree it is good idea to add a check here. Before this feature it was not required that device is aware of the service limit which is not likely to change frequently.


Will do! Thanks!!


Created multidev environment [dpworkshop#pr-15](https://dashboard.pantheon.io/sites/154fb06c-ec2e-4aca-bdaa-64d2d054b4f8#pr-15).

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