[R/censor.R:7:23:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/censor.R#L7) *style:* **Variable and function names should be all lowercase.**
```r
Censor <- function(n, randomNoise, d = NULL, boundaries = NULL) {
                      ^~~~~~~~~~~
```
[R/censor.R:11:16:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/censor.R#L11) *style:* **Variable and function names should be all lowercase.**
```r
  new <- new + randomNoise
               ^~~~~~~~~~~
```
[R/dashboard.R:3:1:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L3) *style:* **Variable and function names should be all lowercase.**
```r
DashboardIsProduction <- function() {
^~~~~~~~~~~~~~~~~~~~~
```
[R/dashboard.R:4:10:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L4) *warning:* **no visible binding for global variable ‘PROJ’, Did you mean 'NROW'?**
```r
  return(PROJ$IS_PRODUCTION)
         ^~~~
```
[R/dashboard.R:9:1:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L9) *style:* **Variable and function names should be all lowercase.**
```r
DashboardIsDev <- function() {
^~~~~~~~~~~~~~
```
[R/dashboard.R:10:10:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L10) *warning:* **no visible binding for global variable ‘PROJ’, Did you mean 'NROW'?**
```r
  return(PROJ$IS_DEV)
         ^~~~
```
[R/dashboard.R:15:1:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L15) *style:* **Variable and function names should be all lowercase.**
```r
DashboardIsInitialised <- function() {
^~~~~~~~~~~~~~~~~~~~~~
```
[R/dashboard.R:16:10:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L16) *warning:* **no visible binding for global variable ‘PROJ’, Did you mean 'NROW'?**
```r
  return(PROJ$IS_INITIALISED)
         ^~~~
```
[R/dashboard.R:30:1:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L30) *style:* **Variable and function names should be all lowercase.**
```r
DashboardInitialise <- function(
^~~~~~~~~~~~~~~~~~~
```
[R/dashboard.R:34:33:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L34) *style:* **Variable and function names should be all lowercase.**
```r
                                changeWorkingDirToTmp = TRUE) {
                                ^~~~~~~~~~~~~~~~~~~~~
```
[R/dashboard.R:35:20:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L35) *warning:* **Do not use absolute paths.**
```r
  if (file.exists("/tmp/computer")) {
                   ^~~~
```
[R/dashboard.R:36:18:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L36) *warning:* **Do not use absolute paths.**
```r
    con <- file("/tmp/computer", "r")
                 ^~~~
```
[R/dashboard.R:50:7:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L50) *style:* **Variable and function names should be all lowercase.**
```r
  if (changeWorkingDirToTmp) {
      ^~~~~~~~~~~~~~~~~~~~~
```
[R/dashboard.R:61:1:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L61) *style:* **Variable and function names should be all lowercase.**
```r
DashboardMsg <- function(txt, type = "msg", syscallsDepth = 2) {
^~~~~~~~~~~~
```
[R/dashboard.R:61:45:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L61) *style:* **Variable and function names should be all lowercase.**
```r
DashboardMsg <- function(txt, type = "msg", syscallsDepth = 2) {
                                            ^~~~~~~~~~~~~
```
[R/dashboard.R:63:7:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L63) *style:* **Variable and function names should be all lowercase.**
```r
  if (syscallsDepth < 0) stop("syscallsDepth cannot be less than zero")
      ^~~~~~~~~~~~~
```
[R/dashboard.R:64:1:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L64) *style:* **lines should not be more than 80 characters.**
```r
  if (!type %in% c("msg", "warn", "err")) stop(sprintf("%s not msg, warn, err", type))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/dashboard.R:74:20:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L74) *style:* **Variable and function names should be all lowercase.**
```r
  if (depth >= 1 & syscallsDepth > 0) {
                   ^~~~~~~~~~~~~
```
[R/dashboard.R:75:5:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L75) *style:* **Variable and function names should be all lowercase.**
```r
    depthSeq <- depth:1
    ^~~~~~~~
```
[R/dashboard.R:76:16:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L76) *style:* **Variable and function names should be all lowercase.**
```r
    if (length(depthSeq) > syscallsDepth) depthSeq <- depthSeq[1:syscallsDepth]
               ^~~~~~~~
```
[R/dashboard.R:76:28:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L76) *style:* **Variable and function names should be all lowercase.**
```r
    if (length(depthSeq) > syscallsDepth) depthSeq <- depthSeq[1:syscallsDepth]
                           ^~~~~~~~~~~~~
```
[R/dashboard.R:76:43:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L76) *style:* **Variable and function names should be all lowercase.**
```r
    if (length(depthSeq) > syscallsDepth) depthSeq <- depthSeq[1:syscallsDepth]
                                          ^~~~~~~~
```
[R/dashboard.R:76:55:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L76) *style:* **Variable and function names should be all lowercase.**
```r
    if (length(depthSeq) > syscallsDepth) depthSeq <- depthSeq[1:syscallsDepth]
                                                      ^~~~~~~~
```
[R/dashboard.R:76:66:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L76) *style:* **Variable and function names should be all lowercase.**
```r
    if (length(depthSeq) > syscallsDepth) depthSeq <- depthSeq[1:syscallsDepth]
                                                                 ^~~~~~~~~~~~~
```
[R/dashboard.R:77:5:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L77) *style:* **Variable and function names should be all lowercase.**
```r
    depthSeq <- rev(depthSeq)
    ^~~~~~~~
```
[R/dashboard.R:77:21:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L77) *style:* **Variable and function names should be all lowercase.**
```r
    depthSeq <- rev(depthSeq)
                    ^~~~~~~~
```
[R/dashboard.R:78:15:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L78) *style:* **Variable and function names should be all lowercase.**
```r
    for (i in depthSeq) {
              ^~~~~~~~
```
[R/dashboard.R:85:45:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L85) *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:85:45:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L85) *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:91:1:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L91) *style:* **lines should not be more than 80 characters.**
```r
      fn(sprintf("%s/%s/%s %s", Sys.time(), PROJ$COMPUTER_NAME, PROJ$NAME, txt), call. = F)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/dashboard.R:91:45:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L91) *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:91:45:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L91) *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:107:1:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L107) *style:* **lines should not be more than 80 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:107:1:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L107) *style:* **Variable and function names should be all lowercase.**
