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


Switch placed: Setting Menu -> Player Setting -> Advanced/Expert Mode -> Allow hardware acceleration - Hiplayer


Such directive may cause some unexpected log. If we are using DetectionOnly

 mode, ModSecurity will not stop rule processing after match this magic rule, and the magic request may trigger some unexpected directives(like SecAction).

For example, if we use conf file like:

	SecRuleEngine DetectionOnly

	SecRule REQUEST_HEADERS:Host "magic-<(\w*)>" \
		"phase:5,\
		id:010203,\
		t:none,\
  		block,\
		msg:'delimiter-%{MATCHED_var}'"

	SecAction "log,msg:'=w=', phase:5, id:1"`

If we send a simple request to the server through ftw-compatible-tool, ModSecurity will log:

	2018/10/31 15:48:09 [error] 24363#0: [client 10.0.1.23] ModSecurity: Warning. Pattern match "magic-<(\\w*)>" at REQUEST_HEADERS:Host. [file "/usr/local/nginx-1.11.5-hhm/conf/modsecurity_conf_new/problem_example.conf"] [line "8"] [id "010203"] [msg "delimiter-magic-<21789609156901773550118693004405139244>"] [hostname "netsys44"] [uri "/"] [unique_id "2JAcFcAfAcAnAcAc6chcAcAc"] [requestheaderhostname "netsys44"]
	2018/10/31 15:48:09 [error] 24363#0: [client 10.0.1.23] ModSecurity: Warning. Unconditional match in SecAction. [file "/usr/local/nginx-1.11.5-hhm/conf/modsecurity_conf_new/problem_example.conf"] [line "10"] [id "1"] [msg "=w="] [hostname "netsys44"] [uri "/"] [unique_id "2JAcFcAfAcAnAcAc6chcAcAc"] [requestheaderhostname "netsys44"]
	2018/10/31 15:48:09 [error] 24363#0: [client 10.0.1.23] ModSecurity: Warning. Unconditional match in SecAction. [file "/usr/local/nginx-1.11.5-hhm/conf/modsecurity_conf_new/problem_example.conf"] [line "10"] [id "1"] [msg "=w="] [hostname "netsys44"] [uri "/something"] [unique_id "AaAuACAcAcAcAcrKAcAmAcqc"] [requestheaderhostname "netsys44"]
	2018/10/31 15:48:09 [error] 24363#0: [client 10.0.1.23] ModSecurity: Warning. Pattern match "magic-<(\\w*)>" at REQUEST_HEADERS:Host. [file "/usr/local/nginx-1.11.5-hhm/conf/modsecurity_conf_new/problem_example.conf"] [line "8"] [id "010203"] [msg "delimiter-magic-<21789609156901773550118693004405139244>"] [hostname "netsys44"] [uri "/"] [unique_id "ncAcAcAcAcycAcRcicA2YCAJ"] [requestheaderhostname "netsys44"]
	2018/10/31 15:48:09 [error] 24363#0: [client 10.0.1.23] ModSecurity: Warning. Unconditional match in SecAction. [file "/usr/local/nginx-1.11.5-hhm/conf/modsecurity_conf_new/problem_example.conf"] [line "10"] [id "1"] [msg "=w="] [hostname "netsys44"] [uri "/"] [unique_id "ncAcAcAcAcycAcRcicA2YCAJ"] [requestheaderhostname "netsys44"]

The 2nd and 5th logs are not expected.


No dejes espacio entre el paréntesis de apertura y el `int`!


Thanks for looking into it! Great that there was no regression, I agree with your conclusions. And it looks like I'll have to work a bit on how to benchmark to avoid false measurements :)


Perfect. That solution is more elaborate than I expected. :+1:


Mejor `totalDineroAcumulado = 0`, no?


### Lipsum Really?

So we  __really__ were not able to find better filler text?


Hi, almost feels like spying, will you provide a PR for this or is it OK if I use a diff patch and add to upstream?


Esto pertenece a otro commit!


Associating this commit with #3 issue


Este método no debería de devolver nada!


@protonspring : AFAIK SPSA is a test between **identical** branches.


### Lipsum Really?

So we __really__ were not able to find *better* filler text?


+1 for this, since "rounding like I learned at school" is still a useful thing. One question though (discussion topic) - what should happen to flex iround() behaviour?


This is a comment, left as a test.


Can we remove `fil_space_merge_crypt_data()` altogether? In which case would `fil_space_t::crypt_data` be initiailzed with a dummy object, to be replaced with a real one later?


Cuida la indentación!


@Kurtbusch  : AFAIK SPSA is a test between **identical** branches.


Cuida el espaciado entre operadores!


You forgot to remove the function prototype from `fil0fil.h`.


No es correcto! Estas modificando el `totalDineroAcumulado` y luego devolviendolo! Hay que devolverlo sin más!


Corrección correcta!


Perhaps something like: Using the whiteboard and the available samples, make a piece of music which uses a sequence of three Choosers. The music will be recorded and shared online.


Cuida el espaciado (sin espacio entre el paréntesis de apertura y el `int`)!


To be aligned with the other events, you could remove the `metadata` key from the `metadata.json` file and use `ret := [][]byte{ndjsonWrapObj("metadata", Metadata)}`.


[R/raz_create_bd_alignment_file.R:14:3:](https://github.com/richelbilderbeek/razzo/blob/0baa1fff6f82ab2a8bfcca6f39b19af0ef61e972/R/raz_create_bd_alignment_file.R#L14) *warning:* **no visible global function definition for ‘raz_check_file_exists’**
```r
  raz_check_file_exists(parameters_filename)
  ^~~~~~~~~~~~~~~~~~~~~
