[R/plotting-colours.R:89:1:](https://github.com/PredictiveEcology/quickPlot/blob/e602ca0d2f64ed9fc5eca8b63783fa55a3a59b18/R/plotting-colours.R#L89) *style:* **Lines should not be more than 100 characters.**
```r
      if (all(na.omit(object[])%%1==0)) { # some factor rasters are actually real number -- makes no sense
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/plotting-colours.R:89:32:](https://github.com/PredictiveEcology/quickPlot/blob/e602ca0d2f64ed9fc5eca8b63783fa55a3a59b18/R/plotting-colours.R#L89) *style:* **Put spaces around all infix operators.**
```r
      if (all(na.omit(object[])%%1==0)) { # some factor rasters are actually real number -- makes no sense
                              ~^~~
```
[R/plotting-colours.R:89:35:](https://github.com/PredictiveEcology/quickPlot/blob/e602ca0d2f64ed9fc5eca8b63783fa55a3a59b18/R/plotting-colours.R#L89) *style:* **Put spaces around all infix operators.**
```r
      if (all(na.omit(object[])%%1==0)) { # some factor rasters are actually real number -- makes no sense
                                 ~^~~
```
[R/plotting-colours.R:89:41:](https://github.com/PredictiveEcology/quickPlot/blob/e602ca0d2f64ed9fc5eca8b63783fa55a3a59b18/R/plotting-colours.R#L89) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
      if (all(na.omit(object[])%%1==0)) { # some factor rasters are actually real number -- makes no sense
                                        ^
```
[R/plotting-colours.R:106:1:](https://github.com/PredictiveEcology/quickPlot/blob/e602ca0d2f64ed9fc5eca8b63783fa55a3a59b18/R/plotting-colours.R#L106) *style:* **Lines should not be more than 100 characters.**
```r
      if (all(na.omit(object[])%%1==0)) { # some factor rasters are actually real number -- makes no sense
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/plotting-colours.R:106:32:](https://github.com/PredictiveEcology/quickPlot/blob/e602ca0d2f64ed9fc5eca8b63783fa55a3a59b18/R/plotting-colours.R#L106) *style:* **Put spaces around all infix operators.**
```r
      if (all(na.omit(object[])%%1==0)) { # some factor rasters are actually real number -- makes no sense
                              ~^~~
```
[R/plotting-colours.R:106:35:](https://github.com/PredictiveEcology/quickPlot/blob/e602ca0d2f64ed9fc5eca8b63783fa55a3a59b18/R/plotting-colours.R#L106) *style:* **Put spaces around all infix operators.**
```r
      if (all(na.omit(object[])%%1==0)) { # some factor rasters are actually real number -- makes no sense
                                 ~^~~
```
[R/plotting-colours.R:106:41:](https://github.com/PredictiveEcology/quickPlot/blob/e602ca0d2f64ed9fc5eca8b63783fa55a3a59b18/R/plotting-colours.R#L106) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
      if (all(na.omit(object[])%%1==0)) { # some factor rasters are actually real number -- makes no sense
                                        ^
```
[R/plotting-colours.R:131:1:](https://github.com/PredictiveEcology/quickPlot/blob/e602ca0d2f64ed9fc5eca8b63783fa55a3a59b18/R/plotting-colours.R#L131) *style:* **Lines should not be more than 100 characters.**
```r
      if (all(na.omit(object[])%%1==0)) { # some factor rasters are actually real number -- makes no sense
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/plotting-colours.R:131:32:](https://github.com/PredictiveEcology/quickPlot/blob/e602ca0d2f64ed9fc5eca8b63783fa55a3a59b18/R/plotting-colours.R#L131) *style:* **Put spaces around all infix operators.**
```r
      if (all(na.omit(object[])%%1==0)) { # some factor rasters are actually real number -- makes no sense
                              ~^~~
```
[R/plotting-colours.R:131:35:](https://github.com/PredictiveEcology/quickPlot/blob/e602ca0d2f64ed9fc5eca8b63783fa55a3a59b18/R/plotting-colours.R#L131) *style:* **Put spaces around all infix operators.**
```r
      if (all(na.omit(object[])%%1==0)) { # some factor rasters are actually real number -- makes no sense
                                 ~^~~
```
[R/plotting-colours.R:131:41:](https://github.com/PredictiveEcology/quickPlot/blob/e602ca0d2f64ed9fc5eca8b63783fa55a3a59b18/R/plotting-colours.R#L131) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
      if (all(na.omit(object[])%%1==0)) { # some factor rasters are actually real number -- makes no sense
                                        ^
```
[R/plotting-colours.R:284:75:](https://github.com/PredictiveEcology/quickPlot/blob/e602ca0d2f64ed9fc5eca8b63783fa55a3a59b18/R/plotting-colours.R#L284) *style:* **Put spaces around all infix operators.**
```r
    isFac <- any(raster::is.factor(grobToPlot)) & all(na.omit(grobToPlot[]%%1)==0)
                                                                         ~^~~
```
[R/plotting-colours.R:284:79:](https://github.com/PredictiveEcology/quickPlot/blob/e602ca0d2f64ed9fc5eca8b63783fa55a3a59b18/R/plotting-colours.R#L284) *style:* **Put spaces around all infix operators.**
```r
    isFac <- any(raster::is.factor(grobToPlot)) & all(na.omit(grobToPlot[]%%1)==0)
                                                                             ~^~~
```
[R/plotting-helpers.R:1023:44:](https://github.com/PredictiveEcology/quickPlot/blob/e602ca0d2f64ed9fc5eca8b63783fa55a3a59b18/R/plotting-helpers.R#L1023) *style:* **Commas should always have a space after.**
```r
          grobToPlot <- grobToPlot[polySeq,]
                                           ^
```
[R/plotting-helpers.R:1028:38:](https://github.com/PredictiveEcology/quickPlot/blob/e602ca0d2f64ed9fc5eca8b63783fa55a3a59b18/R/plotting-helpers.R#L1028) *style:* **Commas should always have a space after.**
```r
        grobToPlot <- grobToPlot[a[1,],]
                                     ^
```
[R/plotting-helpers.R:1028:40:](https://github.com/PredictiveEcology/quickPlot/blob/e602ca0d2f64ed9fc5eca8b63783fa55a3a59b18/R/plotting-helpers.R#L1028) *style:* **Commas should always have a space after.**
```r
        grobToPlot <- grobToPlot[a[1,],]
                                       ^
```
[R/plotting-helpers.R:1291:41:](https://github.com/PredictiveEcology/quickPlot/blob/e602ca0d2f64ed9fc5eca8b63783fa55a3a59b18/R/plotting-helpers.R#L1291) *style:* **Put spaces around all infix operators.**
```r
            if (all(na.omit(grobToPlot[]%%1)==0)) {
                                       ~^~~
```
[R/plotting-helpers.R:1291:45:](https://github.com/PredictiveEcology/quickPlot/blob/e602ca0d2f64ed9fc5eca8b63783fa55a3a59b18/R/plotting-helpers.R#L1291) *style:* **Put spaces around all infix operators.**
```r
            if (all(na.omit(grobToPlot[]%%1)==0)) {
                                           ~^~~
```
[R/plotting-helpers.R:1380:1:](https://github.com/PredictiveEcology/quickPlot/blob/e602ca0d2f64ed9fc5eca8b63783fa55a3a59b18/R/plotting-helpers.R#L1380) *style:* **Lines should not be more than 100 characters.**
```r
    grid.rect(x = 0, height = unit(1 + needsNewTitle * inherits(grobToPlot, "Raster") * 0.20 / (nRows / 2), "npc"),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/plotting-helpers.R:2511:1:](https://github.com/PredictiveEcology/quickPlot/blob/e602ca0d2f64ed9fc5eca8b63783fa55a3a59b18/R/plotting-helpers.R#L2511) *style:* **Lines should not be more than 100 characters.**
```r
#'          jitter(sort(rbeta(nPoints, betaPar, betaPar) * (maxY - minY) + minY, decreasing = TRUE)),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/plotting-helpers.R:2589:1:](https://github.com/PredictiveEcology/quickPlot/blob/e602ca0d2f64ed9fc5eca8b63783fa55a3a59b18/R/plotting-helpers.R#L2589) *style:* **Variable or function name should be lowerCamelCase.**
```r
thin.SpatialPolygons <- function(x, tolerance = NULL, returnDataFrame = FALSE, minCoordsToThin = 0,
^~~~~~~~~~~~~~~~~~~~
```
[R/plotting-helpers.R:2610:8:](https://github.com/PredictiveEcology/quickPlot/blob/e602ca0d2f64ed9fc5eca8b63783fa55a3a59b18/R/plotting-helpers.R#L2610) *style:* **Commented code should be removed.**
```r
      #xyOrd[["out"]] <- xyOrd[["out"]][thinRes, ]# thin line
       ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/plotting-helpers.R:2633:50:](https://github.com/PredictiveEcology/quickPlot/blob/e602ca0d2f64ed9fc5eca8b63783fa55a3a59b18/R/plotting-helpers.R#L2633) *style:* **Commas should always have a space after.**
```r
            dat <- x@data[as.numeric(names1) + 1,]
                                                 ^
```
[R/plotting-helpers.R:2634:14:](https://github.com/PredictiveEcology/quickPlot/blob/e602ca0d2f64ed9fc5eca8b63783fa55a3a59b18/R/plotting-helpers.R#L2634) *style:* **Commented code should be removed.**
```r
            #row.names(dat) <- as.character(seq_len(length(xyOrd)))
             ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/plotting-helpers.R:2666:1:](https://github.com/PredictiveEcology/quickPlot/blob/e602ca0d2f64ed9fc5eca8b63783fa55a3a59b18/R/plotting-helpers.R#L2666) *style:* **Variable or function name should be lowerCamelCase.**
```r
thin.default <- function(x, tolerance, returnDataFrame, minCoordsToThin, ...) {
^~~~~~~~~~~~
```
[R/plotting-helpers.R:2701:3:](https://github.com/PredictiveEcology/quickPlot/blob/e602ca0d2f64ed9fc5eca8b63783fa55a3a59b18/R/plotting-helpers.R#L2701) *style:* **Variable or function name should be lowerCamelCase.**
```r
  IDs <- tryCatch(unlist(lapply(ordSeq, function(xx) {
  ^~~
```
[R/plotting-helpers.R:2726:7:](https://github.com/PredictiveEcology/quickPlot/blob/e602ca0d2f64ed9fc5eca8b63783fa55a3a59b18/R/plotting-helpers.R#L2726) *style:* **Commented code should be removed.**
```r
    # Polygons <- rep(rep(seq(numPolygons), numPolygon), idLength$V1) # sequential numbering
      ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/plotting-helpers.R:2727:5:](https://github.com/PredictiveEcology/quickPlot/blob/e602ca0d2f64ed9fc5eca8b63783fa55a3a59b18/R/plotting-helpers.R#L2727) *style:* **Variable or function name should be lowerCamelCase.**
```r
    Polygons <- rep(rep(IDs, numPolygon), idLength$V1) # actual ID labelling
    ^~~~~~~~
```
[R/plotting-helpers.R:2728:5:](https://github.com/PredictiveEcology/quickPlot/blob/e602ca0d2f64ed9fc5eca8b63783fa55a3a59b18/R/plotting-helpers.R#L2728) *style:* **Variable or function name should be lowerCamelCase.**
```r
    Polygon <- rep(unlist(lapply(numPolygon, seq)), idLength$V1)
    ^~~~~~~
```
[R/plotting-helpers.R:2735:36:](https://github.com/PredictiveEcology/quickPlot/blob/e602ca0d2f64ed9fc5eca8b63783fa55a3a59b18/R/plotting-helpers.R#L2735) *style:* **Commas should always have a space after.**
```r
    return(data.frame(lat = xyOrd[,1], long = xyOrd[,2], order = orders,
                                   ^
```
[R/plotting-helpers.R:2735:54:](https://github.com/PredictiveEcology/quickPlot/blob/e602ca0d2f64ed9fc5eca8b63783fa55a3a59b18/R/plotting-helpers.R#L2735) *style:* **Commas should always have a space after.**
```r
    return(data.frame(lat = xyOrd[,1], long = xyOrd[,2], order = orders,
                                                     ^
```
[R/plotting-helpers.R:2737:1:](https://github.com/PredictiveEcology/quickPlot/blob/e602ca0d2f64ed9fc5eca8b63783fa55a3a59b18/R/plotting-helpers.R#L2737) *style:* **Lines should not be more than 100 characters.**
```r
                      #group = paste0(as.character(Polygons), ".", as.character(Polygon)))) # the actual fortify
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/plotting-helpers.R:2740:40:](https://github.com/PredictiveEcology/quickPlot/blob/e602ca0d2f64ed9fc5eca8b63783fa55a3a59b18/R/plotting-helpers.R#L2740) *style:* **Commas should always have a space after.**
```r
    out <- setDT(data.frame(x = xyOrd[,1], y = xyOrd[,2], groups = groups))
                                       ^
```
[R/plotting-helpers.R:2740:55:](https://github.com/PredictiveEcology/quickPlot/blob/e602ca0d2f64ed9fc5eca8b63783fa55a3a59b18/R/plotting-helpers.R#L2740) *style:* **Commas should always have a space after.**
```r
    out <- setDT(data.frame(x = xyOrd[,1], y = xyOrd[,2], groups = groups))
                                                      ^
```
[R/plotting-helpers.R:2755:1:](https://github.com/PredictiveEcology/quickPlot/blob/e602ca0d2f64ed9fc5eca8b63783fa55a3a59b18/R/plotting-helpers.R#L2755) *style:* **Lines should not be more than 100 characters.**
```r
    which(polygon@data$Shape_Area>(sort(polygon@data$Shape_Area, decreasing = TRUE)[maxNumPolygons]))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/plotting-helpers.R:2755:34:](https://github.com/PredictiveEcology/quickPlot/blob/e602ca0d2f64ed9fc5eca8b63783fa55a3a59b18/R/plotting-helpers.R#L2755) *style:* **Put spaces around all infix operators.**
```r
    which(polygon@data$Shape_Area>(sort(polygon@data$Shape_Area, decreasing = TRUE)[maxNumPolygons]))
                                ~^~
```
[R/plotting-helpers.R:2755:35:](https://github.com/PredictiveEcology/quickPlot/blob/e602ca0d2f64ed9fc5eca8b63783fa55a3a59b18/R/plotting-helpers.R#L2755) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    which(polygon@data$Shape_Area>(sort(polygon@data$Shape_Area, decreasing = TRUE)[maxNumPolygons]))
                                  ^
```
[R/plotting-helpers.R:2778:26:](https://github.com/PredictiveEcology/quickPlot/blob/e602ca0d2f64ed9fc5eca8b63783fa55a3a59b18/R/plotting-helpers.R#L2778) *style:* **Commas should always have a space after.**
```r
          totalAvailable," polygons in this view. See options('quickPlot.maxNumPolygons')")
                         ^
```
[R/plotting-other.R:202:48:](https://github.com/PredictiveEcology/quickPlot/blob/e602ca0d2f64ed9fc5eca8b63783fa55a3a59b18/R/plotting-other.R#L202) *style:* **Put spaces around all infix operators.**
```r
  if (any(raster::is.factor(ras1)) & all(ras1[]%%1==0)) {
                                              ~^~~
```
[R/plotting-other.R:202:51:](https://github.com/PredictiveEcology/quickPlot/blob/e602ca0d2f64ed9fc5eca8b63783fa55a3a59b18/R/plotting-other.R#L202) *style:* **Put spaces around all infix operators.**
```r
  if (any(raster::is.factor(ras1)) & all(ras1[]%%1==0)) {
                                                 ~^~~
```
[R/plotting-other.R:251:30:](https://github.com/PredictiveEcology/quickPlot/blob/e602ca0d2f64ed9fc5eca8b63783fa55a3a59b18/R/plotting-other.R#L251) *style:* **Commas should always have a space after.**
```r
    if (sum(corners$coords[1,] - corners$coords[2,]) %==% 0) {
                             ^
```
[R/plotting-other.R:251:51:](https://github.com/PredictiveEcology/quickPlot/blob/e602ca0d2f64ed9fc5eca8b63783fa55a3a59b18/R/plotting-other.R#L251) *style:* **Commas should always have a space after.**
```r
    if (sum(corners$coords[1,] - corners$coords[2,]) %==% 0) {
                                                  ^
```
[R/plotting-other.R:335:27:](https://github.com/PredictiveEcology/quickPlot/blob/e602ca0d2f64ed9fc5eca8b63783fa55a3a59b18/R/plotting-other.R#L335) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
    if (length(row) == 0) { # above the plot
                          ^
```
[R/plotting-other.R:338:30:](https://github.com/PredictiveEcology/quickPlot/blob/e602ca0d2f64ed9fc5eca8b63783fa55a3a59b18/R/plotting-other.R#L338) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
    if (length(column) == 0) { # above the plot
                             ^
```
[R/plotting.R:290:1:](https://github.com/PredictiveEcology/quickPlot/blob/e602ca0d2f64ed9fc5eca8b63783fa55a3a59b18/R/plotting.R#L290) *style:* **Lines should not be more than 100 characters.**
```r
    isDoCall <- grepl("^do.call", scalls) & grepl("\\<Plot\\>", scalls) & !grepl("test_that", scalls)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/plotting.R:308:6:](https://github.com/PredictiveEcology/quickPlot/blob/e602ca0d2f64ed9fc5eca8b63783fa55a3a59b18/R/plotting.R#L308) *style:* **Commented code should be removed.**
```r
    #whFrame <- grep(scalls, pattern = "^Plot|^quickPlot::Plot")
     ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/plotting.R:318:8:](https://github.com/PredictiveEcology/quickPlot/blob/e602ca0d2f64ed9fc5eca8b63783fa55a3a59b18/R/plotting.R#L318) *style:* **Commented code should be removed.**
```r
      #dotObjs <- mget(dotNames[!noName], envir = plotFrame, inherits = TRUE)
       ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/plotting.R:322:1:](https://github.com/PredictiveEcology/quickPlot/blob/e602ca0d2f64ed9fc5eca8b63783fa55a3a59b18/R/plotting.R#L322) *style:* **Lines should not be more than 100 characters.**
```r
        if (is.null(title)) plotArgs$title <- ifelse(nzchar(names(dotObjs2)), names(dotObjs2), dotNames)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-clickExtent.R:11:3:](https://github.com/PredictiveEcology/quickPlot/blob/e602ca0d2f64ed9fc5eca8b63783fa55a3a59b18/tests/testthat/test-clickExtent.R#L11) *style:* **Variable or function name should be lowerCamelCase.**
```r
  Sr1 <- Polygon(coords1)
  ^~~
```
[tests/testthat/test-clickExtent.R:12:3:](https://github.com/PredictiveEcology/quickPlot/blob/e602ca0d2f64ed9fc5eca8b63783fa55a3a59b18/tests/testthat/test-clickExtent.R#L12) *style:* **Variable or function name should be lowerCamelCase.**
```r
  Srs1 <- Polygons(list(Sr1), "s1")
  ^~~~
```
[tests/testthat/test-clickExtent.R:14:1:](https://github.com/PredictiveEcology/quickPlot/blob/e602ca0d2f64ed9fc5eca8b63783fa55a3a59b18/tests/testthat/test-clickExtent.R#L14) *style:* **Lines should not be more than 100 characters.**
```r
  crs(shpEcozone) <- "+init=epsg:4326 +proj=longlat +datum=WGS84 +no_defs +ellps=WGS84 +towgs84=0,0,0"
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-clickExtent.R:24:1:](https://github.com/PredictiveEcology/quickPlot/blob/e602ca0d2f64ed9fc5eca8b63783fa55a3a59b18/tests/testthat/test-clickExtent.R#L24) *style:* **Lines should not be more than 100 characters.**
```r
  bb <- raster::shapefile(file.path(cacheRepo, "EC_borealdisturbance_polygonal_2008_2010_FINAL_ALBERS.shp"))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-examples.R:11:15:](https://github.com/PredictiveEcology/quickPlot/blob/e602ca0d2f64ed9fc5eca8b63783fa55a3a59b18/tests/testthat/test-examples.R#L11) *style:* **Closing curly-braces should always be on their own line, unless it's followed by an else.**
```r
    setwd(owd)}
              ^
```
[tests/testthat/test-Plot-do-call.R:8:3:](https://github.com/PredictiveEcology/quickPlot/blob/e602ca0d2f64ed9fc5eca8b63783fa55a3a59b18/tests/testthat/test-Plot-do-call.R#L8) *style:* **Variable or function name should be lowerCamelCase.**
```r
  Sr1 <- Polygon(coords1)
  ^~~
```
[tests/testthat/test-Plot-do-call.R:9:3:](https://github.com/PredictiveEcology/quickPlot/blob/e602ca0d2f64ed9fc5eca8b63783fa55a3a59b18/tests/testthat/test-Plot-do-call.R#L9) *style:* **Variable or function name should be lowerCamelCase.**
```r
  Srs1 <- Polygons(list(Sr1), "s1")
  ^~~~
```
[tests/testthat/test-Plot-do-call.R:11:1:](https://github.com/PredictiveEcology/quickPlot/blob/e602ca0d2f64ed9fc5eca8b63783fa55a3a59b18/tests/testthat/test-Plot-do-call.R#L11) *style:* **Lines should not be more than 100 characters.**
```r
  crs(shpEcozone) <- "+init=epsg:4326 +proj=longlat +datum=WGS84 +no_defs +ellps=WGS84 +towgs84=0,0,0"
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-Plot-do-call.R:13:24:](https://github.com/PredictiveEcology/quickPlot/blob/e602ca0d2f64ed9fc5eca8b63783fa55a3a59b18/tests/testthat/test-Plot-do-call.R#L13) *style:* **Commas should always have a space after.**
```r
  r <- raster(extent(0,10,0,10), res = 1, vals = 1:100)
                       ^
```
[tests/testthat/test-Plot-do-call.R:13:27:](https://github.com/PredictiveEcology/quickPlot/blob/e602ca0d2f64ed9fc5eca8b63783fa55a3a59b18/tests/testthat/test-Plot-do-call.R#L13) *style:* **Commas should always have a space after.**
```r
  r <- raster(extent(0,10,0,10), res = 1, vals = 1:100)
                          ^
```
[tests/testthat/test-Plot-do-call.R:13:29:](https://github.com/PredictiveEcology/quickPlot/blob/e602ca0d2f64ed9fc5eca8b63783fa55a3a59b18/tests/testthat/test-Plot-do-call.R#L13) *style:* **Commas should always have a space after.**
```r
  r <- raster(extent(0,10,0,10), res = 1, vals = 1:100)
                            ^
```
[tests/testthat/test-Plot-nonVisual.R:65:21:](https://github.com/PredictiveEcology/quickPlot/blob/e602ca0d2f64ed9fc5eca8b63783fa55a3a59b18/tests/testthat/test-Plot-nonVisual.R#L65) *style:* **Commented code should be removed.**
```r
  library(raster); #on.exit(detach("package:raster"), add = TRUE)
                    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-Plot-nonVisual.R:70:3:](https://github.com/PredictiveEcology/quickPlot/blob/e602ca0d2f64ed9fc5eca8b63783fa55a3a59b18/tests/testthat/test-Plot-nonVisual.R#L70) *style:* **Variable or function name should be lowerCamelCase.**
```r
  N <- ncol * nrow
  ^
```


Same to what xavier is referring I have the feeling. Ok, I'll change that


IBM Cloud [toolchain](https://console.bluemix.net/devops/toolchains/b220847a-8d3d-4515-ad8f-2b9646e96bf6?env_id=ibm%3Ayp%3Aeu-gb "cloud-native-toolchain-tutorial-20180622165600940"): [Delivery Pipeline](https://console.bluemix.net/devops/pipelines/af5a53b2-5161-4e43-b104-26329b8fcd17?env_id=ibm%3Ayp%3Aeu-gb "sample-cloud-native-toolchain-tutorial-20180622165600940") deployed [sample-cloud-native-toolchain-tutorial-20180622165600940](https://github.com/Dani7B/sample-cloud-native-toolchain-tutorial-20180622165600940/releases/tag/deploy-ibm-yp-eu-gb-dan.morgan-it.ibm.com-prod-20180622-194507 "deploy-ibm-yp-eu-gb-dan.morgan-it.ibm.com-prod-20180622-194507") to [prod](https://console.bluemix.net/apps/9309bbf2-9c04-4674-be71-3eee4b60bbef?env_id=ibm:yp:eu-gb "ibm:yp:eu-gb:dan.morgan@it.ibm.com:prod"), including this commit


<details>

<summary>Submitting the task to Taskcluster failed. Details</summary>

You do not have sufficient scopes. You are missing the following scopes:

{
  "AnyOf": \[
    {
      "AnyOf": \[
        "queue:create\-task:highest:aws\-provisioner\-v1/servo\-docker\-worker",
        "queue:create\-task:very\-high:aws\-provisioner\-v1/servo\-docker\-worker",
        "queue:create\-task:high:aws\-provisioner\-v1/servo\-docker\-worker",
        "queue:create\-task:medium:aws\-provisioner\-v1/servo\-docker\-worker",
        "queue:create\-task:low:aws\-provisioner\-v1/servo\-docker\-worker",
        "queue:create\-task:very\-low:aws\-provisioner\-v1/servo\-docker\-worker",
        "queue:create\-task:lowest:aws\-provisioner\-v1/servo\-docker\-worker"
      \]
    },
    {
      "AnyOf": \[
        "queue:create\-task:aws\-provisioner\-v1/servo\-docker\-worker",
        {
          "AllOf": \[
            "queue:define\-task:aws\-provisioner\-v1/servo\-docker\-worker",
            "queue:task\-group\-id:taskcluster\-github/eKLCSm9FSwuXIl\_5atbsZQ",
            "queue:schedule\-task:taskcluster\-github/eKLCSm9FSwuXIl\_5atbsZQ/eKLCSm9FSwuXIl\_5atbsZQ"
          \]
        }
      \]
    }
  \]
}

You have the scopes:

```
\[
  "assume:project:taskcluster:mozilla\-github\-repository",
  "assume:repo:github.com/servo/servo:pull\-request",
  "notify:email:\*",
  "notify:irc\-channel:\*",
  "notify:irc\-user:\*",
  "queue:create\-task:aws\-provisioner\-v1/github\-worker",
  "queue:create\-task:aws\-provisioner\-v1/github\-worker\-windows",
  "queue:create\-task:aws\-provisioner\-v1/servo",
  "queue:create\-task:aws\-provisioner\-v1/win2012r2",
  "queue:route:garbage.\*",
  "queue:route:index.garbage.\*",
  "queue:route:notify.email.\*",
  "queue:route:notify.irc\-channel.\*",
  "queue:route:notify.irc\-user.\*",
  "queue:scheduler\-id:taskcluster\-github",
  "secrets:get:garbage/\*",
  "secrets:set:garbage/\*"
\]
```

This request requires you to satisfy this scope expression:

```
{
  "AllOf": \[
    {
      "AnyOf": \[
        {
          "AllOf": \[
            "queue:scheduler\-id:taskcluster\-github",
            {
              "AnyOf": \[
                "queue:create\-task:highest:aws\-provisioner\-v1/servo\-docker\-worker",
                "queue:create\-task:very\-high:aws\-provisioner\-v1/servo\-docker\-worker",
                "queue:create\-task:high:aws\-provisioner\-v1/servo\-docker\-worker",
                "queue:create\-task:medium:aws\-provisioner\-v1/servo\-docker\-worker",
                "queue:create\-task:low:aws\-provisioner\-v1/servo\-docker\-worker",
                "queue:create\-task:very\-low:aws\-provisioner\-v1/servo\-docker\-worker",
                "queue:create\-task:lowest:aws\-provisioner\-v1/servo\-docker\-worker"
              \]
            }
          \]
        },
        {
          "AnyOf": \[
            "queue:create\-task:aws\-provisioner\-v1/servo\-docker\-worker",
            {
              "AllOf": \[
                "queue:define\-task:aws\-provisioner\-v1/servo\-docker\-worker",
                "queue:task\-group\-id:taskcluster\-github/eKLCSm9FSwuXIl\_5atbsZQ",
                "queue:schedule\-task:taskcluster\-github/eKLCSm9FSwuXIl\_5atbsZQ/eKLCSm9FSwuXIl\_5atbsZQ"
              \]
            }
          \]
        }
      \]
    }
  \]
}
```
----
method:     createTask
errorCode:  InsufficientScopes
statusCode: 403
time:       2018-06-22T19:45:09.568Z

</details>


Wozu strings einbauen, die nicht übersetzt werden können, weil es nichts zu übersetzen gibt? Die werden nicht doppelt gebraucht. Habe schon mehrfach gesehen, dass sowas durch "Auto fixes by translators.xiaomi.eu" wieder rausgelöscht werden, also gar nicht erst rein machen. Und was sind die orig deutsche strings? Ich denke, die machen wir hier.


You can change around the sentence added here so that it's easier to follow:

"To use an SSH private key with a passphrase, add your key to `ssh-agent` and configure the `SSH_AUTH_SOCK` environment variable"


There's no point; you could just call the static function if you needed to do that -- although I'd argue a plugin processing it's own registered devices is doing something odd...


Merged from Heroku account-built from the ground up.


ok, after reading rob's comment I understand what you are referring at


Define what "this" is (IP address)?


Same as the previous comment.


Hey @miguelgrinberg , should there be a "db.session.commit()" here? When I run the application with the 7a tag checked out, I never get users to become "known".


Ahh, that makes sense @Klumbumbus, thanks!

@bhousel the JOSM developers would argue that they should be canonical since they have more layers, which isn't going to get us anywhere constructive. The best way forward, I think, is to iron out the differences between the two until the point is moot.


@jsimpson It's crazy how many oneliners I've seen for this challenge. This is why I love Ruby


yes, it was a design flaw because I didn't initially want to extend Ownable from Pausible. I mean, for this use case it would be ok, but what if have another contract later that I want to have Pausible characteristcs, but not Ownable. Making the hierarchy too deep in general is considered a form of tight coupling which decreases maintainability. But I had that discussion with Rob already, that maintainability in the context of blockchain development is put in a complete new daylight, because you deploy your app just once and then you dont touch it anymore


Updated doc.


implies not using the `from_text`API then, on Windows right now but I'll update


When I try to run grunt, I'm getting a grunt abort and the error that it cannot find the file "contactList.js"


```
//choose more than two character
//click somewhere on the screen
//move all the selected elements there
//nullprt was mentioned all the time
//sadddddddddddddd
```

```
addBlock();
removeBlock();
```


#out-of-scope


not the same


[Jenkins vg tests](http://jenkins.cgcloud.info/job/vg/1936/) complete for merge to master.  View the [full report here](http://cgl-pipeline-inputs.s3.amazonaws.com/vg_cgl/vg_ci/jenkins_reports/branch/master/index.html).

19 tests passed, 0 tests failed and 10 tests skipped in 18942 seconds

Tests produced 2722 warnings. 2722 were for lower-than-expected alignment scores


primera version de prueba


Jak jest return w gałęzi ifa, to nie potrzeba gałęzi else, bo i tak jest powrót z metody.


[R/plotting-colours.R:89:1:](https://github.com/PredictiveEcology/quickPlot/blob/fc0012f971200b4a689692b7c8ccc8a039bcc0c0/R/plotting-colours.R#L89) *style:* **Lines should not be more than 100 characters.**
```r
      if (all(na.omit(object[])%%1==0)) { # some factor rasters are actually real number -- makes no sense
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/plotting-colours.R:89:32:](https://github.com/PredictiveEcology/quickPlot/blob/fc0012f971200b4a689692b7c8ccc8a039bcc0c0/R/plotting-colours.R#L89) *style:* **Put spaces around all infix operators.**
```r
      if (all(na.omit(object[])%%1==0)) { # some factor rasters are actually real number -- makes no sense
                              ~^~~
```
[R/plotting-colours.R:89:35:](https://github.com/PredictiveEcology/quickPlot/blob/fc0012f971200b4a689692b7c8ccc8a039bcc0c0/R/plotting-colours.R#L89) *style:* **Put spaces around all infix operators.**
```r
      if (all(na.omit(object[])%%1==0)) { # some factor rasters are actually real number -- makes no sense
                                 ~^~~
```
[R/plotting-colours.R:89:41:](https://github.com/PredictiveEcology/quickPlot/blob/fc0012f971200b4a689692b7c8ccc8a039bcc0c0/R/plotting-colours.R#L89) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
      if (all(na.omit(object[])%%1==0)) { # some factor rasters are actually real number -- makes no sense
                                        ^
```
[R/plotting-colours.R:106:1:](https://github.com/PredictiveEcology/quickPlot/blob/fc0012f971200b4a689692b7c8ccc8a039bcc0c0/R/plotting-colours.R#L106) *style:* **Lines should not be more than 100 characters.**
```r
      if (all(na.omit(object[])%%1==0)) { # some factor rasters are actually real number -- makes no sense
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/plotting-colours.R:106:32:](https://github.com/PredictiveEcology/quickPlot/blob/fc0012f971200b4a689692b7c8ccc8a039bcc0c0/R/plotting-colours.R#L106) *style:* **Put spaces around all infix operators.**
```r
      if (all(na.omit(object[])%%1==0)) { # some factor rasters are actually real number -- makes no sense
                              ~^~~
```
[R/plotting-colours.R:106:35:](https://github.com/PredictiveEcology/quickPlot/blob/fc0012f971200b4a689692b7c8ccc8a039bcc0c0/R/plotting-colours.R#L106) *style:* **Put spaces around all infix operators.**
```r
      if (all(na.omit(object[])%%1==0)) { # some factor rasters are actually real number -- makes no sense
                                 ~^~~
```
[R/plotting-colours.R:106:41:](https://github.com/PredictiveEcology/quickPlot/blob/fc0012f971200b4a689692b7c8ccc8a039bcc0c0/R/plotting-colours.R#L106) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
      if (all(na.omit(object[])%%1==0)) { # some factor rasters are actually real number -- makes no sense
                                        ^
```
[R/plotting-colours.R:131:1:](https://github.com/PredictiveEcology/quickPlot/blob/fc0012f971200b4a689692b7c8ccc8a039bcc0c0/R/plotting-colours.R#L131) *style:* **Lines should not be more than 100 characters.**
```r
      if (all(na.omit(object[])%%1==0)) { # some factor rasters are actually real number -- makes no sense
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/plotting-colours.R:131:32:](https://github.com/PredictiveEcology/quickPlot/blob/fc0012f971200b4a689692b7c8ccc8a039bcc0c0/R/plotting-colours.R#L131) *style:* **Put spaces around all infix operators.**
```r
      if (all(na.omit(object[])%%1==0)) { # some factor rasters are actually real number -- makes no sense
                              ~^~~
```
[R/plotting-colours.R:131:35:](https://github.com/PredictiveEcology/quickPlot/blob/fc0012f971200b4a689692b7c8ccc8a039bcc0c0/R/plotting-colours.R#L131) *style:* **Put spaces around all infix operators.**
```r
      if (all(na.omit(object[])%%1==0)) { # some factor rasters are actually real number -- makes no sense
                                 ~^~~
```
[R/plotting-colours.R:131:41:](https://github.com/PredictiveEcology/quickPlot/blob/fc0012f971200b4a689692b7c8ccc8a039bcc0c0/R/plotting-colours.R#L131) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
      if (all(na.omit(object[])%%1==0)) { # some factor rasters are actually real number -- makes no sense
                                        ^
```
[R/plotting-colours.R:284:75:](https://github.com/PredictiveEcology/quickPlot/blob/fc0012f971200b4a689692b7c8ccc8a039bcc0c0/R/plotting-colours.R#L284) *style:* **Put spaces around all infix operators.**
```r
    isFac <- any(raster::is.factor(grobToPlot)) & all(na.omit(grobToPlot[]%%1)==0)
                                                                         ~^~~
```
[R/plotting-colours.R:284:79:](https://github.com/PredictiveEcology/quickPlot/blob/fc0012f971200b4a689692b7c8ccc8a039bcc0c0/R/plotting-colours.R#L284) *style:* **Put spaces around all infix operators.**
```r
    isFac <- any(raster::is.factor(grobToPlot)) & all(na.omit(grobToPlot[]%%1)==0)
                                                                             ~^~~
```
[R/plotting-helpers.R:1023:44:](https://github.com/PredictiveEcology/quickPlot/blob/fc0012f971200b4a689692b7c8ccc8a039bcc0c0/R/plotting-helpers.R#L1023) *style:* **Commas should always have a space after.**
```r
          grobToPlot <- grobToPlot[polySeq,]
                                           ^
```
[R/plotting-helpers.R:1028:38:](https://github.com/PredictiveEcology/quickPlot/blob/fc0012f971200b4a689692b7c8ccc8a039bcc0c0/R/plotting-helpers.R#L1028) *style:* **Commas should always have a space after.**
```r
        grobToPlot <- grobToPlot[a[1,],]
                                     ^
```
[R/plotting-helpers.R:1028:40:](https://github.com/PredictiveEcology/quickPlot/blob/fc0012f971200b4a689692b7c8ccc8a039bcc0c0/R/plotting-helpers.R#L1028) *style:* **Commas should always have a space after.**
```r
        grobToPlot <- grobToPlot[a[1,],]
                                       ^
```
[R/plotting-helpers.R:1291:41:](https://github.com/PredictiveEcology/quickPlot/blob/fc0012f971200b4a689692b7c8ccc8a039bcc0c0/R/plotting-helpers.R#L1291) *style:* **Put spaces around all infix operators.**
```r
            if (all(na.omit(grobToPlot[]%%1)==0)) {
                                       ~^~~
```
[R/plotting-helpers.R:1291:45:](https://github.com/PredictiveEcology/quickPlot/blob/fc0012f971200b4a689692b7c8ccc8a039bcc0c0/R/plotting-helpers.R#L1291) *style:* **Put spaces around all infix operators.**
```r
            if (all(na.omit(grobToPlot[]%%1)==0)) {
                                           ~^~~
```
[R/plotting-helpers.R:1380:1:](https://github.com/PredictiveEcology/quickPlot/blob/fc0012f971200b4a689692b7c8ccc8a039bcc0c0/R/plotting-helpers.R#L1380) *style:* **Lines should not be more than 100 characters.**
```r
    grid.rect(x = 0, height = unit(1 + needsNewTitle * inherits(grobToPlot, "Raster") * 0.20 / (nRows / 2), "npc"),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/plotting-helpers.R:2511:1:](https://github.com/PredictiveEcology/quickPlot/blob/fc0012f971200b4a689692b7c8ccc8a039bcc0c0/R/plotting-helpers.R#L2511) *style:* **Lines should not be more than 100 characters.**
```r
#'          jitter(sort(rbeta(nPoints, betaPar, betaPar) * (maxY - minY) + minY, decreasing = TRUE)),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/plotting-helpers.R:2589:1:](https://github.com/PredictiveEcology/quickPlot/blob/fc0012f971200b4a689692b7c8ccc8a039bcc0c0/R/plotting-helpers.R#L2589) *style:* **Variable or function name should be lowerCamelCase.**
```r
thin.SpatialPolygons <- function(x, tolerance = NULL, returnDataFrame = FALSE, minCoordsToThin = 0,
^~~~~~~~~~~~~~~~~~~~
```
[R/plotting-helpers.R:2610:8:](https://github.com/PredictiveEcology/quickPlot/blob/fc0012f971200b4a689692b7c8ccc8a039bcc0c0/R/plotting-helpers.R#L2610) *style:* **Commented code should be removed.**
```r
      #xyOrd[["out"]] <- xyOrd[["out"]][thinRes, ]# thin line
       ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/plotting-helpers.R:2633:50:](https://github.com/PredictiveEcology/quickPlot/blob/fc0012f971200b4a689692b7c8ccc8a039bcc0c0/R/plotting-helpers.R#L2633) *style:* **Commas should always have a space after.**
```r
            dat <- x@data[as.numeric(names1) + 1,]
                                                 ^
```
[R/plotting-helpers.R:2634:14:](https://github.com/PredictiveEcology/quickPlot/blob/fc0012f971200b4a689692b7c8ccc8a039bcc0c0/R/plotting-helpers.R#L2634) *style:* **Commented code should be removed.**
```r
            #row.names(dat) <- as.character(seq_len(length(xyOrd)))
             ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/plotting-helpers.R:2666:1:](https://github.com/PredictiveEcology/quickPlot/blob/fc0012f971200b4a689692b7c8ccc8a039bcc0c0/R/plotting-helpers.R#L2666) *style:* **Variable or function name should be lowerCamelCase.**
```r
thin.default <- function(x, tolerance, returnDataFrame, minCoordsToThin, ...) {
^~~~~~~~~~~~
```
[R/plotting-helpers.R:2701:3:](https://github.com/PredictiveEcology/quickPlot/blob/fc0012f971200b4a689692b7c8ccc8a039bcc0c0/R/plotting-helpers.R#L2701) *style:* **Variable or function name should be lowerCamelCase.**
```r
  IDs <- tryCatch(unlist(lapply(ordSeq, function(xx) {
  ^~~
```
[R/plotting-helpers.R:2726:7:](https://github.com/PredictiveEcology/quickPlot/blob/fc0012f971200b4a689692b7c8ccc8a039bcc0c0/R/plotting-helpers.R#L2726) *style:* **Commented code should be removed.**
```r
    # Polygons <- rep(rep(seq(numPolygons), numPolygon), idLength$V1) # sequential numbering
      ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/plotting-helpers.R:2727:5:](https://github.com/PredictiveEcology/quickPlot/blob/fc0012f971200b4a689692b7c8ccc8a039bcc0c0/R/plotting-helpers.R#L2727) *style:* **Variable or function name should be lowerCamelCase.**
```r
    Polygons <- rep(rep(IDs, numPolygon), idLength$V1) # actual ID labelling
    ^~~~~~~~
```
[R/plotting-helpers.R:2728:5:](https://github.com/PredictiveEcology/quickPlot/blob/fc0012f971200b4a689692b7c8ccc8a039bcc0c0/R/plotting-helpers.R#L2728) *style:* **Variable or function name should be lowerCamelCase.**
```r
    Polygon <- rep(unlist(lapply(numPolygon, seq)), idLength$V1)
    ^~~~~~~
```
[R/plotting-helpers.R:2735:36:](https://github.com/PredictiveEcology/quickPlot/blob/fc0012f971200b4a689692b7c8ccc8a039bcc0c0/R/plotting-helpers.R#L2735) *style:* **Commas should always have a space after.**
```r
    return(data.frame(lat = xyOrd[,1], long = xyOrd[,2], order = orders,
                                   ^
```
[R/plotting-helpers.R:2735:54:](https://github.com/PredictiveEcology/quickPlot/blob/fc0012f971200b4a689692b7c8ccc8a039bcc0c0/R/plotting-helpers.R#L2735) *style:* **Commas should always have a space after.**
```r
    return(data.frame(lat = xyOrd[,1], long = xyOrd[,2], order = orders,
                                                     ^
```
[R/plotting-helpers.R:2737:1:](https://github.com/PredictiveEcology/quickPlot/blob/fc0012f971200b4a689692b7c8ccc8a039bcc0c0/R/plotting-helpers.R#L2737) *style:* **Lines should not be more than 100 characters.**
```r
                      #group = paste0(as.character(Polygons), ".", as.character(Polygon)))) # the actual fortify
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/plotting-helpers.R:2740:40:](https://github.com/PredictiveEcology/quickPlot/blob/fc0012f971200b4a689692b7c8ccc8a039bcc0c0/R/plotting-helpers.R#L2740) *style:* **Commas should always have a space after.**
```r
    out <- setDT(data.frame(x = xyOrd[,1], y = xyOrd[,2], groups = groups))
                                       ^
```
[R/plotting-helpers.R:2740:55:](https://github.com/PredictiveEcology/quickPlot/blob/fc0012f971200b4a689692b7c8ccc8a039bcc0c0/R/plotting-helpers.R#L2740) *style:* **Commas should always have a space after.**
```r
    out <- setDT(data.frame(x = xyOrd[,1], y = xyOrd[,2], groups = groups))
                                                      ^
```
[R/plotting-helpers.R:2755:1:](https://github.com/PredictiveEcology/quickPlot/blob/fc0012f971200b4a689692b7c8ccc8a039bcc0c0/R/plotting-helpers.R#L2755) *style:* **Lines should not be more than 100 characters.**
```r
    which(polygon@data$Shape_Area>(sort(polygon@data$Shape_Area, decreasing = TRUE)[maxNumPolygons]))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/plotting-helpers.R:2755:34:](https://github.com/PredictiveEcology/quickPlot/blob/fc0012f971200b4a689692b7c8ccc8a039bcc0c0/R/plotting-helpers.R#L2755) *style:* **Put spaces around all infix operators.**
```r
    which(polygon@data$Shape_Area>(sort(polygon@data$Shape_Area, decreasing = TRUE)[maxNumPolygons]))
                                ~^~
```
[R/plotting-helpers.R:2755:35:](https://github.com/PredictiveEcology/quickPlot/blob/fc0012f971200b4a689692b7c8ccc8a039bcc0c0/R/plotting-helpers.R#L2755) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    which(polygon@data$Shape_Area>(sort(polygon@data$Shape_Area, decreasing = TRUE)[maxNumPolygons]))
                                  ^
```
[R/plotting-helpers.R:2778:26:](https://github.com/PredictiveEcology/quickPlot/blob/fc0012f971200b4a689692b7c8ccc8a039bcc0c0/R/plotting-helpers.R#L2778) *style:* **Commas should always have a space after.**
```r
          totalAvailable," polygons in this view. See options('quickPlot.maxNumPolygons')")
                         ^
```
[R/plotting-other.R:202:48:](https://github.com/PredictiveEcology/quickPlot/blob/fc0012f971200b4a689692b7c8ccc8a039bcc0c0/R/plotting-other.R#L202) *style:* **Put spaces around all infix operators.**
```r
  if (any(raster::is.factor(ras1)) & all(ras1[]%%1==0)) {
                                              ~^~~
```
[R/plotting-other.R:202:51:](https://github.com/PredictiveEcology/quickPlot/blob/fc0012f971200b4a689692b7c8ccc8a039bcc0c0/R/plotting-other.R#L202) *style:* **Put spaces around all infix operators.**
```r
  if (any(raster::is.factor(ras1)) & all(ras1[]%%1==0)) {
                                                 ~^~~
```
[R/plotting-other.R:251:30:](https://github.com/PredictiveEcology/quickPlot/blob/fc0012f971200b4a689692b7c8ccc8a039bcc0c0/R/plotting-other.R#L251) *style:* **Commas should always have a space after.**
```r
    if (sum(corners$coords[1,] - corners$coords[2,]) %==% 0) {
                             ^
```
[R/plotting-other.R:251:51:](https://github.com/PredictiveEcology/quickPlot/blob/fc0012f971200b4a689692b7c8ccc8a039bcc0c0/R/plotting-other.R#L251) *style:* **Commas should always have a space after.**
```r
    if (sum(corners$coords[1,] - corners$coords[2,]) %==% 0) {
                                                  ^
```
[R/plotting-other.R:335:27:](https://github.com/PredictiveEcology/quickPlot/blob/fc0012f971200b4a689692b7c8ccc8a039bcc0c0/R/plotting-other.R#L335) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
    if (length(row) == 0) { # above the plot
                          ^
```
[R/plotting-other.R:338:30:](https://github.com/PredictiveEcology/quickPlot/blob/fc0012f971200b4a689692b7c8ccc8a039bcc0c0/R/plotting-other.R#L338) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
    if (length(column) == 0) { # above the plot
                             ^
```
[R/plotting.R:290:1:](https://github.com/PredictiveEcology/quickPlot/blob/fc0012f971200b4a689692b7c8ccc8a039bcc0c0/R/plotting.R#L290) *style:* **Lines should not be more than 100 characters.**
```r
    isDoCall <- grepl("^do.call", scalls) & grepl("\\<Plot\\>", scalls) & !grepl("test_that", scalls)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/plotting.R:308:6:](https://github.com/PredictiveEcology/quickPlot/blob/fc0012f971200b4a689692b7c8ccc8a039bcc0c0/R/plotting.R#L308) *style:* **Commented code should be removed.**
```r
    #whFrame <- grep(scalls, pattern = "^Plot|^quickPlot::Plot")
     ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/plotting.R:318:8:](https://github.com/PredictiveEcology/quickPlot/blob/fc0012f971200b4a689692b7c8ccc8a039bcc0c0/R/plotting.R#L318) *style:* **Commented code should be removed.**
```r
      #dotObjs <- mget(dotNames[!noName], envir = plotFrame, inherits = TRUE)
       ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/plotting.R:322:1:](https://github.com/PredictiveEcology/quickPlot/blob/fc0012f971200b4a689692b7c8ccc8a039bcc0c0/R/plotting.R#L322) *style:* **Lines should not be more than 100 characters.**
```r
        if (is.null(title)) plotArgs$title <- ifelse(nzchar(names(dotObjs2)), names(dotObjs2), dotNames)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-clickExtent.R:11:3:](https://github.com/PredictiveEcology/quickPlot/blob/fc0012f971200b4a689692b7c8ccc8a039bcc0c0/tests/testthat/test-clickExtent.R#L11) *style:* **Variable or function name should be lowerCamelCase.**
```r
  Sr1 <- Polygon(coords1)
  ^~~
```
[tests/testthat/test-clickExtent.R:12:3:](https://github.com/PredictiveEcology/quickPlot/blob/fc0012f971200b4a689692b7c8ccc8a039bcc0c0/tests/testthat/test-clickExtent.R#L12) *style:* **Variable or function name should be lowerCamelCase.**
```r
  Srs1 <- Polygons(list(Sr1), "s1")
  ^~~~
```
[tests/testthat/test-clickExtent.R:14:1:](https://github.com/PredictiveEcology/quickPlot/blob/fc0012f971200b4a689692b7c8ccc8a039bcc0c0/tests/testthat/test-clickExtent.R#L14) *style:* **Lines should not be more than 100 characters.**
```r
  crs(shpEcozone) <- "+init=epsg:4326 +proj=longlat +datum=WGS84 +no_defs +ellps=WGS84 +towgs84=0,0,0"
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-clickExtent.R:24:1:](https://github.com/PredictiveEcology/quickPlot/blob/fc0012f971200b4a689692b7c8ccc8a039bcc0c0/tests/testthat/test-clickExtent.R#L24) *style:* **Lines should not be more than 100 characters.**
```r
  bb <- raster::shapefile(file.path(cacheRepo, "EC_borealdisturbance_polygonal_2008_2010_FINAL_ALBERS.shp"))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-examples.R:11:15:](https://github.com/PredictiveEcology/quickPlot/blob/fc0012f971200b4a689692b7c8ccc8a039bcc0c0/tests/testthat/test-examples.R#L11) *style:* **Closing curly-braces should always be on their own line, unless it's followed by an else.**
```r
    setwd(owd)}
              ^
```
[tests/testthat/test-Plot-do-call.R:8:3:](https://github.com/PredictiveEcology/quickPlot/blob/fc0012f971200b4a689692b7c8ccc8a039bcc0c0/tests/testthat/test-Plot-do-call.R#L8) *style:* **Variable or function name should be lowerCamelCase.**
```r
  Sr1 <- Polygon(coords1)
  ^~~
```
[tests/testthat/test-Plot-do-call.R:9:3:](https://github.com/PredictiveEcology/quickPlot/blob/fc0012f971200b4a689692b7c8ccc8a039bcc0c0/tests/testthat/test-Plot-do-call.R#L9) *style:* **Variable or function name should be lowerCamelCase.**
```r
  Srs1 <- Polygons(list(Sr1), "s1")
  ^~~~
```
[tests/testthat/test-Plot-do-call.R:11:1:](https://github.com/PredictiveEcology/quickPlot/blob/fc0012f971200b4a689692b7c8ccc8a039bcc0c0/tests/testthat/test-Plot-do-call.R#L11) *style:* **Lines should not be more than 100 characters.**
```r
  crs(shpEcozone) <- "+init=epsg:4326 +proj=longlat +datum=WGS84 +no_defs +ellps=WGS84 +towgs84=0,0,0"
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-Plot-do-call.R:13:24:](https://github.com/PredictiveEcology/quickPlot/blob/fc0012f971200b4a689692b7c8ccc8a039bcc0c0/tests/testthat/test-Plot-do-call.R#L13) *style:* **Commas should always have a space after.**
```r
  r <- raster(extent(0,10,0,10), res = 1, vals = 1:100)
                       ^
```
[tests/testthat/test-Plot-do-call.R:13:27:](https://github.com/PredictiveEcology/quickPlot/blob/fc0012f971200b4a689692b7c8ccc8a039bcc0c0/tests/testthat/test-Plot-do-call.R#L13) *style:* **Commas should always have a space after.**
```r
  r <- raster(extent(0,10,0,10), res = 1, vals = 1:100)
                          ^
```
[tests/testthat/test-Plot-do-call.R:13:29:](https://github.com/PredictiveEcology/quickPlot/blob/fc0012f971200b4a689692b7c8ccc8a039bcc0c0/tests/testthat/test-Plot-do-call.R#L13) *style:* **Commas should always have a space after.**
```r
  r <- raster(extent(0,10,0,10), res = 1, vals = 1:100)
                            ^
```
[tests/testthat/test-Plot-nonVisual.R:65:21:](https://github.com/PredictiveEcology/quickPlot/blob/fc0012f971200b4a689692b7c8ccc8a039bcc0c0/tests/testthat/test-Plot-nonVisual.R#L65) *style:* **Commented code should be removed.**
```r
  library(raster); #on.exit(detach("package:raster"), add = TRUE)
                    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-Plot-nonVisual.R:70:3:](https://github.com/PredictiveEcology/quickPlot/blob/fc0012f971200b4a689692b7c8ccc8a039bcc0c0/tests/testthat/test-Plot-nonVisual.R#L70) *style:* **Variable or function name should be lowerCamelCase.**
```r
  N <- ncol * nrow
  ^
```


agrégalo a tu archivo


Its not actually a bug, its a memory leak introduced in https://github.com/plzombie/ne/commit/1e9a2c1b028caa4d351491585783d9b3517b2af1#diff-772aec53d9390b09522bb0a6e3cfa9b8. I also don't check for success of gluScaleImage.


#6712-Zone-Coil-Autosizing-does-not-include-impact-of-AirTerminalSingleDuctMixer (rraustad) - Win64-Windows-7-VisualStudio-14: OK (2916 of 2932 tests passed, 21 test warnings)

Messages:

 * 11 tests had: AUD diffs.
 * 26 tests had: EIO diffs.
 * 12 tests had: ESO small diffs.
 * 8 tests had: MTR small diffs.
 * 9 tests had: Table small diffs.
 * 6 tests had: ERR diffs.
 * 14 tests had: ESO big diffs.
 * 15 tests had: Table big diffs.
 * 9 tests had: MTR big diffs.

Failures:

regression Test Summary
 * Passed: 607
 * Failed: 16

![Build Badge](http://img.shields.io/badge/build%20status-passing-green.png) ![Test Badge](http://img.shields.io/badge/tests%20passed-99.45%25-yellow.png)


I have no problem building it, but yeah it's not working on install...


Not sure we need to add here. It should already be in the session as we got it from a db query.


not sure I understand

> On Jun 22, 2018, at 12:35 PM, AlexanderSuprunenko <notifications@github.com> wrote:
>
> m_buckets[i] = std::make_unique();
>
> —
> You are receiving this because you authored the thread.
> Reply to this email directly, view it on GitHub <https://github.com/graft-project/graft-ng/commit/fa499256a4d36a6cab23dafc1af8fa38cfdcc843#commitcomment-29468208>, or mute the thread <https://github.com/notifications/unsubscribe-auth/AiaeMjxoutAY3Xcphs-cdIXbGSVrKbaHks5t_Ub2gaJpZM4U0TmL>.
>


Checkmarx scan results 22 Jun 2018 05:00 UTC +03:00

High
Medium
Low
Info

New
0
0
0
0

Recurrent
0
0
0
0

Fixed
0
0
0
0

 Open Viewer
Included commits

Commit ID	Owner

a23cad998261c81bf63aa21ac681a2e8b5303e7c	@web-flow


Build version: __`0.10.0-master.261`__ :crossed_fingers: [`master`](https://github.com/streamich/ci-scripts/tree/master) on [*Travis*](https://travis-ci.org/streamich/ci-scripts/builds/395296604) :tada:


たれゾウです。
OC


//The following is the updated (incomplete, untested) code, as it appears in the IDE
int goPin = 8; //changed from 11
int reversePin = 9;
int rightTurnPin = 12; //changed from 10
int leftTurnPin = 13; //changed from 12
int enablerPin1 = 10;
int enablerPin2 = 11;
int triggerPin = 4; //pulse Ultrasonic Sensor
int echoPin = 5; //recieves signal from Ultrasonic Sensor
long duration, distance, cm;
// NOTE: Pins 4,5,8,9,10,11,12,13 FUNCTION NOT YET TESTED
int redPin = 1;
; //changed from 13, not tested
int bluePin = 5;
int greenPin = 6;
//Pins Defined above
int maxZoomZoom = 165; // 125 = threshhold
int zoomZoom = 80;
int vroomVroom = 5;
int maxDriveTimeBeforeTurn = 800;
int loopsSoFar = 0;
int loopsBeforeRightTurn = 4;
int loopsBeforeLeftTurn = 8;
int loopsBeforeReset = 9;
int resetsSoFar = 0;
int resetsBeforeStop = 4;
int doSomethingNow = 60; //start turning when object detected at 60 cm
int turnTime = 2000; //turn for 2000 milliseconds
int tooLate = 45;
int distance1 = 0;
int fullStop = 500;
int reverseTime = 1000;
int lastTurn = 0; //0 for left, 1 for right
void setup()
{
  // put your setup code here, to run once:
  pinMode (goPin, OUTPUT) ;
  pinMode (reversePin, OUTPUT) ;
  pinMode (rightTurnPin, OUTPUT) ;
  pinMode (leftTurnPin, OUTPUT) ;
  pinMode (enablerPin1, OUTPUT) ;
  pinMode (enablerPin2, OUTPUT) ;
  Serial.begin (9600);
  pinMode (triggerPin, OUTPUT) ;
  pinMode (echoPin, INPUT) ;
  pinMode (redPin, OUTPUT);
  pinMode (bluePin, OUTPUT) ;
  pinMode (greenPin, OUTPUT) ;

   // ramp up and level out
 while (zoomZoom < maxZoomZoom) {
  analogWrite( goPin, zoomZoom) ;

  zoomZoom = zoomZoom + vroomVroom;

 } // END: ramp up while

  while (zoomZoom > 155) {
    analogWrite (goPin, zoomZoom) ;
    zoomZoom = zoomZoom - vroomVroom ;
    delay(100) ;
  } //END : level off

} // END: setup() function

void loop() {
  // put your main code here, to run repeatedly:
  digitalWrite( greenPin,LOW) ; //high changed to low because of signal inversion
  digitalWrite( triggerPin, LOW) ; //low pulse to give clean HIGH
  delayMicroseconds(5);
  digitalWrite (triggerPin, HIGH) ;
  delayMicroseconds(10);
  digitalWrite(triggerPin, LOW) ;

  duration = pulseIn(echoPin, HIGH);

  distance = duration/58.2; //in centimeters
  distance1 = distance;
  if (distance <= tooLate) {
    digitalWrite( goPin, LOW);
    delay (fullStop);
    digitalWrite( reversePin, HIGH);
    delay(reverseTime);
    digitalWrite(reversePin, LOW);
  }
  else {
  if (distance <= doSomethingNow) {
 digitalWrite( rightTurnPin, HIGH); //turn
 digitalWrite( redPin, HIGH);
 digitalWrite( triggerPin, LOW) ; //low pulse to give clean HIGH
  delayMicroseconds(5);
  digitalWrite (triggerPin, HIGH) ;
  delayMicroseconds(10);
  digitalWrite(triggerPin, LOW) ;

  duration = pulseIn(echoPin, HIGH);

  distance = duration/58.2; //in centimeters
  if (distance < distance1) {
    digitalWrite( rightTurnPin, LOW);
    digitalWrite( redPin, LOW);
    digitalWrite( goPin, LOW);
    digitalWrite( reversePin, HIGH);
    delay(reverseTime);    //reverse
    digitalWrite( leftTurnPin, HIGH);
    digitalWrite( bluePin, HIGH);
    delay(turnTime);
    digitalWrite( leftTurnPin, LOW);
    digitalWrite( bluePin, LOW);
    int lastTurn = 0; //left
  }
  else {
 delay (turnTime);
 digitalWrite( rightTurnPin, LOW);
 digitalWrite( redPin, LOW);
 int lastTurn = 1; //right
  }
  } //end turn right
  else {} //nothing - not less than do something now NEED TO ADD A DRIVE TIME
  } // end of the not too late code
  //ADD LOOP COUNTER AND WHILE INTERRUPT HERE
} //end loop

 /*
  //the code in here is commented out because in order to simplify testing. It runs the loop counter, now obsolete. uncomment when motor function is finished.

 loopsSoFar = loopsSoFar + 1;

 if (loopsSoFar == loopsBeforeReset) { // @brian: use == for comparison
  loopsSoFar = 0;
  resetsSoFar = resetsSoFar + 1;
 }

 if (resetsSoFar == resetsBeforeStop) {
    // Slow back down to zero
    while (zoomZoom > 0) {
      analogWrite (goPin, zoomZoom) ;
      zoomZoom = zoomZoom - vroomVroom;
      digitalWrite( greenPin, HIGH) ; //low changed to high because of signal inversion
    }
    */
    // Empty while to simulate "turning off"
/*    while (1==1) {
    } // END: empty while
 }

 }  // END: loop() function */


#hello-world

Hi humans!

Hubot here! I like Node.js and coffee script


### 快写 啊!~![点我啊](https://github.com/lixingxing96/RedisGOGOGO)


javascript 에서는 boolean 값을 갖고 있는 변수로 조건문을 체크할 땐
```javascript
if(drag) {
... 중략
}
```
이런식으로 많이 사용해 대신 변수명을
isDrag or bDrag 라는 이름으로 많이 붙혀줘


Once the wizard completes, a manifest file and resource file are available for you to build your project.


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

https://meta.discourse.org/t/new-official-direct-sql-access-api-for-discourse-mini-sql/90441/1


Adding one more line of new space


ad


e라는 이름은 error를 뜻하는 변수명으로 많이 사용해
보통은 event라는 변수명을 많이 쓰는거 같아


爱德万


와 이거 누가짰어 ?? 엄청 잘짯구마 ㅎㅎㅎㅎ


你去游泳了啊！今年夏天我还没游过呢，我也要去游一次~


Once the wizard completes, a project template and structure is available.


console.log() 코드는 일부 Internet Explorer에서 에러를 발생시켜


will do thanks for the heads up


Not “PHP5.5”


We actually are using the `_grunt` directory. This was from porting over the styles from the www site. Any time a file under `_sass` or `_js` is modified, we need to run `grunt` manually and commit the changes (like the www site). It would be nice to move to a pure Jekyll solution for concatenating/minifying .scss/.js files, but haven't had a chance to look into it.


What's up


Nope, unfortunately they need it uncompressed. Though let me double check if` <(gunzip -c )` trick will work.


Post Single Page Image Errors Fixed


The above (changing mainrole from amnesiac into the amensiac's actual role) as well as the below handling for wolf roles and turncoat should not be in here. Rather, an event should be added inside of change_role() if one isn't already there, and turncoats, amnesiacs, and wolves can listen on this event to either hijack which role is being changed into (for amnesiac) or to handle game state (turncoat, doctor, etc.) or send additional messages after the role change (wolf list)


Thank you https://github.com/meepen for inspiration. - https://github.com/glua/luainterface


风与叶子工作室的博客


сетка


should be if CLONE_ENABLED and not var.HIDDEN_CLONE

AKA Don't say that a dead wolf could've been a clone instead of an actual wolf if clones are always revealed as clone.


yes


no


if CLONED and var.PHASE in var.GAME_PHASES and not var.FIRST_NIGHT

AKA get rid of the get_all_players call. It's not needed (if there are clones, then CLONED will be populated after the first night), and breaks !stats if var.STARTS_WITH_DAY is true since there are clones that haven't cloned yet, so clone should not be enabled in that case.


When you `wg.Wait()`, typically you should establish the maximum amount of time to block on it. We want to avoid the scenario that one bad actor routine is hung, making the entire `wg.Wait()` block. To avoid this, the usual pattern I follow is below. First, consider this:

```
func wgTimeout(wg *sync.WaitGroup, timeout time.Duration) bool {
        c := make(chan struct{})
        go func() {
                defer close(c)
                wg.Wait()
        }()
        select {
        case <-c:
                return false // completed normally
        case <-time.After(timeout):
                return true // timed out
        }
}
```

With this method (which doesn't probably apply here, since you are waiting on multiple channels), you would do

```
if wgTimeout(&wg, time.Duration(time.Duration(registerDevicesWgTimeoutSeconds)*time.Second)) {
// timed out
} else {
// no timeout, the `wg.Wait()` returned
}
```

For your case here, the below sample app demonstrates probably a good way to implement the wg timeout in this code

https://play.golang.org/p/YQNMt9s6Til
```
package main

import (
        "fmt"
        "sync"
        "time"
)

func main() {
        var wg sync.WaitGroup
        doneChan := make(chan struct{})
        runDone := make(chan struct{})
        timeout := time.Duration(5) * time.Second

        wg.Add(2)
        go func() {
                defer wg.Done()
                fmt.Println("Im a jerk")
                time.Sleep(6 * time.Second)
        }()
        go func() {
                defer wg.Done()
                fmt.Println("Im nice")
        }()

        go func() {
                wg.Wait()
                close(runDone)
        }()

        select {
        case <-doneChan:
                fmt.Println("got doneChan")
        case <-time.After(timeout):
                fmt.Println("timeout met while waiting for routines to finish")
        case <-runDone:
                fmt.Println("All routines finished execution")
        }
        fmt.Println("Program exiting")
}

```

If you change the 6 in this line `time.Sleep(6 * time.Second)` to be 4, you will see it will print `All routines finished execution` instead of `timeout met while waiting for routines to finish`.


Wow very cool!


Once you fix my comment on the previous commit, revert this commit entirely (move CLONED back as the very first check), as mentioned in IRC that is the check most likely to fail so it should be first for short-circuiting.


The storage_from_flash function only returns false in two cases:
 - The flash memory does not start with "stor" (usually occurs on first boot)
 - The flash memory indicates that it is from a later version than the current firmware

In both cases, [a normal Trezor](https://github.com/trezor/trezor-mcu/blob/master/firmware/storage.c) would silently reset the device, without showing an error, which I believe is the correct behavior. storage_show_error() indicates a fatal (irreparable) error in the process of accessing the flash memory, but returning false from storage_from_flash() does not indicate a fatal error: The storage_wipe() call repairs the memory by resetting it, and the device can then work correctly.

Also, it is very annoying that the shutdown() function makes the emulator stop responding and need to be killed.


也同进解决了这个 #1690 这个问题


Hopefully this isn't too confusing. It looks like the reason why I had the problem with the ideogram directory in package was that package existed as a submodule. When I pushed, I didn't force recursion, so this is likely why it wasn't included at first.


I have translate to Chinese completed. and I can makefile , but XCSoar cann't show Chinese when I run my maked file, who can help me ,thanks.


Verify +1


<details>

<summary>Submitting the task to Taskcluster failed. Details</summary>

You do not have sufficient scopes. You are missing the following scopes:

{
  "AnyOf": \[
    {
      "AnyOf": \[
        "queue:create\-task:highest:aws\-provisioner\-v1/servo\-docker\-worker",
        "queue:create\-task:very\-high:aws\-provisioner\-v1/servo\-docker\-worker",
        "queue:create\-task:high:aws\-provisioner\-v1/servo\-docker\-worker",
        "queue:create\-task:medium:aws\-provisioner\-v1/servo\-docker\-worker",
        "queue:create\-task:low:aws\-provisioner\-v1/servo\-docker\-worker",
        "queue:create\-task:very\-low:aws\-provisioner\-v1/servo\-docker\-worker",
        "queue:create\-task:lowest:aws\-provisioner\-v1/servo\-docker\-worker"
      \]
    },
    {
      "AnyOf": \[
        "queue:create\-task:aws\-provisioner\-v1/servo\-docker\-worker",
        {
          "AllOf": \[
            "queue:define\-task:aws\-provisioner\-v1/servo\-docker\-worker",
            "queue:task\-group\-id:taskcluster\-github/KRgORglTQmGjXihFS5ajiA",
            "queue:schedule\-task:taskcluster\-github/KRgORglTQmGjXihFS5ajiA/KRgORglTQmGjXihFS5ajiA"
          \]
        }
      \]
    }
  \]
}

You have the scopes:

```
\[
  "assume:project:taskcluster:mozilla\-github\-repository",
  "assume:repo:github.com/servo/servo:pull\-request",
  "notify:email:\*",
  "notify:irc\-channel:\*",
  "notify:irc\-user:\*",
  "queue:create\-task:aws\-provisioner\-v1/github\-worker",
  "queue:create\-task:aws\-provisioner\-v1/github\-worker\-windows",
  "queue:create\-task:aws\-provisioner\-v1/servo",
  "queue:create\-task:aws\-provisioner\-v1/win2012r2",
  "queue:route:garbage.\*",
  "queue:route:index.garbage.\*",
  "queue:route:notify.email.\*",
  "queue:route:notify.irc\-channel.\*",
  "queue:route:notify.irc\-user.\*",
  "queue:scheduler\-id:taskcluster\-github",
  "secrets:get:garbage/\*",
  "secrets:set:garbage/\*"
\]
```

This request requires you to satisfy this scope expression:

```
{
  "AllOf": \[
    {
      "AnyOf": \[
        {
          "AllOf": \[
            "queue:scheduler\-id:taskcluster\-github",
            {
              "AnyOf": \[
                "queue:create\-task:highest:aws\-provisioner\-v1/servo\-docker\-worker",
                "queue:create\-task:very\-high:aws\-provisioner\-v1/servo\-docker\-worker",
                "queue:create\-task:high:aws\-provisioner\-v1/servo\-docker\-worker",
                "queue:create\-task:medium:aws\-provisioner\-v1/servo\-docker\-worker",
                "queue:create\-task:low:aws\-provisioner\-v1/servo\-docker\-worker",
                "queue:create\-task:very\-low:aws\-provisioner\-v1/servo\-docker\-worker",
                "queue:create\-task:lowest:aws\-provisioner\-v1/servo\-docker\-worker"
              \]
            }
          \]
        },
        {
          "AnyOf": \[
            "queue:create\-task:aws\-provisioner\-v1/servo\-docker\-worker",
            {
              "AllOf": \[
                "queue:define\-task:aws\-provisioner\-v1/servo\-docker\-worker",
                "queue:task\-group\-id:taskcluster\-github/KRgORglTQmGjXihFS5ajiA",
                "queue:schedule\-task:taskcluster\-github/KRgORglTQmGjXihFS5ajiA/KRgORglTQmGjXihFS5ajiA"
              \]
            }
          \]
        }
      \]
    }
  \]
}
```
----
method:     createTask
errorCode:  InsufficientScopes
statusCode: 403
time:       2018-06-22T02:47:22.229Z

</details>


What was the reason for this change?

This overrides the settings in my .vimrc for all open buffers.
The settings in my .vimrc are as follows:

```vim
set splitright
set splitbelow
```


merge


grrr


代码同步


grrrr


cloud you give  all the *.sql of the demo（interface）


"#{CPI_LOCK_PREFIX_AVAILABILITY_SET}-#{availability_set_name}"


delete storage account if it fails to create containers


Cts case fail due to this config overlay the celadon appt config.


don't create if it already exists


python版本


Hey, I'm working on creating a custom sink connector to push data from kafka to a POST url. I'm reading the README file but still don't know if this does what I'm planning to do. Can you point me to the right direction?
Appreciate it.
Thalia Long.


Oh wow, did you find this in my multithreading experiment? The idea was to slightly improve multithreading by starting compression threads as soon as the first block has been split (with one thread kept in reserve until after block-splitting is completed). I found it did improve performance for large files but there were some problems I couldn't figure out, such as the array size for the blockdata which I just estimated.


#6712-Zone-Coil-Autosizing-does-not-include-impact-of-AirTerminalSingleDuctMixer (rraustad) - i386-Windows-7-VisualStudio-14: OK (2932 of 2932 tests passed, 0 test warnings)

![Build Badge](http://img.shields.io/badge/build%20status-passing-green.png) ![Test Badge](http://img.shields.io/badge/tests%20passed-100.0%25-green.png)


Fix typo


robocup


Actually, `CLONED` is empty once clones die, and if a clone dies n1, then this won't trigger because it's empty and stats will be wrong. If you have a better way to go about it I'm all open though!


rwar cd


Rename MongoDB to Kafka


Yeah this is an issue I'm working on right now locally, but it requires a bit of work so I didn't include it in.


Merge Kafka branch into master


In the main pawn evaluation, you can try something like this

```
if (!neighbour && more_than_one(stoppers))
    score += make_score(4, 40);

```
(or maybe a better test to make sure the stoppers are on more than one file).
such as:
```
if (!neighbours && stoppers && (stoppers & ~file_bb(lsb(stoppers)))
    score += make_score(4, 40);

```

But  most of the good 2 on 1 configurations have already a passer (or candidate passer) bonus
And the bad ones, a backward penalty.

Good luck anyway !


![er_contrato_servicio](https://user-images.githubusercontent.com/30066670/41755531-279612d6-7595-11e8-9422-49d937cc91dc.png)
![er_funcionamiento](https://user-images.githubusercontent.com/30066670/41755532-27b8a800-7595-11e8-8659-947d58443a0d.png)
![d_clases](https://user-images.githubusercontent.com/30066670/41755561-41bfaa96-7595-11e8-92ba-cf89012d3fd2.jpg)
Notas:
1. Los modelos E-R son los nuevos uno se utiliza para contratar el servicio y el otro es para la funcionalidad de la plataforma para mayor comprensión del asunto ver documentación.
2. El diagrama de clases quedo corto pero por cuestiones de tiempo no logre terminarlo.


rescue StandardError => e


Use the new `insert_annotations`


This function will centralize out checks of the tuid string before it gets into the database


fix problem


nit: My personal preference would be:

```
if (!Platform.isMacOs)
  return;
```

Less nesting to keep track of as you read this.


Hi @balsakokovic,

Please retry.

Thanks,


20ee04b
@valentinarozhyk


I remember now when I tried it. I was trying to use it with a python module that I wrote and I wanted to just access the github repo rather than actually publishing it to PyPi. This was for MLR.


Akceptuję


################################################################################################
#A continuación se cargan paquetes y datos a utilizar, además se genera una paleta de colores elegida arbitariamente.

#Función que instala y carga paquetes necesarios para correr el código.
ipack <- function( pkg ) {
  new.pkg <-  pkg[ ! (pkg %in% installed.packages()[, "Package"]) ]
  if ( length(new.pkg) )
    install.packages(
      new.pkg, dependencies = TRUE )
  sapply( pkg, require, character.only = TRUE ) }

paquetes.a.utilizar<- c( "tidyverse", "rmarkdown", "shiny", "ggmosaic", "plotly", "ggmap", "raster", "rgdal", "knitr", "scales", "lubridate", "devtools","grid", "gridExtra")
ipack(paquetes.a.utilizar)

#Datos a utilizar
load("base_datos___fallecidos_transito_uruguay_2013-2017.RData")
#Paleta
colores<-c("darkolivegreen3","turquoise4","tan2","indianred",
           "khaki3", "thistle4", "lightsteelblue","grey80")

#Se cargan polígonos y coordenadas pertenecientes al territorio uruguayo, delimitados por departamentos.
uruguay <- getData("GADM", country = "UY", level = 0)
uruguay_states <- getData("GADM", country = "UY", level = 1)
uystates_UTM <-spTransform(uruguay_states, CRS("+init=EPSG:5383"))
NAME_1 <- uystates_UTM@data$NAME_1

# Función mapa
mapeo<-  function(n)
{

  df <- data.frame(NAME_1,n)
  uystates_UTM@data$id <- rownames(uystates_UTM@data)
  uystates_UTM@data <- plyr::join(uystates_UTM@data, df, by="NAME_1")
  uystates_df <- fortify(uystates_UTM)
  uystates_df <- plyr::join(uystates_df,uystates_UTM@data, by="id")
  uystates_df <-uystates_df %>% filter(!(NAME_1=="Rivera"& lat<6400000))

  theme_opts <-  list(  theme(
    panel.grid.minor = element_blank(),
    panel.grid.major = element_blank(),
    panel.background = element_blank(),
    plot.background =  element_blank(),
    axis.line =    element_blank(),
    axis.text.x =  element_blank(),
    axis.text.y =  element_blank(),
    axis.ticks =   element_blank(),
    axis.title.x = element_blank(),
    axis.title.y = element_blank(),
    plot.title =   element_text(
      size=16.4,
      colour="darkslategrey",
      hjust=0.25))   )

  ggplot() + geom_polygon(
    data = uystates_df,
    aes(
      x = long,
      y = lat,
      group = group,
      fill = n),
    color = "black",
    size = 0.25) +
    theme(aspect.ratio = 1) +
    theme_opts
}

#Población por departamento para el año más reciente. Censo 2011, fuente: INE.
censo<- c(73378,520187,84698,123203,57088, 25050,67048,58815,164300,1319108,   113124,54765,103493,68088,124878,  108309,82595,90053,48134)

# Tasa de fallecidos en accidentes de tránsito cada 10.000 habitantes.
pob.dep<- cbind((datos %>% count(dep) %>% arrange(dep)),censo)%>% mutate(tasa=(n/censo)*10000)

#Cargar fechas
fecha<-    datos %>% separate(  fecha,c("dia","mes")  ) %>%
  mutate( f.h=  paste( paste(a,mes,dia,sep="-") ,  hora )  ) %>%
  mutate( f.h=  as.POSIXct(f.h, format="%Y-%m-%d  %H:%M:%S",tz="GMT"))%>%
  dplyr::select(f.h)

n.dia <-  weekdays(       as.Date(  as.vector(t (fecha[1])  )    ) )

f<- data.frame(fecha,n.dia)

################################################################################################

ui <- fluidPage(

  titlePanel( h1("Siniestros fatales de tránsito en Uruguay, 2013-2017")),

  tabsetPanel(

    tabPanel(
      title = h6("Distribución territorial"),
      hr(),

      sidebarLayout(

        sidebarPanel(

          checkboxGroupInput("años", "Elegir Año:",
                             choiceNames = c("2013", "2014", "2015", "2016","2017"),
                             choiceValues =  c("2013", "2014", "2015", "2016","2017"))
          ),

        mainPanel(
          plotOutput("mapa")

          )
        )
      ),

    tabPanel(
      title = h6("Densidad según vehículo"),
      hr(),

      sidebarLayout(

        sidebarPanel(

          selectInput("sexodensidad", "Sexo:",
                      choices = c("Ambos", "Femenino", "Masculino")),

          selectInput("añosdensidad", "Elegir año:",
                      choices = c("Todos","2017", "2016", "2015", "2014","2013")),

          checkboxGroupInput("vehiculodensidad", "Vehículo:",
                             choiceNames = c("Auto","Camión","Camioneta" ,"Moto", "Peatón"),
                             choiceValues =  c("AUTO", "CAMION", "CAMIONETA", "MOTO","PEATON"))

        ),
        mainPanel(
          plotlyOutput("densidad"),
          p(" facetear por sexo, indicar vehiculo y año")
          )
      )
      ),

    tabPanel(
      title = h6("Mosaicos"),
      hr(),

      sidebarLayout(

        sidebarPanel(

          selectInput("variablemosaico", "Variable:",
                      choices = c("Sexo","Rol", "Jurisdicción")),

       conditionalPanel(
         condition = "input.variablemosaico!='Sexo'",
         selectInput("sexomosaico", "Sexo:",
                                    choices = c("Facetear", "No facetear") ))          ,

          checkboxGroupInput("añosmosaico", "Elegir Año:",
                             choiceNames = c("2013", "2014", "2015", "2016","2017"),
                             choiceValues =  c("2013", "2014", "2015", "2016","2017"))

        ),
        mainPanel(

      plotlyOutput("rol"),
      plotlyOutput("involucrado"),
      p("sexo y año para ambos,   rol y jurisdiccion  para involucrado ")
         )
      )
      ),

    tabPanel(
      title = h6("Series de tiempo"),
      sidebarLayout(

        sidebarPanel(

          selectInput("fallecidos", "Fallecidos:",
                      choices = c("Total", "Sexo", "Rol","Jurisdicción")),
          selectInput("intervalo", "Intervalo:",
                      choices = c("1 mes","3 mes", "6 meses", "1 año")),
          checkboxInput("error", "Error", TRUE),
          checkboxInput("puntoylinea", "Punto y línea", TRUE)
        ),
        mainPanel(
      plotOutput("fecha")

      )
      )
    )))

################################################################################################

server <-  function(input, output) {

  output$mapa <- renderPlot({

    mapeo(n= (datos %>% filter( a==input$años |
                                  a==input$años |
                                  a==input$años |
                                  a==input$años |
                                  a==input$años |
                                  a==input$años )%>% count(a,dep) %>% arrange(a) %>%
                mutate(censo=(rep(censo,(length(table(a)))))) %>% mutate(n= ((n/censo)*10000))) ) +
      labs(
        fill = "Tasa",
        x = NULL,
        y = NULL) +
      scale_fill_gradient2(
        low = "#d8b365",
        mid = "white",
        high = "#5ab4ac",
        midpoint =  mean((datos %>% filter(a==input$años  ) %>% count(a,dep) %>% arrange(a) %>% mutate(
          censo= (rep(censo,(length(table(a)))))) %>% mutate(n=(n/censo)*10000))$n )) +
      facet_wrap( ~ a)

  })

  output$densidad <- renderPlotly({
    ggplotly(

    datos %>% filter(vehi== "AUTO" | vehi=="MOTO")%>%
    ggplot(aes(edad)) +
    geom_density(
      aes(fill = vehi),
      alpha = 0.5,
      show.legend = T) +
    labs(
      x =  "Edad",
      y = "Densidad")  +
    theme_minimal() +
    guides(fill = guide_legend(title = "Vehículo:")) +
    theme(
      legend.position = "bottom",
      axis.title  = (element_text(
        size = 12,
        colour = "darkslategray"))) +
    scale_fill_manual (values=colores))
    })

  output$rol <- renderPlotly({
  ggplotly(
    datos  %>%  filter(a=="2013")%>% filter(sexo=="F")%>%dplyr::count(vehi, rol) %>% filter(vehi!="PEATON")  %>%
      group_by( vehi= ifelse (
        (vehi!="BICICLETA" &
           vehi!="MOTO" &
           vehi!="AUTO" &
           vehi!="BICICLETA" &
           vehi!="CAMIONETA"),"OTROS", vehi ),rol)  %>%
      summarise(n=sum(n))  %>%
      ggplot()  +
      geom_mosaic(aes(
        weight = n,
        x = product(  reorder(abbreviate(vehi, 4),-n)  ),
        fill = abbreviate( rol, 1) ),
        alpha=0.64)  +
      labs(
        x = "Vehículo del fallecido",
        y = "Proporción de fallecidos") +
      guides(fill = guide_legend(title = "Rol")) +
      theme_minimal() +
      theme(
        axis.title =
          element_text(
            size = 12,colour="grey30")) +
      scale_fill_manual(  values = colores[c(2,3,1)]))
    })

  output$involucrado <- renderPlotly({
    ggplotly(
      datos %>% filter(a=="2017") %>%dplyr::count(involucrado, sexo) %>%
        ggplot() +
        geom_mosaic(aes(
          weight = n,
          x = product(sexo),
          fill = involucrado),
          alpha=0.5) +
        labs(
          x = "Jurisdicción",
          y = "Proporción involucrado") +
        theme(
          panel.background = element_rect(
            fill="white"),
          plot.title = element_text(
            size = 16,
            face = "italic",
            colour = "grey20",
            vjust = -2),
          axis.title = element_text(
            size=12,
            colour="grey20")) +
        scale_fill_manual(
          values = colores) +
        guides(
          fill= guide_legend("Involucrado")))

  })

  #SERIES DE TIEMPO

    intervaloInput <- reactive({
    switch(input$intervalo,
           "1 mes"= "1 month",
           "3 mes"= "3 months",
           "6 meses" = "6 months",
           "1 año" = "1 year")
  })

  output$fecha <- renderPlot({

    if(input$fallecidos=="Total")
    {
      if(input$puntoylinea==T) {

    data.frame(datos,f) %>%
    count( a.mes=    floor_date(f.h, intervaloInput()))  %>%
    ggplot(
      aes(
        as_date(a.mes),
          n
        ) ) +geom_point()+
        geom_line(
          stat="identity")+
    geom_smooth(
      method = "loess",
      se=input$error,
      cex=1.4)+
    labs(
      x = "Año",
      y = "Frecuencia absoluta de fallecidos") +
    theme_minimal() +
    theme(
      axis.title = element_text(
        colour="grey30",
        size=12),
      axis.text =element_text(
        colour = "grey27",
        size=9)       )  +
    scale_x_date(
      date_labels =("%Y"),
      date_breaks = "1 year" )+
          scale_color_manual(values=colores)}

      else {  data.frame(datos,f) %>%
          count( a.mes=    floor_date(f.h, intervaloInput()))  %>%
          ggplot(
            aes(
              as_date(a.mes),
              n
            ) ) +
          geom_smooth(
            method = "loess",
            se=input$error,
            cex=1.4)+
          labs(
            x = "Año",
            y = "Frecuencia absoluta de fallecidos") +
          theme_minimal() +
          theme(
            axis.title = element_text(
              colour="grey30",
              size=12),
            axis.text =element_text(
              colour = "grey27",
              size=9)       )  +
          scale_x_date(
            date_labels =("%Y"),
            date_breaks = "1 year" )+
          scale_color_manual(values=colores)}

      }

    else if(input$fallecidos=="Sexo"){

      if(input$puntoylinea==T) {

      data.frame(datos,f) %>%
        count(sexo, a.mes=    floor_date(f.h, intervaloInput()))  %>%
        ggplot(
          aes(
            as_date(a.mes),
            n,
            colour=sexo
          ) ) +
        geom_point()  +
        geom_line(
          stat="identity")+
        geom_smooth(
          method = "loess",
          se=input$error,
          cex=1.4)+
        labs(
          x = "Año",
          y = "Frecuencia absoluta de fallecidos") +
        theme_minimal() +
        theme(
          axis.title = element_text(
            colour="grey30",
            size=12),
          axis.text =element_text(
            colour = "grey27",
            size=9)       )  +
        scale_x_date(
          date_labels =("%Y"),
          date_breaks = "1 year" ) }

      else {data.frame(datos,f) %>%
          count(sexo, a.mes=    floor_date(f.h, intervaloInput()))  %>%
          ggplot(
            aes(
              as_date(a.mes),
              n,
              colour=sexo
            ) ) +
          geom_smooth(
            method = "loess",
            se=input$error,
            cex=1.4)+
          labs(
            x = "Año",
            y = "Frecuencia absoluta de fallecidos") +
          theme_minimal() +
          theme(
            axis.title = element_text(
              colour="grey30",
              size=12),
            axis.text =element_text(
              colour = "grey27",
              size=9)       )  +
          scale_x_date(
            date_labels =("%Y"),
            date_breaks = "1 year" )}

    }
    else if(input$fallecidos=="Rol"){

      if(input$puntoylinea==T) {

      data.frame(datos,f) %>%
        count(rol, a.mes=    floor_date(f.h, intervaloInput()))  %>%
        ggplot(
          aes(
            as_date(a.mes),
            n,
            colour=rol
          ) ) +
        geom_point()  +
        geom_line(
          stat="identity")+
        geom_smooth(
          method = "loess",
          se=input$error,
          cex=1.4)+
        labs(
          x = "Año",
          y = "Frecuencia absoluta de fallecidos") +
        theme_minimal() +
        theme(
          axis.title = element_text(
            colour="grey30",
            size=12),
          axis.text =element_text(
            colour = "grey27",
            size=9)       )  +
        scale_x_date(
          date_labels =("%Y"),
          date_breaks = "1 year" ) +
          scale_color_manual(values=colores)}

      else {   data.frame(datos,f) %>%
          count(rol, a.mes=    floor_date(f.h, intervaloInput()))  %>%
          ggplot(
            aes(
              as_date(a.mes),
              n,
              colour=rol
            ) ) +
          geom_smooth(
            method = "loess",
            se=input$error,
            cex=1.4)+
          labs(
            x = "Año",
            y = "Frecuencia absoluta de fallecidos") +
          theme_minimal() +
          theme(
            axis.title = element_text(
              colour="grey30",
              size=12),
            axis.text =element_text(
              colour = "grey27",
              size=9)       )  +
          scale_x_date(
            date_labels =("%Y"),
            date_breaks = "1 year" ) +
          scale_color_manual(values=colores)}

    }
    else if(input$fallecidos=="Jurisdicción"){

      if(input$puntoylinea==T) {

      data.frame(datos,f) %>%
        count(jur, a.mes=    floor_date(f.h, intervaloInput()))  %>%
        ggplot(
          aes(
            as_date(a.mes),
            n,
            colour=jur
          ) ) +
        geom_point()  +
        geom_line(
          stat="identity")+
        geom_smooth(
          method = "loess",
          se=input$error,
          cex=1.4)+
        labs(
          x = "Año",
          y = "Frecuencia absoluta de fallecidos") +
        theme_minimal() +
        theme(
          axis.title = element_text(
            colour="grey30",
            size=12),
          axis.text =element_text(
            colour = "grey27",
            size=9)       )  +
        scale_x_date(
          date_labels =("%Y"),
          date_breaks = "1 year" )+
          scale_color_manual(values=colores)}
      else {
        data.frame(datos,f) %>%
          count(jur, a.mes=    floor_date(f.h, intervaloInput()))  %>%
          ggplot(
            aes(
              as_date(a.mes),
              n,
              colour=jur
            ) ) +
          geom_smooth(
            method = "loess",
            se=input$error,
            cex=1.4)+
          labs(
            x = "Año",
            y = "Frecuencia absoluta de fallecidos") +
          theme_minimal() +
          theme(
            axis.title = element_text(
              colour="grey30",
              size=12),
            axis.text =element_text(
              colour = "grey27",
              size=9)       )  +
          scale_x_date(
            date_labels =("%Y"),
            date_breaks = "1 year" ) +
          scale_color_manual(values=colores)}

    }

  })

  }

################################################################################################

shinyApp(ui = ui, server = server)

################################################################################################


You're right. It's not. Removed it.


Clarification: implemented GET test


This is my interaction sample website.


I don’t get this. I thought this URL pattern was only for commissions?


Wozu strings einbauen, die nicht übersetzt werden können, weil es nichts zu übersetzen gibt? Die werden nicht doppelt gebraucht. Habe schon mehrfach gesehen, dass diese


You are right, it works now, it was prior to put it within a transaction. Removing.


fixed


I think this is a bad idea.  The version was > 0.7 since at least Oct 2017  Why revert to an earlier version?  Packages that depend on ANTsR (such as extrantsr) may have version restrictions such as (>= 0.6.0), which now break.