```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:107:85:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L107) *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:108:3:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L108) *style:* **Variable and function names should be all lowercase.**
```r
  DashboardInitialise(
  ^~~~~~~~~~~~~~~~~~~
```
[R/dashboard.R:116:1:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L116) *style:* **lines should not be more than 80 characters.**
```r
      suppressPackageStartupMessages(devtools::load_all(PACKAGE_DIR, export_all = FALSE, quiet = TRUE))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/dashboard.R:143:1:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L143) *style:* **Variable and function names should be all lowercase.**
```r
DashboardFolder <- function(inside = "data_raw", f = NULL) {
^~~~~~~~~~~~~~~
```
[R/dashboard.R:144:3:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L144) *style:* **Variable and function names should be all lowercase.**
```r
  retVal <- file.path(PROJ$STUB, inside, PROJ$NAME)
  ^~~~~~
```
[R/dashboard.R:144:23:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L144) *warning:* **no visible binding for global variable ‘PROJ’, Did you mean 'NROW'?**
```r
  retVal <- file.path(PROJ$STUB, inside, PROJ$NAME)
                      ^~~~
```
[R/dashboard.R:144:23:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L144) *warning:* **no visible binding for global variable ‘PROJ’, Did you mean 'NROW'?**
```r
  retVal <- file.path(PROJ$STUB, inside, PROJ$NAME)
                      ^~~~
```
[R/dashboard.R:145:3:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L145) *style:* **Variable and function names should be all lowercase.**
```r
  retVal <- paste0(retVal, "/")
  ^~~~~~
```
[R/dashboard.R:145:20:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L145) *style:* **Variable and function names should be all lowercase.**
```r
  retVal <- paste0(retVal, "/")
                   ^~~~~~
```
[R/dashboard.R:147:5:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L147) *style:* **Variable and function names should be all lowercase.**
```r
    retVal <- file.path(retVal, f)
    ^~~~~~
```
[R/dashboard.R:147:25:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L147) *style:* **Variable and function names should be all lowercase.**
```r
    retVal <- file.path(retVal, f)
                        ^~~~~~
```
[R/dashboard.R:149:10:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L149) *style:* **Variable and function names should be all lowercase.**
```r
  return(retVal)
         ^~~~~~
```
[R/dashboard.R:164:1:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L164) *style:* **Variable and function names should be all lowercase.**
```r
DashboardEmail <- function(emailBCC,
^~~~~~~~~~~~~~
```
[R/dashboard.R:164:28:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L164) *style:* **Variable and function names should be all lowercase.**
```r
DashboardEmail <- function(emailBCC,
                           ^~~~~~~~
```
[R/dashboard.R:165:28:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L165) *style:* **Variable and function names should be all lowercase.**
```r
                           emailSubject,
                           ^~~~~~~~~~~~
```
[R/dashboard.R:166:28:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L166) *style:* **Variable and function names should be all lowercase.**
```r
                           emailText,
                           ^~~~~~~~~
```
[R/dashboard.R:167:28:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L167) *style:* **Variable and function names should be all lowercase.**
```r
                           emailAttachFiles = NULL,
                           ^~~~~~~~~~~~~~~~
```
[R/dashboard.R:168:28:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L168) *style:* **Variable and function names should be all lowercase.**
```r
                           emailFooter = TRUE,
                           ^~~~~~~~~~~
```
[R/dashboard.R:170:1:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L170) *style:* **lines should not be more than 80 characters.**
```r
                           XLSXLocation = file.path("/etc", "gmailr", "emails.xlsx"),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/dashboard.R:170:54:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L170) *warning:* **Do not use absolute paths.**
```r
                           XLSXLocation = file.path("/etc", "gmailr", "emails.xlsx"),
                                                     ^~~~
```
[R/dashboard.R:171:1:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L171) *style:* **lines should not be more than 80 characters.**
```r
                           OAUTHLocation = file.path("/etc", "gmailr", ".httr-oauth")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/dashboard.R:171:55:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L171) *warning:* **Do not use absolute paths.**
```r
                           OAUTHLocation = file.path("/etc", "gmailr", ".httr-oauth")) {
                                                      ^~~~
```
[R/dashboard.R:173:36:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L173) *style:* **Variable and function names should be all lowercase.**
```r
  emails <- stats::na.omit(emails[[emailBCC]])
                                   ^~~~~~~~
```
[R/dashboard.R:175:7:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L175) *style:* **Variable and function names should be all lowercase.**
```r
  if (emailFooter) {
      ^~~~~~~~~~~
```
[R/dashboard.R:176:5:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L176) *style:* **Variable and function names should be all lowercase.**
```r
    emailText <- paste0(
    ^~~~~~~~~
```
[R/dashboard.R:177:7:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L177) *style:* **Variable and function names should be all lowercase.**
```r
      emailText,
      ^~~~~~~~~
```
[R/dashboard.R:183:1:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L183) *style:* **lines should not be more than 80 characters.**
```r
    To add or remove people to/from this notification list, send their details to richard.white@fhi.no
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/dashboard.R:190:3:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L190) *style:* **Variable and function names should be all lowercase.**
```r
  sendEmailsBCC <- sendEmailsTo <- NULL
  ^~~~~~~~~~~~~
```
[R/dashboard.R:190:20:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L190) *style:* **Variable and function names should be all lowercase.**
```r
  sendEmailsBCC <- sendEmailsTo <- NULL
                   ^~~~~~~~~~~~
