[R/dashboard.R:4:10:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/dashboard.R#L4) *warning:* **no visible binding for global variable ‘PROJ’, Did you mean 'NROW'?**
```r
  return(PROJ$IS_PRODUCTION)
         ^~~~
```
[R/dashboard.R:10:10:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/dashboard.R#L10) *warning:* **no visible binding for global variable ‘PROJ’, Did you mean 'NROW'?**
```r
  return(PROJ$IS_DEV)
         ^~~~
```
[R/dashboard.R:16:10:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/dashboard.R#L16) *warning:* **no visible binding for global variable ‘PROJ’, Did you mean 'NROW'?**
```r
  return(PROJ$IS_INITIALISED)
         ^~~~
```
[R/dashboard.R:34:20:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/dashboard.R#L34) *warning:* **Do not use absolute paths.**
```r
  if (file.exists("/tmp/computer")) {
                   ^~~~
```
[R/dashboard.R:35:18:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/dashboard.R#L35) *warning:* **Do not use absolute paths.**
```r
    con <- file("/tmp/computer", "r")
                 ^~~~
```
[R/dashboard.R:84:45:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/dashboard.R#L84) *warning:* **no visible binding for global variable ‘PROJ’, Did you mean 'NROW'?**
```r
      fn(sprintf("%s/%s/%s %s", Sys.time(), PROJ$COMPUTER_NAME, PROJ$NAME, txt))
                                            ^~~~
```
[R/dashboard.R:84:45:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/dashboard.R#L84) *warning:* **no visible binding for global variable ‘PROJ’, Did you mean 'NROW'?**
```r
      fn(sprintf("%s/%s/%s %s", Sys.time(), PROJ$COMPUTER_NAME, PROJ$NAME, txt))
                                            ^~~~
```
[R/dashboard.R:90:45:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/dashboard.R#L90) *warning:* **no visible binding for global variable ‘PROJ’, Did you mean 'NROW'?**
```r
      fn(sprintf("%s/%s/%s %s", Sys.time(), PROJ$COMPUTER_NAME, PROJ$NAME, txt), call. = F)
                                            ^~~~
```
[R/dashboard.R:90:45:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/dashboard.R#L90) *warning:* **no visible binding for global variable ‘PROJ’, Did you mean 'NROW'?**
```r
      fn(sprintf("%s/%s/%s %s", Sys.time(), PROJ$COMPUTER_NAME, PROJ$NAME, txt), call. = F)
                                            ^~~~
```
[R/dashboard.R:106:1:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/dashboard.R#L106) *style:* **lines should not be more than 120 characters.**
```r
DashboardInitialiseOpinionated <- function(NAME, STUB = "/", PACKAGE_DIR = sprintf("/packages/dashboards_%s", NAME), FORCE_DEV_PACKAGE_LOAD = FALSE, DEV_IF_RSTUDIO = TRUE, SILENT = FALSE) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/dashboard.R:106:85:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/dashboard.R#L106) *warning:* **Do not use absolute paths.**
```r
DashboardInitialiseOpinionated <- function(NAME, STUB = "/", PACKAGE_DIR = sprintf("/packages/dashboards_%s", NAME), FORCE_DEV_PACKAGE_LOAD = FALSE, DEV_IF_RSTUDIO = TRUE, SILENT = FALSE) {
                                                                                ^~~~~~~~~
```
[R/dashboard.R:143:23:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/dashboard.R#L143) *warning:* **no visible binding for global variable ‘PROJ’, Did you mean 'NROW'?**
```r
  retVal <- file.path(PROJ$STUB, inside, PROJ$NAME)
                      ^~~~
```
[R/dashboard.R:143:23:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/dashboard.R#L143) *warning:* **no visible binding for global variable ‘PROJ’, Did you mean 'NROW'?**
```r
  retVal <- file.path(PROJ$STUB, inside, PROJ$NAME)
                      ^~~~
```
[R/dashboard.R:169:54:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/dashboard.R#L169) *warning:* **Do not use absolute paths.**
```r
                           XLSXLocation = file.path("/etc", "gmailr", "emails.xlsx"),
                                                     ^~~~
```
[R/dashboard.R:170:55:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/dashboard.R#L170) *warning:* **Do not use absolute paths.**
```r
                           OAUTHLocation = file.path("/etc", "gmailr", ".httr-oauth")) {
                                                      ^~~~
```
[R/dashboard.R:206:14:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/dashboard.R#L206) *warning:* **no visible global function definition for ‘%>%’, Did you mean '%*%'?**
```r
    text_msg %>% gmailr::attach_part(emailText, content_type = "text/html") -> text_msg
             ^~~
```
[R/dashboard.R:208:16:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/dashboard.R#L208) *warning:* **no visible global function definition for ‘%>%’, Did you mean '%*%'?**
```r
      text_msg %>% gmailr::attach_file(i) -> text_msg
               ^~~
```
[R/dashboard.R:214:41:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/dashboard.R#L214) *warning:* **Do not use absolute paths.**
```r
  file.copy(OAUTHLocation, paste0(tmp, "/.httr-oauth"))
                                        ^~~~~~~~~~~~
```
[R/dashboard.R:233:63:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/dashboard.R#L233) *warning:* **Do not use absolute paths.**
```r
                                   OAUTHLocation = file.path("/etc", "gmailr", ".httr-oauth")) {
                                                              ^~~~
```
[R/dashboard.R:258:41:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/dashboard.R#L258) *warning:* **Do not use absolute paths.**
```r
  file.copy(OAUTHLocation, paste0(tmp, "/.httr-oauth"))
                                        ^~~~~~~~~~~~
```
[R/ggplot.r:117:3:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/ggplot.r#L117) *warning:* **local variable ‘half_line’ assigned but may not be used**
```r
  half_line <- base_size / 2
  ^~~~~~~~~
```
[R/ggplot.r:235:12:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/ggplot.r#L235) *warning:* **no visible global function definition for ‘theme_SMAO_V1’**
```r
    return(theme_SMAO_V1(base_size = base_size, base_family = base_family))
           ^~~~~~~~~~~~~
```
[R/ggplot.r:237:12:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/ggplot.r#L237) *warning:* **no visible global function definition for ‘theme_SMAO_V2’**
```r
    return(theme_SMAO_V2(base_size = base_size, base_family = base_family))
           ^~~~~~~~~~~~~
```
[R/graphs.R:232:3:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L232) *warning:* **local variable ‘limitsY’ assigned but may not be used**
```r
  limitsY <- diff(range(c(pd[[L1]], pd[[L4]])))
  ^~~~~~~
```
[R/graphs.R:234:8:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L234) *warning:* **no visible global function definition for ‘ggplot’, Did you mean 'biplot'?**
```r
  q <- ggplot(pd, aes_string(x = x))
       ^~~~~~
```
[R/graphs.R:234:19:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L234) *warning:* **no visible global function definition for ‘aes_string’**
```r
  q <- ggplot(pd, aes_string(x = x))
                  ^~~~~~~~~~
```
[R/graphs.R:236:14:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L236) *warning:* **no visible global function definition for ‘stat_stepribbon’**
```r
    q <- q + stat_stepribbon(aes_string(ymin = L3, ymax = L4, fill = shQuote("L1")), direction = "vh", alpha = 0.4)
             ^~~~~~~~~~~~~~~
```
[R/graphs.R:236:30:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L236) *warning:* **no visible global function definition for ‘aes_string’**
```r
    q <- q + stat_stepribbon(aes_string(ymin = L3, ymax = L4, fill = shQuote("L1")), direction = "vh", alpha = 0.4)
                             ^~~~~~~~~~
```
[R/graphs.R:237:14:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L237) *warning:* **no visible global function definition for ‘stat_stepribbon’**
```r
    q <- q + stat_stepribbon(aes_string(ymin = L2, ymax = L3, fill = shQuote("L2")), direction = "vh", alpha = 0.4)
             ^~~~~~~~~~~~~~~
```
[R/graphs.R:237:30:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L237) *warning:* **no visible global function definition for ‘aes_string’**
```r
    q <- q + stat_stepribbon(aes_string(ymin = L2, ymax = L3, fill = shQuote("L2")), direction = "vh", alpha = 0.4)
                             ^~~~~~~~~~
```
[R/graphs.R:238:14:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L238) *warning:* **no visible global function definition for ‘stat_stepribbon’**
```r
    q <- q + stat_stepribbon(aes_string(ymin = L1, ymax = L2, fill = shQuote("L3")), direction = "vh", alpha = 0.4)
             ^~~~~~~~~~~~~~~
```
[R/graphs.R:238:30:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L238) *warning:* **no visible global function definition for ‘aes_string’**
```r
    q <- q + stat_stepribbon(aes_string(ymin = L1, ymax = L2, fill = shQuote("L3")), direction = "vh", alpha = 0.4)
                             ^~~~~~~~~~
```
[R/graphs.R:239:1:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L239) *style:* **lines should not be more than 120 characters.**
```r
    if (!is.null(dataCIL) & !is.null(dataCIU)) q <- q + stat_stepribbon(aes_string(ymin = dataCIL, ymax = dataCIU), fill = "black", direction = "vh", alpha = 0.4)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/graphs.R:239:57:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L239) *warning:* **no visible global function definition for ‘stat_stepribbon’**
```r
    if (!is.null(dataCIL) & !is.null(dataCIU)) q <- q + stat_stepribbon(aes_string(ymin = dataCIL, ymax = dataCIU), fill = "black", direction = "vh", alpha = 0.4)
                                                        ^~~~~~~~~~~~~~~
```
[R/graphs.R:239:73:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L239) *warning:* **no visible global function definition for ‘aes_string’**
```r
    if (!is.null(dataCIL) & !is.null(dataCIU)) q <- q + stat_stepribbon(aes_string(ymin = dataCIL, ymax = dataCIU), fill = "black", direction = "vh", alpha = 0.4)
                                                                        ^~~~~~~~~~
```
[R/graphs.R:240:14:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L240) *warning:* **no visible global function definition for ‘geom_step’**
```r
    q <- q + geom_step(aes_string(y = dataVal), direction = "vh", lwd = 1)
             ^~~~~~~~~
```
[R/graphs.R:240:24:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L240) *warning:* **no visible global function definition for ‘aes_string’**
```r
    q <- q + geom_step(aes_string(y = dataVal), direction = "vh", lwd = 1)
                       ^~~~~~~~~~
```
[R/graphs.R:242:14:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L242) *warning:* **no visible global function definition for ‘geom_ribbon’**
```r
    q <- q + geom_ribbon(aes_string(ymin = L3, ymax = L4, fill = shQuote("L1")), alpha = 0.4)
             ^~~~~~~~~~~
```
[R/graphs.R:242:26:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L242) *warning:* **no visible global function definition for ‘aes_string’**
```r
    q <- q + geom_ribbon(aes_string(ymin = L3, ymax = L4, fill = shQuote("L1")), alpha = 0.4)
                         ^~~~~~~~~~
```
[R/graphs.R:243:14:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L243) *warning:* **no visible global function definition for ‘geom_ribbon’**
```r
    q <- q + geom_ribbon(aes_string(ymin = L2, ymax = L3, fill = shQuote("L2")), alpha = 0.4)
             ^~~~~~~~~~~
```
[R/graphs.R:243:26:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L243) *warning:* **no visible global function definition for ‘aes_string’**
```r
    q <- q + geom_ribbon(aes_string(ymin = L2, ymax = L3, fill = shQuote("L2")), alpha = 0.4)
                         ^~~~~~~~~~
```
[R/graphs.R:244:14:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L244) *warning:* **no visible global function definition for ‘geom_ribbon’**
```r
    q <- q + geom_ribbon(aes_string(ymin = L1, ymax = L2, fill = shQuote("L3")), alpha = 0.4)
             ^~~~~~~~~~~
```
[R/graphs.R:244:26:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L244) *warning:* **no visible global function definition for ‘aes_string’**
```r
    q <- q + geom_ribbon(aes_string(ymin = L1, ymax = L2, fill = shQuote("L3")), alpha = 0.4)
                         ^~~~~~~~~~
```
[R/graphs.R:245:1:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L245) *style:* **lines should not be more than 120 characters.**
```r
    if (!is.null(dataCIL) & !is.null(dataCIU)) q <- q + geom_ribbon(aes_string(ymin = dataCIL, ymax = dataCIU), fill = "black", alpha = 0.4)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/graphs.R:245:57:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L245) *warning:* **no visible global function definition for ‘geom_ribbon’**
```r
    if (!is.null(dataCIL) & !is.null(dataCIU)) q <- q + geom_ribbon(aes_string(ymin = dataCIL, ymax = dataCIU), fill = "black", alpha = 0.4)
                                                        ^~~~~~~~~~~
```
[R/graphs.R:245:69:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L245) *warning:* **no visible global function definition for ‘aes_string’**
```r
    if (!is.null(dataCIL) & !is.null(dataCIU)) q <- q + geom_ribbon(aes_string(ymin = dataCIL, ymax = dataCIU), fill = "black", alpha = 0.4)
                                                                    ^~~~~~~~~~
```
[R/graphs.R:246:14:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L246) *warning:* **no visible global function definition for ‘geom_line’**
```r
    q <- q + geom_line(aes_string(y = dataVal), lwd = 1)
             ^~~~~~~~~
```
[R/graphs.R:246:24:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L246) *warning:* **no visible global function definition for ‘aes_string’**
```r
    q <- q + geom_line(aes_string(y = dataVal), lwd = 1)
                       ^~~~~~~~~~
```
[R/graphs.R:250:14:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L250) *warning:* **no visible global function definition for ‘geom_point’**
```r
    q <- q + geom_point(aes_string(x = "xShifted", y = dataVal), size = 4, fill = "black")
             ^~~~~~~~~~
```
[R/graphs.R:250:25:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L250) *warning:* **no visible global function definition for ‘aes_string’**
```r
    q <- q + geom_point(aes_string(x = "xShifted", y = dataVal), size = 4, fill = "black")
                        ^~~~~~~~~~
```
[R/graphs.R:252:1:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L252) *style:* **lines should not be more than 120 characters.**
```r
    if (includeMedium | includeHigh) q <- q + geom_point(aes_string(x = "xShifted", y = dataVal), size = 4, fill = "black", data = pd[pd$status %in% c("Medium", "High"), ])
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/graphs.R:252:47:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L252) *warning:* **no visible global function definition for ‘geom_point’**
```r
    if (includeMedium | includeHigh) q <- q + geom_point(aes_string(x = "xShifted", y = dataVal), size = 4, fill = "black", data = pd[pd$status %in% c("Medium", "High"), ])
                                              ^~~~~~~~~~
```
[R/graphs.R:252:58:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L252) *warning:* **no visible global function definition for ‘aes_string’**
```r
    if (includeMedium | includeHigh) q <- q + geom_point(aes_string(x = "xShifted", y = dataVal), size = 4, fill = "black", data = pd[pd$status %in% c("Medium", "High"), ])
                                                         ^~~~~~~~~~
```
[R/graphs.R:254:1:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L254) *style:* **lines should not be more than 120 characters.**
```r
  if (includeMedium) q <- q + geom_point(aes_string(x = "xShifted", y = dataVal, colour = shQuote("L2")), size = 2, data = pd[pd$status == "Medium", ])
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/graphs.R:254:31:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L254) *warning:* **no visible global function definition for ‘geom_point’**
```r
  if (includeMedium) q <- q + geom_point(aes_string(x = "xShifted", y = dataVal, colour = shQuote("L2")), size = 2, data = pd[pd$status == "Medium", ])
                              ^~~~~~~~~~
```
[R/graphs.R:254:42:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L254) *warning:* **no visible global function definition for ‘aes_string’**
```r
  if (includeMedium) q <- q + geom_point(aes_string(x = "xShifted", y = dataVal, colour = shQuote("L2")), size = 2, data = pd[pd$status == "Medium", ])
                                         ^~~~~~~~~~
```
[R/graphs.R:255:1:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L255) *style:* **lines should not be more than 120 characters.**
```r
  if (includeHigh) q <- q + geom_point(aes_string(x = "xShifted", y = dataVal, colour = shQuote("L1")), size = 2, data = pd[pd$status == "High", ])
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/graphs.R:255:29:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L255) *warning:* **no visible global function definition for ‘geom_point’**
```r
  if (includeHigh) q <- q + geom_point(aes_string(x = "xShifted", y = dataVal, colour = shQuote("L1")), size = 2, data = pd[pd$status == "High", ])
                            ^~~~~~~~~~
```
[R/graphs.R:255:40:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L255) *warning:* **no visible global function definition for ‘aes_string’**
```r
  if (includeHigh) q <- q + geom_point(aes_string(x = "xShifted", y = dataVal, colour = shQuote("L1")), size = 2, data = pd[pd$status == "High", ])
                                       ^~~~~~~~~~
```
[R/graphs.R:256:12:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L256) *warning:* **no visible global function definition for ‘ThemeShiny’**
```r
  q <- q + ThemeShiny()
           ^~~~~~~~~~
```
[R/graphs.R:259:15:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L259) *warning:* **no visible global function definition for ‘DateBreaks’**
```r
  breaksDF <- DateBreaks(breaksDF, limits, weekNumbers)
              ^~~~~~~~~~
```
[R/graphs.R:261:12:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L261) *warning:* **no visible global function definition for ‘scale_x_date’**
```r
  q <- q + scale_x_date("", breaks = breaksDF$xShifted, labels = breaksDF$printLabel)
           ^~~~~~~~~~~~
```
[R/graphs.R:262:5:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L262) *style:* **Commented code should be removed.**
```r
  # q <- q + scale_xcontinuous("Dato", breaks = breaksDF$xShifted,  labels = breaksDF$printLabel)
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/graphs.R:264:12:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L264) *warning:* **no visible global function definition for ‘scale_y_continuous’**
```r
  q <- q + scale_y_continuous("")
           ^~~~~~~~~~~~~~~~~~
```
[R/graphs.R:270:35:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L270) *warning:* **no visible global function definition for ‘scale_colour_manual’**
```r
  if (!is.null(colours)) q <- q + scale_colour_manual(values = colours)
                                  ^~~~~~~~~~~~~~~~~~~
```
[R/graphs.R:271:12:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L271) *warning:* **no visible global function definition for ‘guides’**
```r
  q <- q + guides(colour = FALSE)
           ^~~~~~
```
[R/graphs.R:272:12:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L272) *warning:* **no visible global function definition for ‘coord_cartesian’**
```r
  q <- q + coord_cartesian(xlim = limits, expand = FALSE)
           ^~~~~~~~~~~~~~~
```
[R/graphs.R:273:33:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L273) *warning:* **no visible global function definition for ‘labs’, Did you mean 'abs'?**
```r
  if (!is.null(title)) q <- q + labs(title = title)
                                ^~~~
```
[R/graphs.R:295:3:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L295) *warning:* **local variable ‘includeNormal’ assigned but may not be used**
```r
  includeNormal <- sum(pd$status == "Normal") > 0
  ^~~~~~~~~~~~~
```
[R/graphs.R:313:15:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L313) *warning:* **no visible global function definition for ‘DateBreaks’**
```r
  breaksDF <- DateBreaks(breaksDF, limits, weekNumbers = TRUE)
              ^~~~~~~~~~
```
[R/graphs.R:315:8:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L315) *warning:* **no visible global function definition for ‘ggplot’, Did you mean 'biplot'?**
```r
  q <- ggplot(pd, aes_string(x = x))
       ^~~~~~
```
[R/graphs.R:315:19:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L315) *warning:* **no visible global function definition for ‘aes_string’**
```r
  q <- ggplot(pd, aes_string(x = x))
                  ^~~~~~~~~~
```
[R/graphs.R:316:12:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L316) *warning:* **no visible global function definition for ‘geom_line’**
```r
  q <- q + geom_line(aes_string(y = dataVal), lwd = 1)
           ^~~~~~~~~
```
[R/graphs.R:316:22:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L316) *warning:* **no visible global function definition for ‘aes_string’**
```r
  q <- q + geom_line(aes_string(y = dataVal), lwd = 1)
                     ^~~~~~~~~~
```
[R/graphs.R:317:1:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L317) *style:* **lines should not be more than 120 characters.**
```r
  if (includeMedium | includeHigh) q <- q + geom_point(aes_string(y = dataVal), size = 4, fill = "black", data = pd[pd$status %in% c("Medium", "High"), ])
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/graphs.R:317:45:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L317) *warning:* **no visible global function definition for ‘geom_point’**
```r
  if (includeMedium | includeHigh) q <- q + geom_point(aes_string(y = dataVal), size = 4, fill = "black", data = pd[pd$status %in% c("Medium", "High"), ])
                                            ^~~~~~~~~~
```
[R/graphs.R:317:56:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L317) *warning:* **no visible global function definition for ‘aes_string’**
```r
  if (includeMedium | includeHigh) q <- q + geom_point(aes_string(y = dataVal), size = 4, fill = "black", data = pd[pd$status %in% c("Medium", "High"), ])
                                                       ^~~~~~~~~~
```
[R/graphs.R:318:1:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L318) *style:* **lines should not be more than 120 characters.**
```r
  if (includeMedium) q <- q + geom_point(aes_string(y = dataVal, colour = shQuote("L2")), size = 2, data = pd[pd$status == "Medium", ])
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/graphs.R:318:31:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L318) *warning:* **no visible global function definition for ‘geom_point’**
```r
  if (includeMedium) q <- q + geom_point(aes_string(y = dataVal, colour = shQuote("L2")), size = 2, data = pd[pd$status == "Medium", ])
                              ^~~~~~~~~~
```
[R/graphs.R:318:42:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L318) *warning:* **no visible global function definition for ‘aes_string’**
```r
  if (includeMedium) q <- q + geom_point(aes_string(y = dataVal, colour = shQuote("L2")), size = 2, data = pd[pd$status == "Medium", ])
                                         ^~~~~~~~~~
```
[R/graphs.R:319:1:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L319) *style:* **lines should not be more than 120 characters.**
```r
  if (includeHigh) q <- q + geom_point(aes_string(y = dataVal, colour = shQuote("L1")), size = 2, data = pd[pd$status == "High", ])
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/graphs.R:319:29:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L319) *warning:* **no visible global function definition for ‘geom_point’**
```r
  if (includeHigh) q <- q + geom_point(aes_string(y = dataVal, colour = shQuote("L1")), size = 2, data = pd[pd$status == "High", ])
                            ^~~~~~~~~~
```
[R/graphs.R:319:40:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L319) *warning:* **no visible global function definition for ‘aes_string’**
```r
  if (includeHigh) q <- q + geom_point(aes_string(y = dataVal, colour = shQuote("L1")), size = 2, data = pd[pd$status == "High", ])
                                       ^~~~~~~~~~
```
[R/graphs.R:320:12:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L320) *warning:* **no visible global function definition for ‘ThemeShiny’**
```r
  q <- q + ThemeShiny()
           ^~~~~~~~~~
```
[R/graphs.R:321:12:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L321) *warning:* **no visible global function definition for ‘scale_x_date’**
```r
  q <- q + scale_x_date("", breaks = breaksDF[[x]], labels = breaksDF$printLabel)
           ^~~~~~~~~~~~
```
[R/graphs.R:322:12:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L322) *warning:* **no visible global function definition for ‘scale_y_continuous’**
```r
  q <- q + scale_y_continuous("", breaks = NULL)
           ^~~~~~~~~~~~~~~~~~
```
[R/graphs.R:323:35:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L323) *warning:* **no visible global function definition for ‘scale_colour_manual’**
```r
  if (!is.null(colours)) q <- q + scale_colour_manual(values = colours)
                                  ^~~~~~~~~~~~~~~~~~~
```
[R/graphs.R:324:12:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L324) *warning:* **no visible global function definition for ‘guides’**
```r
  q <- q + guides(colour = FALSE)
           ^~~~~~
```
[R/graphs.R:325:12:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L325) *warning:* **no visible global function definition for ‘coord_cartesian’**
```r
  q <- q + coord_cartesian(xlim = limitsX, ylim = limitsY, expand = FALSE)
           ^~~~~~~~~~~~~~~
```
[R/graphs.R:326:12:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L326) *warning:* **no visible global function definition for ‘labs’, Did you mean 'abs'?**
```r
  q <- q + labs(title = "Velg tidsintervall")
           ^~~~
```
[R/graphs.R:368:8:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L368) *warning:* **no visible global function definition for ‘ggplot’, Did you mean 'biplot'?**
```r
  q <- ggplot(pd, aes_string(x = x, group = comparisonNames))
       ^~~~~~
```
[R/graphs.R:368:19:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L368) *warning:* **no visible global function definition for ‘aes_string’**
```r
  q <- ggplot(pd, aes_string(x = x, group = comparisonNames))
                  ^~~~~~~~~~
```
[R/graphs.R:369:12:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L369) *warning:* **no visible global function definition for ‘geom_line’**
```r
  q <- q + geom_line(aes_string(y = dataVal), lwd = 0.25, alpha = 0.3)
           ^~~~~~~~~
```
[R/graphs.R:369:22:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L369) *warning:* **no visible global function definition for ‘aes_string’**
```r
  q <- q + geom_line(aes_string(y = dataVal), lwd = 0.25, alpha = 0.3)
                     ^~~~~~~~~~
```
[R/graphs.R:371:1:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L371) *style:* **lines should not be more than 120 characters.**
```r
    q <- q + geom_line(aes_string(y = dataVal, colour = comparisonNames), lwd = 2, alpha = 0.8, data = pd[pd[[highlightCondition]], ])
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/graphs.R:371:14:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L371) *warning:* **no visible global function definition for ‘geom_line’**
```r
    q <- q + geom_line(aes_string(y = dataVal, colour = comparisonNames), lwd = 2, alpha = 0.8, data = pd[pd[[highlightCondition]], ])
             ^~~~~~~~~
```
[R/graphs.R:371:24:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L371) *warning:* **no visible global function definition for ‘aes_string’**
```r
    q <- q + geom_line(aes_string(y = dataVal, colour = comparisonNames), lwd = 2, alpha = 0.8, data = pd[pd[[highlightCondition]], ])
                       ^~~~~~~~~~
```
[R/graphs.R:375:1:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L375) *style:* **lines should not be more than 120 characters.**
```r
      q <- q + geom_line(aes_string(y = dataVal, colour = shQuote(newName)), lwd = 2, alpha = 0.8, data = pd[pd[[highlightCondition]] & pd[[comparisonNames]] == i, ])
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/graphs.R:375:16:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L375) *warning:* **no visible global function definition for ‘geom_line’**
```r
      q <- q + geom_line(aes_string(y = dataVal, colour = shQuote(newName)), lwd = 2, alpha = 0.8, data = pd[pd[[highlightCondition]] & pd[[comparisonNames]] == i, ])
               ^~~~~~~~~
```
[R/graphs.R:375:26:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L375) *warning:* **no visible global function definition for ‘aes_string’**
```r
      q <- q + geom_line(aes_string(y = dataVal, colour = shQuote(newName)), lwd = 2, alpha = 0.8, data = pd[pd[[highlightCondition]] & pd[[comparisonNames]] == i, ])
                         ^~~~~~~~~~
```
[R/graphs.R:378:12:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L378) *warning:* **no visible global function definition for ‘ThemeShiny’**
```r
  q <- q + ThemeShiny()
           ^~~~~~~~~~
```
[R/graphs.R:379:12:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L379) *warning:* **no visible global function definition for ‘scale_x_date’**
```r
  q <- q + scale_x_date("", date_breaks = dateBreaks, labels = scales::date_format("%V/%G"))
           ^~~~~~~~~~~~
```
[R/graphs.R:380:12:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L380) *warning:* **no visible global function definition for ‘scale_y_continuous’**
```r
  q <- q + scale_y_continuous("")
           ^~~~~~~~~~~~~~~~~~
```
[R/graphs.R:381:12:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L381) *warning:* **no visible global function definition for ‘scale_colour_brewer’**
```r
  q <- q + scale_colour_brewer("", palette = "Set1")
           ^~~~~~~~~~~~~~~~~~~
```
[R/graphs.R:382:12:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L382) *warning:* **no visible global function definition for ‘coord_cartesian’**
```r
  q <- q + coord_cartesian(xlim = limits, expand = FALSE)
           ^~~~~~~~~~~~~~~
```
[R/graphs.R:383:33:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L383) *warning:* **no visible global function definition for ‘labs’, Did you mean 'abs'?**
```r
  if (!is.null(title)) q <- q + labs(title = title)
                                ^~~~
```
[R/graphs.R:404:1:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L404) *style:* **lines should not be more than 120 characters.**
```r
MakeLineExcessPlot <- function(pd, x, dataVal, dataZ, dataCIL = NULL, dataCIU = NULL, allPoints = TRUE, title = NULL, pointShift = 0, xShift = 0, weekNumbers = FALSE, step = FALSE, GetCols) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/graphs.R:432:3:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L432) *warning:* **local variable ‘limitsY’ assigned but may not be used**
```r
  limitsY <- diff(range(c(pd[[dataCIL]], pd[[dataCIU]])))
  ^~~~~~~
```
[R/graphs.R:434:3:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L434) *warning:* **local variable ‘dateBreaks’ assigned but may not be used**
```r
  dateBreaks <- "6 months"
  ^~~~~~~~~~
```
[R/graphs.R:445:8:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L445) *warning:* **no visible global function definition for ‘ggplot’, Did you mean 'biplot'?**
```r
  q <- ggplot(pd, aes_string(x = x))
       ^~~~~~
```
[R/graphs.R:445:19:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L445) *warning:* **no visible global function definition for ‘aes_string’**
```r
  q <- ggplot(pd, aes_string(x = x))
                  ^~~~~~~~~~
```
[R/graphs.R:447:7:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L447) *style:* **Commented code should be removed.**
```r
    # q <- q + stat_stepribbon(aes_string(ymin = L3, ymax = L4, fill = shQuote("L1")), direction="vh", alpha = 0.4)
      ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/graphs.R:448:7:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L448) *style:* **Commented code should be removed.**
```r
    # q <- q + stat_stepribbon(aes_string(ymin = L2, ymax = L3, fill = shQuote("L2")), direction="vh", alpha = 0.4)
      ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/graphs.R:449:7:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L449) *style:* **Commented code should be removed.**
```r
    # q <- q + stat_stepribbon(aes_string(ymin = L1, ymax = L2, fill = shQuote("L3")), direction="vh", alpha = 0.4)
      ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/graphs.R:450:1:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L450) *style:* **lines should not be more than 120 characters.**
```r
    if (!is.null(dataCIL) & !is.null(dataCIU)) q <- q + stat_stepribbon(aes_string(ymin = dataCIL, ymax = dataCIU), fill = "black", direction = "vh", alpha = 0.4)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/graphs.R:450:57:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L450) *warning:* **no visible global function definition for ‘stat_stepribbon’**
```r
    if (!is.null(dataCIL) & !is.null(dataCIU)) q <- q + stat_stepribbon(aes_string(ymin = dataCIL, ymax = dataCIU), fill = "black", direction = "vh", alpha = 0.4)
                                                        ^~~~~~~~~~~~~~~
```
[R/graphs.R:450:73:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L450) *warning:* **no visible global function definition for ‘aes_string’**
```r
    if (!is.null(dataCIL) & !is.null(dataCIU)) q <- q + stat_stepribbon(aes_string(ymin = dataCIL, ymax = dataCIU), fill = "black", direction = "vh", alpha = 0.4)
                                                                        ^~~~~~~~~~
```
[R/graphs.R:451:14:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L451) *warning:* **no visible global function definition for ‘geom_step’**
```r
    q <- q + geom_step(aes_string(y = dataVal), direction = "vh", lwd = 1)
             ^~~~~~~~~
```
[R/graphs.R:451:24:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L451) *warning:* **no visible global function definition for ‘aes_string’**
```r
    q <- q + geom_step(aes_string(y = dataVal), direction = "vh", lwd = 1)
                       ^~~~~~~~~~
```
[R/graphs.R:453:7:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L453) *style:* **Commented code should be removed.**
```r
    # q <- q + geom_ribbon(aes_string(ymin = L3, ymax = L4, fill = shQuote("L1")), alpha = 0.4)
      ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/graphs.R:454:7:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L454) *style:* **Commented code should be removed.**
```r
    # q <- q + geom_ribbon(aes_string(ymin = L2, ymax = L3, fill = shQuote("L2")), alpha = 0.4)
      ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/graphs.R:455:7:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L455) *style:* **Commented code should be removed.**
```r
    # q <- q + geom_ribbon(aes_string(ymin = L1, ymax = L2, fill = shQuote("L3")), alpha = 0.4)
      ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/graphs.R:456:1:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L456) *style:* **lines should not be more than 120 characters.**
```r
    if (!is.null(dataCIL) & !is.null(dataCIU)) q <- q + geom_ribbon(aes_string(ymin = dataCIL, ymax = dataCIU), fill = "black", alpha = 0.4)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/graphs.R:456:57:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L456) *warning:* **no visible global function definition for ‘geom_ribbon’**
```r
    if (!is.null(dataCIL) & !is.null(dataCIU)) q <- q + geom_ribbon(aes_string(ymin = dataCIL, ymax = dataCIU), fill = "black", alpha = 0.4)
                                                        ^~~~~~~~~~~
```
[R/graphs.R:456:69:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L456) *warning:* **no visible global function definition for ‘aes_string’**
```r
    if (!is.null(dataCIL) & !is.null(dataCIU)) q <- q + geom_ribbon(aes_string(ymin = dataCIL, ymax = dataCIU), fill = "black", alpha = 0.4)
                                                                    ^~~~~~~~~~
```
[R/graphs.R:457:14:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L457) *warning:* **no visible global function definition for ‘geom_line’**
```r
    q <- q + geom_line(aes_string(y = dataVal), lwd = 1)
             ^~~~~~~~~
```
[R/graphs.R:457:24:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L457) *warning:* **no visible global function definition for ‘aes_string’**
```r
    q <- q + geom_line(aes_string(y = dataVal), lwd = 1)
                       ^~~~~~~~~~
```
[R/graphs.R:461:14:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L461) *warning:* **no visible global function definition for ‘geom_point’**
```r
    q <- q + geom_point(aes_string(x = "xShifted", y = dataVal), size = 4, fill = "black")
             ^~~~~~~~~~
```
[R/graphs.R:461:25:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L461) *warning:* **no visible global function definition for ‘aes_string’**
```r
    q <- q + geom_point(aes_string(x = "xShifted", y = dataVal), size = 4, fill = "black")
                        ^~~~~~~~~~
```
[R/graphs.R:463:1:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L463) *style:* **lines should not be more than 120 characters.**
```r
    if (includeMedium | includeHigh) q <- q + geom_point(aes_string(x = "xShifted", y = dataVal), size = 4, fill = "black", data = pd[pd$status %in% c("Medium", "High"), ])
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/graphs.R:463:47:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L463) *warning:* **no visible global function definition for ‘geom_point’**
```r
    if (includeMedium | includeHigh) q <- q + geom_point(aes_string(x = "xShifted", y = dataVal), size = 4, fill = "black", data = pd[pd$status %in% c("Medium", "High"), ])
                                              ^~~~~~~~~~
```
[R/graphs.R:463:58:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L463) *warning:* **no visible global function definition for ‘aes_string’**
```r
    if (includeMedium | includeHigh) q <- q + geom_point(aes_string(x = "xShifted", y = dataVal), size = 4, fill = "black", data = pd[pd$status %in% c("Medium", "High"), ])
                                                         ^~~~~~~~~~
```
[R/graphs.R:465:1:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L465) *style:* **lines should not be more than 120 characters.**
```r
  if (includeMedium) q <- q + geom_point(aes_string(x = "xShifted", y = dataVal, colour = shQuote("L2")), size = 2, data = pd[pd$status == "Medium", ])
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/graphs.R:465:31:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L465) *warning:* **no visible global function definition for ‘geom_point’**
```r
  if (includeMedium) q <- q + geom_point(aes_string(x = "xShifted", y = dataVal, colour = shQuote("L2")), size = 2, data = pd[pd$status == "Medium", ])
                              ^~~~~~~~~~
