Bonus (e.g. this is okay as is to abstract this out for scope-sake, but just want you to think about this for the future):

(1) Is it expensive (e.g. does it take a long time to fetch all this data) to load 100 messages?

Better: Oftentimes we load less messages per call to improve this and we will paginate, (e.g. fetch one page of a subset of maybe 10 messages at a time), and only load the next page (e.g. the next 10 messages on the next page) only when we need to. When we need to can be determined by a tappable section saying "load more", or can automatically load it when the user scrolls to the end of the page.

(2) If there are more than 100 messages in a channel, how can you fetch previous messages? Or can you only ever show the most recent 100 messages?

Better: Pagination again from the pagination idea above. We will save a cursor from the query (think: a bookmark saving which page you're on) of where we fetched the last result, and we will be able to fetch for the next page based on this cursor.


thoncc


Successfully aliased the URL <https://ext-test-site-gtmtz2fci.now.sh> to the following aliases:

* https://ext-test-site.qqq.now.sh
* https://ext-test-site-git-master.qqq.now.sh


How can we improve this error for the user? See same comment on error handling below.


Closes #70


LED-Licht -> LED 😂 stimmt


The alias `CMS` is not alphabetically ordered among its group.


Nested modules could be aliased at the top of the invoking module.


The alias `SiteWeb.PartialView` is not alphabetically ordered among its group.


Save %d selected photos and delete the rest?


TeamCity Bvcms / Build [Build 1603](https://builds.tpsdb.com/viewLog.html?buildId=7497&buildTypeId=Bvcms_Build) outcome was **SUCCESS**
Summary: Tests passed: 50 Build time: 00:17:23


AirWallRadiant (mjwitte) - Win64-Windows-10-VisualStudio-16: OK (2444 of 2454 tests passed, 9 test warnings)

Messages:\n
 * 1 test had: ERR diffs.
 * 18 tests had: EIO diffs.
 * 10 tests had: Table big diffs.

Failures:\n

regression Test Summary
 * Passed: 652
 * Failed: 10

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


need to check anchor too as in editOnInput


Save %d selected photos


I understand this hybrid channel, but what's their own channel for? Do we do anything different for it?


PS, nice way to map the hybrid channel to a unique name


все константы должны быть в верхнем регистре


Rm


mistake here - i'll refactor it to array[i] != null


ну тут такого делать не надо у вас константа divider_of_result и так уже дробная. Это делаеться когда у вас все аргументы в выражении целые и вы таким костылем делаете некое преобразование


Не используй отбивку больше чем в одну строку


Copy of this build can be found at
https://builds.myetherwallet.com/build/9bd503a1be708fe82811094717e6025bb0133ef2/index.html
                       https://www.cloudflare-ipfs.com/ipfs/Qmd7qWJRaGGECkLWGCoYTCfcRgH7xJ65LrzCdYsWHUSqPw
                       Virus Total analysis
                       https://www.virustotal.com/file/43e7e048533e65622bccd890d93d34a98e82ae7031faeeedfb0dbd4d621ba769/analysis/1564610346/


Fixed. Moved config directly into method.


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

* https://garitma.garitma.now.sh
* https://garitma-git-master.garitma.now.sh


Внутри блока не нужно ограничивать пустыми строками, лучше строками отделять различные по смыслу части блока


начнем с того что в коде не оставляют закоментированный код


This can be removed?


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

* https://wiki.chronica.xyz
* https://www.wiki.chronica.xyz
* https://wikichronica.ckipp01.now.sh
* https://wikichronica-git-master.ckipp01.now.sh


лучше так, мы то уже функции прошли
```
bool is_it_even_num (int var) {
  return var % 2 != 0;
}
```


Successfully aliased the URL <https://zeit-now-ts-debugging-rjdrn9di8.now.sh> to the following aliases:

* https://zeit-now-ts-debugging.tylerc.now.sh
* https://zeit-now-ts-debugging-git-master.tylerc.now.sh


Опять лишние пустые строки


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


The following doc(s) have been deployed to the [httpsnong](https://httpsnong-static-docs.pantheonsite.io/docs) Multidev environment:
- [/docs/pantheon-yml](https://httpsnong-static-docs.pantheonsite.io/docs/pantheon-yml)


Забыл новую строку в конце файла. Настрой редактор чтобы он сам ее добавлял


будте внимательны с именами переменных есть просто такая стандартная функция `floor`
http://www.cplusplus.com/reference/cmath/floor/


Не надо использовать в качестве ключей строки, тем более - строки с кириллицей. Вместо этого у нас есть символы


зачем пост инкримент???


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):
~~~


Что делает эта строка? Она же просто выводит содержимое элемента массива под номером 29


Successfully aliased the URL <https://petgram-3j5nmo36r.now.sh> to the following aliases:

* https://petgram.malagon91.now.sh
* https://petgram-git-develop.malagon91.now.sh


Copy of this build can be found at
https://builds.myetherwallet.com/build/85fc753ab38d8ce036a00381eec444b9ad51d967/index.html
                       https://www.cloudflare-ipfs.com/ipfs/QmcnMY6A2xkjUUaL3PXWAwkrJL9Zo3WVtvuzjVJD62cgfq
                       Virus Total analysis
                       https://www.virustotal.com/file/09b5d5e16beab9d2ff63e62a6038fc3ad5121da67b7cd39554b68a773f6affe0/analysis/1564610736/


This particular figure can be deleted -- same figure added with a usable name


зачем тут обьявлять переменную floor????


Посмотри на методы `sum` и `take`, они помогут решить проблему изящней. `sum` доступен только в руби > 2.4


Perfecto!. Los cambios funcionaron 🍄


`[0, 1]`, не забывай пробелы


внесите ее в инициализирующую часть цикла, зачем ее держать в не цикла, если она нужно только в скопе цикла


167576484-Revise-error-trap-in-PsyWFnTdpPb (lgu1234) - x86_64-Linux-Ubuntu-18.04-cppcheck: OK (0 of 0 tests passed, 0 test warnings)

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


Забыл перевод строки в конце файла


# Probando markdown 🏁

Todo funciona!


second version


почему счетчик int???  у вас что этот счетчик уменьшаеться???
зачем постинкримент


Note, reg_bits is actually a byte


то же самое с переменной


Даже внутри блока лучше давать осмысленные имена переменным - вместо `k, v` лучше подойдет `month, days`


167576484-Revise-error-trap-in-PsyWFnTdpPb (lgu1234) - x86_64-Linux-Ubuntu-18.04-custom_check: OK (9 of 9 tests passed, 0 test warnings)

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


то же самое с переменной и постинкриментом


Лишние пробелы после {, достаточно одного


No it's not, but as written in the issue referenced by this PR you can find the `X-Forwarded-Proto` header in the `request` context of the event, which of course is displayed in the Sentry GUI


Не стоит соединять несколько строк при помощи `;`. Кроме того, что тут делает пометка For debug only?


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

* https://mtnalonso.com
* https://mtnalonsocom.mtnalonso.now.sh
* https://mtnalonsocom-git-master.mtnalonso.now.sh


mmm finally something that makes some more sense, ok, do that question also go the other way around? what about the negation of that? ye, now I ask you instead and "why you should **dis**allow people to use **their** actual brains to prioritize **their** own servers within some reasonable limits"? is that a bad thing? no disrespect, but I sincerely think that it's not even none of your business. I know that you don't have to answer me or justify you or anything, you can just throw the ban and go anyway, you're not obliged to nothing more not even to read me, all that is very clear, but honestly you'll know because I just can't see why. as I already broke down people prioritizing their servers did happen, it does happen now and it will continue to happen and you can not even do anything about it. if it's not a efficient and clean solution like mine, it would simply be by trowing themselves/their friends as meaningless spectators so then not all servers will have the same chances. I would understand if it would be a over the top thing but I definitively can't see what's wrong with using one own brains to get in a better place.


167576484-Revise-error-trap-in-PsyWFnTdpPb (lgu1234) - x86_64-Linux-Ubuntu-18.04-gcc-7.4-IntegrationCoverage-Debug: Build Failed

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


Successfully aliased the URL <https://convertmymoney-2ueft1w1l.now.sh> to the following aliases:

* https://convertmymoney.jhonnipinto.now.sh
* https://convertmymoney-git-master.jhonnipinto.now.sh


можно `int` для `long` и `short` не писать. Ну так никто и не пишет просто они как быть есть неявно если написать `unsigned long`


Немного странно - метод переводится как "сколько", а возвращает массив поездов, а не число. Может, лучше его назвать 'trains_by_type'?


Лишняя строка


Successfully aliased the URL <https://mood-26z420lyn.now.sh> to the following aliases:

* https://mood.rgrannell2.now.sh
* https://mood-git-master.rgrannell2.now.sh


Лучше назвать этот метод "stations"


Copy of this build can be found at
https://builds.myetherwallet.com/build/e5c8a754d8dd437796ebd4703e25a5396608239f/index.html
                       https://www.cloudflare-ipfs.com/ipfs/QmUCj7RDcFNJgkKCD7xVD7YKg7D5ioskcnX9Q7dJ3yEmCH
                       Virus Total analysis
                       https://www.virustotal.com/file/3f3e82bcbaeba3e35c93d4233f633bb9c5f2de6910fabecea5c4739f29e85497/analysis/1564611164/


это не правильный тип. Для этого и придумали тип uint8_t, тип char это всегда для символов!


А нам этот метод вообще нужен? Как-то не очень понимаю его смысл


Can you use past tense? `Added`/`Updated`?


старайтесь юзать фиксированные типы, uint32_t или int64_t и т.д.


у вас цикл немного не по код стайлу много отсупов


167576484-Revise-error-trap-in-PsyWFnTdpPb (lgu1234) - x86_64-Linux-Ubuntu-18.04-gcc-7.4: Build Failed

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


What!


The material design icons are being used in waybar. Unless you rice it or change to swaybar, there won't be any icons!


> Updated parsing of parameter YAML files to use parameters from '/**' for all nodes. (...)

Also for this one you may want to use `catkin_test_changelogs` to see if it looks ok, since the `**` might be messing with it and may need to be escaped or something.


> Fixed a signed/unsigned integer comparison compiler warning. (...)


Лучше бы оставил этот метод. Он говорит о том что поезд может только ускоряться.А с аксессором скорость может принять любое значение


You could replace this with an Expanded(child:Container()), to make it take up the vertical space and effectively bottom align the reset button.


а чего не в одну строку
```
 std::cout << "Number of set bits:  " << counter;
```


@NeoCat would a 3-clause BSD license fit with your patch ?


У тебя везде параметры передаются методу в скобках, и это хорошо. Почему здесь не так? Выглядит странно


Use capitalization and punctuation.

> Changed the QoS profile used when subscribing to parameter events to match the publishing side, i.e. ``` ``rmw_qos_profile_parameter_events`` ```.


почему везде постинкримент????


Thanks for reviewing this @alexec . Could somebody with write permissions also run:

```
GIT_PUSH=true ./scripts/publish.sh
```

Thank you,


Maybe declare `is_fc` as a function returning `stage == 8`


> Changed the logic in TimeSource to ignore use_sim_time parameter events coming from other nodes. (...)


wrong file was deleted


пробелы добаввте в выражении
```
while (variable >> shift)
```


These line breaks in the comments were just so the static analyzer wouldn't complain (suggests lines are no longer than 80 chars). For our internal projects we can break this rule, but for stuff we post to the community I think we should play nice.


Не очень хороший вариант. Без просмотра кода непонятно почему нужно передавать 1 или -1. Я бы убрал этот метод и явно искал станции в методах next_station и previous_station


> Added missing default values in the NodeParametersInterface. (...)


Static analyzer complained about unnecessary parentheses. :| Totally minor nitpicky stuff but got rid of the dreaded squiggles.


Не надо экономить байты на винчестере и сокращать названия переменных. Так код становится менее понятным. Тоже самое и в move_up
21 век на дворе :)


Successfully aliased the URL <https://accharplanner-1995wnfga.now.sh> to the following aliases:

* https://accharplanner.amoeba.now.sh
* https://accharplanner-git-master.amoeba.now.sh


Successfully aliased the URL <https://ext-test-site-dda01000a.now.sh> to the following aliases:

* https://ext-test-site.qqq.now.sh
* https://ext-test-site-git-master.qqq.now.sh


The general guidance here in Flutter is to create a new Widget instead of a function that returns a widget (unless there's some complex inline logic that goes into the actual creation of the widget or some form of logic to determine what kind of widget gets created).


Лучше чтобы этот и следующий методы были названы более единообразно. Вроде move_forward, move_backward


I changed this whole set to a Column with a Row inside of it so that the layout is flexibly built and should align on virtually any aspect ratio.


167576747_Issue7381 (Nigusse) - x86_64-Linux-Ubuntu-18.04-cppcheck: OK (0 of 0 tests passed, 0 test warnings)

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


Load_Aggregation (mitchute) - x86_64-MacOS-10.13-clang: Build Failed

Failures:\n

integration Test Summary
 * Passed: 1
 * Failed: 663

regression Test Summary
 * Passed: 660
 * Failed: 2

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


Good point. Yes, we probably should.


167576747_Issue7381 (Nigusse) - x86_64-Linux-Ubuntu-18.04-custom_check: OK (9 of 9 tests passed, 0 test warnings)

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


@oliverchang as fyi. tensorflow needs numpy, it tries a new numpy which fails on needing python >=3.5, so hardcoding an older version of numpy.


я бы цикл написал бы так
```
  while (int value = variable>>shift) {
    counter += value & 1;
    shift++;
  }
```
почему я заюзал вместо
```
    if ((variable >> shift) & 1) {
      counter++;
    }

просто оператор
counter += value & 1;
т.к. в вашем кейсе будут использоваться дополнительные инструкции cmp и jmp. А инструкция add очень легковесная
```


Successfully aliased the URL <https://ext-test-site-9n7406s7w.now.sh> to the following aliases:

* https://ext-test-site.qqq.now.sh
* https://ext-test-site-git-master.qqq.now.sh


Created multidev environment [sfgov#ci-2938](https://dashboard.pantheon.io/sites/91d50373-c4cf-40e4-a646-cb73e16a140c#ci-2938).

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


This was a nice abstraction that removes the need to store a bunch of different FlareControls for each button and respective create/tap handling methods. Keeps it a little more modular/reusable and succinct. I reuse the same FlareWaterTrackButton for the goal inc, goal dec, and reset buttons. You could probably use it for the +/- buttons if you included parameters for size.


sorry for the double post but I think that the point is that, is not that you are allowing me to do anything, like if you would be granting me special privileges or anything is quite literally that you're effectively disallowing me to run a code that it doesn't really have any negligible negative influence on this scene and that is not malicious on intent or anything else. that at the end is the root of this discussion.


I have read document for sdk28,they used library androidx..
How to move to library androidx sir @evanrthomas  ?
Do will explaintbthis ?


Probably the simplest test is to invoke methods that were removed in 0.33, like startActive, but invoke on the interface, not Jaeger tracer.


[R/buildMetadata.R:5:1:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/buildMetadata.R#L5) *style:* **Lines should not be more than 80 characters.**
```r
#' @param isRasterToMatch Logical. Is this(these) layer(s) the \code{rasterToMatch} layers.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/buildMetadata.R:6:1:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/buildMetadata.R#L6) *style:* **Lines should not be more than 80 characters.**
```r
#'        If \code{TRUE}, then this layer can be accessed by \code{rasterToMatch(map)}
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/buildMetadata.R:12:1:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/buildMetadata.R#L12) *style:* **Lines should not be more than 80 characters.**
```r
#'  If \code{TRUE} or a character vector, then this layer will be added to a leaflet map.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/buildMetadata.R:13:1:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/buildMetadata.R#L13) *style:* **Lines should not be more than 80 characters.**
```r
#'  For \code{RasterLayer} object, this will trigger a call to \code{gdal2tiles}, making tiles.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/buildMetadata.R:20:1:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/buildMetadata.R#L20) *style:* **Lines should not be more than 80 characters.**
```r
buildMetadata <- function(metadata, isStudyArea, isRasterToMatch, layerName, obj,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/buildMetadata.R:20:1:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/buildMetadata.R#L20) *style:* **Variable or function name should be snake_case.**
```r
buildMetadata <- function(metadata, isStudyArea, isRasterToMatch, layerName, obj,
^~~~~~~~~~~~~
```
[R/buildMetadata.R:20:37:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/buildMetadata.R#L20) *style:* **Variable or function name should be snake_case.**
```r
buildMetadata <- function(metadata, isStudyArea, isRasterToMatch, layerName, obj,
                                    ^~~~~~~~~~~
```
[R/buildMetadata.R:20:50:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/buildMetadata.R#L20) *style:* **Variable or function name should be snake_case.**
```r
buildMetadata <- function(metadata, isStudyArea, isRasterToMatch, layerName, obj,
                                                 ^~~~~~~~~~~~~~~
```
[R/buildMetadata.R:20:67:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/buildMetadata.R#L20) *style:* **Variable or function name should be snake_case.**
```r
buildMetadata <- function(metadata, isStudyArea, isRasterToMatch, layerName, obj,
                                                                  ^~~~~~~~~
```
[R/buildMetadata.R:21:27:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/buildMetadata.R#L21) *style:* **Variable or function name should be snake_case.**
```r
                          columnNameForLabels, objHash, leaflet, envir, ...) {
                          ^~~~~~~~~~~~~~~~~~~
```
[R/buildMetadata.R:21:48:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/buildMetadata.R#L21) *style:* **Variable or function name should be snake_case.**
```r
                          columnNameForLabels, objHash, leaflet, envir, ...) {
                                               ^~~~~~~
```
[R/buildMetadata.R:22:8:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/buildMetadata.R#L22) *warning:* **no visible global function definition for ‘copy’, Did you mean 'coef'?**
```r
  b <- copy(.singleMetadataNAEntry)
       ^~~~
```
[R/buildMetadata.R:22:13:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/buildMetadata.R#L22) *warning:* **no visible binding for global variable ‘.singleMetadataNAEntry’**
```r
  b <- copy(.singleMetadataNAEntry)
            ^~~~~~~~~~~~~~~~~~~~~~
```
[R/buildMetadata.R:28:5:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/buildMetadata.R#L28) *style:* **Variable or function name should be snake_case.**
```r
    studyAreaNumber <- 1 + NROW(metadata[compareNA(studyArea, TRUE) |
    ^~~~~~~~~~~~~~~
```
[R/buildMetadata.R:29:1:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/buildMetadata.R#L29) *style:* **Lines should not be more than 80 characters.**
```r
                                               (is.numeric(studyArea) & studyArea > 0)])
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/buildMetadata.R:30:5:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/buildMetadata.R#L30) *warning:* **no visible global function definition for ‘set’, Did you mean 'det'?**
```r
    set(b, NULL, "studyArea", studyAreaNumber)
    ^~~
```
[R/buildMetadata.R:31:5:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/buildMetadata.R#L31) *warning:* **no visible global function definition for ‘set’, Did you mean 'det'?**
```r
    set(b, NULL, "area", area)
    ^~~
```
[R/buildMetadata.R:35:5:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/buildMetadata.R#L35) *style:* **Variable or function name should be snake_case.**
```r
    rasterToMatchNumber <- 1 + NROW(metadata[compareNA(rasterToMatch, TRUE) |
    ^~~~~~~~~~~~~~~~~~~
```
[R/buildMetadata.R:36:1:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/buildMetadata.R#L36) *style:* **Lines should not be more than 80 characters.**
```r
                                           (is.numeric(rasterToMatch) & rasterToMatch > 0)])
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/buildMetadata.R:37:5:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/buildMetadata.R#L37) *warning:* **no visible global function definition for ‘set’, Did you mean 'det'?**
```r
    set(b, NULL, "rasterToMatch", rasterToMatchNumber)
    ^~~
```
[R/buildMetadata.R:43:3:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/buildMetadata.R#L43) *warning:* **no visible global function definition for ‘set’, Did you mean 'det'?**
```r
  set(b, NULL, "layerName", layerName)
  ^~~
```
[R/buildMetadata.R:44:3:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/buildMetadata.R#L44) *warning:* **no visible global function definition for ‘set’, Did you mean 'det'?**
```r
  set(b, NULL, "layerType", class(obj))
  ^~~
```
[R/buildMetadata.R:47:7:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/buildMetadata.R#L47) *warning:* **no visible global function definition for ‘set’, Did you mean 'det'?**
```r
      set(b, NULL, "columnNameForLabels", columnNameForLabels)
      ^~~
```
[R/buildMetadata.R:50:3:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/buildMetadata.R#L50) *warning:* **no visible global function definition for ‘set’, Did you mean 'det'?**
```r
  set(b, NULL, "objectHash", objHash)
  ^~~
```
[R/buildMetadata.R:53:5:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/buildMetadata.R#L53) *warning:* **no visible global function definition for ‘set’, Did you mean 'det'?**
```r
    set(b, NULL, "leaflet", leaflet)
    ^~~
```
[R/buildMetadata.R:55:14:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/buildMetadata.R#L55) *warning:* **no visible global function definition for ‘.robustDigest’**
```r
      dig <- .robustDigest(obj)
             ^~~~~~~~~~~~~
```
[R/buildMetadata.R:56:7:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/buildMetadata.R#L56) *style:* **Variable or function name should be snake_case.**
```r
      tilePath <- ifelse(is.na(leaflet), asPath(NA_character_),
      ^~~~~~~~
```
[R/buildMetadata.R:58:7:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/buildMetadata.R#L58) *warning:* **no visible global function definition for ‘set’, Did you mean 'det'?**
```r
      set(b, NULL, "leafletTiles", tilePath)
      ^~~
```
[R/buildMetadata.R:62:3:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/buildMetadata.R#L62) *warning:* **no visible global function definition for ‘set’, Did you mean 'det'?**
```r
  set(b, NULL, "envir", list(list(envir)))
  ^~~
```
[R/buildMetadata.R:66:1:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/buildMetadata.R#L66) *style:* **Lines should not be more than 80 characters.**
```r
    dots <- dots[!unlist(lapply(dots, is.null))] # remove NULL because that isn't added to data.table anyway
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/buildMetadata.R:79:3:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/buildMetadata.R#L79) *style:* **Variable or function name should be snake_case.**
```r
  columnsToAdd <- dots
  ^~~~~~~~~~~~
```
[R/buildMetadata.R:84:1:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/buildMetadata.R#L84) *style:* **Lines should not be more than 80 characters.**
```r
        ## a data.table can't handle all types of objects. need to wrap in a list to stick it there
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/buildMetadata.R:86:9:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/buildMetadata.R#L86) *style:* **Variable or function name should be snake_case.**
```r
        needToSet <- TRUE
        ^~~~~~~~~
```
[R/buildMetadata.R:89:1:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/buildMetadata.R#L89) *style:* **Lines should not be more than 80 characters.**
```r
          needToSet <- tryCatch(set(b, NULL, nta, cta), silent = TRUE, error = function(x) TRUE)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/buildMetadata.R:89:11:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/buildMetadata.R#L89) *style:* **Variable or function name should be snake_case.**
```r
          needToSet <- tryCatch(set(b, NULL, nta, cta), silent = TRUE, error = function(x) TRUE)
          ^~~~~~~~~
```
[R/buildMetadata.R:89:33:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/buildMetadata.R#L89) *warning:* **no visible global function definition for ‘set’, Did you mean 'det'?**
```r
          needToSet <- tryCatch(set(b, NULL, nta, cta), silent = TRUE, error = function(x) TRUE)
                                ^~~
```
[R/GIS.R:7:1:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/GIS.R#L7) *style:* **Lines should not be more than 80 characters.**
```r
#' @return list containing: \code{sizeInHa}, the area; and \code{polyID}, the polygon ID.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/GIS.R:11:1:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/GIS.R#L11) *style:* **Variable or function name should be snake_case.**
```r
areaAndPolyValue <- function(ras) {
^~~~~~~~~~~~~~~~
```
[R/GIS.R:12:3:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/GIS.R#L12) *style:* **Variable or function name should be snake_case.**
```r
  polyIndivSpecies <- gdal_polygonizeR(ras) # 99 seconds with full ras
  ^~~~~~~~~~~~~~~~
```
[R/GIS.R:12:23:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/GIS.R#L12) *warning:* **no visible global function definition for ‘gdal_polygonizeR’**
```r
  polyIndivSpecies <- gdal_polygonizeR(ras) # 99 seconds with full ras
                      ^~~~~~~~~~~~~~~~
```
[R/GIS.R:13:3:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/GIS.R#L13) *style:* **Variable or function name should be snake_case.**
```r
  pArea <- as.numeric(sf::st_area(polyIndivSpecies) / 1e4)
  ^~~~~
```
[R/GIS.R:19:1:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/GIS.R#L19) *style:* **Lines should not be more than 80 characters.**
```r
#' Based on \url{https://johnbaumgartner.wordpress.com/2012/07/26/getting-rasters-into-shape-from-r/}.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/GIS.R:33:1:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/GIS.R#L33) *style:* **Variable or function name should be snake_case.**
```r
gdal_polygonizeR <- function(x, outshape = NULL, gdalformat = "ESRI Shapefile",
^~~~~~~~~~~~~~~~
```
[R/GIS.R:48:1:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/GIS.R#L48) *style:* **Lines should not be more than 80 characters.**
```r
  if (!file.exists(pypath)) stop("Can't find gdal_polygonize.py on your system.")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/GIS.R:56:5:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/GIS.R#L56) *style:* **Variable or function name should be snake_case.**
```r
    f.exists <- file.exists(paste(outshape, c("shp", "shx", "dbf"), sep = "."))
    ^~~~~~~~
```
[R/GIS.R:59:1:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/GIS.R#L59) *style:* **Lines should not be more than 80 characters.**
```r
                   toString(paste(outshape, c("shp", "shx", "dbf"), sep = ".")[f.exists])),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/GIS.R:65:5:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/GIS.R#L65) *warning:* **no visible global function definition for ‘writeRaster’**
```r
    writeRaster(x, rastpath, datatype = assessDataType(x))
    ^~~~~~~~~~~
```
[R/GIS.R:65:41:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/GIS.R#L65) *warning:* **no visible global function definition for ‘assessDataType’**
```r
    writeRaster(x, rastpath, datatype = assessDataType(x))
                                        ^~~~~~~~~~~~~~
```
[R/GIS.R:73:1:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/GIS.R#L73) *style:* **Lines should not be more than 80 characters.**
```r
    shp <- sf::read_sf(dsn = dirname(outshape), layer = basename(file_path_sans_ext(outshape)))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/GIS.R:73:66:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/GIS.R#L73) *warning:* **no visible global function definition for ‘file_path_sans_ext’**
```r
    shp <- sf::read_sf(dsn = dirname(outshape), layer = basename(file_path_sans_ext(outshape)))
                                                                 ^~~~~~~~~~~~~~~~~~
```
[R/GIS.R:74:22:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/GIS.R#L74) *warning:* **no visible global function definition for ‘extent’, Did you mean 'extends'?**
```r
    sf::st_bbox(shp, extent(x))
                     ^~~~~~
```
[R/GIS.R:89:1:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/GIS.R#L89) *style:* **Variable or function name should be snake_case.**
```r
.rasterToMemory <- function(x, ...) {
^~~~~~~~~~~~~~~
```
[R/GIS.R:90:8:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/GIS.R#L90) *warning:* **no visible global function definition for ‘raster’, Did you mean 'paste'?**
```r
  r <- raster(x, ...)
       ^~~~~~
```
[R/GIS.R:108:24:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/GIS.R#L108) *style:* **Variable or function name should be snake_case.**
```r
fasterize2 <- function(emptyRaster, polygonToFasterize, field) {
                       ^~~~~~~~~~~
```
[R/GIS.R:108:37:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/GIS.R#L108) *style:* **Variable or function name should be snake_case.**
```r
fasterize2 <- function(emptyRaster, polygonToFasterize, field) {
                                    ^~~~~~~~~~~~~~~~~~
```
[R/GIS.R:109:10:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/GIS.R#L109) *warning:* **no visible global function definition for ‘raster’, Did you mean 'paste'?**
```r
  ras <- raster(emptyRaster)
         ^~~~~~
```
[R/GIS.R:111:1:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/GIS.R#L111) *style:* **Lines should not be more than 80 characters.**
```r
    polygonToFasterize <- Cache(cropInputs, polygonToFasterize, rasterToMatch = ras)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/GIS.R:111:5:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/GIS.R#L111) *style:* **Variable or function name should be snake_case.**
```r
    polygonToFasterize <- Cache(cropInputs, polygonToFasterize, rasterToMatch = ras)
    ^~~~~~~~~~~~~~~~~~
```
[R/GIS.R:111:27:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/GIS.R#L111) *warning:* **no visible global function definition for ‘Cache’**
```r
    polygonToFasterize <- Cache(cropInputs, polygonToFasterize, rasterToMatch = ras)
                          ^~~~~
```
[R/GIS.R:111:33:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/GIS.R#L111) *warning:* **no visible binding for global variable ‘cropInputs’**
```r
    polygonToFasterize <- Cache(cropInputs, polygonToFasterize, rasterToMatch = ras)
                                ^~~~~~~~~~
```
[R/GIS.R:113:3:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/GIS.R#L113) *style:* **Variable or function name should be snake_case.**
```r
  thePoly <- projectInputs(polygonToFasterize, targetCRS = crs(ras))
  ^~~~~~~
```
[R/GIS.R:113:14:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/GIS.R#L113) *warning:* **no visible global function definition for ‘projectInputs’**
```r
  thePoly <- projectInputs(polygonToFasterize, targetCRS = crs(ras))
             ^~~~~~~~~~~~~
```
[R/GIS.R:113:60:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/GIS.R#L113) *warning:* **no visible global function definition for ‘crs’, Did you mean 'cars'?**
```r
  thePoly <- projectInputs(polygonToFasterize, targetCRS = crs(ras))
                                                           ^~~
```
[R/GIS.R:114:11:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/GIS.R#L114) *style:* **Variable or function name should be snake_case.**
```r
  thePoly$polygonNum <- seq_along(thePoly)
          ^~~~~~~~~~
```
[R/makeTiles.R:1:1:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/makeTiles.R#L1) *style:* **Variable or function name should be snake_case.**
```r
makeTiles <- function(tilePath, obj) {
^~~~~~~~~
```
[R/makeTiles.R:1:23:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/makeTiles.R#L1) *style:* **Variable or function name should be snake_case.**
```r
makeTiles <- function(tilePath, obj) {
                      ^~~~~~~~
```
[R/makeTiles.R:2:3:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/makeTiles.R#L2) *style:* **Variable or function name should be snake_case.**
```r
  dirNotExist <- !dir.exists(tilePath)
  ^~~~~~~~~~~
```
[R/makeTiles.R:4:1:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/makeTiles.R#L4) *style:* **Lines should not be more than 80 characters.**
```r
  if (dirNotExist) { # assume that tilePath is unique for that obj, via .robustDigest
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/makeTiles.R:4:20:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/makeTiles.R#L4) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
  if (dirNotExist) { # assume that tilePath is unique for that obj, via .robustDigest
                   ^
```
[R/makeTiles.R:8:1:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/makeTiles.R#L8) *style:* **Lines should not be more than 80 characters.**
```r
    objLflt <- try(projectRaster(obj, crs = CRS("+init=epsg:4326")), silent = TRUE)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/makeTiles.R:8:5:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/makeTiles.R#L8) *style:* **Variable or function name should be snake_case.**
```r
    objLflt <- try(projectRaster(obj, crs = CRS("+init=epsg:4326")), silent = TRUE)
    ^~~~~~~
```
[R/makeTiles.R:8:20:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/makeTiles.R#L8) *warning:* **no visible global function definition for ‘projectRaster’**
```r
    objLflt <- try(projectRaster(obj, crs = CRS("+init=epsg:4326")), silent = TRUE)
                   ^~~~~~~~~~~~~
```
[R/makeTiles.R:8:45:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/makeTiles.R#L8) *warning:* **no visible global function definition for ‘CRS’, Did you mean 'C'?**
```r
    objLflt <- try(projectRaster(obj, crs = CRS("+init=epsg:4326")), silent = TRUE)
                                            ^~~
```
[R/makeTiles.R:9:5:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/makeTiles.R#L9) *style:* **Variable or function name should be snake_case.**
```r
    tmpFile <- tempfile(fileext = ".tif")
    ^~~~~~~
```
[R/makeTiles.R:10:5:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/makeTiles.R#L10) *style:* **Variable or function name should be snake_case.**
```r
    objLflt <- try(writeRaster(objLflt, tmpFile), silent = TRUE)
    ^~~~~~~
```
[R/makeTiles.R:10:20:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/makeTiles.R#L10) *warning:* **no visible global function definition for ‘writeRaster’**
```r
    objLflt <- try(writeRaster(objLflt, tmpFile), silent = TRUE)
                   ^~~~~~~~~~~
```
[R/makeTiles.R:12:5:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/makeTiles.R#L12) *style:* **Variable or function name should be snake_case.**
```r
    toDo <- TRUE
    ^~~~
```
[R/makeTiles.R:13:5:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/makeTiles.R#L13) *style:* **Variable or function name should be snake_case.**
```r
    tryNum <- 1
    ^~~~~~
```
[R/makeTiles.R:16:1:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/makeTiles.R#L16) *style:* **Lines should not be more than 80 characters.**
```r
      out <- try(tiler::tile(tmpFile, tilePath, zoom = "1-10", crs = CRS("+init=epsg:4326"),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/makeTiles.R:18:7:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/makeTiles.R#L18) *style:* **Variable or function name should be snake_case.**
```r
      toDo <- is(out, "try-error")
      ^~~~
```
[R/makeTiles.R:22:9:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/makeTiles.R#L22) *style:* **Variable or function name should be snake_case.**
```r
        toDo <- TRUE
        ^~~~
```
[R/makeTiles.R:25:7:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/makeTiles.R#L25) *style:* **Variable or function name should be snake_case.**
```r
      tryNum <- tryNum + 1
      ^~~~~~
```
[R/map-analysis.R:17:1:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L17) *style:* **Lines should not be more than 80 characters.**
```r
#'   \code{analysisGroup2} column of the \code{map@@metadata} or a \code{functionName}.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/map-analysis.R:39:1:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L39) *style:* **Variable or function name should be snake_case.**
```r
mapAnalysis <- function(map, functionName = NULL, purgeAnalyses = NULL,
^~~~~~~~~~~
```
[R/map-analysis.R:39:30:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L39) *style:* **Variable or function name should be snake_case.**
```r
mapAnalysis <- function(map, functionName = NULL, purgeAnalyses = NULL,
                             ^~~~~~~~~~~~
```
[R/map-analysis.R:39:51:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L39) *style:* **Variable or function name should be snake_case.**
```r
mapAnalysis <- function(map, functionName = NULL, purgeAnalyses = NULL,
                                                  ^~~~~~~~~~~~~
```
[R/map-analysis.R:40:25:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L40) *style:* **Variable or function name should be snake_case.**
```r
                        useParallel = getOption("map.useParallel"), ...) {
                        ^~~~~~~~~~~
```
[R/map-analysis.R:42:3:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L42) *warning:* **local variable ‘dots’ assigned but may not be used**
```r
  dots <- list(...)
  ^~~~
```
[R/map-analysis.R:54:3:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L54) *style:* **Variable or function name should be snake_case.**
```r
  AGs <- sort(unique(colnames(m)[startsWith(colnames(m), "analysisGroup")]))
  ^~~
```
[R/map-analysis.R:56:31:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L56) *style:* **Variable or function name should be snake_case.**
```r
  ags <- lapply(AGs, function(AG) sort(na.omit(unique(m[[AG]]))))
                              ^~
```
[R/map-analysis.R:58:3:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L58) *style:* **Variable or function name should be snake_case.**
```r
  combosCompleted <- lapply(functionName, function(fn)
  ^~~~~~~~~~~~~~~
```
[R/map-analysis.R:60:4:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L60) *style:* **Commented code should be removed.**
```r
  #combosCompleted <- map@analysesData[[functionName]]$.Completed
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/map-analysis.R:71:3:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L71) *style:* **Variable or function name should be snake_case.**
```r
  combosAll <- expandAnalysisGroups(ags)
  ^~~~~~~~~
```
[R/map-analysis.R:71:16:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L71) *warning:* **no visible global function definition for ‘expandAnalysisGroups’**
```r
  combosAll <- expandAnalysisGroups(ags)
               ^~~~~~~~~~~~~~~~~~~~
```
[R/map-analysis.R:74:1:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L74) *style:* **Lines should not be more than 80 characters.**
```r
  # This is only for the first one to do, as it is just finding the columns required
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/map-analysis.R:76:42:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L76) *style:* **Variable or function name should be snake_case.**
```r
  args1 <- lapply(functionName, function(funName) {
                                         ^~~~~~~
```
[R/map-analysis.R:79:5:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L79) *style:* **Variable or function name should be snake_case.**
```r
    keepArgs <- unlist(lapply(args, function(arg) length(arg) > 0))
    ^~~~~~~~
```
[R/map-analysis.R:83:3:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L83) *style:* **Variable or function name should be snake_case.**
```r
  AGsByFunName <- lapply(functionName, function(funName) {
  ^~~~~~~~~~~~
```
[R/map-analysis.R:83:49:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L83) *style:* **Variable or function name should be snake_case.**
```r
  AGsByFunName <- lapply(functionName, function(funName) {
                                                ^~~~~~~
```
[R/map-analysis.R:88:3:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L88) *style:* **Variable or function name should be snake_case.**
```r
  combosAll <- Map(agsByFunName = AGsByFunName,
  ^~~~~~~~~
```
[R/map-analysis.R:90:29:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L90) *style:* **Variable or function name should be snake_case.**
```r
                   function(agsByFunName, ags) {
                            ^~~~~~~~~~~~
```
[R/map-analysis.R:91:22:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L91) *warning:* **no visible global function definition for ‘expandAnalysisGroups’**
```r
                     expandAnalysisGroups(ags[agsByFunName])
                     ^~~~~~~~~~~~~~~~~~~~
```
[R/map-analysis.R:94:3:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L94) *style:* **Variable or function name should be snake_case.**
```r
  combosToDo <- Map(cc = combosCompleted, ca = combosAll, function(cc, ca) {
  ^~~~~~~~~~
```
[R/map-analysis.R:96:32:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L96) *style:* **Commas should always have a space after.**
```r
      setDT(ca[!ca$all %in% cc,])
                               ^
```
[R/map-analysis.R:101:3:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L101) *style:* **Variable or function name should be snake_case.**
```r
  combosToDo <- Map(ctd = combosToDo, fn = functionName,
  ^~~~~~~~~~
```
[R/map-analysis.R:102:45:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L102) *style:* **Variable or function name should be snake_case.**
```r
                    function(ctd, fn) ctd[, functionName := fn])
                                            ^~~~~~~~~~~~
```
[R/map-analysis.R:103:3:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L103) *style:* **Variable or function name should be snake_case.**
```r
  combosToDoDT <- rbindlist(combosToDo)
  ^~~~~~~~~~~~
```
[R/map-analysis.R:103:19:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L103) *warning:* **no visible global function definition for ‘rbindlist’**
```r
  combosToDoDT <- rbindlist(combosToDo)
                  ^~~~~~~~~
```
[R/map-analysis.R:105:1:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L105) *style:* **Lines should not be more than 80 characters.**
```r
  combosToDo <- combosToDo[!unlist(lapply(combosToDo, function(ctd) NROW(ctd) == 0))]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/map-analysis.R:105:3:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L105) *style:* **Variable or function name should be snake_case.**
```r
  combosToDo <- combosToDo[!unlist(lapply(combosToDo, function(ctd) NROW(ctd) == 0))]
  ^~~~~~~~~~
```
[R/map-analysis.R:108:5:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L108) *style:* **Variable or function name should be snake_case.**
```r
    funNames <- unique(combosToDoDT$functionName)
    ^~~~~~~~
```
[R/map-analysis.R:111:5:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L111) *style:* **Variable or function name should be snake_case.**
```r
    otherFormalsInFunction <- lapply(funNames, function(funName) {
    ^~~~~~~~~~~~~~~~~~~~~~
```
[R/map-analysis.R:111:57:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L111) *style:* **Variable or function name should be snake_case.**
```r
    otherFormalsInFunction <- lapply(funNames, function(funName) {
                                                        ^~~~~~~
```
[R/map-analysis.R:112:7:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L112) *style:* **Variable or function name should be snake_case.**
```r
      otherFormalsInFunction <- formalArgs(funName)[formalArgs(funName) %in%
      ^~~~~~~~~~~~~~~~~~~~~~
```
[R/map-analysis.R:125:7:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L125) *style:* **Commented code should be removed.**
```r
    # browser()
      ^~~~~~~~~
```
[R/map-analysis.R:126:11:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L126) *warning:* **no visible global function definition for ‘makeOptimalCluster’**
```r
    cl <- makeOptimalCluster(useParallel, maxNumClusters = NROW(combosToDoDT))
          ^~~~~~~~~~~~~~~~~~
```
[R/map-analysis.R:127:17:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L127) *warning:* **no visible global function definition for ‘stopCluster’**
```r
    on.exit(try(stopCluster(cl), silent = TRUE))
                ^~~~~~~~~~~
```
[R/map-analysis.R:129:5:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L129) *style:* **Variable or function name should be snake_case.**
```r
    combosToDoList <- split(combosToDoDT, combosToDoDT$all)
    ^~~~~~~~~~~~~~
```
[R/map-analysis.R:132:20:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L132) *style:* **Variable or function name should be snake_case.**
```r
                   funName <- combo$functionName
                   ^~~~~~~
```
[R/map-analysis.R:134:1:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L134) *style:* **Lines should not be more than 80 characters.**
```r
                                                   combo = combo, AGs = AGs, funName = funName)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/map-analysis.R:137:20:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L137) *style:* **Variable or function name should be snake_case.**
```r
                   fnOut <- do.call(Cache,
                   ^~~~~
```
[R/map-analysis.R:140:1:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L140) *style:* **Lines should not be more than 80 characters.**
```r
                                                         otherFormalsInFunction[[funName]])))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/map-analysis.R:145:7:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L145) *style:* **Variable or function name should be snake_case.**
```r
      fromFunName <- combosToDoDT$functionName == funName
      ^~~~~~~~~~~
```
[R/map-analysis.R:147:35:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L147) *style:* **Variable or function name should be snake_case.**
```r
      map@analysesData[[funName]]$.Completed <- names(out3[fromFunName])
                                  ^~~~~~~~~~
```
[R/map-analysis.R:150:1:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L150) *style:* **Lines should not be more than 80 characters.**
```r
    message("  ", paste(functionName, collapse = ", "), " already run on all layers")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/map-analysis.R:168:1:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L168) *style:* **Variable or function name should be snake_case.**
```r
mapAddAnalysis <- function(map, functionName,
^~~~~~~~~~~~~~
```
[R/map-analysis.R:168:33:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L168) *style:* **Variable or function name should be snake_case.**
```r
mapAddAnalysis <- function(map, functionName,
                                ^~~~~~~~~~~~
```
[R/map-analysis.R:169:1:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L169) *style:* **Lines should not be more than 80 characters.**
```r
                           useParallel = getOption("map.useParallel", FALSE), ...) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/map-analysis.R:169:28:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L169) *style:* **Variable or function name should be snake_case.**
```r
                           useParallel = getOption("map.useParallel", FALSE), ...) {
                           ^~~~~~~~~~~
```
[R/map-analysis.R:171:8:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L171) *warning:* **no visible global function definition for ‘data.table’**
```r
  b <- data.table(functionName = functionName, t(dots))
       ^~~~~~~~~~
```
[R/map-analysis.R:172:3:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L172) *style:* **Variable or function name should be snake_case.**
```r
  prevEntry <- map@analyses$functionName == functionName
  ^~~~~~~~~
```
[R/map-analysis.R:173:3:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L173) *style:* **Variable or function name should be snake_case.**
```r
  purgeAnalyses <- NULL # Set default as NULL
  ^~~~~~~~~~~~~
```
[R/map-analysis.R:174:3:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L174) *style:* **Variable or function name should be snake_case.**
```r
  newDigest <- fastdigest::fastdigest(
  ^~~~~~~~~
```
[R/map-analysis.R:178:3:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L178) *warning:* **no visible global function definition for ‘set’, Did you mean 'det'?**
```r
  set(b, NULL, "argHash", newDigest)
  ^~~
```
[R/map-analysis.R:179:3:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L179) *style:* **Variable or function name should be snake_case.**
```r
  doRbindlist <- TRUE
  ^~~~~~~~~~~
```
[R/map-analysis.R:182:1:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L182) *style:* **Lines should not be more than 80 characters.**
```r
      message("An analysis called ", functionName, " already added to map obj; ",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/map-analysis.R:184:7:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L184) *style:* **Variable or function name should be snake_case.**
```r
      purgeAnalyses <- functionName
      ^~~~~~~~~~~~~
```
[R/map-analysis.R:187:7:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L187) *style:* **Variable or function name should be snake_case.**
```r
      doRbindlist <- FALSE
      ^~~~~~~~~~~
```
[R/map-analysis.R:188:1:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L188) *style:* **Lines should not be more than 80 characters.**
```r
      message("An analysis called ", functionName, " with identical function and ",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/map-analysis.R:194:1:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L194) *style:* **Lines should not be more than 80 characters.**
```r
    map@analyses <- rbindlist(list(map@analyses, b), fill = TRUE, use.names = TRUE)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/map-analysis.R:196:1:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L196) *style:* **Lines should not be more than 80 characters.**
```r
  map <- runMapAnalyses(map = map, purgeAnalyses = purgeAnalyses, useParallel = useParallel)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/map-analysis.R:196:10:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L196) *warning:* **no visible global function definition for ‘runMapAnalyses’**
```r
  map <- runMapAnalyses(map = map, purgeAnalyses = purgeAnalyses, useParallel = useParallel)
         ^~~~~~~~~~~~~~
```
[R/map-analysis.R:210:1:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L210) *style:* **Lines should not be more than 80 characters.**
```r
#'   \code{analysisGroups} i.e., \code{"analysisGroup1"} or \code{"analysisGroup2"}
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/map-analysis.R:223:1:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L223) *style:* **Lines should not be more than 80 characters.**
```r
mapAddPostHocAnalysis <- function(map, functionName, postHocAnalysisGroups = NULL,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/map-analysis.R:223:1:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L223) *style:* **Variable or function name should be snake_case.**
```r
mapAddPostHocAnalysis <- function(map, functionName, postHocAnalysisGroups = NULL,
^~~~~~~~~~~~~~~~~~~~~
```
[R/map-analysis.R:223:40:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L223) *style:* **Variable or function name should be snake_case.**
```r
mapAddPostHocAnalysis <- function(map, functionName, postHocAnalysisGroups = NULL,
                                       ^~~~~~~~~~~~
```
[R/map-analysis.R:223:54:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L223) *style:* **Variable or function name should be snake_case.**
```r
mapAddPostHocAnalysis <- function(map, functionName, postHocAnalysisGroups = NULL,
                                                     ^~~~~~~~~~~~~~~~~~~~~
```
[R/map-analysis.R:224:35:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L224) *style:* **Variable or function name should be snake_case.**
```r
                                  postHocAnalyses = "all",
                                  ^~~~~~~~~~~~~~~
```
[R/map-analysis.R:225:35:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L225) *style:* **Variable or function name should be snake_case.**
```r
                                  useParallel = getOption("map.useParallel"),
                                  ^~~~~~~~~~~
```
[R/map-analysis.R:230:1:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L230) *style:* **Lines should not be more than 80 characters.**
```r
    stop("postHocAnalysisGroups cannot be NULL. It should be one of the column names ",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/map-analysis.R:232:1:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L232) *style:* **Lines should not be more than 80 characters.**
```r
  b <- data.table(functionName = functionName, postHocAnalysisGroups = postHocAnalysisGroups,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/map-analysis.R:235:10:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L235) *warning:* **no visible global function definition for ‘data.table’**
```r
    b <- data.table(b, t(dots))
         ^~~~~~~~~~
```
[R/map-analysis.R:237:3:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L237) *style:* **Variable or function name should be snake_case.**
```r
  prevEntry <- map@analyses$functionName == functionName
  ^~~~~~~~~
```
[R/map-analysis.R:238:3:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L238) *style:* **Variable or function name should be snake_case.**
```r
  purgeAnalyses <- NULL # Set default as NULL
  ^~~~~~~~~~~~~
```
[R/map-analysis.R:239:3:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L239) *style:* **Variable or function name should be snake_case.**
```r
  newDigest <- fastdigest::fastdigest(
  ^~~~~~~~~
```
[R/map-analysis.R:243:3:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L243) *warning:* **no visible global function definition for ‘set’, Did you mean 'det'?**
```r
  set(b, NULL, "argHash", newDigest)
  ^~~
```
[R/map-analysis.R:244:3:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L244) *style:* **Variable or function name should be snake_case.**
```r
  doRbindlist <- TRUE
  ^~~~~~~~~~~
```
[R/map-analysis.R:247:1:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L247) *style:* **Lines should not be more than 80 characters.**
```r
      message("An analysis called ", functionName, " already added to map obj; ",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/map-analysis.R:249:7:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L249) *style:* **Variable or function name should be snake_case.**
```r
      purgeAnalyses <- functionName
      ^~~~~~~~~~~~~
```
[R/map-analysis.R:252:7:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L252) *style:* **Variable or function name should be snake_case.**
```r
      doRbindlist <- FALSE
      ^~~~~~~~~~~
```
[R/map-analysis.R:253:1:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L253) *style:* **Lines should not be more than 80 characters.**
```r
      message("An analysis called, ", functionName, " with identical function and ",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/map-analysis.R:259:1:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L259) *style:* **Lines should not be more than 80 characters.**
```r
    map@analyses <- rbindlist(list(map@analyses, b), fill = TRUE, use.names = TRUE)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/map-analysis.R:261:1:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L261) *style:* **Lines should not be more than 80 characters.**
```r
  map <- runMapAnalyses(map = map, purgeAnalyses = purgeAnalyses, useParallel = useParallel)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/map-analysis.R:261:10:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L261) *warning:* **no visible global function definition for ‘runMapAnalyses’**
```r
  map <- runMapAnalyses(map = map, purgeAnalyses = purgeAnalyses, useParallel = useParallel)
         ^~~~~~~~~~~~~~
```
[R/map-analysis.R:266:1:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L266) *style:* **Variable or function name should be snake_case.**
```r
runMapAnalyses <- function(map, purgeAnalyses = NULL,
^~~~~~~~~~~~~~
```
[R/map-analysis.R:266:33:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L266) *style:* **Variable or function name should be snake_case.**
```r
runMapAnalyses <- function(map, purgeAnalyses = NULL,
                                ^~~~~~~~~~~~~
```
[R/map-analysis.R:267:28:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L267) *style:* **Variable or function name should be snake_case.**
```r
                           useParallel = getOption("map.useParallel")) {
                           ^~~~~~~~~~~
```
[R/map-analysis.R:268:3:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L268) *style:* **Variable or function name should be snake_case.**
```r
  isPostHoc <- if (is.null(map@analyses$postHoc)) {
  ^~~~~~~~~
```
[R/map-analysis.R:271:5:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L271) *warning:* **no visible global function definition for ‘compareNA’**
```r
    compareNA(map@analyses$postHoc, TRUE)
    ^~~~~~~~~
```
[R/map-analysis.R:276:5:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L276) *style:* **Variable or function name should be snake_case.**
```r
    funName <- map@analyses$functionName[!isPostHoc]
    ^~~~~~~
```
[R/map-analysis.R:277:12:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L277) *warning:* **no visible global function definition for ‘mapAnalysis’**
```r
    map <- mapAnalysis(map, funName, purgeAnalyses = purgeAnalyses)
           ^~~~~~~~~~~
```
[R/map-analysis.R:287:1:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L287) *style:* **Lines should not be more than 80 characters.**
```r
           forms <- forms[!forms %in% c("map", "functionName", "analysisGroups")]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/map-analysis.R:298:1:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L298) *style:* **Lines should not be more than 80 characters.**
```r
                                                            analysisGroups = x$postHocAnalysisGroups),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/map-analysis.R:299:1:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L299) *style:* **Lines should not be more than 80 characters.**
```r
                                                       unlist(as.list(x[ , forms, with = FALSE]))))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/map-analysis.R:299:73:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L299) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
                                                       unlist(as.list(x[ , forms, with = FALSE]))))
                                                                        ^
```
[R/map-analysis.R:299:74:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L299) *style:* **Commas should never have a space before.**
```r
                                                       unlist(as.list(x[ , forms, with = FALSE]))))
                                                                        ~^
```
[R/map-analysis.R:313:1:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L313) *style:* **Variable or function name should be snake_case.**
```r
getFormalsFromMetadata <- function(metadata, combo, AGs, funName) {
^~~~~~~~~~~~~~~~~~~~~~
```
[R/map-analysis.R:313:53:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L313) *style:* **Variable or function name should be snake_case.**
```r
getFormalsFromMetadata <- function(metadata, combo, AGs, funName) {
                                                    ^~~
```
[R/map-analysis.R:313:58:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L313) *style:* **Variable or function name should be snake_case.**
```r
getFormalsFromMetadata <- function(metadata, combo, AGs, funName) {
                                                         ^~~~~~~
```
[R/map-analysis.R:314:1:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L314) *style:* **Lines should not be more than 80 characters.**
```r
  formalsInFunction <- formalArgs(funName)[formalArgs(funName) %in% colnames(metadata)]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/map-analysis.R:314:3:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L314) *style:* **Variable or function name should be snake_case.**
```r
  formalsInFunction <- formalArgs(funName)[formalArgs(funName) %in% colnames(metadata)]
  ^~~~~~~~~~~~~~~~~
```
[R/map-analysis.R:316:32:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L316) *style:* **Variable or function name should be snake_case.**
```r
  args <- lapply(AGs, function(AG) {
                               ^~
```
[R/map-analysis.R:330:4:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L330) *style:* **Commented code should be removed.**
```r
  #args <- unlist(unname(args), recursive = FALSE)
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/map-analysis.R:335:1:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L335) *style:* **Variable or function name should be snake_case.**
```r
expandAnalysisGroups <- function(ags) {
^~~~~~~~~~~~~~~~~~~~
```
[R/map-analysis.R:336:3:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L336) *style:* **Variable or function name should be snake_case.**
```r
  combosAll <- NULL
  ^~~~~~~~~
```
[R/map-analysis.R:338:1:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L338) *style:* **Lines should not be more than 80 characters.**
```r
    combosAll <- do.call(expand.grid, args = append(list(stringsAsFactors = FALSE),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/map-analysis.R:338:5:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-analysis.R#L338) *style:* **Variable or function name should be snake_case.**
```r
    combosAll <- do.call(expand.grid, args = append(list(stringsAsFactors = FALSE),
    ^~~~~~~~~
```
[R/map-class.R:6:1:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-class.R#L6) *style:* **Lines should not be more than 80 characters.**
```r
#' @slot metadata  \code{data.table} with columns describing metadata of map objects in
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/map-class.R:9:1:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-class.R#L9) *style:* **Lines should not be more than 80 characters.**
```r
#' @slot .xData Named environment of map-type objects (e.g., \code{sf}, \code{Raster*},
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/map-class.R:10:1:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-class.R#L10) *style:* **Lines should not be more than 80 characters.**
```r
#'            \code{Spatial*}. Each entry may also be simply an environment, which
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/map-class.R:11:1:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-class.R#L11) *style:* **Lines should not be more than 80 characters.**
```r
#'            indicates where to find the object, i.e., via \code{get(layerName, envir = environment)}
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/map-class.R:15:1:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-class.R#L15) *style:* **Lines should not be more than 80 characters.**
```r
#' @slot paths File paths. A named list of paths. The default is a list of length 2,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/map-class.R:18:1:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-class.R#L18) *style:* **Lines should not be more than 80 characters.**
```r
#' @slot analyses    A \code{data.table} or \code{data.frame} of the types of analyses to perform.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/map-class.R:20:1:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-class.R#L20) *style:* **Lines should not be more than 80 characters.**
```r
#' @slot analysesData A \code{data.table} or \code{data.frame} of the results of the analyses.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/map-class.R:41:1:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-class.R#L41) *style:* **Lines should not be more than 80 characters.**
```r
  #             c(layerName = "character", layerType = "character", columnNameForLabels = "character",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/map-class.R:42:1:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-class.R#L42) *style:* **Lines should not be more than 80 characters.**
```r
  #               leaflet = "character", studyArea = "numeric", rasterToMatch = "logical"))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/map-class.R:47:20:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-class.R#L47) *style:* **Variable or function name should be snake_case.**
```r
          function(.Object, ...) {
                   ^~~~~~~
```
[R/map-class.R:48:13:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-class.R#L48) *style:* **Variable or function name should be snake_case.**
```r
            .Object <- callNextMethod()
            ^~~~~~~
```
[R/map-class.R:49:1:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-class.R#L49) *style:* **Lines should not be more than 80 characters.**
```r
            .Object@metadata <- data.table(layerName = character(), layerType = character(),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/map-class.R:52:1:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-class.R#L52) *style:* **Lines should not be more than 80 characters.**
```r
                                           studyArea = numeric(), rasterToMatch = logical())
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/map-class.R:54:1:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map-class.R#L54) *style:* **Lines should not be more than 80 characters.**
```r
            .Object@analyses <- data.table::data.table(functionName = character())#, quotedFn = character())
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/map.R:2:1:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map.R#L2) *style:* **Lines should not be more than 80 characters.**
```r
  utils::globalVariables(c(".", ":=", ".I", ".N", ".SD", "envir", "layerName", "objectHash"))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/map.R:17:1:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map.R#L17) *style:* **Lines should not be more than 80 characters.**
```r
#' @param layerName Required. A label for this map layer. This can be the same as
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/map.R:26:1:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map.R#L26) *style:* **Lines should not be more than 80 characters.**
```r
#'  If \code{TRUE} or a character vector, then this layer will be added to a leaflet map.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/map.R:27:1:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map.R#L27) *style:* **Lines should not be more than 80 characters.**
```r
#'  For \code{RasterLayer} object, this will trigger a call to \code{gdal2tiles}, making tiles.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/map.R:69:1:](https://github.com/PredictiveEcology/map/blob/e4c6d640e1ef86dc37d5dd20d96319fb3a42fbc9/R/map.R#L69) *style:* **Lines should not be more than 80 characters.**
```r
#'                layerName = "Smaller Study Area") # adds a second studyArea within 1st
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```