```
[R/dashboard.R:192:5:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L192) *style:* **Variable and function names should be all lowercase.**
```r
    sendEmailsTo <- "dashboards@fhi.no"
    ^~~~~~~~~~~~
```
[R/dashboard.R:193:5:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L193) *style:* **Variable and function names should be all lowercase.**
```r
    sendEmailsBCC <- paste0(emails, collapse = ",")
    ^~~~~~~~~~~~~
```
[R/dashboard.R:195:5:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L195) *style:* **Variable and function names should be all lowercase.**
```r
    sendEmailsTo <- paste0(emails, collapse = ",")
    ^~~~~~~~~~~~
```
[R/dashboard.R:196:5:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L196) *style:* **Variable and function names should be all lowercase.**
```r
    sendEmailsBCC <- "dashboards@fhi.no"
    ^~~~~~~~~~~~~
```
[R/dashboard.R:200:16:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L200) *style:* **Variable and function names should be all lowercase.**
```r
    gmailr::to(sendEmailsTo) %>%
               ^~~~~~~~~~~~
```
[R/dashboard.R:202:17:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L202) *style:* **Variable and function names should be all lowercase.**
```r
    gmailr::bcc(sendEmailsBCC) %>%
                ^~~~~~~~~~~~~
```
[R/dashboard.R:203:21:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L203) *style:* **Variable and function names should be all lowercase.**
```r
    gmailr::subject(emailSubject) %>%
                    ^~~~~~~~~~~~
```
[R/dashboard.R:204:23:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L204) *style:* **Variable and function names should be all lowercase.**
```r
    gmailr::html_body(emailText) -> text_msg
                      ^~~~~~~~~