```
[R/raz_create_bd_alignment_file.R:16:3:](https://github.com/richelbilderbeek/razzo/blob/0baa1fff6f82ab2a8bfcca6f39b19af0ef61e972/R/raz_create_bd_alignment_file.R#L16) *warning:* **no visible global function definition for ‘raz_check_file_exists’**
```r
  raz_check_file_exists(bd_tree_filename)
  ^~~~~~~~~~~~~~~~~~~~~
```
[R/raz_create_bd_nltts_file.R:12:3:](https://github.com/richelbilderbeek/razzo/blob/0baa1fff6f82ab2a8bfcca6f39b19af0ef61e972/R/raz_create_bd_nltts_file.R#L12) *warning:* **no visible global function definition for ‘raz_check_file_exists’**
```r
  raz_check_file_exists(parameters_filename)
  ^~~~~~~~~~~~~~~~~~~~~
```
[R/raz_create_bd_nltts_file.R:15:3:](https://github.com/richelbilderbeek/razzo/blob/0baa1fff6f82ab2a8bfcca6f39b19af0ef61e972/R/raz_create_bd_nltts_file.R#L15) *warning:* **no visible global function definition for ‘raz_check_file_exists’**
```r
  raz_check_file_exists(bd_tree_filename)
  ^~~~~~~~~~~~~~~~~~~~~
```
[R/raz_create_bd_nltts_file.R:16:3:](https://github.com/richelbilderbeek/razzo/blob/0baa1fff6f82ab2a8bfcca6f39b19af0ef61e972/R/raz_create_bd_nltts_file.R#L16) *warning:* **no visible global function definition for ‘raz_check_file_exists’**
```r
  raz_check_file_exists(bd_trees_filename)
  ^~~~~~~~~~~~~~~~~~~~~
```
[R/raz_create_bd_posterior_files.R:18:3:](https://github.com/richelbilderbeek/razzo/blob/0baa1fff6f82ab2a8bfcca6f39b19af0ef61e972/R/raz_create_bd_posterior_files.R#L18) *warning:* **no visible global function definition for ‘raz_check_file_exists’**
```r
  raz_check_file_exists(parameters_filename)
  ^~~~~~~~~~~~~~~~~~~~~
```
[R/raz_create_bd_posterior_files.R:20:3:](https://github.com/richelbilderbeek/razzo/blob/0baa1fff6f82ab2a8bfcca6f39b19af0ef61e972/R/raz_create_bd_posterior_files.R#L20) *warning:* **no visible global function definition for ‘raz_check_file_exists’**
```r
  raz_check_file_exists(bd_alignment_filename)
  ^~~~~~~~~~~~~~~~~~~~~
```
[R/raz_create_bd_tree_file.R:12:3:](https://github.com/richelbilderbeek/razzo/blob/0baa1fff6f82ab2a8bfcca6f39b19af0ef61e972/R/raz_create_bd_tree_file.R#L12) *warning:* **no visible global function definition for ‘raz_check_file_exists’**
```r
  raz_check_file_exists(parameters_filename)
  ^~~~~~~~~~~~~~~~~~~~~