```
[R/graphs.R:465:42:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L465) *warning:* **no visible global function definition for ‘aes_string’**
```r
  if (includeMedium) q <- q + geom_point(aes_string(x = "xShifted", y = dataVal, colour = shQuote("L2")), size = 2, data = pd[pd$status == "Medium", ])
                                         ^~~~~~~~~~
```
[R/graphs.R:466:1:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L466) *style:* **lines should not be more than 120 characters.**
```r
  if (includeHigh) q <- q + geom_point(aes_string(x = "xShifted", y = dataVal, colour = shQuote("L1")), size = 2, data = pd[pd$status == "High", ])
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/graphs.R:466:29:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L466) *warning:* **no visible global function definition for ‘geom_point’**
```r
  if (includeHigh) q <- q + geom_point(aes_string(x = "xShifted", y = dataVal, colour = shQuote("L1")), size = 2, data = pd[pd$status == "High", ])
                            ^~~~~~~~~~
```
[R/graphs.R:466:40:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L466) *warning:* **no visible global function definition for ‘aes_string’**
```r
  if (includeHigh) q <- q + geom_point(aes_string(x = "xShifted", y = dataVal, colour = shQuote("L1")), size = 2, data = pd[pd$status == "High", ])
                                       ^~~~~~~~~~
```
[R/graphs.R:467:12:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L467) *warning:* **no visible global function definition for ‘geom_hline’**
```r
  q <- q + geom_hline(yintercept = 0, colour = "red")
           ^~~~~~~~~~
```
[R/graphs.R:468:12:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L468) *warning:* **no visible global function definition for ‘ThemeShiny’**
```r
  q <- q + ThemeShiny()
           ^~~~~~~~~~
```
[R/graphs.R:471:15:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L471) *warning:* **no visible global function definition for ‘DateBreaks’, Did you mean 'dateBreaks'?**
```r
  breaksDF <- DateBreaks(breaksDF, limits, weekNumbers)
              ^~~~~~~~~~
```
[R/graphs.R:473:12:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L473) *warning:* **no visible global function definition for ‘scale_x_date’**
```r
  q <- q + scale_x_date("", breaks = breaksDF$xShifted, labels = breaksDF$printLabel)
           ^~~~~~~~~~~~
```
[R/graphs.R:474:12:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L474) *warning:* **no visible global function definition for ‘scale_y_continuous’**
```r
  q <- q + scale_y_continuous("")
           ^~~~~~~~~~~~~~~~~~
```
[R/graphs.R:479:35:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L479) *warning:* **no visible global function definition for ‘scale_colour_manual’**
```r
  if (!is.null(colours)) q <- q + scale_colour_manual(values = colours)
                                  ^~~~~~~~~~~~~~~~~~~
```
[R/graphs.R:480:12:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L480) *warning:* **no visible global function definition for ‘guides’**
```r
  q <- q + guides(colour = FALSE)
           ^~~~~~
```
[R/graphs.R:481:12:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L481) *warning:* **no visible global function definition for ‘coord_cartesian’**
```r
  q <- q + coord_cartesian(xlim = limits, expand = FALSE)
           ^~~~~~~~~~~~~~~
```
[R/graphs.R:482:33:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/graphs.R#L482) *warning:* **no visible global function definition for ‘labs’, Did you mean 'abs'?**
```r
  if (!is.null(title)) q <- q + labs(title = title)
                                ^~~~
```
[R/RenderExternally.R:48:5:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/RenderExternally.R#L48) *style:* **Commented code should be removed.**
```r
  # file.remove(file.path(tmp_dir,tmp_name))
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/sykdompulsepdf_document.R:6:31:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/sykdompulsepdf_document.R#L6) *style:* **Only use double-quotes.**
```r
  rmarkdown::pandoc_available('1.9', TRUE)
                              ^~~~~
```
[R/sykdompulsepdf_document.R:22:31:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/sykdompulsepdf_document.R#L22) *style:* **Only use double-quotes.**
```r
  rmarkdown::pandoc_available('1.9', TRUE)
                              ^~~~~
```
[R/sykdompulsepdf_document.R:27:39:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/sykdompulsepdf_document.R#L27) *style:* **Commas should never have a space before.**
```r
  base <- rmarkdown::pdf_document(... , template=template, latex_engine = "xelatex")
                                     ~^
```
[R/sykdompulsepdf_document.R:27:49:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/sykdompulsepdf_document.R#L27) *style:* **Put spaces around all infix operators.**
```r
  base <- rmarkdown::pdf_document(... , template=template, latex_engine = "xelatex")
                                               ~^~
```
[R/sykdompulsepdf_document.R:40:27:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/sykdompulsepdf_document.R#L40) *style:* **Commas should always have a space after.**
```r
  files <- list.files(dir,pattern="^_skeleton")
                          ^
```
[R/sykdompulsepdf_document.R:40:34:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/sykdompulsepdf_document.R#L40) *style:* **Put spaces around all infix operators.**
```r
  files <- list.files(dir,pattern="^_skeleton")
                                ~^~
```
[R/sykdompulsepdf_document.R:41:6:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/sykdompulsepdf_document.R#L41) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  for(f in files){
     ^
```
[R/sykdompulsepdf_document.R:43:11:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/sykdompulsepdf_document.R#L43) *style:* **Put spaces around all infix operators.**
```r
      from=file.path(dir,f),
         ~^~
```
[R/sykdompulsepdf_document.R:43:26:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/sykdompulsepdf_document.R#L43) *style:* **Commas should always have a space after.**
```r
      from=file.path(dir,f),
                         ^
```
[R/sykdompulsepdf_document.R:44:9:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/sykdompulsepdf_document.R#L44) *style:* **Put spaces around all infix operators.**
```r
      to=file.path(output_dir,f))
       ~^~
```
[R/sykdompulsepdf_document.R:44:31:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/sykdompulsepdf_document.R#L44) *style:* **Commas should always have a space after.**
```r
      to=file.path(output_dir,f))
                              ^
```
[R/sykdompulsepdf_document.R:55:27:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/sykdompulsepdf_document.R#L55) *style:* **Commas should always have a space after.**
```r
  files <- list.files(dir,pattern="^_skeleton")
                          ^
```
[R/sykdompulsepdf_document.R:55:34:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/sykdompulsepdf_document.R#L55) *style:* **Put spaces around all infix operators.**
```r
  files <- list.files(dir,pattern="^_skeleton")
                                ~^~
```
[R/sykdompulsepdf_document.R:57:6:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/sykdompulsepdf_document.R#L57) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  for(f in files){
     ^
```
[R/sykdompulsepdf_document.R:58:38:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/R/sykdompulsepdf_document.R#L58) *style:* **Commas should always have a space after.**
```r
    file.remove(file.path(output_dir,f))
                                     ^
```
[tests/testthat/test.R:6:5:](https://github.com/folkehelseinstituttet/fhi/blob/70861df1f33cfe0a293955debae826b04d7ef74d/tests/testthat/test.R#L6) *style:* **Commented code should be removed.**
```r
  # rmarkdown::render(input=f,output_dir = tempdir())
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```


Now we have a counter which shows us at the navigation bar that how many chosen products we have.
Maybe the style of it is not done but i recognised that everywhere sould be needed some tiny little change with the styles to get exactly the same page as at the mockups. I recommend that we should do this cosmetic at the totally end of the project.


I like the { 0 }!

opengroup says

   -

   *nlink_t*, *uid_t*, *gid_t*, and *id_t* shall be integer types

On Tue, Oct 30, 2018 at 7:54 AM Jay Krell <notifications@github.com> wrote:

> Suggest memset or gid_t list [max] = { 0 }, assuming gid_t is guaranteed
> not be a union.
>
> —
> You are receiving this because you are subscribed to this thread.
> Reply to this email directly, view it on GitHub
> <https://github.com/modula3/cm3/commit/7eaf904a47c42f444326f2d3e5afcdf27cf8d037#commitcomment-31103348>,
> or mute the thread
> <https://github.com/notifications/unsubscribe-auth/AFWGpe3Zq2fyIbprgnihh1rnG0hsfCpoks5uqGgGgaJpZM4YCHrC>
> .
>


Cool. This is good when working on license plates and trying to figure out the top and bottom of characters are and then trying to figure out the separation between characters.


> Уже добавил файл в игнор

закон приняли, в исполнение не привели xD


What are source and sink? What do they have to do with the original graph? Totally unclear from the doc.


What does it mean if a vertex is reachable from the source? Why is this important?


In C\# it's common to start boolean properties with Is, probably for that reason (although there's typing information to disambiguate, too) – certainly Open/Opened could be confusing.


🤦♂ Thanks, @smacker


Created multidev environment [d8-digital-stlawu#ci-323](https://dashboard.pantheon.io/sites/9f185cec-9c0b-4fcb-972f-9a5f2f6ed252#ci-323).

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


Copy of this build can be found at
https://www.mewbuilds.com/build/6e1cd8ad41350471dc0f853bdbb5378468f79658/index.html
                       https://www.cloudflare-ipfs.com/ipfs/QmVKEk6ifQhCBhHSE4NiY9tZo1ZXybkrNsvmrR472BBqUS


Hey there @vlele, thanks for catching that :)

After looking at it -- The `minikube service -n dev loadbalancer` portion is correct, and matches the other service definitions. However, the example above it is wrong ([the file is correct](https://github.com/mrbobbytables/k8s-intro-tutorials/blob/master/core/manifests/service-loadbalancer.yaml)).

Would you mind updating your PR to revert that line and change the example so it looks like the [file](https://github.com/mrbobbytables/k8s-intro-tutorials/blob/master/core/manifests/service-loadbalancer.yaml)? (listed below)

```yaml
apiVersion: v1
kind: Service
metadata:
  name: loadbalancer
spec:
  type: LoadBalancer
  selector:
    app: nginx
    environment: prod
  ports:
  - protocol: TCP
    port: 80
    targetPort: 80
```

Thanks!


What are these clusters? What do they mean? Are there only two clusters, one that can be reached from the source and one that cannot? That's kind of what it sounds like.


Стиль можно и в отдельный файл слить)


This is not really a `wxBrush` neither as, if I understand correctly the previous discussions about it, its value can also change on its own if the system colours/theme change. So I think we really need some new class, `wxSystemPattern` or something like that, which could be converted to `wxColour` when possible (and this would also probably return a fixed value, which wouldn't change later, avoiding any surprises).

The question is, of course, about compatibility, but I think it could be made reasonably compatible if we provided implicit conversion from `wxColour` to this new class for the setters. Getters will need to change however, e.g. we'd need to have `GetBackgroundPattern()` instead of `GetBackgroundColour()`, but this seems better/unavoidable anyhow if there is no solid background colour to return in any case.


lowerCamelCase


It would be nice to give a little more intuition of what maxflow is really doing here. What does the computation of the maxflow actually mean? There's a big disconnect (for me) between what the algorithm is supposed to do (optimize weight settings) vs. how it actually computes that (maxflow). Can you tie these together?


Now could not deploy this pull request since the `now.json` file explicitly sets `dotenv` to true.
However, there's no `.env` file in the repo.

Commit a `.env` file or unset the `dotenv` flag.
For secret environment variables, check out [Now Secrets](https://zeit.co/docs/getting-started/secrets).


```
if (rootPos.count<PAWN>() > 12)
      ct = 0;
```
Let's say we just started a game.
The rootpos is the starting position, and we search till depth 18 and we fill the hash table, and play 1.e4
The game goes on,10 moves are played. Contempt kick's in, and all the eval in the hash table will be without contempt. Isn't this a problem ?


Есть функция array_filter


Мб добавить проверку


Проверка


This text description looks like there will be LOTS of values that end up in the range `-lambda < val < lambda`. It doesn't seem like small values are being set to zero.


Если выдает bool, то почему внутри функции 0 и 1?


the filenames are actually `e` and `n`?


let's do this how about we use the type `Any` and just use one method to print on console @amulayprakash  let's keep it simple


А если я загружу файл с таким префиксом? Будет double_double?


Hi Cameron,

Great, I'll split it in two windows without problems, then I'll commit the changes here and I'll upload a working 1.8.6 version for Linux for you to make tests (and this way you test the new application BTW ;). There's only one thing that I'm not sure about: window titles. If we have two windows for the current left and right sizers, how can we name each window? SubframeSelector (1) and SubframeSelector (2) would be an obvious last resort solution, but I definitely would like to find something more descriptive. Any Ideas are welcome.

As for the blank window, yes, I see it sometimes on this Linux workstation (RHEL 7.5 / KDE 4.14.8), but not always. I think this is being caused by a combination of the unusual window layout and the WebView control, since each of these controls encapsulate a Chromium browser (QWebEngineView), which is a huge and complicated beast. I am confident that this won't happen once we have two windows with SectionBar controls working correctly, but fingers crossed! Anyway, this is nothing able to stop us ;)


It doesn't seem to show the image if you fix it this way


Wouldn't naming it "*-newlib" be better? I think there are multiple C standard libraries that can be considered embedded.


Line 123 below: Why is renormalization serial? That's not clear to me. What is inherently serial about it?


Sorry i have to do that


Created multidev environment [d8-digital-stlawu#ci-325](https://dashboard.pantheon.io/sites/9f185cec-9c0b-4fcb-972f-9a5f2f6ed252#ci-325).

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


this here looks very problematic, the visit in the session is the same for baseline and all through other baseline forms, if its not, just straight away call your `msfCoreService.saveTestOrders(session.getEncounter())`.

otherwise this wastes the compiler for nothing

CC: @lauravignoli


Palautus 1


Need to assign ids of threads in a more static way to avoid post resharding. Took the largest thread_id within a Forum +1.

Utilizing the Forum id in the search allows us to not have huge index values and makes them dependent on the forum. This allows us to have multiple thread 1 ids across forums.


1.6 is appropriate for a legacy/refactoring exercise. You might even find and use a library which is not Java 9 compatible ;-)