```
[R/dashboard.R:206:16:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L206) *style:* **Variable and function names should be all lowercase.**
```r
  if (!is.null(emailAttachFiles)) {
               ^~~~~~~~~~~~~~~~
```
[R/dashboard.R:207:1:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L207) *style:* **lines should not be more than 80 characters.**
```r
    text_msg %>% gmailr::attach_part(emailText, content_type = "text/html") -> text_msg
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/dashboard.R:207:14:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L207) *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:207:38:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L207) *style:* **Variable and function names should be all lowercase.**
```r
    text_msg %>% gmailr::attach_part(emailText, content_type = "text/html") -> text_msg
                                     ^~~~~~~~~
```
[R/dashboard.R:208:15:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L208) *style:* **Variable and function names should be all lowercase.**
```r
    for (i in emailAttachFiles) {
              ^~~~~~~~~~~~~~~~
```
[R/dashboard.R:209:16:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L209) *warning:* **no visible global function definition for ‘%>%’, Did you mean '%*%'?**
```r
      text_msg %>% gmailr::attach_file(i) -> text_msg
               ^~~
```
[R/dashboard.R:213:3:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L213) *style:* **Variable and function names should be all lowercase.**
```r
  currentWD <- getwd()
  ^~~~~~~~~
```
[R/dashboard.R:215:41:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L215) *warning:* **Do not use absolute paths.**
```r
  file.copy(OAUTHLocation, paste0(tmp, "/.httr-oauth"))
                                        ^~~~~~~~~~~~
```
[R/dashboard.R:219:9:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L219) *style:* **Variable and function names should be all lowercase.**
```r
  setwd(currentWD)
        ^~~~~~~~~
```
[R/dashboard.R:230:1:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L230) *style:* **Variable and function names should be all lowercase.**
```r
DashboardEmailSpecific <- function(emailBCC,
^~~~~~~~~~~~~~~~~~~~~~
```
[R/dashboard.R:230:36:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L230) *style:* **Variable and function names should be all lowercase.**
```r
DashboardEmailSpecific <- function(emailBCC,
                                   ^~~~~~~~
```
[R/dashboard.R:231:36:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L231) *style:* **Variable and function names should be all lowercase.**
```r
                                   emailSubject,
                                   ^~~~~~~~~~~~
```
[R/dashboard.R:232:36:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L232) *style:* **Variable and function names should be all lowercase.**
```r
                                   emailText,
                                   ^~~~~~~~~
```
[R/dashboard.R:233:36:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L233) *style:* **Variable and function names should be all lowercase.**
```r
                                   emailFooter = TRUE,
                                   ^~~~~~~~~~~
```
[R/dashboard.R:234:1:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L234) *style:* **lines should not be more than 80 characters.**
```r
                                   OAUTHLocation = file.path("/etc", "gmailr", ".httr-oauth")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/dashboard.R:234:63:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L234) *warning:* **Do not use absolute paths.**
```r
                                   OAUTHLocation = file.path("/etc", "gmailr", ".httr-oauth")) {
                                                              ^~~~
```
[R/dashboard.R:235:14:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L235) *style:* **Variable and function names should be all lowercase.**
```r
  if (length(emailBCC) > 1) emailBCC <- paste0(emailBCC, collapse = ",")
             ^~~~~~~~
```
[R/dashboard.R:235:29:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L235) *style:* **Variable and function names should be all lowercase.**
```r
  if (length(emailBCC) > 1) emailBCC <- paste0(emailBCC, collapse = ",")
                            ^~~~~~~~
```
[R/dashboard.R:235:48:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L235) *style:* **Variable and function names should be all lowercase.**
```r
  if (length(emailBCC) > 1) emailBCC <- paste0(emailBCC, collapse = ",")
                                               ^~~~~~~~
```
[R/dashboard.R:237:7:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L237) *style:* **Variable and function names should be all lowercase.**
```r
  if (emailFooter) {
      ^~~~~~~~~~~
```
[R/dashboard.R:238:5:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L238) *style:* **Variable and function names should be all lowercase.**
```r
    emailText <- paste0(
    ^~~~~~~~~
```
[R/dashboard.R:239:7:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L239) *style:* **Variable and function names should be all lowercase.**
```r
      emailText,
      ^~~~~~~~~
```
[R/dashboard.R:245:1:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L245) *style:* **lines should not be more than 80 characters.**
```r
    To add or remove people to/from this notification list, send their details to richard.white@fhi.no
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/dashboard.R:253:17:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L253) *style:* **Variable and function names should be all lowercase.**
```r
    gmailr::bcc(emailBCC) %>%
                ^~~~~~~~
```
[R/dashboard.R:254:21:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L254) *style:* **Variable and function names should be all lowercase.**
```r
    gmailr::subject(emailSubject) %>%
                    ^~~~~~~~~~~~
```
[R/dashboard.R:255:23:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L255) *style:* **Variable and function names should be all lowercase.**
```r
    gmailr::html_body(emailText) -> text_msg
                      ^~~~~~~~~
```
[R/dashboard.R:257:3:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L257) *style:* **Variable and function names should be all lowercase.**
```r
  currentWD <- getwd()
  ^~~~~~~~~
```
[R/dashboard.R:259:41:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L259) *warning:* **Do not use absolute paths.**
```r
  file.copy(OAUTHLocation, paste0(tmp, "/.httr-oauth"))
                                        ^~~~~~~~~~~~
```
[R/dashboard.R:263:9:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/dashboard.R#L263) *style:* **Variable and function names should be all lowercase.**
```r
  setwd(currentWD)
        ^~~~~~~~~
```
[R/ggplot.r:56:1:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/ggplot.r#L56) *style:* **lines should not be more than 80 characters.**
```r
    rect = element_rect(fill = "white", colour = "black", size = 0.5, linetype = 1),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ggplot.r:63:1:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/ggplot.r#L63) *style:* **lines should not be more than 80 characters.**
```r
    axis.text = element_text(size = rel(1), colour = "black", margin = margin(unit(c(2, 2, 2, 2), "lines"))),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ggplot.r:68:1:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/ggplot.r#L68) *style:* **lines should not be more than 80 characters.**
```r
    axis.text.x = element_text(vjust = 1, margin = margin(0.01 * base_size, 0, 0.05 * base_size, 0, "lines")),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ggplot.r:69:1:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/ggplot.r#L69) *style:* **lines should not be more than 80 characters.**
```r
    axis.text.y = element_text(hjust = 1, margin = margin(0, 0.01 * base_size, 0, 0.05 * base_size, "lines")),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ggplot.r:73:1:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/ggplot.r#L73) *style:* **lines should not be more than 80 characters.**
```r
    axis.title.y = element_text(angle = 90, vjust = 0, margin = margin(5, 5, 10, 5, "pt")),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ggplot.r:84:1:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/ggplot.r#L84) *style:* **lines should not be more than 80 characters.**
```r
    legend.title = element_text(size = rel(0.8), face = "bold", hjust = 0, colour = "white"),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ggplot.r:93:1:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/ggplot.r#L93) *style:* **lines should not be more than 80 characters.**
```r
    panel.grid.major = element_line(colour = "black", size = rel(0.8), linetype = 3),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ggplot.r:94:1:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/ggplot.r#L94) *style:* **lines should not be more than 80 characters.**
```r
    panel.grid.minor = element_line(colour = "black", size = rel(0.8), linetype = 3),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ggplot.r:102:1:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/ggplot.r#L102) *style:* **lines should not be more than 80 characters.**
```r
    plot.title = element_text(size = rel(1.2), vjust = 1, margin = margin(0, 0, 0.1 * base_size, 0, "lines")),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ggplot.r:117:3:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/ggplot.r#L117) *warning:* **local variable ‘half_line’ assigned but may not be used**
```r
  half_line <- base_size / 2
  ^~~~~~~~~
```
[R/ggplot.r:125:1:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/ggplot.r#L125) *style:* **lines should not be more than 80 characters.**
```r
      axis.text = element_text(size = rel(1), colour = "black", margin = margin(unit(c(2, 2, 2, 2), "lines"))),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ggplot.r:126:1:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/ggplot.r#L126) *style:* **lines should not be more than 80 characters.**
```r
      axis.text.x = element_text(vjust = 1, margin = margin(0.01 * base_size, 0, 0.05 * base_size, 0, "lines")),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ggplot.r:127:1:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/ggplot.r#L127) *style:* **lines should not be more than 80 characters.**
```r
      axis.text.x.top = element_text(vjust = 1, margin = margin(0.01 * base_size, 0, 0.05 * base_size, 0, "lines")),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ggplot.r:128:1:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/ggplot.r#L128) *style:* **lines should not be more than 80 characters.**
```r
      axis.text.y = element_text(hjust = 1, margin = margin(0, 0.01 * base_size, 0, 0.05 * base_size, "lines")),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ggplot.r:129:1:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/ggplot.r#L129) *style:* **lines should not be more than 80 characters.**
```r
      axis.text.y.right = element_text(hjust = 1, margin = margin(0, 0.01 * base_size, 0, 0.05 * base_size, "lines")),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ggplot.r:137:1:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/ggplot.r#L137) *style:* **lines should not be more than 80 characters.**
```r
      panel.grid.major = element_line(colour = "black", size = rel(0.8), linetype = 3),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ggplot.r:138:1:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/ggplot.r#L138) *style:* **lines should not be more than 80 characters.**
```r
      panel.grid.minor = element_line(colour = "black", size = rel(0.4), linetype = 3),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ggplot.r:158:1:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/ggplot.r#L158) *style:* **lines should not be more than 80 characters.**
```r
      panel.grid.major = element_line(colour = "white", size = base_size * 0.045),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ggplot.r:159:1:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/ggplot.r#L159) *style:* **lines should not be more than 80 characters.**
```r
      panel.grid.minor = element_line(colour = "white", size = half_line * 0.045)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ggplot.r:175:1:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/ggplot.r#L175) *style:* **lines should not be more than 80 characters.**
```r
    rect = element_rect(fill = "white", colour = "black", size = 0.5, linetype = 1),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ggplot.r:187:1:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/ggplot.r#L187) *style:* **lines should not be more than 80 characters.**
```r
    axis.text.x = element_text(vjust = 1, angle = -45, hjust = 0, margin = margin(5, 5, 10, 5, "pt")),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ggplot.r:203:1:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/ggplot.r#L203) *style:* **lines should not be more than 80 characters.**
```r
    legend.title = element_text(size = rel(0.8), face = "bold", hjust = 0, colour = "white"),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ggplot.r:212:1:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/ggplot.r#L212) *style:* **lines should not be more than 80 characters.**
```r
    panel.grid.major = element_line(colour = "black", size = rel(0.8), linetype = 3),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ggplot.r:213:1:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/ggplot.r#L213) *style:* **lines should not be more than 80 characters.**
```r
    panel.grid.minor = element_line(colour = "black", size = rel(0.8), linetype = 3),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/ggplot.r:235:12:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/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/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/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:6:1:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L6) *style:* **Variable and function names should be all lowercase.**
```r
DateBreaks <- function(breaksDF, limits, weekNumbers) {
^~~~~~~~~~
```
[R/graphs.R:6:24:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L6) *style:* **Variable and function names should be all lowercase.**
```r
DateBreaks <- function(breaksDF, limits, weekNumbers) {
                       ^~~~~~~~
```
[R/graphs.R:6:42:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L6) *style:* **Variable and function names should be all lowercase.**
```r
DateBreaks <- function(breaksDF, limits, weekNumbers) {
                                         ^~~~~~~~~~~
```
[R/graphs.R:7:7:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L7) *style:* **Variable and function names should be all lowercase.**
```r
  if (weekNumbers) {
      ^~~~~~~~~~~
```
[R/graphs.R:9:7:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L9) *style:* **Variable and function names should be all lowercase.**
```r
      desiredGap <- 2
      ^~~~~~~~~~
```
[R/graphs.R:10:1:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L10) *style:* **lines should not be more than 80 characters.**
```r
    } else if (as.numeric(difftime(limits[2], limits[1], "days")) / 7 < 52 * 1) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/graphs.R:11:7:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L11) *style:* **Variable and function names should be all lowercase.**
```r
      desiredGap <- 2
      ^~~~~~~~~~
```
[R/graphs.R:12:1:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L12) *style:* **lines should not be more than 80 characters.**
```r
    } else if (as.numeric(difftime(limits[2], limits[1], "days")) / 7 < 52 * 2) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/graphs.R:13:7:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L13) *style:* **Variable and function names should be all lowercase.**
```r
      desiredGap <- 4
      ^~~~~~~~~~
```
[R/graphs.R:14:1:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L14) *style:* **lines should not be more than 80 characters.**
```r
    } else if (as.numeric(difftime(limits[2], limits[1], "days")) / 7 < 52 * 3) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/graphs.R:15:7:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L15) *style:* **Variable and function names should be all lowercase.**
```r
      desiredGap <- 13
      ^~~~~~~~~~
```
[R/graphs.R:16:1:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L16) *style:* **lines should not be more than 80 characters.**
```r
    } else if (as.numeric(difftime(limits[2], limits[1], "days")) / 7 < 52 * 6) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/graphs.R:17:7:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L17) *style:* **Variable and function names should be all lowercase.**
```r
      desiredGap <- 26
      ^~~~~~~~~~
```
[R/graphs.R:18:1:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L18) *style:* **lines should not be more than 80 characters.**
```r
    } else if (as.numeric(difftime(limits[2], limits[1], "days")) / 7 < 52 * 20) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/graphs.R:19:7:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L19) *style:* **Variable and function names should be all lowercase.**
```r
      desiredGap <- 50
      ^~~~~~~~~~
```
[R/graphs.R:22:1:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L22) *style:* **lines should not be more than 80 characters.**
```r
    desiredWeeks <- formatC(seq(1, 52 - desiredGap / 2 + 1, desiredGap), flag = "0", width = 2)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/graphs.R:22:5:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L22) *style:* **Variable and function names should be all lowercase.**
```r
    desiredWeeks <- formatC(seq(1, 52 - desiredGap / 2 + 1, desiredGap), flag = "0", width = 2)
    ^~~~~~~~~~~~
```
[R/graphs.R:22:41:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L22) *style:* **Variable and function names should be all lowercase.**
```r
    desiredWeeks <- formatC(seq(1, 52 - desiredGap / 2 + 1, desiredGap), flag = "0", width = 2)
                                        ^~~~~~~~~~
```
[R/graphs.R:22:61:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L22) *style:* **Variable and function names should be all lowercase.**
```r
    desiredWeeks <- formatC(seq(1, 52 - desiredGap / 2 + 1, desiredGap), flag = "0", width = 2)
                                                            ^~~~~~~~~~
```
[R/graphs.R:23:5:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L23) *style:* **Variable and function names should be all lowercase.**
```r
    breaksDF <- breaksDF[breaksDF$printWeek %in% desiredWeeks, ]
    ^~~~~~~~
```
[R/graphs.R:23:17:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L23) *style:* **Variable and function names should be all lowercase.**
```r
    breaksDF <- breaksDF[breaksDF$printWeek %in% desiredWeeks, ]
                ^~~~~~~~
```
[R/graphs.R:23:26:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L23) *style:* **Variable and function names should be all lowercase.**
```r
    breaksDF <- breaksDF[breaksDF$printWeek %in% desiredWeeks, ]
                         ^~~~~~~~
```
[R/graphs.R:23:35:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L23) *style:* **Variable and function names should be all lowercase.**
```r
    breaksDF <- breaksDF[breaksDF$printWeek %in% desiredWeeks, ]
                                  ^~~~~~~~~
```
[R/graphs.R:23:50:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L23) *style:* **Variable and function names should be all lowercase.**
```r
    breaksDF <- breaksDF[breaksDF$printWeek %in% desiredWeeks, ]
                                                 ^~~~~~~~~~~~
```
[R/graphs.R:24:5:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L24) *style:* **Variable and function names should be all lowercase.**
```r
    breaksDF$printLabel <- paste0(breaksDF$printWeek, "/", breaksDF$printYear)
    ^~~~~~~~
```
[R/graphs.R:24:14:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L24) *style:* **Variable and function names should be all lowercase.**
```r
    breaksDF$printLabel <- paste0(breaksDF$printWeek, "/", breaksDF$printYear)
             ^~~~~~~~~~
```
[R/graphs.R:24:35:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L24) *style:* **Variable and function names should be all lowercase.**
```r
    breaksDF$printLabel <- paste0(breaksDF$printWeek, "/", breaksDF$printYear)
                                  ^~~~~~~~
```
[R/graphs.R:24:44:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L24) *style:* **Variable and function names should be all lowercase.**
```r
    breaksDF$printLabel <- paste0(breaksDF$printWeek, "/", breaksDF$printYear)
                                           ^~~~~~~~~
```
[R/graphs.R:24:60:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L24) *style:* **Variable and function names should be all lowercase.**
```r
    breaksDF$printLabel <- paste0(breaksDF$printWeek, "/", breaksDF$printYear)
                                                           ^~~~~~~~
```
[R/graphs.R:24:69:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L24) *style:* **Variable and function names should be all lowercase.**
```r
    breaksDF$printLabel <- paste0(breaksDF$printWeek, "/", breaksDF$printYear)
                                                                    ^~~~~~~~~
```
[R/graphs.R:27:7:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L27) *style:* **Variable and function names should be all lowercase.**
```r
      desiredGap <- 2
      ^~~~~~~~~~
```
[R/graphs.R:28:1:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L28) *style:* **lines should not be more than 80 characters.**
```r
    } else if (as.numeric(difftime(limits[2], limits[1], "days")) / 1 < 52 * 1) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/graphs.R:29:7:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L29) *style:* **Variable and function names should be all lowercase.**
