[R/boxPlots.R:2:1:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/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/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/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/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/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/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/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/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/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/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/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/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/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/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/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/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/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/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/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/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/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/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/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/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/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/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/boxPlots.R#L41) *style:* **Lines should not be more than 80 characters.**
```r
    allData <- map@analysesData[[functionName]][["LeadingVegTypeByAgeClass"]][[poly]] ## TODO: remove this old way
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/boxPlots.R:41:5:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/boxPlots.R#L41) *style:* **Variable or function name should be snake_case.**
```r
    allData <- map@analysesData[[functionName]][["LeadingVegTypeByAgeClass"]][[poly]] ## TODO: remove this old way
    ^~~~~~~
```
[R/boxPlots.R:43:7:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/boxPlots.R#L43) *style:* **Variable or function name should be snake_case.**
```r
      allData <- map@analysesData[[functionName]][[poly]] ## new way
      ^~~~~~~
```
[R/boxPlots.R:44:5:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/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/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/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/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/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/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/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/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/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/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/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/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/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/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/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/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/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/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/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/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/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/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/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/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/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/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/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:1:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/boxPlots.R#L57) *style:* **Lines should not be more than 80 characters.**
```r
    data2[, totalPixels := base::sum(.SD, na.rm = TRUE) / 2, .SDcols = c("NPixels"), by = c("zone")]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/boxPlots.R:57:13:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/boxPlots.R#L57) *style:* **Variable or function name should be snake_case.**
```r
    data2[, totalPixels := base::sum(.SD, na.rm = TRUE) / 2, .SDcols = c("NPixels"), by = c("zone")]
            ^~~~~~~~~~~
```
[R/boxPlots.R:57:13:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/boxPlots.R#L57) *warning:* **no visible binding for global variable ‘totalPixels’**
```r
    data2[, totalPixels := base::sum(.SD, na.rm = TRUE) / 2, .SDcols = c("NPixels"), by = c("zone")]
            ^~~~~~~~~~~
```
[R/boxPlots.R:57:25:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/boxPlots.R#L57) *warning:* **no visible global function definition for ‘:=’, Did you mean ':'?**
```r
    data2[, totalPixels := base::sum(.SD, na.rm = TRUE) / 2, .SDcols = c("NPixels"), by = c("zone")]
                        ^~
```
[R/boxPlots.R:57:38:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/boxPlots.R#L57) *warning:* **no visible binding for global variable ‘.SD’, Did you mean 'SSD'?**
```r
    data2[, totalPixels := base::sum(.SD, na.rm = TRUE) / 2, .SDcols = c("NPixels"), by = c("zone")]
                                     ^~~
```
[R/boxPlots.R:60:5:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/boxPlots.R#L60) *style:* **Variable or function name should be snake_case.**
```r
    saveDir <- checkPath(file.path(dPath, poly), create = TRUE)
    ^~~~~~~
```
[R/boxPlots.R:60:5:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/boxPlots.R#L60) *warning:* **local variable ‘saveDir’ assigned but may not be used**
```r
    saveDir <- checkPath(file.path(dPath, poly), create = TRUE)
    ^~~~~~~
```
[R/boxPlots.R:60:16:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/boxPlots.R#L60) *warning:* **no visible global function definition for ‘checkPath’**
```r
    saveDir <- checkPath(file.path(dPath, poly), create = TRUE)
               ^~~~~~~~~
```
[R/boxPlots.R:61:1:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/boxPlots.R#L61) *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:61:5:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/boxPlots.R#L61) *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:69:1:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/boxPlots.R#L69) *style:* **Lines should not be more than 80 characters.**
```r
                                    main = unique(paste(zone, vegCover, collapse = "_")),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/boxPlots.R:70:1:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/boxPlots.R#L70) *style:* **Lines should not be more than 80 characters.**
```r
                                    xlab = paste0("Proportion of of forest area (total ",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/boxPlots.R:73:1:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/boxPlots.R#L73) *style:* **Lines should not be more than 80 characters.**
```r
                                                    res(rasterToMatch(map))[2] / 1e4,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/boxPlots.R:79:1:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/boxPlots.R#L79) *style:* **Lines should not be more than 80 characters.**
```r
      .SDcols = c("ageClass", "proportion", "proportionCC", "NPixels"), by = slices]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/buildMetadata.R:16:1:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/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/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/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/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/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/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/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/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/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/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/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/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/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/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/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/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/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/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/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/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/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/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/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/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/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/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/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/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/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/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/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/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/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/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/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/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/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/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/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/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/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/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/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/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/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/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/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/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/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/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/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/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/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/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/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/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/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/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/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/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/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/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/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/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/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/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/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/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/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/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/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/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/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:22:3:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/largePatches.R#L22) *style:* **Variable or function name should be snake_case.**
```r
  timeSinceFireFilesRast <- Cache(.rasterToMemory, tsf[1])
  ^~~~~~~~~~~~~~~~~~~~~~
```
[R/largePatches.R:22:29:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/largePatches.R#L22) *warning:* **no visible global function definition for ‘Cache’**
```r
  timeSinceFireFilesRast <- Cache(.rasterToMemory, tsf[1])
                            ^~~~~
```
[R/largePatches.R:22:35:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/largePatches.R#L22) *warning:* **no visible binding for global variable ‘.rasterToMemory’**
```r
  timeSinceFireFilesRast <- Cache(.rasterToMemory, tsf[1])
                                  ^~~~~~~~~~~~~~~
```
[R/largePatches.R:31:3:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/largePatches.R#L31) *style:* **Variable or function name should be snake_case.**
```r
  rasRepPoly <- Cache(
  ^~~~~~~~~~
```
[R/largePatches.R:34:1:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/largePatches.R#L34) *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:39:3:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/largePatches.R#L39) *style:* **Variable or function name should be snake_case.**
```r
  rasVeg <- Cache(.rasterToMemory, vtm)#,
  ^~~~~~
```
[R/largePatches.R:39:13:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/largePatches.R#L39) *warning:* **no visible global function definition for ‘Cache’**
```r
  rasVeg <- Cache(.rasterToMemory, vtm)#,
            ^~~~~
```
[R/largePatches.R:39:19:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/largePatches.R#L39) *warning:* **no visible binding for global variable ‘.rasterToMemory’**
```r
  rasVeg <- Cache(.rasterToMemory, vtm)#,
                  ^~~~~~~~~~~~~~~
```
[R/largePatches.R:41:1:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/largePatches.R#L41) *style:* **Lines should not be more than 80 characters.**
```r
  splitVal <- paste0("_", 75757575, "_") # unlikely to occur for any other reason
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/largePatches.R:41:3:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/largePatches.R#L41) *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/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/largePatches.R#L57) *style:* **Lines should not be more than 80 characters.**
```r
    if (!identical(length(name1), length(name2)) || !identical(length(name1), length(name3)))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/largePatches.R:58:1:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/largePatches.R#L58) *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:61:12:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/largePatches.R#L61) *warning:* **no visible global function definition for ‘raster’, Did you mean 'rasVeg'?**
```r
    ras <- raster(rasVeg)
           ^~~~~~
```
[R/largePatches.R:62:5:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/largePatches.R#L62) *style:* **Variable or function name should be snake_case.**
```r
    ffFactor <- factor(ff)
    ^~~~~~~~
```
[R/largePatches.R:65:1:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/largePatches.R#L65) *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:65:5:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/largePatches.R#L65) *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:65:23:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/largePatches.R#L65) *warning:* **no visible global function definition for ‘Cache’**
```r
    areaAndPolyOut <- Cache(areaAndPolyValue, ras, length = Inf) # maybe lots of NAs on edge
                      ^~~~~
```
[R/largePatches.R:65:29:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/largePatches.R#L65) *warning:* **no visible binding for global variable ‘areaAndPolyValue’**
```r
    areaAndPolyOut <- Cache(areaAndPolyValue, ras, length = Inf) # maybe lots of NAs on edge
                            ^~~~~~~~~~~~~~~~
```
[R/largePatches.R:66:1:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/largePatches.R#L66) *style:* **Lines should not be more than 80 characters.**
```r
    eTable <- data.frame(ID = seq_along(levels(ffFactor)), VALUE = levels(ffFactor))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/largePatches.R:66:5:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/largePatches.R#L66) *style:* **Variable or function name should be snake_case.**
```r
    eTable <- data.frame(ID = seq_along(levels(ffFactor)), VALUE = levels(ffFactor))
    ^~~~~~
```
[R/largePatches.R:70:5:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/largePatches.R#L70) *style:* **Variable or function name should be snake_case.**
```r
    facPolygonID <- factor(types[areaAndPolyOut$polyID,3])
    ^~~~~~~~~~~~
```
[R/largePatches.R:70:56:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/largePatches.R#L70) *style:* **Commas should always have a space after.**
```r
    facPolygonID <- factor(types[areaAndPolyOut$polyID,3])
                                                       ^
```
[R/largePatches.R:72:5:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/largePatches.R#L72) *style:* **Variable or function name should be snake_case.**
```r
    outBySpecies <- data.table(polygonID = as.numeric(facPolygonID),
    ^~~~~~~~~~~~
```
[R/largePatches.R:82:12:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/largePatches.R#L82) *warning:* **no visible global function definition for ‘raster’, Did you mean 'rasVeg'?**
```r
    ras <- raster(rasVeg)
           ^~~~~~
```
[R/largePatches.R:83:5:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/largePatches.R#L83) *style:* **Variable or function name should be snake_case.**
```r
    ffFactor <- factor(ff)
    ^~~~~~~~
```
[R/largePatches.R:87:1:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/largePatches.R#L87) *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:87:5:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/largePatches.R#L87) *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:87:24:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/largePatches.R#L87) *warning:* **no visible global function definition for ‘Cache’**
```r
    areaAndPolyOut2 <- Cache(areaAndPolyValue, ras, length = Inf) # maybe lots of NAs on edge
                       ^~~~~
```
[R/largePatches.R:87:30:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/largePatches.R#L87) *warning:* **no visible binding for global variable ‘areaAndPolyValue’**
```r
    areaAndPolyOut2 <- Cache(areaAndPolyValue, ras, length = Inf) # maybe lots of NAs on edge
                             ^~~~~~~~~~~~~~~~
```
[R/largePatches.R:89:1:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/largePatches.R#L89) *style:* **Lines should not be more than 80 characters.**
```r
    eTable <- data.frame(ID = seq_along(levels(ffFactor)), VALUE = levels(ffFactor))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/largePatches.R:89:5:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/largePatches.R#L89) *style:* **Variable or function name should be snake_case.**
```r
    eTable <- data.frame(ID = seq_along(levels(ffFactor)), VALUE = levels(ffFactor))
    ^~~~~~
```
[R/largePatches.R:93:5:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/largePatches.R#L93) *style:* **Variable or function name should be snake_case.**
```r
    facPolygonID <- factor(types[areaAndPolyOut2$polyID, 2])
    ^~~~~~~~~~~~
```
[R/largePatches.R:95:5:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/largePatches.R#L95) *style:* **Variable or function name should be snake_case.**
```r
    outAllSpecies <- data.table(polygonID = as.numeric(facPolygonID),
    ^~~~~~~~~~~~~
```
[R/largePatches.R:102:12:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/largePatches.R#L102) *warning:* **no visible global function definition for ‘rbindlist’**
```r
    out <- rbindlist(list(outBySpecies, outAllSpecies))
           ^~~~~~~~~
```
[R/largePatches.R:103:16:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/largePatches.R#L103) *warning:* **no visible binding for global variable ‘sizeInHa’**
```r
    out <- out[sizeInHa >= 100] # never will need patches smaller than 100 ha
               ^~~~~~~~
```
[R/largePatches.R:105:1:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/largePatches.R#L105) *style:* **Lines should not be more than 80 characters.**
```r
    out <- data.table(polygonID = character(), sizeInHa = numeric(), vegCover = character(),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/largePatches.R:106:1:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/largePatches.R#L106) *style:* **Lines should not be more than 80 characters.**
```r
                      rep = numeric(), ageClass = numeric(), polygonName = numeric())
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/largePatches.R:110:1:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/largePatches.R#L110) *style:* **Lines should not be more than 80 characters.**
```r
  #write.csv(out, file.path(Paths$outputPath, paste0("largePatches_", poly, ".csv")))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/largePatches.R:110:4:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/largePatches.R#L110) *style:* **Commented code should be removed.**
```r
  #write.csv(out, file.path(Paths$outputPath, paste0("largePatches_", poly, ".csv")))
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/largePatches.R:115:1:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/largePatches.R#L115) *style:* **Variable or function name should be snake_case.**
```r
areaAndPolyValue <- function(ras) {
^~~~~~~~~~~~~~~~
```
[R/largePatches.R:116:3:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/largePatches.R#L116) *style:* **Variable or function name should be snake_case.**
```r
  polyIndivSpecies <- gdal_polygonizeR(ras) # 99 seconds with full ras
  ^~~~~~~~~~~~~~~~
```
[R/largePatches.R:116:23:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/largePatches.R#L116) *warning:* **no visible global function definition for ‘gdal_polygonizeR’**
```r
  polyIndivSpecies <- gdal_polygonizeR(ras) # 99 seconds with full ras
                      ^~~~~~~~~~~~~~~~
```
[R/largePatches.R:117:3:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/largePatches.R#L117) *style:* **Variable or function name should be snake_case.**
```r
  pArea <- as.numeric(sf::st_area(polyIndivSpecies) / 1e4)
  ^~~~~
```
[R/largePatches.R:136:1:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/largePatches.R#L136) *style:* **Variable or function name should be snake_case.**
```r
gdal_polygonizeR <- function(x, outshape = NULL, gdalformat = "ESRI Shapefile",
^~~~~~~~~~~~~~~~
```
[R/largePatches.R:151:1:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/largePatches.R#L151) *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:159:5:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/largePatches.R#L159) *style:* **Variable or function name should be snake_case.**
```r
    f.exists <- file.exists(paste(outshape, c("shp", "shx", "dbf"), sep = "."))
    ^~~~~~~~
```
[R/largePatches.R:162:1:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/largePatches.R#L162) *style:* **Lines should not be more than 80 characters.**
```r
                   toString(paste(outshape, c("shp", "shx", "dbf"), sep = ".")[f.exists])),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/largePatches.R:168:5:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/largePatches.R#L168) *warning:* **no visible global function definition for ‘writeRaster’**
```r
    writeRaster(x, rastpath, datatype = assessDataType(x))
    ^~~~~~~~~~~
```
[R/largePatches.R:168:41:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/largePatches.R#L168) *warning:* **no visible global function definition for ‘assessDataType’**
```r
    writeRaster(x, rastpath, datatype = assessDataType(x))
                                        ^~~~~~~~~~~~~~
```
[R/largePatches.R:176:1:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/largePatches.R#L176) *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:176:66:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/largePatches.R#L176) *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:177:22:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/largePatches.R#L177) *warning:* **no visible global function definition for ‘extent’, Did you mean 'extends'?**
```r
    sf::st_bbox(shp, extent(x))
                     ^~~~~~
```
[R/largePatches.R:184:1:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/largePatches.R#L184) *style:* **Variable or function name should be snake_case.**
```r
.rasterToMemory <- function(x, ...) {
^~~~~~~~~~~~~~~
```
[R/largePatches.R:185:8:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/largePatches.R#L185) *warning:* **no visible global function definition for ‘raster’, Did you mean 'paste'?**
```r
  r <- raster(x, ...)
       ^~~~~~
```
[R/leading.R:32:1:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/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/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/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/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/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/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/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/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/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/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/leading.R#L36) *style:* **Variable or function name should be snake_case.**
```r
    ageClassCutOffs <- c(ageClassCutOffs, Inf)
    ^~~~~~~~~~~~~~~
```
[R/leading.R:39:3:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/leading.R#L39) *style:* **Variable or function name should be snake_case.**
```r
  timeSinceFireFilesRast <- raster(tsf[1])
  ^~~~~~~~~~~~~~~~~~~~~~
```
[R/leading.R:39:29:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/leading.R#L39) *warning:* **no visible global function definition for ‘raster’, Did you mean 'rasVeg'?**
```r
  timeSinceFireFilesRast <- raster(tsf[1])
                            ^~~~~~
```
[R/leading.R:43:4:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/leading.R#L43) *style:* **Commented code should be removed.**
```r
  #timeSinceFireFilesRast <- Cache(rasterToMemory, tsf[1])
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/leading.R:45:3:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/leading.R#L45) *style:* **Variable or function name should be snake_case.**
```r
  rasTsf <- reclassify(
  ^~~~~~
```
[R/leading.R:57:3:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/leading.R#L57) *style:* **Variable or function name should be snake_case.**
```r
  rasVeg <- raster(vtm[1])
  ^~~~~~
```
[R/leading.R:57:13:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/leading.R#L57) *warning:* **no visible global function definition for ‘raster’, Did you mean 'rasVeg'?**
```r
  rasVeg <- raster(vtm[1])
            ^~~~~~
```
[R/leading.R:60:1:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/leading.R#L60) *style:* **Lines should not be more than 80 characters.**
```r
  splitVal <- paste0("_", 75757575, "_") # unlikely to occur for any other reason
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/leading.R:60:3:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/leading.R#L60) *style:* **Variable or function name should be snake_case.**
```r
  splitVal <- paste0("_", 75757575, "_") # unlikely to occur for any other reason
  ^~~~~~~~
```
[R/leading.R:66:25:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/leading.R#L66) *warning:* **no visible global function definition for ‘factorValues’**
```r
  name1 <- as.character(factorValues(rasTsf, rasTsf[][!nas])[, 1])
                        ^~~~~~~~~~~~
```
[R/leading.R:67:4:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/leading.R#L67) *style:* **Commented code should be removed.**
```r
  #as.character(raster::levels(rasTsf)[[1]]$Factor)[rasTsf[][!nas]]
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/leading.R:68:25:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/leading.R#L68) *warning:* **no visible global function definition for ‘factorValues’**
```r
  name3 <- as.character(factorValues(rasVeg, rasVeg[][!nas])[, 1])
                        ^~~~~~~~~~~~
```
[R/leading.R:69:4:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/leading.R#L69) *style:* **Commented code should be removed.**
```r
  #as.character(raster::levels(rasVeg)[[1]]$Factor)[rasVeg[][!nas]]
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/leading.R:72:10:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/leading.R#L72) *warning:* **no visible global function definition for ‘raster’, Did you mean 'rasVeg'?**
```r
  ras <- raster(rasVeg)
         ^~~~~~
```
[R/leading.R:73:3:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/leading.R#L73) *style:* **Variable or function name should be snake_case.**
```r
  ffFactor <- factor(ff)
  ^~~~~~~~
```
[R/leading.R:76:1:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/leading.R#L76) *style:* **Lines should not be more than 80 characters.**
```r
  eTable <- data.frame(ID = seq_along(levels(ffFactor)), VALUE = levels(ffFactor))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/leading.R:76:3:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/leading.R#L76) *style:* **Variable or function name should be snake_case.**
```r
  eTable <- data.frame(ID = seq_along(levels(ffFactor)), VALUE = levels(ffFactor))
  ^~~~~~
```
[R/leading.R:80:1:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/leading.R#L80) *style:* **Lines should not be more than 80 characters.**
```r
  levels(ras) <- data.frame(eTable, ageClass = types[, 1], vegCover = types[, 2])
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/leading.R:86:13:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/leading.R#L86) *warning:* **no visible global function definition for ‘Cache’**
```r
    poly <- Cache(fasterize2, rasTsf, poly, field = "polygonNum")
            ^~~~~
```
[R/leading.R:86:19:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/leading.R#L86) *warning:* **no visible binding for global variable ‘fasterize2’**
```r
    poly <- Cache(fasterize2, rasTsf, poly, field = "polygonNum")
                  ^~~~~~~~~~
```
[R/leading.R:92:11:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/leading.R#L92) *warning:* **no visible global function definition for ‘factorValues’**
```r
  levs <- factorValues(poly, levs$ID)
          ^~~~~~~~~~~~
```
[R/leading.R:93:3:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/leading.R#L93) *style:* **Variable or function name should be snake_case.**
```r
  facVals <- factorValues(
  ^~~~~~~
```
[R/leading.R:106:1:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/leading.R#L106) *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:106:34:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/leading.R#L106) *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:106:37:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/leading.R#L106) *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:110:1:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/leading.R#L110) *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:110:4:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/leading.R#L110) *style:* **Commented code should be removed.**
```r
  #tabulated <- bb[, list(NPixels = .N), by = c("zone", "polygonID", "ageClass", "vegCover")] ## keeps polyID
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/leading.R:111:1:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/leading.R#L111) *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:111:36:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/leading.R#L111) *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:112:1:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/leading.R#L112) *style:* **Lines should not be more than 80 characters.**
```r
  tabulated[, proportion := round(NPixels / sum(NPixels), 4), by = c("zone", "vegCover")]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/leading.R:112:15:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/leading.R#L112) *warning:* **no visible binding for global variable ‘proportion’**
```r
  tabulated[, proportion := round(NPixels / sum(NPixels), 4), by = c("zone", "vegCover")]
              ^~~~~~~~~~
```
[R/leading.R:112:26:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/leading.R#L112) *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:112:35:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/leading.R#L112) *warning:* **no visible binding for global variable ‘NPixels’**
```r
  tabulated[, proportion := round(NPixels / sum(NPixels), 4), by = c("zone", "vegCover")]
                                  ^~~~~~~
```
[R/leading.R:112:35:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/leading.R#L112) *warning:* **no visible binding for global variable ‘NPixels’**
```r
  tabulated[, proportion := round(NPixels / sum(NPixels), 4), by = c("zone", "vegCover")]
                                  ^~~~~~~
```
[R/leading.R:115:1:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/leading.R#L115) *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:115:4:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/leading.R#L115) *style:* **Commented code should be removed.**
```r
  #tabulated2 <- bb[, list(NPixels = .N), by = c("zone", "polygonID", "ageClass")] ## keeps polyID
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/leading.R:116:1:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/leading.R#L116) *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:116:37:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/leading.R#L116) *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:117:16:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/leading.R#L117) *warning:* **no visible binding for global variable ‘proportion’**
```r
  tabulated2[, proportion := round(NPixels / sum(NPixels), 4), by = c("zone")]
               ^~~~~~~~~~
```
[R/leading.R:117:27:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/leading.R#L117) *warning:* **no visible global function definition for ‘:=’, Did you mean ':'?**
```r
  tabulated2[, proportion := round(NPixels / sum(NPixels), 4), by = c("zone")]
                          ^~
```
[R/leading.R:117:36:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/leading.R#L117) *warning:* **no visible binding for global variable ‘NPixels’**
```r
  tabulated2[, proportion := round(NPixels / sum(NPixels), 4), by = c("zone")]
                                   ^~~~~~~
```
[R/leading.R:117:36:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/leading.R#L117) *warning:* **no visible binding for global variable ‘NPixels’**
```r
  tabulated2[, proportion := round(NPixels / sum(NPixels), 4), by = c("zone")]
                                   ^~~~~~~
```
[R/leading.R:118:3:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/leading.R#L118) *warning:* **no visible global function definition for ‘set’, Did you mean 'det'?**
```r
  set(tabulated2, NULL, "vegCover", "All species")
  ^~~
```
[R/leading.R:120:1:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/leading.R#L120) *style:* **Lines should not be more than 80 characters.**
```r
  tabulated <- rbindlist(list(tabulated, tabulated2), use.names = TRUE, fill = TRUE)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/leading.R:120:16:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/leading.R#L120) *warning:* **no visible global function definition for ‘rbindlist’**
```r
  tabulated <- rbindlist(list(tabulated, tabulated2), use.names = TRUE, fill = TRUE)
               ^~~~~~~~~
```
[R/leading.R:122:3:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/leading.R#L122) *style:* **Variable or function name should be snake_case.**
```r
  coverClasses <- raster::levels(rasVeg)[[1]]$Factor
  ^~~~~~~~~~~~
```
[R/leading.R:123:32:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/leading.R#L123) *style:* **Variable or function name should be snake_case.**
```r
  if (is.factor(coverClasses)) coverClasses <- levels(coverClasses)
                               ^~~~~~~~~~~~
```
[R/leading.R:125:5:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/leading.R#L125) *style:* **Variable or function name should be snake_case.**
```r
    coverClasses <- c(coverClasses, "All species")
    ^~~~~~~~~~~~
```
[R/leading.R:127:3:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/leading.R#L127) *style:* **Variable or function name should be snake_case.**
```r
  allCombos <- expand.grid(
  ^~~~~~~~~
```
[R/leading.R:133:4:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/leading.R#L133) *style:* **Commented code should be removed.**
```r
  #allCombos$polygonID <- match(allCombos$zone, levs$shinyLabel)
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/leading.R:144:19:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/leading.R#L144) *warning:* **no visible binding for global variable ‘proportion’**
```r
  tabulated[is.na(proportion), proportion := 0]
                  ^~~~~~~~~~
```
[R/leading.R:144:19:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/leading.R#L144) *warning:* **no visible binding for global variable ‘proportion’**
```r
  tabulated[is.na(proportion), proportion := 0]
                  ^~~~~~~~~~
```
[R/leading.R:144:43:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/leading.R#L144) *warning:* **no visible global function definition for ‘:=’, Did you mean ':'?**
```r
  tabulated[is.na(proportion), proportion := 0]
                                          ^~
```
[R/leading.R:150:1:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/leading.R#L150) *style:* **Lines should not be more than 80 characters.**
```r
        paste(gsub(basename(dirname(tsf[1])), pattern = "\\.", replacement = ""),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/leading.R:155:3:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/leading.R#L155) *style:* **Variable or function name should be snake_case.**
```r
  endTime <- Sys.time()
  ^~~~~~~
```
[R/leading.R:174:24:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/leading.R#L174) *style:* **Variable or function name should be snake_case.**
```r
fasterize2 <- function(emptyRaster, polygonToFasterize, field) {
                       ^~~~~~~~~~~
```
[R/leading.R:174:37:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/leading.R#L174) *style:* **Variable or function name should be snake_case.**
```r
fasterize2 <- function(emptyRaster, polygonToFasterize, field) {
                                    ^~~~~~~~~~~~~~~~~~
```
[R/leading.R:175:10:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/leading.R#L175) *warning:* **no visible global function definition for ‘raster’, Did you mean 'paste'?**
```r
  ras <- raster(emptyRaster)
         ^~~~~~
```
[R/leading.R:177:1:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/leading.R#L177) *style:* **Lines should not be more than 80 characters.**
```r
    polygonToFasterize <- Cache(cropInputs, polygonToFasterize, rasterToMatch = ras)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/leading.R:177:5:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/leading.R#L177) *style:* **Variable or function name should be snake_case.**
```r
    polygonToFasterize <- Cache(cropInputs, polygonToFasterize, rasterToMatch = ras)
    ^~~~~~~~~~~~~~~~~~
```
[R/leading.R:177:27:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/leading.R#L177) *warning:* **no visible global function definition for ‘Cache’**
```r
    polygonToFasterize <- Cache(cropInputs, polygonToFasterize, rasterToMatch = ras)
                          ^~~~~
```
[R/leading.R:177:33:](https://github.com/PredictiveEcology/map/blob/9fbdcb89be0759c7320eaa407b26efd8a08a26cd/R/leading.R#L177) *warning:* **no visible binding for global variable ‘cropInputs’**
```r
    polygonToFasterize <- Cache(cropInputs, polygonToFasterize, rasterToMatch = ras)
                                ^~~~~~~~~~
```


可以


Why do these packages need to be rebuilt? Will this bug of lilac affect other packages?


Changes for Moodle 3.5.
Change for TypeScript update.  (HTMLCollection -> RadioNodeList)
Updated the address of the OP Moodle testing server.
Worked on JSON Schema stuff for web scraping (not used yet).
Added macro to find HotPots.


Successfully aliased the URL <https://muhfajar-hugo-now-3zdy3vqrb.now.sh> to the following alias.

* https://muhfajar.id


ccs应该可以直接生成intel hex的
![image](https://user-images.githubusercontent.com/37376956/48882041-5628a280-ee53-11e8-9c8e-9e990649ff34.png)


@behnamxa Any reasons do you drop the calculation in OnPotenrialGrowth event? We found the yield have a big difference in the some trials with two different methods.


looks good...
1. Code indentation
2. Error handling
3. use of variables

Please consider to merge!!!


I looked at the 2.27 branch. Didn't seem like it was there. I'll look into it more later.


### Visual regression report:

[![Visual report](https://circleci.com/gh/stevector/nerdologues-d8/2076/artifacts/0/artifacts/backstop_data/bitmaps_test/20181122-043712/0600294051_Clips_by_person_0_document_0_desktop.png)](https://circleci.com/gh/stevector/nerdologues-d8/2076/artifacts/0/artifacts/backstop_data/html_report/index.html)