```
[R/raz_create_bd_tree_file.R:14:3:](https://github.com/richelbilderbeek/razzo/blob/0baa1fff6f82ab2a8bfcca6f39b19af0ef61e972/R/raz_create_bd_tree_file.R#L14) *warning:* **no visible global function definition for ‘raz_check_file_exists’**
```r
  raz_check_file_exists(mbd_tree_filename)
  ^~~~~~~~~~~~~~~~~~~~~
```
[R/raz_create_bd_tree_file.R:17:3:](https://github.com/richelbilderbeek/razzo/blob/0baa1fff6f82ab2a8bfcca6f39b19af0ef61e972/R/raz_create_bd_tree_file.R#L17) *warning:* **no visible global function definition for ‘raz_check_file_exists’**
```r
  raz_check_file_exists(mbd_l_matrix_filename)
  ^~~~~~~~~~~~~~~~~~~~~
```
[R/raz_create_mbd_alignment_file.R:15:3:](https://github.com/richelbilderbeek/razzo/blob/0baa1fff6f82ab2a8bfcca6f39b19af0ef61e972/R/raz_create_mbd_alignment_file.R#L15) *warning:* **no visible global function definition for ‘raz_check_file_exists’**
```r
  raz_check_file_exists(parameters_filename)
  ^~~~~~~~~~~~~~~~~~~~~
```
[R/raz_create_mbd_alignment_file.R:17:3:](https://github.com/richelbilderbeek/razzo/blob/0baa1fff6f82ab2a8bfcca6f39b19af0ef61e972/R/raz_create_mbd_alignment_file.R#L17) *warning:* **no visible global function definition for ‘raz_check_file_exists’**
```r
  raz_check_file_exists(mbd_tree_filename)
  ^~~~~~~~~~~~~~~~~~~~~
```
[R/raz_create_mbd_nltts_file.R:12:3:](https://github.com/richelbilderbeek/razzo/blob/0baa1fff6f82ab2a8bfcca6f39b19af0ef61e972/R/raz_create_mbd_nltts_file.R#L12) *warning:* **no visible global function definition for ‘raz_check_file_exists’**
```r
  raz_check_file_exists(parameters_filename)
  ^~~~~~~~~~~~~~~~~~~~~
```
[R/raz_create_mbd_nltts_file.R:15:3:](https://github.com/richelbilderbeek/razzo/blob/0baa1fff6f82ab2a8bfcca6f39b19af0ef61e972/R/raz_create_mbd_nltts_file.R#L15) *warning:* **no visible global function definition for ‘raz_check_file_exists’**
```r
  raz_check_file_exists(mbd_tree_filename)
  ^~~~~~~~~~~~~~~~~~~~~
```
[R/raz_create_mbd_nltts_file.R:16:3:](https://github.com/richelbilderbeek/razzo/blob/0baa1fff6f82ab2a8bfcca6f39b19af0ef61e972/R/raz_create_mbd_nltts_file.R#L16) *warning:* **no visible global function definition for ‘raz_check_file_exists’**
```r
  raz_check_file_exists(mbd_trees_filename)
  ^~~~~~~~~~~~~~~~~~~~~
```
[R/raz_create_mbd_posterior_files.R:18:3:](https://github.com/richelbilderbeek/razzo/blob/0baa1fff6f82ab2a8bfcca6f39b19af0ef61e972/R/raz_create_mbd_posterior_files.R#L18) *warning:* **no visible global function definition for ‘raz_check_file_exists’**
```r
  raz_check_file_exists(parameters_filename)
  ^~~~~~~~~~~~~~~~~~~~~
```
[R/raz_create_mbd_posterior_files.R:20:3:](https://github.com/richelbilderbeek/razzo/blob/0baa1fff6f82ab2a8bfcca6f39b19af0ef61e972/R/raz_create_mbd_posterior_files.R#L20) *warning:* **no visible global function definition for ‘raz_check_file_exists’**
```r
  raz_check_file_exists(mbd_alignment_filename)
  ^~~~~~~~~~~~~~~~~~~~~
```
[R/raz_open_parameters_file.R:9:3:](https://github.com/richelbilderbeek/razzo/blob/0baa1fff6f82ab2a8bfcca6f39b19af0ef61e972/R/raz_open_parameters_file.R#L9) *warning:* **no visible global function definition for ‘raz_check_file_exists’**
```r
  raz_check_file_exists(parameters_filename)
  ^~~~~~~~~~~~~~~~~~~~~