```r
      desiredGap <- 2
      ^~~~~~~~~~
```
[R/graphs.R:30:1:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L30) *style:* **lines should not be more than 80 characters.**
```r
    } else if (as.numeric(difftime(limits[2], limits[1], "days")) / 1 < 52 * 2) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/graphs.R:31:7:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L31) *style:* **Variable and function names should be all lowercase.**
```r
      desiredGap <- 7
      ^~~~~~~~~~
```
[R/graphs.R:32:1:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L32) *style:* **lines should not be more than 80 characters.**
```r
    } else if (as.numeric(difftime(limits[2], limits[1], "days")) / 1 < 52 * 3) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/graphs.R:33:7:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L33) *style:* **Variable and function names should be all lowercase.**
```r
      desiredGap <- 14
      ^~~~~~~~~~
```
[R/graphs.R:34:1:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L34) *style:* **lines should not be more than 80 characters.**
```r
    } else if (as.numeric(difftime(limits[2], limits[1], "days")) / 1 < 52 * 6) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/graphs.R:35:7:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L35) *style:* **Variable and function names should be all lowercase.**
```r
      desiredGap <- 14
      ^~~~~~~~~~
```
[R/graphs.R:36:1:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L36) *style:* **lines should not be more than 80 characters.**
```r
    } else if (as.numeric(difftime(limits[2], limits[1], "days")) / 1 < 52 * 20) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/graphs.R:37:7:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L37) *style:* **Variable and function names should be all lowercase.**
