[R/boxPlots.R:2:1:](https://github.com/PredictiveEcology/map/blob/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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/a373098bf2bb1d65938a317307eb3d8d6d565f9f/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


Button does not have constraints yet.


I am so, *so* sorry. I still don't get it.

Now it sounds like there isn't any issue?

Is it possible for you to make an example of how you would like it to behave?

In your Playground link, you show that a compile error occurs. But after the PR, that should no longer occur. And since you would never actually _write out_ `ObjectSubstituteTransformation<T> & T` when declaring variables, `Substitute.for<T>()` would return propagate the type implicitly.

In other words, I still don't see what the issue is, from your example.


Thanks for putting together the pattern. I thought what I did was safe because of the certainty of both players’ amounts being equal but I see the risks of combining and splitting amounts and thus never doing it this way. Here is the corrected code: https://github.com/LluisaMarsal/B9Lab-Project3/commit/f2b1dfce8f16998e107bc47b9f661fbfe7894eb7


@kongyew is this a valid user?


I was relying on the common sense of the player when setting the deadlines but obviously that is not good practice. I placed a requirement in ` createBet` that hopefully will enforce the right timeline. Also, to avoid having extremely tight time widows between deadlines I am requiring a 10 block margin: https://github.com/LluisaMarsal/B9Lab-Project3/commit/f2b1dfce8f16998e107bc47b9f661fbfe7894eb7


# 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)|


- Allow more accurate slope calculation by using float format.
- Abandoning closest line calculation as it does not outcome optimum results.
- Preparing code for TensorFlow method as it's proven to detect road lines efficiently using Artificial Neural Network.


I'm not sure this is a good idea... `.vuepress` should be part of the project as it contains all configuration to setup the project correctly. Thus it must be tracked.


❌ [Build was (probably) aborted](https://jenkins.internalx.com/job/macios/job/pencil-pusher-replacement/1/display/redirect)

🔥 [Jenkins job](https://jenkins.internalx.com/job/macios/job/pencil-pusher-replacement/1/display/redirect) (on internal Jenkins) failed in stage(s) 'Install Provisioning Profiles' 🔥 : hudson.AbortException: script returned exit code 51

✅ [Build succeeded](https://jenkins.internalx.com/job/macios/job/pencil-pusher-replacement/1//console)
✅ Packages: [xamarin.ios-12.7.0.182.pkg](https://bosstoragemirror.blob.core.windows.net/wrench/jenkins/pencil-pusher-replacement/d140388ceae94e2f44b2fabf322b59240e6acd3f/1/package/xamarin.ios-12.7.0.182.pkg) [xamarin.mac-5.7.0.182.pkg](https://bosstoragemirror.blob.core.windows.net/wrench/jenkins/pencil-pusher-replacement/d140388ceae94e2f44b2fabf322b59240e6acd3f/1/package/xamarin.mac-5.7.0.182.pkg)


Es wird immer ein kostenfreier Download angeboten, wenn auch etwas versteckt.


heello


In my opinion it should include the -Force parameter like this to avoid any prompts asking "are you sure"
I do this on all my scripts right before I run them
Set-ExecutionPolicy Unrestricted -Force

At the end of my powershell scripts though I add this line for security because you REALLY don't want to leave it unrestricted. Big ol security issue.

Set-ExecutionPolicy Restricted -Force

Also side note, if the execution policy is set to unrestricted you won't need to worry about unblocking the files, so lines 14 and 15 aren't really needed.