[R/dashboard.R:4:10:](https://github.com/folkehelseinstituttet/fhi/blob/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/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/7cef40f4dfb7f6a1e07236f802d8f46e1cb661db/tests/testthat/test.R#L6) *style:* **Commented code should be removed.**
```r
  # rmarkdown::render(input=f,output_dir = tempdir())
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```


Please open an issue instead for better visibility and include the loader config (relevant parts of the `webpack.config.js`) where the `cache-loader` is used. It's impossible to debug with the current information provided. From a quick glance at `ngtools/webpack` it seems `@ngtools/webpack` overrides nearly everything with it's own 'custom' `fs` logic...


改成onConfigBtClick


# Specs execution successful
:scroll: [View logs](http://bamboo.comnull)
### Plans updated

Bamboo specs have been successfully imported and the following plans have been updated.

Project | Plan | Build
---|---|---
[Test](http://bamboo.com/browse/TEST) | [Comment test](http://bamboo.com/browse/TEST-CTEST)  | :white_check_mark: [\#1](http://bamboo.com/browse/TEST-CTEST-1)
[New project](http://bamboo.com/browse/NEW) | [Disabled plan](http://bamboo.com/browse/NEW-DISABLED) **disabled** | :white_check_mark: [\#1](http://bamboo.com/browse/NEW-DISABLED-1)

### Deployments updated

Bamboo specs have been successfully imported and the following deployment projects have been updated.

|Deployment project |
----|
[Deployment test](http://bamboo.com/deploy/viewDeploymentProjectVersions.action?id=2162689)|


Si el enunciado no dice que tiene que imprimirse algo por pantalla, mejor no hacerlo.


simple to give a try


Er, and by "Sauce Labs," I mean "Dockerfile," since we know it's really https://github.com/mozilla/fxapom/blob/cabdc2fe74f904a63d0ad035277652d649c2961b/Jenkinsfile#L8 for Sauce Labs (sorry for the slip-up, @davehunt).


注释不对


Sorry, some sloppy coding on my part here.


Thanks, it works


![](https://github.trello.services/images/mini-trello-icon.png) [release 수정 페이지 추가](https://trello.com/c/jbWdMSRt/95-release-%EC%88%98%EC%A0%95-%ED%8E%98%EC%9D%B4%EC%A7%80-%EC%B6%94%EA%B0%80)


Instead of adding a parameter, could we change the way how `crypt_data` is being passed to this function?
For known-unencrypted tablespaces, we could pass `&fil_unencrypted`, for unknown pass `NULL`, and for known-encrypted, pass the real `crypt_data`.


El valor del parámetro `costeBillete` no se transfiere a ningún atributo!


El nombre del método no es descriptivo!


done


Wow, that's gotten a lot bigger.


已经修复了。


всё же лучше, выдавать именно true или false, если речь идёт о булевом типе. так читать проще


readRulesFromFile


writeRulesToFile


на самом деле, всё делается проще: тебе надо добавить в качестве постфикса какую-то случайную последовательность символов. Я обычно беру какой-нибудь хэш (функция hash) от случайного набора байт из функции openssl_random_pseudo_bytes


путь нужен относительно сервера, чтобы я зайдя по адресу http://localhost/path/to/file.png мог через браузер увидеть этот файл


removePunctuation gibi bir method extract edebilirsin.


@vondele it doesn't miss a popcount.
Idea is to give a complexity increase depending on the number of pawns on 6+ row if we still have pawns that haven't left our first 2 rows. This is why there is popcount multiplied by bool.
This will increase complexity in SALC attacks, KID and stuff like that.
This idea is reasonably fresh so I will for sure try some variations of it.


Since this is an additional optional interface, I'd strongly prefer Extension over Instance, and I'd also keep the original JUCE "base class" name: AudioProcessorARAExtension and AudioProcessorEditorARAExtension, or ARAAudioProcessorExtension/ARAAudioProcessorEditorExtension, whichever reads better in context. Probably the second version, since its used together with the other ARA classes...