[R/boxPlots.R:2:1:](https://github.com/PredictiveEcology/map/blob/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/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/5d94146c0772bbce941b588400b3df1b955e3d49/R/leading.R#L177) *warning:* **no visible binding for global variable ‘cropInputs’**
```r
    polygonToFasterize <- Cache(cropInputs, polygonToFasterize, rasterToMatch = ras)
                                ^~~~~~~~~~
```


Successfully aliased the URL <https://coffee-bot-pmyncszawg.now.sh> to the following alias.

* https://coffeebot.now.sh


Filenames should not be capitalized.

Also, your name is not a good file name.

This should be named `character.py`


Annotate the output type and add a docstring


Well, It's surprising that it gives different values as it did give the same values in all of my simulations. This code is just dependent on intercepted Rs calculated by MicroClimate which would be the same regardless of how/when the model is called. If the call of a function is dependent on an Event, it is not certain in what order all the functions dependent on that specific Event would be triggered. Also, by default, **Photosynthesis** model is called on **OnDoPotentialPlantPartioning**, which is triggered right after **DoPotentialPlantGrowth*. It is the first model that is called after **OnDoPotentialPlantPartioning** is triggered. So, it should not make any difference if the model is called at the end/middle of **DoPotentialPlantGrowth** or at the beginning of **OnDoPotentialPlantPartioning**, I assume.

As to the reason I changed it, Bangyou and I were testing and comparing different photosynthesis model and we usually kept all those models in the model Tree in APSIM file and just changed their names from Photosynthesis to Photosynthesis_Whatever to make sure each time only one model was run. The thing is that if this model was called on **DoPotentialPlantGrowth**, it would always be run even when we did not need it. I share this idea with Bangyou and explained why I think we should have dropped this (and I did not know someone else was also working on this). He never responded, of course, and we needed to make this change as part of the model we were working on at the time.

As I said, it gave the same values for all the experiments I tested. So, if you still think we should get back to the previous setting, I will make the changes.


The ----- is fine, but you will have weird diffs if you change the message.


Hey I did this!


Docstring go directly after the method/function definition and before any logic.


:trollface: No one is supposed to be reading this :slightly_smiling_face:


Cause makepack is gone so there needs to be a way to link said pack when you aren't kanging something.


Successfully aliased the URL <https://coffee-bot-mziksgbszt.now.sh> to the following alias.

* https://coffeebot.now.sh


You can use `\n` to add empty lines.


You can move this into some main function. Don't make the init code complicated.


I agree. But you don't have a test for the lifetime don't you?


learning python and implementing my 1st project on jupyter lab


Successfully aliased the URL <https://coffee-bot-tuzfibruqs.now.sh> to the following alias.

* https://coffeebot.now.sh


Решение верное, но реализация - нет.
Попробуйте превратить, используя это решение, вот такой массив: `numbers = [1, 5, 7, 2, 9, 6]`
Посмотрите что получится, а потом еще раз прочитайте задание: `Метод должен преобразовать массив в хэш, в котором ключом будет являться порядковый номер числа (отсчет должен начинаться с единицы), а значением - само число, и вернуть его в качестве результата.`

Подсказка: Можно просто вместе с методом `map` вызвать еще один метод `with_index`. И тогда в блоке будет два аргумента - |number, index|, и вот их и надо помещать в массив `[index, number|`.


### Visual regression report:

[![Visual report](https://circleci.com/gh/stevector/nerdologues-d8/2080/artifacts/0/artifacts/backstop_data/bitmaps_test/20181122-051031/failed_diff_0600294051_clip_1_0_document_0_desktop.png)](https://circleci.com/gh/stevector/nerdologues-d8/2080/artifacts/0/artifacts/backstop_data/html_report/index.html)


merge #1 11/21/18


Noticed a couple issues when playing:
* Items were never used (or I didn't notice it). If it's not needed, don't include it
* `is_over()` doesn't work. I had to input an extra `[f]` command to end the game
* It was unclear who was an ally when seeing information in-between battle actions. Maybe add the information into prints during the logic loop
* I shouldn't have to select a target if there is only one possible target. You did this properly during the first game, but not during the second. You may want to check for that in after `all_enemy_locations` in `act`, by filtering dead players out for choice selection.


That's ugly but I know that they is no direct way though the API :)


В общем, в ревизии c53dd11287d40cc250f109486cfcb20d4073d1a3 убрал `// fall through` и заодно починил пару ошибок компиляции, которые не заметил из-за неконсистентного линка.


Nice catch!


Successfully aliased the URL <https://coffee-bot-vfttobrfzj.now.sh> to the following alias.

* https://coffeebot.now.sh


[R/verse.R:108:3:](https://github.com/IndrajeetPatil/devtoolverse/blob/ab90aac74befd96c2280c6bbec555ba7c1d2b27e/R/verse.R#L108) *warning:* **local variable ‘pkg_names’ assigned but may not be used**
```r
  pkg_names <- paste0("package:", devtoolverse_packages())
  ^~~~~~~~~
```


点点滴滴姐姐那你呢


gosh... couldn't you clean this up and make it look nice?


The toggle event is currently working but the text is not getting pass to it so js debugger name items as SyntheticEvents.

![image](https://user-images.githubusercontent.com/31334379/48883137-593c7800-edec-11e8-9e80-72df0b9ef73f.png)


@Tratcher add another call to GetService and assert that the second instance is the same as the first (Assert.Same)


That's fine . . I'm that `No one` :-)


Not exactly a bug fix


Название метода тоже не совсем удачное.
`train.length` выглядит не совсем понятно и странно. Почему бы не назвать метод `wagons_amount`? Сразу понятно, что он вернет количество вагонов.
Не бойтесь называть методы понятными именами, даже если они будут длинными.


Created multidev environment [rescue-x#oct-18](https://dashboard.pantheon.io/sites/c8430b75-4272-4aca-bfcd-206b12279315#oct-18).

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


По заданию при создании поезда мы передаем ему еще и количество вагонов. У вас опять же переменная названа так, как будто в ней содержатся именно вагоны, а не просто их количество.
В данном случае логичнее ее назвать `@wagons_amount`.


test comment


5+0.05 and then 20+0.2 is usual TC for multithreaded tests.


### Visual regression report:

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


On MacOS, should use <OpenGL/gl.h> instead
Could use a flag to determine which operating system it is


Fixed this :
![image](https://user-images.githubusercontent.com/8507657/48883657-12b54080-ee21-11e8-8e9f-70863fd8d41c.png)


Using c++11 new features, declared in header file


explicitly define OpenGL version


Все методы ниже должны быть `private`


Отступ


`when` на одном уровне с `case`


Add valid.


Целью дипломной работы был расчёт и вывод на экран параметров, поэтому для реализации выбрал такой способ.


ㅁㅇㄻㄴㅇ


Much better than https://github.com/geekitude/dokuwiki-template-colornews/commit/0800f6f0df5292cb9857332def66694d71ac68bf and https://github.com/geekitude/dokuwiki-template-colornews/commit/20f07f6d13d0d257fcc7487d84a0f54f7ca0c20d


### Visual regression report:

[![Visual report](https://circleci.com/gh/stevector/nerdologues-d8/2088/artifacts/0/artifacts/backstop_data/bitmaps_reference/0600294051_Clip_archive_0_document_0_desktop.png)](https://circleci.com/gh/stevector/nerdologues-d8/2088/artifacts/0/artifacts/backstop_data/html_report/index.html)


> Dear @BajanVlogs:
> I regret to inform you that the release you submitted, named "**CellPE**" (v2.0.4), for the project [CellPE](https://poggit.pmmp.io/ci/BajanVlogs/CellPE/CellPE) on 2018-11-21T09:15:51.000Z, has been rejected.

Violation of plugin submission rule B1:
> Plugins must not support unreleased API versions, i.e. anything not found in https://github.com/pmmp/PocketMine-MP/releases
> Plugins must not list redundant API versions in the plugin.yml. Only the earliest supported API in each major version needs to be listed, i.e. 3.2.0 is not necessary if 3.1.0 is already listed

> Please resolve the issues listed above and submit the updated plugin again.
> Note: This comment is created here because this is the last commit when the released build was created.


The bulk of this commit is the install script, which performs the following tasks in order:

- Checks to see if it is being run from the correct directory (root of the repository).
- Makes sure that global dependencies (MySQL, yarn, pip, virtualenv, lxml) are installed.
- Creates the MySQL database automatically, assuming the service is running. Root password required.
- Sets up the virtual environment and activates it.
- Installs yarn modules for the frontend, pip modules for the backend.
- Runs the *webreg_master.py* file in the backend to perform scraping, parsing, and cleaning.

Additionally, I have modified the driver path to be OS agnostic; the python script will automatically switch
to the correct platform-dependent driver depending on the output of `sys.platform`. I also added back
the `timeutil` folder, since you seem to have deleted that, and it is required for *webreg_master.py* to be able
to run correctly.

This should fix up a lot of #23. In the (near) future, we will perhaps want to move this to some sort of Dockerfile.


o


ky trch chalu ahe ml ky smzt nahi ahe


איך הוא אוהב


> The first parameter set in your last post are closer to the release for my clips (maybe tint a bit too red). The 2nd ones are too warm on temp-slider - for some clips I don't get a "real white".
Masc. Are you getting more correct whites with the official version or is the issue the same for both builds with those problematic clips of yours?
If you didn´t compare it sure would be nice to have those test files :).
Here are two problematic blue corruption files of mine:
https://bitbucket.org/Dannephoto/magic-lantern/downloads/wb_M09-1001.MLV
https://bitbucket.org/Dannephoto/magic-lantern/downloads/wb_M04-1938.MLV


depends:
  tidyverse,
  data.table,
  stringr,
  geosphere


简要介绍PYNQ-Z2开发板资源以及运行官方Demo


Перевод строки


TYPO: выхода


` <p>ユーザエージェントがコンテンツ要素をレンダリングする際の (画面、音声スピーカー、点字ディスプレイなどを介する) 提示方法を値によって指定する属性。`
この最後の「属性」ってどうしたらいいでしょうか?


the calculation of the cooling system/Form1.cs

Классы желательно называть полным именем, не плодя Class1, Class2, Class3...
Если это главная форма, то ее можно назвать MainForm или AppForm, другие же формы лучше называть так: <ЧтоЭтоЗаФорма>Form


Now, why did you rename the internal variable to `params_pass` now? `default_params: self.default_params` :yum:


Unsupported declare 'strict_types'
realy? i can`t run with php5.6 but success with php7.0


Please can we freeze commits to dev and give this build a good test. If no issues are reported I'd like to merge to release branch and build a release.


- took out self.inbounds() checks. The wumpus always being accurate is a testament to the accuracy of being inbounds. Must decide later whether to keep in self.inbounds() checks or not. The complication is that sometimes self.row and/or self.column go above 6 or below 0. In these instances, they are always fixed, but they are currently fixed at the beginning of getAction. Adding bounds checking might be useful if moved to getAction function. Would be smart to also take out bounds checking for final submission to avoid any possibility of an error being raised by my program and ruining the grade.


С кнопками то же самое, не button1, а, например, Open<ЧтоЭтоЗаФорма>FormButton_Click.
И вообще кодстайл c# - методы с большой буквы (хоть это и ужс)


修改了button的type


В `@trains` добавится `nil` в случае неправильного ввода. Можно сразу добавлять
```
case gets.to_i
when 1 then @trains << PassengerTrain.new(number_train)
when 2 then @trains << CargoTrain.new(number_train)
else
  puts 'Ошибка вввода'
end
```


Убрать пробел между названием и параметром


typo, x instead px


Возможно, стоит использовать универсальную ссылку вида `//www.youtube.com/embed/`.


Created multidev environment [ilsoy#ci-183](https://dashboard.pantheon.io/sites/1b49470e-4ad3-4b49-90a2-7bb2c2f96788#ci-183).

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


THIS WAS THE BEST ACCURACY GROUP CODE


the calculation of the cooling system/Form2.cs

Лучше использовать на проверку пустой строки str.IsEmpty() или IsNullOrEmpty()
Длина строки слишком большая, старайся не превышать 120 символов, побольше раздели проверки.
Ну и вот сам же понимаешь, что textBox1, textBox2 - это нечитаемо, напиши 1-3 слова что это за textBox, для себя же, например, piTextBox, alfaTextBox...


the calculation of the cooling system/Form3.cs

Тут понятно, что с лейблами делать :D


Лучше все `puts` в отдельный метод вынести, чем вызов обработчика


the calculation of the cooling system/bin/Debug/the calculation of the cooling system.exe.config

Все твои .exe файлы, да и вообще все что в папках Debug/Release, не должно находиться на github, нужно добавить .gitignore файл, почитай что это


Code review


Created multidev environment [ilsoy#ci-185](https://dashboard.pantheon.io/sites/1b49470e-4ad3-4b49-90a2-7bb2c2f96788#ci-185).

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


Желательно добавить проверку, что `train` и `route` не `nil`


Желательно добавить проверку, что `route` и `station` не `nil`


Ну, как минимум оригинальная ошибка починилась:

![image](https://user-images.githubusercontent.com/674287/48884638-ee3e7180-edea-11e8-9d2a-1a9997001471.png)

Теперь самое главное - найти все регрессии. :)


Successfully aliased the URL <https://100daysofsketches-ixspnhxwga.now.sh> to the following alias.

* https://100daysofsketches.com


add this property for google chrome
-webkit-clip-path: polygon(0 0, 100% 0, 100% 75vh, 0 100%);


merge


Replace div with h3 tag
                <h3 class="heading-secondary">
                    Exciting tours for adventurous people
                </h3>


hi


What is the benefit of using this function instead of simple class component?
```
class TextArea extends React.Component {
...
}
```


Test failures are unrelated:

* Running XM tests on '10.8': https://github.com/xamarin/maccore/issues/1098


Setting state to `success` where context is `continuous-integration/jenkins/branch`.

No blocking issues found


Щас поставлю обкатать на основе


Sorry!


Looks like we are on a legacy purge spree.


Я бы сделал как-то так:
```
def create_train
  train_number = get_train_number
  train_type = get_train_type
  return if train_number.nil? || train_type.nil?
  train_type.new(train_number)
end
```


Лучше сначала сам, на зеркале. Патч очень большой и Ладник уже как минимум один баг нашёл. Я вовсе не уверен, что это просто не сломает файлы игроков, например. Загрузка/сохранение там тоже менялись.


Aliasing failed with the following error:

~~~
Error! This region (gru1) only accepts Serverless Docker Deployments (400)
~~~


This commit has been mentioned on **Discourse Meta**. There might be relevant details there:

https://meta.discourse.org/t/is-the-wizard-supposed-to-not-let-you-skip-adding-icons/102417/7


@sachinnitw1317 use log(), rather than print. env management will be easy.


> ccs应该可以直接生成intel hex的 我这个截图是其他芯片的工程
> ![image](https://user-images.githubusercontent.com/37376956/48882041-5628a280-ee53-11e8-9c8e-9e990649ff34.png)

学到了，这个其实我当时调过但是我当时编译的时候好像忘记把debug调成release了orz（我一些编译的选项只在release那里调了）。我刚刚在properties -> Build -> GNU Objcopy Utility -> General Options 里找到了个可用的ihex并且生成了一遍，文件在这
[lctf.txt](https://github.com/LCTF/LCTF2018/files/2606770/lctf.txt)
这个文件可以正常打开，不过有趣的是开GNU的编译器（Release_GNU）才可以正常生成，同样配置用TI的编译器报错了orz，具体原因现在没有深究
最后感谢师傅指出这个问题，不知道介意我把这些写到issue里么。
这题确实准备得很仓促（emmm。。。是第一天比赛re被AK后我们发现剩下的re难度都不高了所以就当天凌晨写的，早上放出来 = =），而且选用430是因为在活动室只找到这块。。。当时也因为太晚没法回宿舍拿stm32或者8051的板子（这两个我比较熟悉，430说实话是我第一次写，活动室那块launchpad我拿到的时候都没开封。ccs也是我很久以前装了后来没用过），写完后才发现hex格式不是标准的没法被IDA载入，但也来不及改了。然而这题放出来后没多久也被A了 orz ，现在看来主要还是因为编译时的配置不对。我还是要为这题的准备仓促道个歉。


Вынести в константу


Hi,
May I know in which version this fix will be released. I am not seeing these changes in 4.0.0.4 Beta version.

Thanks,
Praveen


Конечно ошибка, смахивает на дикий абуз


@sachinnitw1317 status_code should be 404


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

* https://gnk.io
* https://www.gnk.io


```
train = select_train
break if train.nil?
```


На зеркале никто не хочет утруждать тестить, я после бэкапа залью на основу


第二次修改提交


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


Comment : referenced by smart8612


The fact that calling host.Start changes the state of the service instance we independently resolved proves it's a single.


> Конечно ошибка, смахивает на дикий абуз

Тогда надо будет поправить после (чтобы лишние конфликты исключить) этого патча отдельным тикетом.


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

* https://gnk.io
* https://www.gnk.io


> На зеркале никто не хочет утруждать тестить, я после бэкапа залью на основу

Ну, моё дело предупредить.


You know the problem though is there is a bit of discord between what the client finds out with `is_local_username` and what the server later on see. I think we really should strip out unmentionable Groups and staged users, surprised we never picked up on this bug earlier, should also add some tests for it.


At this point it's just another useless code that serves no purpose so it's best to cleanup and purge it.


Тут правильнее решить с  помощью ооп. Сделать метод в наследниках, который проверяет может ли поезд прицепить вагон.
Поле type можно удалить из вагона. Для проверки используй `is_a?`


Super happy this is merged in :confetti_ball: :confetti_ball: :confetti_ball:


j'ai vue ce que u as fait
cependant
j'ai l'impession qu'il y a des conflit, on regarde ensemble tout à l'heur


try


This is removed actually.
Not sure how this is seen here


float 改用 flexbox，左侧的内容区域是不是加上 `flex-grow: 1;` 比较好？

从`2.4.9` 升级到 `2.4.11` 时，发现有些页面样式不对，查了下提交历史发现原因在这里...


Consider the case when `$string` is `; sleep 60 #` then `sleep 60` will be executed. The `addslashes` function can't protect against command injection. Can you give me the example of `$string` that is not suitable with `escapeshellarg`? I tried in my local both with `escapeshellarg` and `addslashes` with `$string` is `example` and both produce the same result. Can confirm with manual execution with ImageMagick (`convert`), `text 100,100 example` and `text 100,100 'example'` produce the same result.


I totally get not wanting a "rescue everything"  the flip side though is ... new ruby comes out, new exception pops up, more maintenance is required. Plus the 3 followup commits to add all the rescues we miss.

I guess there is just no way of having the cake and eating it too


aaaaaaaaaaaaa


oh, this has a link to the old patch set. Please have a look at the PR


11.22日貌似已经无法跨域去获取行情了


Интерфейс

29 строка: `show_game_result(winner, user_name, dealer_name)` - два последних аргумента не используются


aaa


Created multidev environment [ilsoy#ci-188](https://dashboard.pantheon.io/sites/1b49470e-4ad3-4b49-90a2-7bb2c2f96788#ci-188).

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


хорошей практикой является введение класса `Hand`, который не просто содержит карты игрока, но и занимается подсчетом очков

класс этот нужен для выделения функционала
для простоты дальнейшей поддержки кода, классы стараются писать узко специализированными по функционалу
текущий класс Игрок занимается как минимум 2-мя разными вещами:
- берет карты в процессе игры (это действительно некому перепоручить - это точно функция игрока)
- производит расчет стоимости карт на руках - это лучше передать в отдельный класс (я предложил `Hand`), который будет хранить карты игрока и уметь считать их стоимость (руку также надо инициализировать в игроке)

если разделить обязанности игрока таким образом - это будет более правильный подход к дизайну классов, чем сейчас


why this? giving problems?


Why this doesn't work with MINGW32?


Deployment failed with the following error:

~~~
One or more build specification(s) were not referenced
~~~


O good catch :+1: Let me see if I can unify the queries here.


[R/collect_esses.R:11:3:](https://github.com/richelbilderbeek/razzo/blob/d620e691cbc1b8f46d61f3d36b79b1e78b7c4508/R/collect_esses.R#L11) *warning:* **no visible global function definition for ‘check_project_folder_name’**
```r
  check_project_folder_name(project_folder_name)
  ^~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/create_bd_tree.R:70:18:](https://github.com/richelbilderbeek/razzo/blob/d620e691cbc1b8f46d61f3d36b79b1e78b7c4508/R/create_bd_tree.R#L70) *warning:* **no visible global function definition for ‘bd_phylo_2_l_table’**
```r
  bd_l_matrix <- bd_phylo_2_l_table(bd_tree)
                 ^~~~~~~~~~~~~~~~~~
```
[R/create_esses_file.R:15:21:](https://github.com/richelbilderbeek/razzo/blob/d620e691cbc1b8f46d61f3d36b79b1e78b7c4508/R/create_esses_file.R#L15) *warning:* **no visible global function definition for ‘get_results_path’**
```r
  results_folder <- get_results_path(project_folder_name)
                    ^~~~~~~~~~~~~~~~
```
[R/create_fig_1_file.R:15:21:](https://github.com/richelbilderbeek/razzo/blob/d620e691cbc1b8f46d61f3d36b79b1e78b7c4508/R/create_fig_1_file.R#L15) *warning:* **no visible global function definition for ‘get_results_path’**
```r
  results_folder <- get_results_path(project_folder_name)
                    ^~~~~~~~~~~~~~~~
```
[R/create_marg_liks_file.R:15:21:](https://github.com/richelbilderbeek/razzo/blob/d620e691cbc1b8f46d61f3d36b79b1e78b7c4508/R/create_marg_liks_file.R#L15) *warning:* **no visible global function definition for ‘get_results_path’**
```r
  results_folder <- get_results_path(project_folder_name)
                    ^~~~~~~~~~~~~~~~
```
[R/create_nltt_stats_file.R:15:21:](https://github.com/richelbilderbeek/razzo/blob/d620e691cbc1b8f46d61f3d36b79b1e78b7c4508/R/create_nltt_stats_file.R#L15) *warning:* **no visible global function definition for ‘get_results_path’**
```r
  results_folder <- get_results_path(project_folder_name)
                    ^~~~~~~~~~~~~~~~
```
[R/get_data_paths.R:11:3:](https://github.com/richelbilderbeek/razzo/blob/d620e691cbc1b8f46d61f3d36b79b1e78b7c4508/R/get_data_paths.R#L11) *warning:* **no visible global function definition for ‘check_project_folder_name’**
```r
  check_project_folder_name(project_folder_name)
  ^~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/get_results_paths.R:11:3:](https://github.com/richelbilderbeek/razzo/blob/d620e691cbc1b8f46d61f3d36b79b1e78b7c4508/R/get_results_paths.R#L11) *warning:* **no visible global function definition for ‘check_project_folder_name’**
```r
  check_project_folder_name(project_folder_name)
  ^~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/utils.R:65:10:](https://github.com/richelbilderbeek/razzo/blob/d620e691cbc1b8f46d61f3d36b79b1e78b7c4508/R/utils.R#L65) *warning:* **no visible global function definition for ‘convert_tree2brts’**
```r
  brt <- convert_tree2brts(phylo)
         ^~~~~~~~~~~~~~~~~
```


This line should not be here. However, there should be a method for setting both to the same param