[R/boxPlots.R:2:1:](https://github.com/PredictiveEcology/map/blob/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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:57:17:](https://github.com/PredictiveEcology/map/blob/e4030c8906ff720ace223e5e818e3f3cb9cf2855/R/boxPlots.R#L57) *warning:* **no visible binding for global variable ‘NPixels’**
```r
    data2[is.na(NPixels), NPixels := 0]
                ^~~~~~~
```
[R/boxPlots.R:57:17:](https://github.com/PredictiveEcology/map/blob/e4030c8906ff720ace223e5e818e3f3cb9cf2855/R/boxPlots.R#L57) *warning:* **no visible binding for global variable ‘NPixels’**
```r
    data2[is.na(NPixels), NPixels := 0]
                ^~~~~~~
```
[R/boxPlots.R:57:27:](https://github.com/PredictiveEcology/map/blob/e4030c8906ff720ace223e5e818e3f3cb9cf2855/R/boxPlots.R#L57) *style:* **Variable or function name should be snake_case.**
```r
    data2[is.na(NPixels), NPixels := 0]
                          ^~~~~~~
```
[R/boxPlots.R:57:35:](https://github.com/PredictiveEcology/map/blob/e4030c8906ff720ace223e5e818e3f3cb9cf2855/R/boxPlots.R#L57) *warning:* **no visible global function definition for ‘:=’, Did you mean ':'?**
```r
    data2[is.na(NPixels), NPixels := 0]
                                  ^~
```
[R/boxPlots.R:60:1:](https://github.com/PredictiveEcology/map/blob/e4030c8906ff720ace223e5e818e3f3cb9cf2855/R/boxPlots.R#L60) *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:61:13:](https://github.com/PredictiveEcology/map/blob/e4030c8906ff720ace223e5e818e3f3cb9cf2855/R/boxPlots.R#L61) *style:* **Variable or function name should be snake_case.**
```r
    data2[, totalPixels := as.double(base::sum(.SD, na.rm = TRUE)),
            ^~~~~~~~~~~
```
[R/boxPlots.R:63:13:](https://github.com/PredictiveEcology/map/blob/e4030c8906ff720ace223e5e818e3f3cb9cf2855/R/boxPlots.R#L63) *style:* **Variable or function name should be snake_case.**
```r
    data2[, totalPixels2 := as.double(base::mean(totalPixels, na.rm = TRUE)),
            ^~~~~~~~~~~~
```
[R/boxPlots.R:66:1:](https://github.com/PredictiveEcology/map/blob/e4030c8906ff720ace223e5e818e3f3cb9cf2855/R/boxPlots.R#L66) *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:67:5:](https://github.com/PredictiveEcology/map/blob/e4030c8906ff720ace223e5e818e3f3cb9cf2855/R/boxPlots.R#L67) *style:* **Variable or function name should be snake_case.**
```r
    saveDir <- checkPath(file.path(dPath, poly), create = TRUE)
    ^~~~~~~
```
[R/boxPlots.R:67:5:](https://github.com/PredictiveEcology/map/blob/e4030c8906ff720ace223e5e818e3f3cb9cf2855/R/boxPlots.R#L67) *warning:* **local variable ‘saveDir’ assigned but may not be used**
```r
    saveDir <- checkPath(file.path(dPath, poly), create = TRUE)
    ^~~~~~~
```
[R/boxPlots.R:67:16:](https://github.com/PredictiveEcology/map/blob/e4030c8906ff720ace223e5e818e3f3cb9cf2855/R/boxPlots.R#L67) *warning:* **no visible global function definition for ‘checkPath’**
```r
    saveDir <- checkPath(file.path(dPath, poly), create = TRUE)
               ^~~~~~~~~
```
[R/boxPlots.R:68:1:](https://github.com/PredictiveEcology/map/blob/e4030c8906ff720ace223e5e818e3f3cb9cf2855/R/boxPlots.R#L68) *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:68:5:](https://github.com/PredictiveEcology/map/blob/e4030c8906ff720ace223e5e818e3f3cb9cf2855/R/boxPlots.R#L68) *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:77:1:](https://github.com/PredictiveEcology/map/blob/e4030c8906ff720ace223e5e818e3f3cb9cf2855/R/boxPlots.R#L77) *style:* **Lines should not be more than 80 characters.**
```r
                                    main = unique(paste(zone, vegCover, collapse = "_")),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/boxPlots.R:78:1:](https://github.com/PredictiveEcology/map/blob/e4030c8906ff720ace223e5e818e3f3cb9cf2855/R/boxPlots.R#L78) *style:* **Lines should not be more than 80 characters.**
```r
                                    xlab = paste0("Proportion of of forest area (total ",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/boxPlots.R:80:1:](https://github.com/PredictiveEcology/map/blob/e4030c8906ff720ace223e5e818e3f3cb9cf2855/R/boxPlots.R#L80) *style:* **Lines should not be more than 80 characters.**
```r
                                                    prod(res(rasterToMatch(map))) / 1e4,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/boxPlots.R:86:1:](https://github.com/PredictiveEcology/map/blob/e4030c8906ff720ace223e5e818e3f3cb9cf2855/R/boxPlots.R#L86) *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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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/e4030c8906ff720ace223e5e818e3f3cb9cf2855/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


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

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

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

### Deployments updated

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

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


tyjdyjdyjty


`NUMBER_REGULAR_EXPRESSION = /^[a-z0-9]{3}-?[a-z0-9]{2}$/i`


для чего нам этот класс?


This commit closed issue #2426 (**small typo under section "2. Reduce user-visible password surface area"**)


Where do I find the rest of the images of this theme?


OK...


Blame: `[name: 'udpserver-2.jar', url: 'https://build.true-games.org/job/UdpServerSocketChannel/11/artifact/target/UdpServerSocketChannel.jar']` is still required to work


There is an error in the 386sx virtual routines to read opcodes
Did another commit that should correct it


npc_engine_leveling ?


TeamCity Bvcms / Build [Build 577](https://builds.tpsdb.com/viewLog.html?buildId=3265&buildTypeId=Bvcms_Build) is now running


Created multidev environment [lawhelp#ci-2150](https://dashboard.pantheon.io/sites/9ec12d94-c804-44b7-968e-166a0b49fdc0#ci-2150).

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


RIP best gapps ever...


i guess this is unnecessary here since you are creating the object below, and dont need this so far for any calculation


Wrong issue link. This fixes #199.


Ekran Görüntüsü


TeamCity Bvcms / Build [Build 577](https://builds.tpsdb.com/viewLog.html?buildId=3265&buildTypeId=Bvcms_Build) outcome was **SUCCESS**
Summary: Running Build time: 00:04:23


TeamCity Bvcms / Build [Build 578](https://builds.tpsdb.com/viewLog.html?buildId=3266&buildTypeId=Bvcms_Build) is now running


-m "first commit"


new svg


Can you re-base this on master and make a PR or merge please?


dobrá práce!


@scheibo, prior to ES2015, iteration order of ``for..in`` was not specified.


> * if we expect the version of the module to change during the lifetime of a given release (7.6, 8.0...)

Currently the source code of this package is extracted from src.rpm and is same, however I already see changes to it on https://git.kernel.org/pub/scm/linux/kernel/git/stable/linux.git/log/fs/ceph?h=v4.4.176

I haven't looked at them and don't know if there will be more - but I'd definitely want them to be implemented in this. <- This is another effect of not staying close to upstream.
And since Citrix did not package/bother about Ceph.ko, it is not likely that further updates to XS 7.6 kernel will carry updates of Ceph.

I also like to keep the kernel clean and minimum - to boot faster and low on footprint hence like the idea of having separate packages on need basis. This may not be relevant - as we aren't adding this to initrd but applies as we are distributing it by default without requisition from most of our users. A full kernel with everything enabled (but loaded on need) is possible but may not be preferred and difficult to maintain if there are independent *.ko updates. We will have to update kernel itself to next minor version for each module level changes.


Thanks for chiming in, Bryce.

Typical etc/release output for Linux Mint would be:

```
rootusers@vm ~ $ cat /etc/os-release
NAME="Linux Mint"
VERSION="18.1 (Serena)"
ID=linuxmint
PRETTY_NAME="Linux Mint 18.1"
VERSION_ID="18.1"
VERSION_CODENAME=serena
```

About apt and apt-get, I was keeping it because of older distros not having apt (pre-16.04).
In hindsight, I doubt older computers of versions earlier than 16.04 have the ability to run ePSXe smoothly...
So, maybe I ought to revert back to apt.

> I tested it with the example they had at that link and it requires cut -c -2

So for Mint which versions are numbered without the 0 (like in Ubuntu (16.04, 18.04), I still need `cut -c -2` ?

Thank you once again, mate.