```r
      desiredGap <- 30
      ^~~~~~~~~~
```
[R/graphs.R:40:1:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L40) *style:* **lines should not be more than 80 characters.**
```r
    desiredWeeks <- formatC(seq(1, 31 - desiredGap / 2 + 1, desiredGap), flag = "0", width = 2)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/graphs.R:40:5:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L40) *style:* **Variable and function names should be all lowercase.**
```r
    desiredWeeks <- formatC(seq(1, 31 - desiredGap / 2 + 1, desiredGap), flag = "0", width = 2)
    ^~~~~~~~~~~~
```
[R/graphs.R:40:41:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L40) *style:* **Variable and function names should be all lowercase.**
```r
    desiredWeeks <- formatC(seq(1, 31 - desiredGap / 2 + 1, desiredGap), flag = "0", width = 2)
                                        ^~~~~~~~~~
```
[R/graphs.R:40:61:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L40) *style:* **Variable and function names should be all lowercase.**
```r
    desiredWeeks <- formatC(seq(1, 31 - desiredGap / 2 + 1, desiredGap), flag = "0", width = 2)
                                                            ^~~~~~~~~~
```
[R/graphs.R:41:5:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L41) *style:* **Variable and function names should be all lowercase.**
```r
    breaksDF <- breaksDF[breaksDF$printDay %in% desiredWeeks, ]
    ^~~~~~~~
```
[R/graphs.R:41:17:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L41) *style:* **Variable and function names should be all lowercase.**
```r
    breaksDF <- breaksDF[breaksDF$printDay %in% desiredWeeks, ]
                ^~~~~~~~
```
[R/graphs.R:41:26:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L41) *style:* **Variable and function names should be all lowercase.**
```r
    breaksDF <- breaksDF[breaksDF$printDay %in% desiredWeeks, ]
                         ^~~~~~~~
```
[R/graphs.R:41:35:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L41) *style:* **Variable and function names should be all lowercase.**
```r
    breaksDF <- breaksDF[breaksDF$printDay %in% desiredWeeks, ]
                                  ^~~~~~~~
