[R/censor.R:7:23:](https://github.com/folkehelseinstituttet/fhi/blob/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/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/276f7d64337d03fa869f4cd7b460f5a215c824f3/R/graphs.R#L212) *style:* **Variable and function names should be all lowercase.**
```r
  pd$printDay <- format.Date(pd[[x]], "%d")
     ^~~~~~~~
```


<img width="1118" alt="2018-10-30 10 19 23" src="https://user-images.githubusercontent.com/43994376/47720758-fe52ad80-dc91-11e8-888e-2f0cbb455e46.png">


Pls add LGTM and accept my review otherwise my TL is going to kill me for not delivering a single line of code this week :)


jaja equisdé qué bueno


esquisdeeeeeeeeeeeeeeeeee


Not yet. Give me some time. Thanks.


Yes as noted the idea is that you should add a click handler. We use that, and added this so that the links wont redirect before the handler is called. https://github.com/infor-design/enterprise/blob/master/app/views/components/datagrid/example-singleselect.html#L27

So thats the current solution, to use that.

If you do that workaround. You would loose the ability to select rows and toggle rows (expandable/tree) and the ability to select cells.

Maybe we could add a setting or do something different. Like check for a # in the link and not preventDefault or add a setting to preventDefault on links. So if you need that, please raise an issue in the issue tracker. https://github.com/infor-design/enterprise/issues so we can process there.

But i think the best solution is to add a click function to the column.


Very well thought guys!! It's too bad we lost this feature, but it's being removed in a good moment.


Необходимо обновить `snapshot`'ы, падают тесты


I'm not sure this is the right choice for avoid the `ite` from the SMT pattern in `uintv_extensionality`.
The alternative of removing the pattern altogether and keeping the `unfold` worked better for me.


reduction clause