[R/censor.R:7:23:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L30) *style:* **Variable and function names should be all lowercase.**
```r
DashboardInitialise <- function(STUB = "/",
^~~~~~~~~~~~~~~~~~~
```
[R/dashboard.R:33:11:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L33) *style:* **Variable and function names should be all lowercase.**
```r
          changeWorkingDirToTmp = TRUE) {
          ^~~~~~~~~~~~~~~~~~~~~
```
[R/dashboard.R:34:20:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L34) *warning:* **Do not use absolute paths.**
```r
  if (file.exists("/tmp/computer")) {
                   ^~~~
```
[R/dashboard.R:35:18:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L35) *warning:* **Do not use absolute paths.**
```r
    con <- file("/tmp/computer", "r")
                 ^~~~
```
[R/dashboard.R:49:7:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L49) *style:* **Variable and function names should be all lowercase.**
```r
  if (changeWorkingDirToTmp) {
      ^~~~~~~~~~~~~~~~~~~~~
```
[R/dashboard.R:60:1:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L60) *style:* **Variable and function names should be all lowercase.**
```r
DashboardMsg <- function(txt, type = "msg", syscallsDepth = 2) {
^~~~~~~~~~~~
```
[R/dashboard.R:60:45:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L60) *style:* **Variable and function names should be all lowercase.**
```r
DashboardMsg <- function(txt, type = "msg", syscallsDepth = 2) {
                                            ^~~~~~~~~~~~~
```
[R/dashboard.R:62:7:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L62) *style:* **Variable and function names should be all lowercase.**
```r
  if (syscallsDepth < 0) stop("syscallsDepth cannot be less than zero")
      ^~~~~~~~~~~~~
```
[R/dashboard.R:63:1:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L63) *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:73:20:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L73) *style:* **Variable and function names should be all lowercase.**
```r
  if (depth >= 1 & syscallsDepth > 0) {
                   ^~~~~~~~~~~~~
```
[R/dashboard.R:74:5:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L74) *style:* **Variable and function names should be all lowercase.**
```r
    depthSeq <- depth:1
    ^~~~~~~~
```
[R/dashboard.R:75:16:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L75) *style:* **Variable and function names should be all lowercase.**
```r
    if (length(depthSeq) > syscallsDepth) depthSeq <- depthSeq[1:syscallsDepth]
               ^~~~~~~~
```
[R/dashboard.R:75:28:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L75) *style:* **Variable and function names should be all lowercase.**
```r
    if (length(depthSeq) > syscallsDepth) depthSeq <- depthSeq[1:syscallsDepth]
                           ^~~~~~~~~~~~~
```
[R/dashboard.R:75:43:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L75) *style:* **Variable and function names should be all lowercase.**
```r
    if (length(depthSeq) > syscallsDepth) depthSeq <- depthSeq[1:syscallsDepth]
                                          ^~~~~~~~
```
[R/dashboard.R:75:55:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L75) *style:* **Variable and function names should be all lowercase.**
```r
    if (length(depthSeq) > syscallsDepth) depthSeq <- depthSeq[1:syscallsDepth]
                                                      ^~~~~~~~
```
[R/dashboard.R:75:66:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L75) *style:* **Variable and function names should be all lowercase.**
```r
    if (length(depthSeq) > syscallsDepth) depthSeq <- depthSeq[1:syscallsDepth]
                                                                 ^~~~~~~~~~~~~
```
[R/dashboard.R:76:5:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L76) *style:* **Variable and function names should be all lowercase.**
```r
    depthSeq <- rev(depthSeq)
    ^~~~~~~~
```
[R/dashboard.R:76:21:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L76) *style:* **Variable and function names should be all lowercase.**
```r
    depthSeq <- rev(depthSeq)
                    ^~~~~~~~
```
[R/dashboard.R:77:15:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L77) *style:* **Variable and function names should be all lowercase.**
```r
    for (i in depthSeq) {
              ^~~~~~~~
```
[R/dashboard.R:84:45:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L84) *warning:* **no visible binding for global variable ‘PROJ’, Did you mean 'NROW'?**
```r
      fn(sprintf("%s/%s/%s %s", Sys.time(), PROJ$COMPUTER_NAME, PROJ$NAME, txt))
                                            ^~~~
```
[R/dashboard.R:84:45:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L84) *warning:* **no visible binding for global variable ‘PROJ’, Did you mean 'NROW'?**
```r
      fn(sprintf("%s/%s/%s %s", Sys.time(), PROJ$COMPUTER_NAME, PROJ$NAME, txt))
                                            ^~~~
```
[R/dashboard.R:90:1:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L90) *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:90:45:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L90) *warning:* **no visible binding for global variable ‘PROJ’, Did you mean 'NROW'?**
```r
      fn(sprintf("%s/%s/%s %s", Sys.time(), PROJ$COMPUTER_NAME, PROJ$NAME, txt), call. = F)
                                            ^~~~
```
[R/dashboard.R:90:45:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L90) *warning:* **no visible binding for global variable ‘PROJ’, Did you mean 'NROW'?**
```r
      fn(sprintf("%s/%s/%s %s", Sys.time(), PROJ$COMPUTER_NAME, PROJ$NAME, txt), call. = F)
                                            ^~~~
```
[R/dashboard.R:106:1:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L106) *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:106:1:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L106) *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:106:85:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L106) *warning:* **Do not use absolute paths.**
```r
DashboardInitialiseOpinionated <- function(NAME, STUB = "/", PACKAGE_DIR = sprintf("/packages/dashboards_%s", NAME), FORCE_DEV_PACKAGE_LOAD = FALSE, DEV_IF_RSTUDIO = TRUE, SILENT = FALSE) {
                                                                                ^~~~~~~~~
```
[R/dashboard.R:107:3:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L107) *style:* **Variable and function names should be all lowercase.**
```r
  DashboardInitialise(
  ^~~~~~~~~~~~~~~~~~~
```
[R/dashboard.R:115:1:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L115) *style:* **lines should not be more than 80 characters.**
```r
      suppressPackageStartupMessages(devtools::load_all(PACKAGE_DIR, export_all = FALSE, quiet = TRUE))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/dashboard.R:142:1:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L142) *style:* **Variable and function names should be all lowercase.**
```r
DashboardFolder <- function(inside = "data_raw", f = NULL) {
^~~~~~~~~~~~~~~
```
[R/dashboard.R:143:3:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L143) *style:* **Variable and function names should be all lowercase.**
```r
  retVal <- file.path(PROJ$STUB, inside, PROJ$NAME)
  ^~~~~~
```
[R/dashboard.R:143:23:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L143) *warning:* **no visible binding for global variable ‘PROJ’, Did you mean 'NROW'?**
```r
  retVal <- file.path(PROJ$STUB, inside, PROJ$NAME)
                      ^~~~
```
[R/dashboard.R:143:23:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L143) *warning:* **no visible binding for global variable ‘PROJ’, Did you mean 'NROW'?**
```r
  retVal <- file.path(PROJ$STUB, inside, PROJ$NAME)
                      ^~~~
```
[R/dashboard.R:144:3:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L144) *style:* **Variable and function names should be all lowercase.**
```r
  retVal <- paste0(retVal, "/")
  ^~~~~~
```
[R/dashboard.R:144:20:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L144) *style:* **Variable and function names should be all lowercase.**
```r
  retVal <- paste0(retVal, "/")
                   ^~~~~~
```
[R/dashboard.R:146:5:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L146) *style:* **Variable and function names should be all lowercase.**
```r
    retVal <- file.path(retVal, f)
    ^~~~~~
```
[R/dashboard.R:146:25:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L146) *style:* **Variable and function names should be all lowercase.**
```r
    retVal <- file.path(retVal, f)
                        ^~~~~~
```
[R/dashboard.R:148:10:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L148) *style:* **Variable and function names should be all lowercase.**
```r
  return(retVal)
         ^~~~~~
```
[R/dashboard.R:163:1:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L163) *style:* **Variable and function names should be all lowercase.**
```r
DashboardEmail <- function(emailBCC,
^~~~~~~~~~~~~~
```
[R/dashboard.R:163:28:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L163) *style:* **Variable and function names should be all lowercase.**
```r
DashboardEmail <- function(emailBCC,
                           ^~~~~~~~
```
[R/dashboard.R:164:28:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L164) *style:* **Variable and function names should be all lowercase.**
```r
                           emailSubject,
                           ^~~~~~~~~~~~
```
[R/dashboard.R:165:28:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L165) *style:* **Variable and function names should be all lowercase.**
```r
                           emailText,
                           ^~~~~~~~~
```
[R/dashboard.R:166:28:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L166) *style:* **Variable and function names should be all lowercase.**
```r
                           emailAttachFiles = NULL,
                           ^~~~~~~~~~~~~~~~
```
[R/dashboard.R:167:28:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L167) *style:* **Variable and function names should be all lowercase.**
```r
                           emailFooter = TRUE,
                           ^~~~~~~~~~~
```
[R/dashboard.R:169:1:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L169) *style:* **lines should not be more than 80 characters.**
```r
                           XLSXLocation = file.path("/etc", "gmailr", "emails.xlsx"),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/dashboard.R:169:54:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L169) *warning:* **Do not use absolute paths.**
```r
                           XLSXLocation = file.path("/etc", "gmailr", "emails.xlsx"),
                                                     ^~~~
```
[R/dashboard.R:170:1:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L170) *style:* **lines should not be more than 80 characters.**
```r
                           OAUTHLocation = file.path("/etc", "gmailr", ".httr-oauth")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/dashboard.R:170:55:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L170) *warning:* **Do not use absolute paths.**
```r
                           OAUTHLocation = file.path("/etc", "gmailr", ".httr-oauth")) {
                                                      ^~~~
```
[R/dashboard.R:172:36:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L172) *style:* **Variable and function names should be all lowercase.**
```r
  emails <- stats::na.omit(emails[[emailBCC]])
                                   ^~~~~~~~
```
[R/dashboard.R:174:7:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L174) *style:* **Variable and function names should be all lowercase.**
```r
  if (emailFooter) {
      ^~~~~~~~~~~
```
[R/dashboard.R:175:5:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L175) *style:* **Variable and function names should be all lowercase.**
```r
    emailText <- paste0(
    ^~~~~~~~~
```
[R/dashboard.R:176:7:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L176) *style:* **Variable and function names should be all lowercase.**
```r
      emailText,
      ^~~~~~~~~
```
[R/dashboard.R:182:1:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L182) *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:189:3:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L189) *style:* **Variable and function names should be all lowercase.**
```r
  sendEmailsBCC <- sendEmailsTo <- NULL
  ^~~~~~~~~~~~~
```
[R/dashboard.R:189:20:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L189) *style:* **Variable and function names should be all lowercase.**
```r
  sendEmailsBCC <- sendEmailsTo <- NULL
                   ^~~~~~~~~~~~
```
[R/dashboard.R:191:5:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L191) *style:* **Variable and function names should be all lowercase.**
```r
    sendEmailsTo <- "dashboards@fhi.no"
    ^~~~~~~~~~~~
```
[R/dashboard.R:192:5:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L192) *style:* **Variable and function names should be all lowercase.**
```r
    sendEmailsBCC <- paste0(emails, collapse = ",")
    ^~~~~~~~~~~~~
```
[R/dashboard.R:194:5:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L194) *style:* **Variable and function names should be all lowercase.**
```r
    sendEmailsTo <- paste0(emails, collapse = ",")
    ^~~~~~~~~~~~
```
[R/dashboard.R:195:5:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L195) *style:* **Variable and function names should be all lowercase.**
```r
    sendEmailsBCC <- "dashboards@fhi.no"
    ^~~~~~~~~~~~~
```
[R/dashboard.R:199:16:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L199) *style:* **Variable and function names should be all lowercase.**
```r
    gmailr::to(sendEmailsTo) %>%
               ^~~~~~~~~~~~
```
[R/dashboard.R:201:17:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L201) *style:* **Variable and function names should be all lowercase.**
```r
    gmailr::bcc(sendEmailsBCC) %>%
                ^~~~~~~~~~~~~
```
[R/dashboard.R:202:21:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L202) *style:* **Variable and function names should be all lowercase.**
```r
    gmailr::subject(emailSubject) %>%
                    ^~~~~~~~~~~~
```
[R/dashboard.R:203:23:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L203) *style:* **Variable and function names should be all lowercase.**
```r
    gmailr::html_body(emailText) -> text_msg
                      ^~~~~~~~~
```
[R/dashboard.R:205:16:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L205) *style:* **Variable and function names should be all lowercase.**
```r
  if (!is.null(emailAttachFiles)) {
               ^~~~~~~~~~~~~~~~
```
[R/dashboard.R:206:1:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L206) *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:206:14:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L206) *warning:* **no visible global function definition for ‘%>%’, Did you mean '%*%'?**
```r
    text_msg %>% gmailr::attach_part(emailText, content_type = "text/html") -> text_msg
             ^~~
```
[R/dashboard.R:206:38:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L206) *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:207:15:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L207) *style:* **Variable and function names should be all lowercase.**
```r
    for (i in emailAttachFiles) {
              ^~~~~~~~~~~~~~~~
```
[R/dashboard.R:208:16:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L208) *warning:* **no visible global function definition for ‘%>%’, Did you mean '%*%'?**
```r
      text_msg %>% gmailr::attach_file(i) -> text_msg
               ^~~
```
[R/dashboard.R:212:3:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L212) *style:* **Variable and function names should be all lowercase.**
```r
  currentWD <- getwd()
  ^~~~~~~~~
```
[R/dashboard.R:214:41:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L214) *warning:* **Do not use absolute paths.**
```r
  file.copy(OAUTHLocation, paste0(tmp, "/.httr-oauth"))
                                        ^~~~~~~~~~~~
```
[R/dashboard.R:218:9:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L218) *style:* **Variable and function names should be all lowercase.**
```r
  setwd(currentWD)
        ^~~~~~~~~
```
[R/dashboard.R:229:1:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L229) *style:* **Variable and function names should be all lowercase.**
```r
DashboardEmailSpecific <- function(emailBCC,
^~~~~~~~~~~~~~~~~~~~~~
```
[R/dashboard.R:229:36:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L229) *style:* **Variable and function names should be all lowercase.**
```r
DashboardEmailSpecific <- function(emailBCC,
                                   ^~~~~~~~
```
[R/dashboard.R:230:36:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L230) *style:* **Variable and function names should be all lowercase.**
```r
                                   emailSubject,
                                   ^~~~~~~~~~~~
```
[R/dashboard.R:231:36:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L231) *style:* **Variable and function names should be all lowercase.**
```r
                                   emailText,
                                   ^~~~~~~~~
```
[R/dashboard.R:232:36:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L232) *style:* **Variable and function names should be all lowercase.**
```r
                                   emailFooter = TRUE,
                                   ^~~~~~~~~~~
```
[R/dashboard.R:233:1:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L233) *style:* **lines should not be more than 80 characters.**
```r
                                   OAUTHLocation = file.path("/etc", "gmailr", ".httr-oauth")) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/dashboard.R:233:63:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L233) *warning:* **Do not use absolute paths.**
```r
                                   OAUTHLocation = file.path("/etc", "gmailr", ".httr-oauth")) {
                                                              ^~~~
```
[R/dashboard.R:234:14:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L234) *style:* **Variable and function names should be all lowercase.**
```r
  if (length(emailBCC) > 1) emailBCC <- paste0(emailBCC, collapse = ",")
             ^~~~~~~~
```
[R/dashboard.R:234:29:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L234) *style:* **Variable and function names should be all lowercase.**
```r
  if (length(emailBCC) > 1) emailBCC <- paste0(emailBCC, collapse = ",")
                            ^~~~~~~~
```
[R/dashboard.R:234:48:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L234) *style:* **Variable and function names should be all lowercase.**
```r
  if (length(emailBCC) > 1) emailBCC <- paste0(emailBCC, collapse = ",")
                                               ^~~~~~~~
```
[R/dashboard.R:236:7:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L236) *style:* **Variable and function names should be all lowercase.**
```r
  if (emailFooter) {
      ^~~~~~~~~~~
```
[R/dashboard.R:237:5:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L237) *style:* **Variable and function names should be all lowercase.**
```r
    emailText <- paste0(
    ^~~~~~~~~
```
[R/dashboard.R:238:7:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L238) *style:* **Variable and function names should be all lowercase.**
```r
      emailText,
      ^~~~~~~~~
```
[R/dashboard.R:244:1:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L244) *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:252:17:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L252) *style:* **Variable and function names should be all lowercase.**
```r
    gmailr::bcc(emailBCC) %>%
                ^~~~~~~~
```
[R/dashboard.R:253:21:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L253) *style:* **Variable and function names should be all lowercase.**
```r
    gmailr::subject(emailSubject) %>%
                    ^~~~~~~~~~~~
```
[R/dashboard.R:254:23:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L254) *style:* **Variable and function names should be all lowercase.**
```r
    gmailr::html_body(emailText) -> text_msg
                      ^~~~~~~~~
```
[R/dashboard.R:256:3:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L256) *style:* **Variable and function names should be all lowercase.**
```r
  currentWD <- getwd()
  ^~~~~~~~~
```
[R/dashboard.R:258:41:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L258) *warning:* **Do not use absolute paths.**
```r
  file.copy(OAUTHLocation, paste0(tmp, "/.httr-oauth"))
                                        ^~~~~~~~~~~~
```
[R/dashboard.R:262:9:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/dashboard.R#L262) *style:* **Variable and function names should be all lowercase.**
```r
  setwd(currentWD)
        ^~~~~~~~~
```
[R/ggplot.r:56:1:](https://github.com/folkehelseinstituttet/fhi/blob/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/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/7e5b4d695ae1adb51e1cbb3797b40210d0a0a7f3/R/graphs.R#L212) *style:* **Variable and function names should be all lowercase.**
```r
  pd$printDay <- format.Date(pd[[x]], "%d")
     ^~~~~~~~
```


Also, I just realized, you forgot `gcc32.ey` too.


Huh.. thanks!


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

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


Namespace?


bu ne terbiyesizlik kardeşim


Migliora i nomi delle variabili porcodio


Названия файлов file_name.cpp


Created multidev environment [rescue-x#oct-18](https://dashboard.pantheon.io/sites/c8430b75-4272-4aca-bfcd-206b12279315#oct-18).

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


All that make sense! I will take care of it when have more time. For the moment I'd like to focus on IBP reduction.


Maybe put a `Console.ReadLine()` after this line so that user gets a chance to read this final message.


For Issue #11


This isn't parsing a number typed by the user.


Дублирование строки 2


Voltando


Гарды


Created multidev environment [next50#dev](https://dashboard.pantheon.io/sites/8e7c33cd-c6bd-4dcf-a71d-f1ade4f2e791#dev).

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


Hi! This is the friendly automated conda-forge-webservice.

I updated the Github team because of this commit.

- @mateisarivan, @kasperprasmussen were added to conda-forge. Welcome to conda-forge!
  Go to https://github.com/orgs/conda-forge/invitation see your invitation.

You should get push access to this feedstock and CI services.

Feel free to join the community [chat room](https://gitter.im/conda-forge/conda-forge.github.io).

NOTE: Please make sure to not push to the repository directly.
      Use branches in your fork for any changes and send a PR.
      More details [here](https://conda-forge.org/docs/conda-forge_gotchas.html#using-a-fork-vs-a-branch-when-updating-a-recipe)


Fix #82


change resposne to response line 125.


Reference


Apagando tudo


ah, good catch.  thanks!


Why 30 days? I prefer 60 or 90 days (most common bij large companies).


Bist du dir schon sicher das das aktuell schon klappt?
Ich habe es mal vesucht so umzusetzen wie du es angedeutet hast aber ich schaffe es nicht mal das Moodul neuzuladen da die globalen Variablen von FHEM nicht "greifbar" sind.

BSP. globale Variable $modules
>Global symbol "%modules" requires explicit package name (did you forget to declare "my %modules"?) at ./FHEM/14_SD_BELL.pm line 112.