```
[R/graphs.R:41:49:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L41) *style:* **Variable and function names should be all lowercase.**
```r
    breaksDF <- breaksDF[breaksDF$printDay %in% desiredWeeks, ]
                                                ^~~~~~~~~~~~
```
[R/graphs.R:42:5:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L42) *style:* **Variable and function names should be all lowercase.**
```r
    breaksDF$printLabel <- paste0(breaksDF$printDay, "/", breaksDF$printMonth)
    ^~~~~~~~
```
[R/graphs.R:42:14:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L42) *style:* **Variable and function names should be all lowercase.**
```r
    breaksDF$printLabel <- paste0(breaksDF$printDay, "/", breaksDF$printMonth)
             ^~~~~~~~~~
```
[R/graphs.R:42:35:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L42) *style:* **Variable and function names should be all lowercase.**
```r
    breaksDF$printLabel <- paste0(breaksDF$printDay, "/", breaksDF$printMonth)
                                  ^~~~~~~~
```
[R/graphs.R:42:44:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L42) *style:* **Variable and function names should be all lowercase.**
```r
    breaksDF$printLabel <- paste0(breaksDF$printDay, "/", breaksDF$printMonth)
                                           ^~~~~~~~
```
[R/graphs.R:42:59:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L42) *style:* **Variable and function names should be all lowercase.**
```r
    breaksDF$printLabel <- paste0(breaksDF$printDay, "/", breaksDF$printMonth)
                                                          ^~~~~~~~
```
[R/graphs.R:42:68:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L42) *style:* **Variable and function names should be all lowercase.**
```r
    breaksDF$printLabel <- paste0(breaksDF$printDay, "/", breaksDF$printMonth)
                                                                   ^~~~~~~~~~
```
[R/graphs.R:44:10:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L44) *style:* **Variable and function names should be all lowercase.**
```r
  return(breaksDF)
         ^~~~~~~~
```
[R/graphs.R:75:1:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L75) *style:* **Variable and function names should be all lowercase.**
```r
StatStepribbon <-
^~~~~~~~~~~~~~
```
[R/graphs.R:77:1:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L77) *style:* **lines should not be more than 80 characters.**
```r
    compute_group = function(., data, scales, direction = "hv", yvars = c("ymin", "ymax"), ...) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/graphs.R:93:1:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L93) *style:* **lines should not be more than 80 characters.**
```r
  function(mapping = NULL, data = NULL, geom = "ribbon", position = "identity", inherit.aes = TRUE, ...) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/graphs.R:95:14:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L95) *style:* **Variable and function names should be all lowercase.**
```r
      stat = StatStepribbon, mapping = mapping, data = data, geom = geom,
             ^~~~~~~~~~~~~~
```
[R/graphs.R:105:1:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L105) *style:* **Variable and function names should be all lowercase.**
```r
ThemeShiny <- function(base_size = 12, base_family = "") {
^~~~~~~~~~
```
[R/graphs.R:107:1:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L107) *style:* **lines should not be more than 80 characters.**
```r
    line = element_line(colour = "black", size = 0.5, linetype = 1, lineend = "butt"),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/graphs.R:108:1:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L108) *style:* **lines should not be more than 80 characters.**
