[R/boxPlots.R:2:1:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/boxPlots.R#L2) *style:* **Lines should not be more than 80 characters.**
```r
  utils::globalVariables(c("ageClass", "group", "proportionCC", "totalPixels", "vegCover", "zone"))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/boxPlots.R:8:1:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/boxPlots.R#L8) *style:* **Lines should not be more than 80 characters.**
```r
.doPlotBoxplot <- function(data, CCpnts = NULL, authStatus, fname = NULL, ageClasses, ...) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/boxPlots.R:8:1:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/boxPlots.R#L8) *style:* **Variable or function name should be snake_case.**
```r
.doPlotBoxplot <- function(data, CCpnts = NULL, authStatus, fname = NULL, ageClasses, ...) {
^~~~~~~~~~~~~~
```
[R/boxPlots.R:8:34:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/boxPlots.R#L8) *style:* **Variable or function name should be snake_case.**
```r
.doPlotBoxplot <- function(data, CCpnts = NULL, authStatus, fname = NULL, ageClasses, ...) {
                                 ^~~~~~
```
[R/boxPlots.R:8:49:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/boxPlots.R#L8) *style:* **Variable or function name should be snake_case.**
```r
.doPlotBoxplot <- function(data, CCpnts = NULL, authStatus, fname = NULL, ageClasses, ...) {
                                                ^~~~~~~~~~
```
[R/boxPlots.R:8:75:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/boxPlots.R#L8) *style:* **Variable or function name should be snake_case.**
```r
.doPlotBoxplot <- function(data, CCpnts = NULL, authStatus, fname = NULL, ageClasses, ...) {
                                                                          ^~~~~~~~~~
```
[R/boxPlots.R:13:1:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/boxPlots.R#L13) *style:* **Lines should not be more than 80 characters.**
```r
    if (length(CCpnts) == 4) warning("length(CCpnts) != 4; only the first 4 will be used")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/boxPlots.R:35:1:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/boxPlots.R#L35) *style:* **Variable or function name should be snake_case.**
```r
runBoxPlotsVegCover <- function(map, functionName, analysisGroups, dPath) {
^~~~~~~~~~~~~~~~~~~
```
[R/boxPlots.R:35:38:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/boxPlots.R#L35) *style:* **Variable or function name should be snake_case.**
```r
runBoxPlotsVegCover <- function(map, functionName, analysisGroups, dPath) {
                                     ^~~~~~~~~~~~
```
[R/boxPlots.R:35:52:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/boxPlots.R#L35) *style:* **Variable or function name should be snake_case.**
```r
runBoxPlotsVegCover <- function(map, functionName, analysisGroups, dPath) {
                                                   ^~~~~~~~~~~~~~
```
[R/boxPlots.R:35:68:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/boxPlots.R#L35) *style:* **Variable or function name should be snake_case.**
```r
runBoxPlotsVegCover <- function(map, functionName, analysisGroups, dPath) {
                                                                   ^~~~~
```
[R/boxPlots.R:36:3:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/boxPlots.R#L36) *style:* **Variable or function name should be snake_case.**
```r
  ageClasses <- c("Young", "Immature", "Mature", "Old")
  ^~~~~~~~~~
```
[R/boxPlots.R:37:3:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/boxPlots.R#L37) *style:* **Variable or function name should be snake_case.**
```r
  allRepPolys <- na.omit(map@metadata[[analysisGroups]])
  ^~~~~~~~~~~
```
[R/boxPlots.R:41:1:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/boxPlots.R#L41) *style:* **Lines should not be more than 80 characters.**
```r
    allData <- map@analysesData[[functionName]][["LeadingVegTypeByAgeClass"]][[poly]]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/boxPlots.R:41:5:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/boxPlots.R#L41) *style:* **Variable or function name should be snake_case.**
```r
    allData <- map@analysesData[[functionName]][["LeadingVegTypeByAgeClass"]][[poly]]
    ^~~~~~~
```
[R/boxPlots.R:43:7:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/boxPlots.R#L43) *style:* **Variable or function name should be snake_case.**
```r
      allData <- map@analysesData[[functionName]][[poly]] ## TODO: fix upstream
      ^~~~~~~
```
[R/boxPlots.R:44:5:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/boxPlots.R#L44) *style:* **Variable or function name should be snake_case.**
```r
    allData <- unique(allData) ## remove duplicates; with LandWeb#89
    ^~~~~~~
```
[R/boxPlots.R:45:13:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/boxPlots.R#L45) *style:* **Variable or function name should be snake_case.**
```r
    allData$vegCover <- gsub(" leading", "", allData$vegCover) %>%
            ^~~~~~~~
```
[R/boxPlots.R:48:13:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/boxPlots.R#L48) *style:* **Variable or function name should be snake_case.**
```r
    allData$ageClass <- factor(allData$ageClass, ageClasses)
            ^~~~~~~~
```
[R/boxPlots.R:50:34:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/boxPlots.R#L50) *warning:* **no visible binding for global variable ‘group’, Did you mean 'drop'?**
```r
    data <- allData[!grepl("CC", group)]
                                 ^~~~~
```
[R/boxPlots.R:52:5:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/boxPlots.R#L52) *style:* **Variable or function name should be snake_case.**
```r
    dataCC <- allData[grepl("CC", group)]
    ^~~~~~
```
[R/boxPlots.R:52:35:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/boxPlots.R#L52) *warning:* **no visible binding for global variable ‘group’, Did you mean 'drop'?**
```r
    dataCC <- allData[grepl("CC", group)]
                                  ^~~~~
```
[R/boxPlots.R:53:1:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/boxPlots.R#L53) *style:* **Lines should not be more than 80 characters.**
```r
    setnames(dataCC, "proportion", "proportionCC") ## rename the column to proportionCC
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/boxPlots.R:53:5:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/boxPlots.R#L53) *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:54:5:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/boxPlots.R#L54) *style:* **Variable or function name should be snake_case.**
```r
    dataCC <- dataCC[, c("group", "label", "NPixels") := list(NULL, NULL, NULL)]
    ^~~~~~
```
[R/boxPlots.R:54:55:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/boxPlots.R#L54) *warning:* **no visible global function definition for ‘:=’, Did you mean ':'?**
```r
    dataCC <- dataCC[, c("group", "label", "NPixels") := list(NULL, NULL, NULL)]
                                                      ^~
```
[R/boxPlots.R:56:32:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/boxPlots.R#L56) *warning:* **no visible global function definition for ‘.’, Did you mean 'C'?**
```r
    data2 <- dataCC[data, on = .(zone, vegCover, ageClass)]
                               ^
```
[R/boxPlots.R:56:34:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/boxPlots.R#L56) *warning:* **no visible binding for global variable ‘zone’, Did you mean 'line'?**
```r
    data2 <- dataCC[data, on = .(zone, vegCover, ageClass)]
                                 ^~~~
```
[R/boxPlots.R:56:40:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/boxPlots.R#L56) *warning:* **no visible binding for global variable ‘vegCover’**
```r
    data2 <- dataCC[data, on = .(zone, vegCover, ageClass)]
                                       ^~~~~~~~
```
[R/boxPlots.R:56:50:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/boxPlots.R#L56) *warning:* **no visible binding for global variable ‘ageClass’, Did you mean 'ageClasses'?**
```r
    data2 <- dataCC[data, on = .(zone, vegCover, ageClass)]
                                                 ^~~~~~~~
```
[R/boxPlots.R:59:1:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/boxPlots.R#L59) *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:60:13:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/boxPlots.R#L60) *style:* **Variable or function name should be snake_case.**
```r
    data2[, totalPixels := mean(base::sum(.SD, na.rm = TRUE) / 2),
            ^~~~~~~~~~~
```
[R/boxPlots.R:63:1:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/boxPlots.R#L63) *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:64:5:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/boxPlots.R#L64) *style:* **Variable or function name should be snake_case.**
```r
    saveDir <- checkPath(file.path(dPath, poly), create = TRUE)
    ^~~~~~~
```
[R/boxPlots.R:64:5:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/boxPlots.R#L64) *warning:* **local variable ‘saveDir’ assigned but may not be used**
```r
    saveDir <- checkPath(file.path(dPath, poly), create = TRUE)
    ^~~~~~~
```
[R/boxPlots.R:64:16:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/boxPlots.R#L64) *warning:* **no visible global function definition for ‘checkPath’**
```r
    saveDir <- checkPath(file.path(dPath, poly), create = TRUE)
               ^~~~~~~~~
```
[R/boxPlots.R:65:1:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/boxPlots.R#L65) *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:65:5:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/boxPlots.R#L65) *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:74:1:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/boxPlots.R#L74) *style:* **Lines should not be more than 80 characters.**
```r
                                    main = unique(paste(zone, vegCover, collapse = "_")),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/boxPlots.R:75:1:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/boxPlots.R#L75) *style:* **Lines should not be more than 80 characters.**
```r
                                    xlab = paste0("Proportion of of forest area (total ",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/boxPlots.R:78:1:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/boxPlots.R#L78) *style:* **Lines should not be more than 80 characters.**
```r
                                                    res(rasterToMatch(map))[2] / 1e4,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/boxPlots.R:84:1:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/boxPlots.R#L84) *style:* **Lines should not be more than 80 characters.**
```r
      .SDcols = c("ageClass", "proportion", "proportionCC", "NPixels"), by = slices]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/buildMetadata.R:5:1:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/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/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/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:16:1:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/buildMetadata.R#L16) *style:* **Lines should not be more than 80 characters.**
```r
buildMetadata <- function(metadata, isStudyArea, isRasterToMatch, layerName, obj,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/buildMetadata.R:16:1:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/buildMetadata.R#L16) *style:* **Variable or function name should be snake_case.**
```r
buildMetadata <- function(metadata, isStudyArea, isRasterToMatch, layerName, obj,
^~~~~~~~~~~~~
```
[R/buildMetadata.R:16:37:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/buildMetadata.R#L16) *style:* **Variable or function name should be snake_case.**
```r
buildMetadata <- function(metadata, isStudyArea, isRasterToMatch, layerName, obj,
                                    ^~~~~~~~~~~
```
[R/buildMetadata.R:16:50:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/buildMetadata.R#L16) *style:* **Variable or function name should be snake_case.**
```r
buildMetadata <- function(metadata, isStudyArea, isRasterToMatch, layerName, obj,
                                                 ^~~~~~~~~~~~~~~
```
[R/buildMetadata.R:16:67:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/buildMetadata.R#L16) *style:* **Variable or function name should be snake_case.**
```r
buildMetadata <- function(metadata, isStudyArea, isRasterToMatch, layerName, obj,
                                                                  ^~~~~~~~~
```
[R/buildMetadata.R:17:27:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/buildMetadata.R#L17) *style:* **Variable or function name should be snake_case.**
```r
                          columnNameForLabels, objHash, leaflet, envir, ...) {
                          ^~~~~~~~~~~~~~~~~~~
```
[R/buildMetadata.R:17:48:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/buildMetadata.R#L17) *style:* **Variable or function name should be snake_case.**
```r
                          columnNameForLabels, objHash, leaflet, envir, ...) {
                                               ^~~~~~~
```
[R/buildMetadata.R:19:8:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/buildMetadata.R#L19) *warning:* **no visible global function definition for ‘copy’, Did you mean 'coef'?**
```r
  b <- copy(.singleMetadataNAEntry)
       ^~~~
```
[R/buildMetadata.R:19:13:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/buildMetadata.R#L19) *warning:* **no visible binding for global variable ‘.singleMetadataNAEntry’**
```r
  b <- copy(.singleMetadataNAEntry)
            ^~~~~~~~~~~~~~~~~~~~~~
```
[R/buildMetadata.R:25:5:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/buildMetadata.R#L25) *style:* **Variable or function name should be snake_case.**
```r
    studyAreaNumber <- 1 + NROW(metadata[compareNA(studyArea, TRUE) |
    ^~~~~~~~~~~~~~~
```
[R/buildMetadata.R:26:1:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/buildMetadata.R#L26) *style:* **Lines should not be more than 80 characters.**
```r
                                               (is.numeric(studyArea) & studyArea > 0)])
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/buildMetadata.R:27:5:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/buildMetadata.R#L27) *warning:* **no visible global function definition for ‘set’, Did you mean 'det'?**
```r
    set(b, NULL, "studyArea", studyAreaNumber)
    ^~~
```
[R/buildMetadata.R:28:5:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/buildMetadata.R#L28) *warning:* **no visible global function definition for ‘set’, Did you mean 'det'?**
```r
    set(b, NULL, "area", area)
    ^~~
```
[R/buildMetadata.R:31:5:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/buildMetadata.R#L31) *style:* **Variable or function name should be snake_case.**
```r
    rasterToMatchNumber <- 1 + NROW(metadata[compareNA(rasterToMatch, TRUE) |
    ^~~~~~~~~~~~~~~~~~~
```
[R/buildMetadata.R:32:1:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/buildMetadata.R#L32) *style:* **Lines should not be more than 80 characters.**
```r
                                           (is.numeric(rasterToMatch) & rasterToMatch > 0)])
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/buildMetadata.R:33:5:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/buildMetadata.R#L33) *warning:* **no visible global function definition for ‘set’, Did you mean 'det'?**
```r
    set(b, NULL, "rasterToMatch", rasterToMatchNumber)
    ^~~
```
[R/buildMetadata.R:38:3:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/buildMetadata.R#L38) *warning:* **no visible global function definition for ‘set’, Did you mean 'det'?**
```r
  set(b, NULL, "layerName", layerName)
  ^~~
```
[R/buildMetadata.R:39:3:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/buildMetadata.R#L39) *warning:* **no visible global function definition for ‘set’, Did you mean 'det'?**
```r
  set(b, NULL, "layerType", class(obj))
  ^~~
```
[R/buildMetadata.R:42:7:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/buildMetadata.R#L42) *warning:* **no visible global function definition for ‘set’, Did you mean 'det'?**
```r
      set(b, NULL, "columnNameForLabels", columnNameForLabels)
      ^~~
```
[R/buildMetadata.R:45:3:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/buildMetadata.R#L45) *warning:* **no visible global function definition for ‘set’, Did you mean 'det'?**
```r
  set(b, NULL, "objectHash", objHash)
  ^~~
```
[R/buildMetadata.R:48:5:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/buildMetadata.R#L48) *warning:* **no visible global function definition for ‘set’, Did you mean 'det'?**
```r
    set(b, NULL, "leaflet", leaflet)
    ^~~
```
[R/buildMetadata.R:50:14:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/buildMetadata.R#L50) *warning:* **no visible global function definition for ‘.robustDigest’**
```r
      dig <- .robustDigest(obj)
             ^~~~~~~~~~~~~
```
[R/buildMetadata.R:51:1:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/buildMetadata.R#L51) *style:* **Lines should not be more than 80 characters.**
```r
      tilePath <- asPath(file.path(leaflet, paste0("tiles_", layerName, "_", substr(dig, 1,6))))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/buildMetadata.R:51:7:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/buildMetadata.R#L51) *style:* **Variable or function name should be snake_case.**
```r
      tilePath <- asPath(file.path(leaflet, paste0("tiles_", layerName, "_", substr(dig, 1,6))))
      ^~~~~~~~
```
[R/buildMetadata.R:51:19:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/buildMetadata.R#L51) *warning:* **no visible global function definition for ‘asPath’**
```r
      tilePath <- asPath(file.path(leaflet, paste0("tiles_", layerName, "_", substr(dig, 1,6))))
                  ^~~~~~
```
[R/buildMetadata.R:51:92:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/buildMetadata.R#L51) *style:* **Commas should always have a space after.**
```r
      tilePath <- asPath(file.path(leaflet, paste0("tiles_", layerName, "_", substr(dig, 1,6))))
                                                                                ^
```
[R/buildMetadata.R:52:7:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/buildMetadata.R#L52) *warning:* **no visible global function definition for ‘set’, Did you mean 'det'?**
```r
      set(b, NULL, "leafletTiles", tilePath)
      ^~~
```
[R/buildMetadata.R:56:3:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/buildMetadata.R#L56) *warning:* **no visible global function definition for ‘set’, Did you mean 'det'?**
```r
  set(b, NULL, "envir", list(list(envir)))
  ^~~
```
[R/buildMetadata.R:60:1:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/buildMetadata.R#L60) *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:73:3:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/buildMetadata.R#L73) *style:* **Variable or function name should be snake_case.**
```r
  columnsToAdd <- dots
  ^~~~~~~~~~~~
```
[R/buildMetadata.R:81:9:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/buildMetadata.R#L81) *style:* **Variable or function name should be snake_case.**
```r
        needToSet <- TRUE
        ^~~~~~~~~
```
[R/buildMetadata.R:84:11:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/buildMetadata.R#L84) *style:* **Variable or function name should be snake_case.**
```r
          needToSet <- tryCatch(set(b, NULL, nta, cta), silent = TRUE,
          ^~~~~~~~~
```
[R/largePatches.R:21:1:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/largePatches.R#L21) *style:* **Lines should not be more than 80 characters.**
```r
LargePatches <- function(tsf, vtm, poly, labelColumn, id, ageClassCutOffs, ageClasses) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/largePatches.R:21:1:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/largePatches.R#L21) *style:* **Variable or function name should be snake_case.**
```r
LargePatches <- function(tsf, vtm, poly, labelColumn, id, ageClassCutOffs, ageClasses) {
^~~~~~~~~~~~
```
[R/largePatches.R:21:42:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/largePatches.R#L21) *style:* **Variable or function name should be snake_case.**
```r
LargePatches <- function(tsf, vtm, poly, labelColumn, id, ageClassCutOffs, ageClasses) {
                                         ^~~~~~~~~~~
```
[R/largePatches.R:21:59:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/largePatches.R#L21) *style:* **Variable or function name should be snake_case.**
```r
LargePatches <- function(tsf, vtm, poly, labelColumn, id, ageClassCutOffs, ageClasses) {
                                                          ^~~~~~~~~~~~~~~
```
[R/largePatches.R:21:76:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/largePatches.R#L21) *style:* **Variable or function name should be snake_case.**
```r
LargePatches <- function(tsf, vtm, poly, labelColumn, id, ageClassCutOffs, ageClasses) {
                                                                           ^~~~~~~~~~
```
[R/largePatches.R:27:3:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/largePatches.R#L27) *style:* **Variable or function name should be snake_case.**
```r
  timeSinceFireFilesRast <- Cache(.rasterToMemory, tsf[1])
  ^~~~~~~~~~~~~~~~~~~~~~
```
[R/largePatches.R:27:29:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/largePatches.R#L27) *warning:* **no visible global function definition for ‘Cache’**
```r
  timeSinceFireFilesRast <- Cache(.rasterToMemory, tsf[1])
                            ^~~~~
```
[R/largePatches.R:27:35:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/largePatches.R#L27) *warning:* **no visible binding for global variable ‘.rasterToMemory’**
```r
  timeSinceFireFilesRast <- Cache(.rasterToMemory, tsf[1])
                                  ^~~~~~~~~~~~~~~
```
[R/largePatches.R:36:3:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/largePatches.R#L36) *style:* **Variable or function name should be snake_case.**
```r
  rasRepPoly <- Cache(
  ^~~~~~~~~~
```
[R/largePatches.R:39:1:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/largePatches.R#L39) *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:44:3:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/largePatches.R#L44) *style:* **Variable or function name should be snake_case.**
```r
  rasVeg <- Cache(.rasterToMemory, vtm)
  ^~~~~~
```
[R/largePatches.R:44:13:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/largePatches.R#L44) *warning:* **no visible global function definition for ‘Cache’**
```r
  rasVeg <- Cache(.rasterToMemory, vtm)
            ^~~~~
```
[R/largePatches.R:44:19:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/largePatches.R#L44) *warning:* **no visible binding for global variable ‘.rasterToMemory’**
```r
  rasVeg <- Cache(.rasterToMemory, vtm)
                  ^~~~~~~~~~~~~~~
```
[R/largePatches.R:46:1:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/largePatches.R#L46) *style:* **Lines should not be more than 80 characters.**
```r
  splitVal <- paste0("_", 75757575, "_") # unlikely to occur for any other reason
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/largePatches.R:46:3:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/largePatches.R#L46) *style:* **Variable or function name should be snake_case.**
```r
  splitVal <- paste0("_", 75757575, "_") # unlikely to occur for any other reason
  ^~~~~~~~
```
[R/largePatches.R:57:1:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/largePatches.R#L57) *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:57:5:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/largePatches.R#L57) *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:64:1:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/largePatches.R#L64) *style:* **Lines should not be more than 80 characters.**
```r
    if (!identical(length(name1), length(name2)) || !identical(length(name1), length(name3)))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/largePatches.R:65:1:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/largePatches.R#L65) *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:68:12:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/largePatches.R#L68) *warning:* **no visible global function definition for ‘raster’, Did you mean 'rasVeg'?**
```r
    ras <- raster(rasVeg)
           ^~~~~~
```
[R/largePatches.R:69:5:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/largePatches.R#L69) *style:* **Variable or function name should be snake_case.**
```r
    ffFactor <- factor(ff)
    ^~~~~~~~
```
[R/largePatches.R:72:1:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/largePatches.R#L72) *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:72:5:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/largePatches.R#L72) *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:72:23:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/largePatches.R#L72) *warning:* **no visible global function definition for ‘Cache’**
```r
    areaAndPolyOut <- Cache(areaAndPolyValue, ras, length = Inf) # maybe lots of NAs on edge
                      ^~~~~
```
[R/largePatches.R:72:29:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/largePatches.R#L72) *warning:* **no visible binding for global variable ‘areaAndPolyValue’**
```r
    areaAndPolyOut <- Cache(areaAndPolyValue, ras, length = Inf) # maybe lots of NAs on edge
                            ^~~~~~~~~~~~~~~~
```
[R/largePatches.R:73:1:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/largePatches.R#L73) *style:* **Lines should not be more than 80 characters.**
```r
    eTable <- data.frame(ID = seq_along(levels(ffFactor)), VALUE = levels(ffFactor))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/largePatches.R:73:5:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/largePatches.R#L73) *style:* **Variable or function name should be snake_case.**
```r
    eTable <- data.frame(ID = seq_along(levels(ffFactor)), VALUE = levels(ffFactor))
    ^~~~~~
```
[R/largePatches.R:77:5:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/largePatches.R#L77) *style:* **Variable or function name should be snake_case.**
```r
    facPolygonID <- factor(types[areaAndPolyOut$polyID,3])
    ^~~~~~~~~~~~
```
[R/largePatches.R:77:56:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/largePatches.R#L77) *style:* **Commas should always have a space after.**
```r
    facPolygonID <- factor(types[areaAndPolyOut$polyID,3])
                                                       ^
```
[R/largePatches.R:79:5:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/largePatches.R#L79) *style:* **Variable or function name should be snake_case.**
```r
    outBySpecies <- data.table(polygonID = as.numeric(facPolygonID),
    ^~~~~~~~~~~~
```
[R/largePatches.R:89:12:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/largePatches.R#L89) *warning:* **no visible global function definition for ‘raster’, Did you mean 'rasVeg'?**
```r
    ras <- raster(rasVeg)
           ^~~~~~
```
[R/largePatches.R:90:5:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/largePatches.R#L90) *style:* **Variable or function name should be snake_case.**
```r
    ffFactor <- factor(ff)
    ^~~~~~~~
```
[R/largePatches.R:94:1:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/largePatches.R#L94) *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:94:5:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/largePatches.R#L94) *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:94:24:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/largePatches.R#L94) *warning:* **no visible global function definition for ‘Cache’**
```r
    areaAndPolyOut2 <- Cache(areaAndPolyValue, ras, length = Inf) # maybe lots of NAs on edge
                       ^~~~~
```
[R/largePatches.R:94:30:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/largePatches.R#L94) *warning:* **no visible binding for global variable ‘areaAndPolyValue’**
```r
    areaAndPolyOut2 <- Cache(areaAndPolyValue, ras, length = Inf) # maybe lots of NAs on edge
                             ^~~~~~~~~~~~~~~~
```
[R/largePatches.R:96:1:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/largePatches.R#L96) *style:* **Lines should not be more than 80 characters.**
```r
    eTable <- data.frame(ID = seq_along(levels(ffFactor)), VALUE = levels(ffFactor))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/largePatches.R:96:5:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/largePatches.R#L96) *style:* **Variable or function name should be snake_case.**
```r
    eTable <- data.frame(ID = seq_along(levels(ffFactor)), VALUE = levels(ffFactor))
    ^~~~~~
```
[R/largePatches.R:100:5:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/largePatches.R#L100) *style:* **Variable or function name should be snake_case.**
```r
    facPolygonID <- factor(types[areaAndPolyOut2$polyID, 2])
    ^~~~~~~~~~~~
```
[R/largePatches.R:102:5:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/largePatches.R#L102) *style:* **Variable or function name should be snake_case.**
```r
    outAllSpecies <- data.table(polygonID = as.numeric(facPolygonID),
    ^~~~~~~~~~~~~
```
[R/largePatches.R:109:12:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/largePatches.R#L109) *warning:* **no visible global function definition for ‘rbindlist’**
```r
    out <- rbindlist(list(outBySpecies, outAllSpecies))
           ^~~~~~~~~
```
[R/largePatches.R:110:16:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/largePatches.R#L110) *warning:* **no visible binding for global variable ‘sizeInHa’**
```r
    out <- out[sizeInHa >= 100] # never will need patches smaller than 100 ha
               ^~~~~~~~
```
[R/largePatches.R:113:1:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/largePatches.R#L113) *style:* **Lines should not be more than 80 characters.**
```r
    #f <- file.path(Paths$outputPath, "boxplots", paste0("largePatches_", STUDYAREA, ".csv"))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/largePatches.R:113:6:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/largePatches.R#L113) *style:* **Commented code should be removed.**
```r
    #f <- file.path(Paths$outputPath, "boxplots", paste0("largePatches_", STUDYAREA, ".csv"))
     ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/largePatches.R:114:6:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/largePatches.R#L114) *style:* **Commented code should be removed.**
```r
    #write.csv(out, f)
     ^~~~~~~~~~~~~~~~~
```
[R/largePatches.R:116:1:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/largePatches.R#L116) *style:* **Lines should not be more than 80 characters.**
```r
    out <- data.table(polygonID = character(), sizeInHa = numeric(), vegCover = character(),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/largePatches.R:117:1:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/largePatches.R#L117) *style:* **Lines should not be more than 80 characters.**
```r
                      rep = numeric(), ageClass = numeric(), polygonName = numeric())
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/largePatches.R:123:1:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/largePatches.R#L123) *style:* **Variable or function name should be snake_case.**
```r
areaAndPolyValue <- function(ras) {
^~~~~~~~~~~~~~~~
```
[R/largePatches.R:124:3:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/largePatches.R#L124) *style:* **Variable or function name should be snake_case.**
```r
  polyIndivSpecies <- gdal_polygonizeR(ras) # 99 seconds with full ras
  ^~~~~~~~~~~~~~~~
```
[R/largePatches.R:124:23:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/largePatches.R#L124) *warning:* **no visible global function definition for ‘gdal_polygonizeR’**
```r
  polyIndivSpecies <- gdal_polygonizeR(ras) # 99 seconds with full ras
                      ^~~~~~~~~~~~~~~~
```
[R/largePatches.R:125:3:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/largePatches.R#L125) *style:* **Variable or function name should be snake_case.**
```r
  pArea <- as.numeric(sf::st_area(polyIndivSpecies) / 1e4)
  ^~~~~
```
[R/largePatches.R:131:1:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/largePatches.R#L131) *style:* **Lines should not be more than 80 characters.**
```r
#' Copied from https://johnbaumgartner.wordpress.com/2012/07/26/getting-rasters-into-shape-from-r/
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/largePatches.R:144:1:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/largePatches.R#L144) *style:* **Variable or function name should be snake_case.**
```r
gdal_polygonizeR <- function(x, outshape = NULL, gdalformat = "ESRI Shapefile",
^~~~~~~~~~~~~~~~
```
[R/largePatches.R:159:1:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/largePatches.R#L159) *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/largePatches.R:167:5:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/largePatches.R#L167) *style:* **Variable or function name should be snake_case.**
```r
    f.exists <- file.exists(paste(outshape, c("shp", "shx", "dbf"), sep = "."))
    ^~~~~~~~
```
[R/largePatches.R:170:1:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/largePatches.R#L170) *style:* **Lines should not be more than 80 characters.**
```r
                   toString(paste(outshape, c("shp", "shx", "dbf"), sep = ".")[f.exists])),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/largePatches.R:176:5:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/largePatches.R#L176) *warning:* **no visible global function definition for ‘writeRaster’**
```r
    writeRaster(x, rastpath, datatype = assessDataType(x))
    ^~~~~~~~~~~
```
[R/largePatches.R:176:41:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/largePatches.R#L176) *warning:* **no visible global function definition for ‘assessDataType’**
```r
    writeRaster(x, rastpath, datatype = assessDataType(x))
                                        ^~~~~~~~~~~~~~
```
[R/largePatches.R:184:1:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/largePatches.R#L184) *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/largePatches.R:184:66:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/largePatches.R#L184) *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/largePatches.R:185:22:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/largePatches.R#L185) *warning:* **no visible global function definition for ‘extent’, Did you mean 'extends'?**
```r
    sf::st_bbox(shp, extent(x))
                     ^~~~~~
```
[R/largePatches.R:192:1:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/largePatches.R#L192) *style:* **Variable or function name should be snake_case.**
```r
.rasterToMemory <- function(x, ...) {
^~~~~~~~~~~~~~~
```
[R/largePatches.R:193:8:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/largePatches.R#L193) *warning:* **no visible global function definition for ‘raster’, Did you mean 'paste'?**
```r
  r <- raster(x, ...)
       ^~~~~~
```
[R/leading.R:11:1:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/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/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/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/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/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/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/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/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/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/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/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/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/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/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/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/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/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/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/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/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/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/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/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/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/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/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/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/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/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/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/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/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/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/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/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/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/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/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/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/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/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/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/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/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/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/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/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/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/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/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/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/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/leading.R#L76) *style:* **Variable or function name should be snake_case.**
```r
  ffFactor <- factor(ff)
  ^~~~~~~~
```
[R/leading.R:79:1:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/leading.R#L79) *style:* **Lines should not be more than 80 characters.**
```r
  eTable <- data.frame(ID = seq_along(levels(ffFactor)), VALUE = levels(ffFactor))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/leading.R:79:3:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/leading.R#L79) *style:* **Variable or function name should be snake_case.**
```r
  eTable <- data.frame(ID = seq_along(levels(ffFactor)), VALUE = levels(ffFactor))
  ^~~~~~
```
[R/leading.R:83:1:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/leading.R#L83) *style:* **Lines should not be more than 80 characters.**
```r
  levels(ras) <- data.frame(eTable, ageClass = types[, 1], vegCover = types[, 2])
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/leading.R:90:13:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/leading.R#L90) *warning:* **no visible global function definition for ‘Cache’**
```r
    poly <- Cache(fasterize2, rasTsf, poly, field = "polygonNum")
            ^~~~~
```
[R/leading.R:90:19:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/leading.R#L90) *warning:* **no visible binding for global variable ‘fasterize2’**
```r
    poly <- Cache(fasterize2, rasTsf, poly, field = "polygonNum")
                  ^~~~~~~~~~
```
[R/leading.R:96:11:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/leading.R#L96) *warning:* **no visible global function definition for ‘factorValues’**
```r
  levs <- factorValues(poly, levs$ID)
          ^~~~~~~~~~~~
```
[R/leading.R:97:3:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/leading.R#L97) *style:* **Variable or function name should be snake_case.**
```r
  facVals <- factorValues(
  ^~~~~~~
```
[R/leading.R:110:1:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/leading.R#L110) *style:* **Lines should not be more than 80 characters.**
```r
  bb[, c("ageClass", "vegCover") := factorValues(ras, ras[][bb$cell], att = c("ageClass", "vegCover"))]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/leading.R:110:34:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/leading.R#L110) *warning:* **no visible global function definition for ‘:=’, Did you mean ':'?**
```r
  bb[, c("ageClass", "vegCover") := factorValues(ras, ras[][bb$cell], att = c("ageClass", "vegCover"))]
                                 ^~
```
[R/leading.R:110:37:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/leading.R#L110) *warning:* **no visible global function definition for ‘factorValues’**
```r
  bb[, c("ageClass", "vegCover") := factorValues(ras, ras[][bb$cell], att = c("ageClass", "vegCover"))]
                                    ^~~~~~~~~~~~
```
[R/leading.R:114:1:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/leading.R#L114) *style:* **Lines should not be more than 80 characters.**
```r
  #tabulated <- bb[, list(NPixels = .N), by = c("zone", "polygonID", "ageClass", "vegCover")] ## keeps polyID
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/leading.R:114:4:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/leading.R#L114) *style:* **Commented code should be removed.**
```r
  #tabulated <- bb[, list(NPixels = .N), by = c("zone", "polygonID", "ageClass", "vegCover")] ## keeps polyID
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/leading.R:115:1:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/leading.R#L115) *style:* **Lines should not be more than 80 characters.**
```r
  tabulated <- bb[, list(NPixels = .N), by = c("zone", "ageClass", "vegCover")] ## dedupes the zones
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/leading.R:115:36:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/leading.R#L115) *warning:* **no visible binding for global variable ‘.N’, Did you mean 'bb'?**
```r
  tabulated <- bb[, list(NPixels = .N), by = c("zone", "ageClass", "vegCover")] ## dedupes the zones
                                   ^~
```
[R/leading.R:116:1:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/leading.R#L116) *style:* **Lines should not be more than 80 characters.**
```r
  tabulated[, proportion := round(NPixels / sum(NPixels), 4), by = c("zone", "vegCover")]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/leading.R:116:15:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/leading.R#L116) *warning:* **no visible binding for global variable ‘proportion’**
```r
  tabulated[, proportion := round(NPixels / sum(NPixels), 4), by = c("zone", "vegCover")]
              ^~~~~~~~~~
```
[R/leading.R:116:26:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/leading.R#L116) *warning:* **no visible global function definition for ‘:=’, Did you mean ':'?**
```r
  tabulated[, proportion := round(NPixels / sum(NPixels), 4), by = c("zone", "vegCover")]
                         ^~
```
[R/leading.R:116:35:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/leading.R#L116) *warning:* **no visible binding for global variable ‘NPixels’**
```r
  tabulated[, proportion := round(NPixels / sum(NPixels), 4), by = c("zone", "vegCover")]
                                  ^~~~~~~
```
[R/leading.R:116:35:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/leading.R#L116) *warning:* **no visible binding for global variable ‘NPixels’**
```r
  tabulated[, proportion := round(NPixels / sum(NPixels), 4), by = c("zone", "vegCover")]
                                  ^~~~~~~
```
[R/leading.R:119:1:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/leading.R#L119) *style:* **Lines should not be more than 80 characters.**
```r
  #tabulated2 <- bb[, list(NPixels = .N), by = c("zone", "polygonID", "ageClass")] ## keeps polyID
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/leading.R:119:4:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/leading.R#L119) *style:* **Commented code should be removed.**
```r
  #tabulated2 <- bb[, list(NPixels = .N), by = c("zone", "polygonID", "ageClass")] ## keeps polyID
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/leading.R:120:1:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/leading.R#L120) *style:* **Lines should not be more than 80 characters.**
```r
  tabulated2 <- bb[, list(NPixels = .N), by = c("zone", "ageClass")] ## dedupes the zones
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/leading.R:120:37:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/leading.R#L120) *warning:* **no visible binding for global variable ‘.N’, Did you mean 'bb'?**
```r
  tabulated2 <- bb[, list(NPixels = .N), by = c("zone", "ageClass")] ## dedupes the zones
                                    ^~
```
[R/leading.R:121:16:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/leading.R#L121) *warning:* **no visible binding for global variable ‘proportion’**
```r
  tabulated2[, proportion := round(NPixels / sum(NPixels), 4), by = c("zone")]
               ^~~~~~~~~~
```
[R/leading.R:121:27:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/leading.R#L121) *warning:* **no visible global function definition for ‘:=’, Did you mean ':'?**
```r
  tabulated2[, proportion := round(NPixels / sum(NPixels), 4), by = c("zone")]
                          ^~
```
[R/leading.R:121:36:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/leading.R#L121) *warning:* **no visible binding for global variable ‘NPixels’**
```r
  tabulated2[, proportion := round(NPixels / sum(NPixels), 4), by = c("zone")]
                                   ^~~~~~~
```
[R/leading.R:121:36:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/leading.R#L121) *warning:* **no visible binding for global variable ‘NPixels’**
```r
  tabulated2[, proportion := round(NPixels / sum(NPixels), 4), by = c("zone")]
                                   ^~~~~~~
```
[R/leading.R:122:3:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/leading.R#L122) *warning:* **no visible global function definition for ‘set’, Did you mean 'det'?**
```r
  set(tabulated2, NULL, "vegCover", "All species")
  ^~~
```
[R/leading.R:124:1:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/leading.R#L124) *style:* **Lines should not be more than 80 characters.**
```r
  tabulated <- rbindlist(list(tabulated, tabulated2), use.names = TRUE, fill = TRUE)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/leading.R:124:16:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/leading.R#L124) *warning:* **no visible global function definition for ‘rbindlist’**
```r
  tabulated <- rbindlist(list(tabulated, tabulated2), use.names = TRUE, fill = TRUE)
               ^~~~~~~~~
```
[R/leading.R:126:1:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/leading.R#L126) *style:* **Lines should not be more than 80 characters.**
```r
  ## column containing the factor names varies, so we need to search for the right one
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/leading.R:127:1:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/leading.R#L127) *style:* **Lines should not be more than 80 characters.**
```r
  colID <- which(colnames(raster::levels(rasVeg)[[1]]) %in% c("category", "Factor", "VALUE"))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/leading.R:127:3:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/leading.R#L127) *style:* **Variable or function name should be snake_case.**
```r
  colID <- which(colnames(raster::levels(rasVeg)[[1]]) %in% c("category", "Factor", "VALUE"))
  ^~~~~
```
[R/leading.R:128:3:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/leading.R#L128) *style:* **Variable or function name should be snake_case.**
```r
  coverClasses <- raster::levels(rasVeg)[[1]][[colID]]
  ^~~~~~~~~~~~
```
[R/leading.R:130:5:](https://github.com/PredictiveEcology/map/blob/aedbd0b7579c86fa8bb0be8f4a9bcf7e7dfb92a8/R/leading.R#L130) *style:* **Variable or function name should be snake_case.**
```r
    coverClasses <- levels(coverClasses)
    ^~~~~~~~~~~~
```


TEST


Successfully aliased the URL <https://ohjelmointi-19-jdtldnmgag.now.sh> to the following alias.

* https://ohjelmointi-19.mooc.fi


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

Created multidev environment [ci-1](https://dashboard.pantheon.io/sites/3d9989f1-b35b-48a0-8ef7-bba30cafc930#ci-1) for build-tools-1267.


Is this supposed to be `pure (Just r)`?


Unfortunately, your suggestion does not work, but results in:
```
while evaluating the attribute 'buildPlatform.platform.kernelArch' at /nix/store/q994rbdbv3nkk1016m5ga4wmvwz9k845-nixpkgs-19.03pre170546.0f43790d2ce/nixpkgs/lib/systems/default.nix:26:7:
attribute 'kernelArch' missing, at /nix/store/q994rbdbv3nkk1016m5ga4wmvwz9k845-nixpkgs-19.03pre170546.0f43790d2ce/nixpkgs/pkgs/development/libraries/glibc/default.nix:59:66
```
I proposed a different fix in the PR #56417.

I also found out, why it worked for me before. I was experimenting with the state of Nixpkgs before your commit [`5e24fcc`](https://github.com/NixOS/nixpkgs/commit/5e24fccba45a7c72aff47cdbe305182352623124). The way I see it, localedef would not have been executed for my cross builds at all.


Incorrect use! There is no `Mem5` in `r2_2 = callee` statement. But it's another issue


Successfully aliased the URL <https://bountysource-hunter-zgctvinnzq.now.sh> to the following alias.

* https://bountysource-hunter.now.sh


大哥。。你的专业。。。叫。。计算机科学与技术。。。不是。。。计算机科学


Can we add it to the deploy.rb linked_files array and drop a copy of the old file with your env vars in the shared dir? That should be easy enough, unless I'm missing the point of something?

But, this is the first real *gotcha* of me developing locally without the ability to deploy code to the servers.


No it wasn't because all the vars are exported at the system level. There was no need to link it because it contained no secrets. This can be changed, and I want to address it by switching over from ENV to templating out that file from a password store, but for now it would have to be manually added to shared/ and changed to link in deploy.rb


感谢前辈贡献的参考！！！造福学弟学妹们！！！


In the short term I can set this up for capistrano linking and a static file, but that breaks end to end push-button deploy between ansible & capistrano. There's some other kind of similar issue with the generate_centroids_solr task which I'll make an issue about...


Successfully aliased the URL <https://api-examples-fqa1khwfq.now.sh> to the following aliases.

* https://now-example-files.zeit.sh
* https://rauchg-api-examples.zeit.now.sh


Sorry for everyone.
I'm fixing in my repository.
Please wait a minute...


For `bar_intervall` parameter, Amber18 manual says:
"The options below have been deprecated. They are here for anyone using AMBER 16 or older, but will not work in AMBER 18." on page 430. But wouldn't crash anything.


Unrelated to this specific commit, when you rebalance race traits, remember that Iron Dwarves need to be buffed, they need to be slightly stronger than Earthen, not weaker, but Earthen need better stewardship than Iron Dwarves.


inside  folder Localization exist folder En and Ru. Lower case too?


fix conflict


If we patched the main kernel package to make it build the module, for next kernel (4.14 probably) we would have nothing to do but reapply the patch. It would be easier than extracting the source manually from the kernel sources to make it a separate package. I'm not entirely against packaging it as a separate RPM, but I have to be cautious to not let the maintenance work grow too much. Could we start with a rebuilt kernel with the module, and then consider creating a separate RPM only if for some reason we need to update the driver to a different version?


@Winfidonarleyan for future, don't forget the commit name conventions :) https://github.com/azerothcore/azerothcore-wotlk/pull/1044


计算机科学与技术，计算机科学与技术，计算机科学与技术，强迫症患者来评论区咯~


Successfully aliased the URL <https://ohjelmointi-19-vegswtryji.now.sh> to the following alias.

* https://ohjelmointi-19.mooc.fi


Hi @AZO234 , no problem.

I'm glad that through @Tatsuya79 we can finally communicate with you. Welcome, and we'd love having you on Discord as well when/if you get the time. @bparker06 and waitingmoon can probably communicate in Japanese with you if/when required.


❌ [Build was (probably) aborted](https://jenkins.internalx.com/job/macios/job/d16-0-arm64-32/2/display/redirect)

🔥 [Jenkins job](https://jenkins.internalx.com/job/macios/job/d16-0-arm64-32/2/display/redirect) (on internal Jenkins) failed in stage(s) 'Build' 🔥 : hudson.AbortException: script returned exit code 2

🔥 [Build failed](https://jenkins.internalx.com/job/macios/job/d16-0-arm64-32/2//console) 🔥


Oh, yes. I added it because it seems alchemical_analysis.py parses it and assumes it the same as 'ntpr'


we are going to have this on the main branch?


Successfully aliased the URL <https://sort-me-inu2j4qwr.now.sh> to the following aliases.

* https://sort-me.space
* https://sort-me.alattalatta.now.sh


echo "# rsschool-2019Q1-codeacademy" >> README.md
git init
git add README.md
git commit -m "first commit"
git remote add origin https://github.com/your-name/rsschool-2019Q1-html-css.git
git push -u origin master
Maryia Tarasava
HTML CSS Basics: https://www.codecademy.com/users/Maryia22/achievements
Maryia Tarasava
HTML CSS Basics: https://htmlacademy.ru/profile/id1022175/achievements