```


El nombre del parámetro empieza con minúscula!!


How are these new members of `fil_system` protected? `fil_system_t::mutex`?
Do we really need the separate counters, instead of using `UT_LIST_GET_LEN(fil_system->encrypted_spaces)` and `UT_LIST_GET_LEN(fil_system->unencrypted_spaces)`?


Successfully aliased the URL <https://switcheolytics-api-hompyrvhhh.now.sh> to the following alias.

* https://api.switcheolytics.tech


El nombre de los métodos empieza en minúscula!! Cuida el espaciado (sin espacio después del nombre del método y sin espacio entre el paréntesis de apertura y el `int`). El nombre del parámetro empieza en minúsculas!


Mismas correcciones que en el commit anterior!


Este método no tiene sentido que lleve parámetros! De hecho, no lo usas en el cuerpo del método!!


For the streaming the processing needs to be done in the `requester`, as it needs to be done per event afaik.


Este método no debe devolver nada!


My suggestion is using _skipAfter_ instead of block. While skipAfter can only skip current phase's rules, so we need to add magic rule.

My solution is as following:

	SecRuleEngine DetectionOnly

	SecRule REQUEST_HEADERS:Host "magic-<(\w*)>" \
		"phase:1,\
		log,\
		id:010203,\
		t:none,\
		msg:'delimiter-%{MATCHED_var}'\
		skipAfter:FTW_MAGIC_1"
	SecRule REQUEST_HEADERS:Host "magic-<(\w*)>" \
		"phase:2,\
		nolog,\
		id:010204,\
		t:none,\
		msg:'delimiter-%{MATCHED_var}'\
		skipAfter:FTW_MAGIC_2"
	SecRule REQUEST_HEADERS:Host "magic-<(\w*)>" \
		"phase:3,\
		nolog,\
		id:010205,\
		t:none,\
		msg:'delimiter-%{MATCHED_var}'\
		skipAfter:FTW_MAGIC_3"
	SecRule REQUEST_HEADERS:Host "magic-<(\w*)>" \
		"phase:4,\
		nolog,\
		id:010206,\
		t:none,\
		msg:'delimiter-%{MATCHED_var}'\
		skipAfter:FTW_MAGIC_4"
	SecRule REQUEST_HEADERS:Host "magic-<(\w*)>" \
		"phase:5,\
		nolog,\
		id:010207,\
		t:none,\
		msg:'delimiter-%{MATCHED_var}'\
		skipAfter:FTW_MAGIC_5"

	SecAction "log,msg:'=w=', phase:5, id:1"

	SecMarker FTW_MAGIC_1
	SecMarker FTW_MAGIC_2
	SecMarker FTW_MAGIC_3
	SecMarker FTW_MAGIC_4
	SecMarker FTW_MAGIC_5

It can be splitted into three parts:

1. Magic rules at head.
2. Normal processing in middle.
3. Magic markers at end.


Added in styling section


Este método debería ir en un commit aparte!


Hi, @tamasbtr
Thank you your comment!
I filled out this form!


<style>
/* put styling here
</style>


删除


<style>
/* add styling here
</style>


hello


Este método no está correctamente implementado!


Estos 4 atributos no tienen sentido!


Este método no es correcto!


Cuida no dejar líneas en blanco aquí!


vale lo revisare !

El mié., 31 oct. 2018 a las 8:53, Miguel Bayón (<notifications@github.com>)
escribió:

> No dejes espacio entre el paréntesis de apertura y el int!
>
> —
> You are receiving this because you authored the thread.
> Reply to this email directly, view it on GitHub
> <https://github.com/IzanPerez/Maquina-expendedora/commit/8663b5542fcb2fc87447e04cab03ff3469cb5902#commitcomment-31115805>,
> or mute the thread
> <https://github.com/notifications/unsubscribe-auth/ApnPIHNP3kd2XSCtABQyqpSbUwp6n5WVks5uqVblgaJpZM4YDhwj>
> .
>


Hi, I'm really new to these functions, I think `gammaln(alpha) - gammaln(1.+alpha)` is `log(1 / alpha)` isn't it?


And as I just learned - that would not be true for how events are sent atm, so disregard.


是 feature 不是 feather 齁~ XD


Is this taken care of by `if (weaponType==SKILL_H2H) then hitsdone = 2; end` already?


it seems like this should be
```
first<NSV = undefined>(notSetValue?: NSV): V | NSV;
last<NSV = undefined>(notSetValue?: NSV): V | NSV;
```

otherwise I see errors like that:
```
Argument of type 'string | {}' is not assignable to parameter of type 'string'.
  Type '{}' is not assignable to type 'string'.
```

because it seem to try resolving `NSV` as `{}`