```r
    rect = element_rect(fill = "white", colour = "black", size = 0.5, linetype = 1), text = element_text(
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/graphs.R:120:1:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L120) *style:* **lines should not be more than 80 characters.**
```r
    axis.line.y = element_line(size = base_size / 20), axis.text.x = element_text(
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/graphs.R:127:1:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L127) *style:* **lines should not be more than 80 characters.**
```r
    axis.title = element_text(colour = "black"), axis.title.x = element_text(vjust = 1),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/graphs.R:128:1:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L128) *style:* **lines should not be more than 80 characters.**
```r
    axis.title.y = element_text(angle = 90, vjust = 1), axis.ticks.length = unit(
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/graphs.R:145:1:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L145) *style:* **lines should not be more than 80 characters.**
```r
    legend.justification = "center", legend.box = NULL, panel.background = element_rect(
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/graphs.R:192:1:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L192) *style:* **Variable and function names should be all lowercase.**
```r
MakeLineThresholdPlot <- function(pd,
^~~~~~~~~~~~~~~~~~~~~
```
[R/graphs.R:194:35:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L194) *style:* **Variable and function names should be all lowercase.**
```r
                                  dataVal,
                                  ^~~~~~~
```
[R/graphs.R:195:35:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L195) *style:* **Variable and function names should be all lowercase.**
```r
                                  dataCIL = NULL,
                                  ^~~~~~~
```
[R/graphs.R:196:35:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L196) *style:* **Variable and function names should be all lowercase.**
```r
                                  dataCIU = NULL,
                                  ^~~~~~~
```
[R/graphs.R:201:35:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L201) *style:* **Variable and function names should be all lowercase.**
```r
                                  allPoints = TRUE,
                                  ^~~~~~~~~
```
[R/graphs.R:203:35:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L203) *style:* **Variable and function names should be all lowercase.**
```r
                                  pointShift = 0,
                                  ^~~~~~~~~~
```
[R/graphs.R:204:35:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L204) *style:* **Variable and function names should be all lowercase.**
```r
                                  xShift = 0,
                                  ^~~~~~
```
[R/graphs.R:205:35:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L205) *style:* **Variable and function names should be all lowercase.**
```r
                                  weekNumbers = FALSE,
                                  ^~~~~~~~~~~
```
[R/graphs.R:207:35:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L207) *style:* **Variable and function names should be all lowercase.**
```r
                                  GetCols) {
                                  ^~~~~~~
```
[R/graphs.R:209:6:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L209) *style:* **Variable and function names should be all lowercase.**
```r
  pd$printYear <- format.Date(pd[[x]], "%G")
     ^~~~~~~~~
```
[R/graphs.R:210:6:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L210) *style:* **Variable and function names should be all lowercase.**
```r
  pd$printWeek <- format.Date(pd[[x]], "%V")
     ^~~~~~~~~
```
[R/graphs.R:211:6:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L211) *style:* **Variable and function names should be all lowercase.**
```r
  pd$printMonth <- format.Date(pd[[x]], "%m")
     ^~~~~~~~~~
```
[R/graphs.R:212:6:](https://github.com/folkehelseinstituttet/fhi/blob/c5f0fbd2db68f862ad7b0689d258a4695f89da2a/R/graphs.R#L212) *style:* **Variable and function names should be all lowercase.**
```r
  pd$printDay <- format.Date(pd[[x]], "%d")
     ^~~~~~~~
```


This commit has been mentioned on **OMA forum**. There might be relevant details there:

https://forum.openmandriva.org/t/issue-common-header/2193/6


Made a flex gallery for the debate club as a part of javascript30 giving information.
![screenshot 25](https://user-images.githubusercontent.com/19373793/47727101-cfccd680-dc81-11e8-922d-d1b1c556a83c.png)


usuario e senha por enquanto pro entrar no app


This commit has been mentioned on **OMA forum**. There might be relevant details there:

https://forum.openmandriva.org/t/issue-common-header/2193/7


DeliveryManId nie powinno być w formularzu. To będzie przypisywane podczas akceptacji w aplikacji dostawcy.


If following the general rule of unregistering the most recently registered thing, `unregister_net_sysctl_table()` would be the first function to call in this block.


UserId proponowałbym wstępnie na sztywno. Finalnie powinno być na podstawie userId przechowywanego w aplikacji (localStorage czy coś)


Price powinien być wyliczony automatycznie na podstawie wybranych produktów


To dodaje DOSTAWCA!


loyaltyPoints nie może być modyfikowane przez użytkownika!


Ten komentarz html należy usunąć


Yep, that's a good point! I added these quite a while ago when my bash knowledge was a bit weaker, as you can see. :)


Created multidev environment [cris#pr-1](https://dashboard.pantheon.io/sites/47f9bb31-f356-464f-aa57-03ca806906e2#pr-1).

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


Created multidev environment [lawhelp#ci-1531](https://dashboard.pantheon.io/sites/9ec12d94-c804-44b7-968e-166a0b49fdc0#ci-1531).

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


![](https://github.trello.services/images/mini-trello-icon.png) [30 Oct 2018 - v1.0.7](https://trello.com/c/g5sJ5qcD/9-30-oct-2018-v107)


Please merge it with selenium repo.


Huh... I see that you just followed the ordering found in `br_netfilter_fini()`. I think what you did is fine.


@nfriedly that's just a copy/paste from a much larger project where this does tend to be an issue. I should remove that.


Will fix asap


But 3.0.1 was never released on npm. So can't install currently


Done, please verifiy


minhas launch options do csgo (opções de arranque)


Fixed in 0ac4011bb728f8716082a3ddea4f112acc2c86e5


what is this `+`


Please test again


This commit breaks google camera in Pixel 2 oreo builds because there is no 2017 camera jar for api 26 or 27 (only 28).


It's just the method you override does some checks beforehand, and I don't know if that would make a difference Specifically look into implementation of removed and updated. There it doesn't operate directly on the element passed, but the one from the internal cache. Also the notifiers in the supers are called before the methods here(like `toLinkAdded`). Don't know if that could cause problems.


done


Status domyślnie nadany jako 'do realizacji'


The code sometimes uses `int` and sometimes uses `size_t`. A lot of variable for 'for-loops' are int instead of size_t also I don't see out of bound checking for array access. For example in `box_mean_1d` there are not check for out of bound array access.


Would it be possible to add the oreo version of com.google.android.camera.experimental2017.jar ?


Can those values be negative?


Yup, will do 👍


> We ended up just drowngrading laravel back to 5.5.30. Not ideal... but at least we can get moving again

I fixed it by following this https://laravel.com/docs/5.5/upgrade#upgrade-5.5.42

I was annoyed because this was a ( breaking ) fix applied to a production LTS build. Why I would check the upgrade docs is beyond me.


Also added background for a scoreboard


This isn't working on Sierra/High Sierra.   On those machines, controlColor is coming back as black.   Most likely, this should be controlBackgroundColor


Successfully aliased the URL <https://distributedsequencer-aaakuchujh.now.sh> to the following alias.

* https://distseq.now.sh


User opinion a nie 'User option'. Po nad to opinia będzie wystawiana po odebraniu zamówienia.


I'd like to land it upstream but I lack the time to write dedicated tests for it and to work towards getting it included. The current implementation doesn't zero variable length arrays but that could be a separate option and isn't something mandatory for an initial implementation.

It also only zeroes fully uninitialized variables, so a C++ type with a constructor won't get zeroed even if the constructor leaves some fields uninitialized. It's probably desirable to zero even types with constructors. It's meant to be used alongside a malloc implementation doing similar zeroing and it wouldn't really make sense to have the compiler add zeroing to constructors.


Shouldn't there be a check that the multiplication doesn't overflow. For this width and height need to be unsigned.


Po pierwsze nie korzystamy z 'div' i bootstrap. Proszę o wykorzystanie komponentów IONIC'a.


[R/get_default_beast2_download_url.R:9:3:](https://github.com/richelbilderbeek/beastier/blob/50445b8d21e17a3488d43b8fba4cd4a5fc7e0f0a/R/get_default_beast2_download_url.R#L9) *warning:* **no visible global function definition for ‘check_os’**
```r
  check_os(os)
  ^~~~~~~~
```


Thanks for the pointers @parasuramln, fix incoming...


You are right, if the notifiers are informed, we should already finished our custom implementation.
So we should move it in front of the super call.