[inst/src/RunProcess.R:1:2:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunProcess.R#L1) *style:* **Commented code should be removed.**
```r
#devtools::load_all("fhi")
 ^~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/src/RunProcess.R:3:7:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunProcess.R#L3) *style:* **Put spaces around all infix operators.**
```r
  NAME="sykdomspuls_pdf",
     ~^~
```
[inst/src/RunProcess.R:4:6:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunProcess.R#L4) *style:* **Put spaces around all infix operators.**
```r
  PKG="sykdomspulspdf",
    ~^~
```
[inst/src/RunProcess.R:5:14:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunProcess.R#L5) *style:* **Put spaces around all infix operators.**
```r
  PACKAGE_DIR=".")
            ~^~
```
[inst/src/RunProcess.R:9:2:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunProcess.R#L9) *style:* **Commented code should be removed.**
```r
#devtools::use_package("odfWeave")
 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/src/RunProcess.R:12:54:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunProcess.R#L12) *style:* **Commas should always have a space after.**
```r
files <- list.files(fhi::DashboardFolder("data_raw"),"^partially_formatted_")
                                                     ^
```
[inst/src/RunProcess.R:15:3:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunProcess.R#L15) *style:* **Commented code should be removed.**
```r
# fhi::DashboardIsDev()
  ^~~~~~~~~~~~~~~~~~~~~
```
[inst/src/RunProcess.R:16:20:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunProcess.R#L16) *warning:* **Do not use absolute paths.**
```r
fhi::DashboardMsg("/data_raw")
                   ^~~~~~~~~
```
[inst/src/RunProcess.R:17:13:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunProcess.R#L17) *warning:* **Do not use absolute paths.**
```r
list.files("/data_raw")
            ^~~~~~~~~
```
[inst/src/RunProcess.R:19:20:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunProcess.R#L19) *warning:* **Do not use absolute paths.**
```r
fhi::DashboardMsg("/data_raw/sykdomspuls_pdf")
                   ^~~~~~~~~
```
[inst/src/RunProcess.R:20:13:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunProcess.R#L20) *warning:* **Do not use absolute paths.**
```r
list.files("/data_raw/sykdomspuls_pdf")
            ^~~~~~~~~
```
[inst/src/RunProcess.R:22:3:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunProcess.R#L22) *style:* **Place a space before left parenthesis, except in a function call.**
```r
if(length(files)==0){
  ^
```
[inst/src/RunProcess.R:22:17:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunProcess.R#L22) *style:* **Put spaces around all infix operators.**
```r
if(length(files)==0){
               ~^~~
```
[inst/src/RunProcess.R:24:12:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunProcess.R#L24) *style:* **Put spaces around all infix operators.**
```r
  quit(save="no", status=0)
          ~^~
```
[inst/src/RunProcess.R:24:25:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunProcess.R#L24) *style:* **Put spaces around all infix operators.**
```r
  quit(save="no", status=0)
                       ~^~
```
[inst/src/RunProcess.R:27:6:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunProcess.R#L27) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  for(f in files) fhi::DashboardMsg(f)
     ^
```
[inst/src/RunProcess.R:31:5:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunProcess.R#L31) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(file.exists(fhi::DashboardFolder("results","DONE.txt")) & !fhi::DashboardIsDev()){
    ^
```
[inst/src/RunProcess.R:31:49:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunProcess.R#L31) *style:* **Commas should always have a space after.**
```r
  if(file.exists(fhi::DashboardFolder("results","DONE.txt")) & !fhi::DashboardIsDev()){
                                                ^
```
[inst/src/RunProcess.R:33:14:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunProcess.R#L33) *style:* **Put spaces around all infix operators.**
```r
    quit(save="no", status=0)
            ~^~
```
[inst/src/RunProcess.R:33:27:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunProcess.R#L33) *style:* **Put spaces around all infix operators.**
```r
    quit(save="no", status=0)
                         ~^~
```
[inst/src/RunProcess.R:36:46:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunProcess.R#L36) *style:* **Commas should always have a space after.**
```r
  d <- fread(fhi::DashboardFolder("data_raw",useFile))
                                             ^
```
[inst/src/RunProcess.R:37:9:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunProcess.R#L37) *style:* **Put spaces around all infix operators.**
```r
  fylke <-fread(system.file("extdata", "fylke.csv", package = "sykdomspulspdf"))
        ^~~
```
[inst/src/RunProcess.R:38:37:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunProcess.R#L38) *style:* **Commas should always have a space after.**
```r
  lastestUpdate <- as.Date(gsub("_","-",LatestRawID()))
                                    ^
```
[inst/src/RunProcess.R:38:41:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunProcess.R#L38) *style:* **Commas should always have a space after.**
```r
  lastestUpdate <- as.Date(gsub("_","-",LatestRawID()))
                                        ^
```
[inst/src/RunProcess.R:44:47:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunProcess.R#L44) *style:* **Commas should always have a space after.**
```r
  alle <- tapply(data$gastro, data[, c("year","week")], sum)
                                              ^
```
[inst/src/RunProcess.R:45:11:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunProcess.R#L45) *style:* **Put spaces around all infix operators.**
```r
  weeknow <-findLastWeek(lastestUpdate,alle) ### need to be fixed
          ^~~
```
[inst/src/RunProcess.R:45:40:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunProcess.R#L45) *style:* **Commas should always have a space after.**
```r
  weeknow <-findLastWeek(lastestUpdate,alle) ### need to be fixed
                                       ^
```
[inst/src/RunProcess.R:46:25:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunProcess.R#L46) *style:* **Commas should always have a space after.**
```r
  cat(paste("Last week",weeknow,sep = " "))
                        ^
```
[inst/src/RunProcess.R:46:33:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunProcess.R#L46) *style:* **Commas should always have a space after.**
```r
  cat(paste("Last week",weeknow,sep = " "))
                                ^
```
[inst/src/RunProcess.R:50:66:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunProcess.R#L50) *style:* **Commas should always have a space after.**
```r
    sykdompulspdf_template_copy(fhi::DashboardFolder("data_raw"),SYNDROM)
                                                                 ^
```
[inst/src/RunProcess.R:53:16:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunProcess.R#L53) *style:* **Put spaces around all infix operators.**
```r
    if (SYNDROM=="mage") {
              ~^~~
```
[inst/src/RunProcess.R:54:10:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunProcess.R#L54) *style:* **Use <-, not =, for assignment.**
```r
      add="magetarm"
         ^
```
[inst/src/RunProcess.R:54:10:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunProcess.R#L54) *style:* **Put spaces around all infix operators.**
```r
      add="magetarm"
        ~^~
```
[inst/src/RunProcess.R:55:15:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunProcess.R#L55) *style:* **Use <-, not =, for assignment.**
```r
      mytittle="Mage-tarminfeksjoner"
              ^
```
[inst/src/RunProcess.R:55:15:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunProcess.R#L55) *style:* **Put spaces around all infix operators.**
```r
      mytittle="Mage-tarminfeksjoner"
             ~^~
```
[inst/src/RunProcess.R:57:23:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunProcess.R#L57) *style:* **Put spaces around all infix operators.**
```r
    } else if (SYNDROM=="luft") {
                     ~^~~
```
[inst/src/RunProcess.R:58:10:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunProcess.R#L58) *style:* **Use <-, not =, for assignment.**
```r
      add="luftvei"
         ^
```
[inst/src/RunProcess.R:58:10:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunProcess.R#L58) *style:* **Put spaces around all infix operators.**
```r
      add="luftvei"
        ~^~
```
[inst/src/RunProcess.R:59:15:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunProcess.R#L59) *style:* **Use <-, not =, for assignment.**
```r
      mytittle="Luftveisinfeksjoner"
              ^
```
[inst/src/RunProcess.R:59:15:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunProcess.R#L59) *style:* **Put spaces around all infix operators.**
```r
      mytittle="Luftveisinfeksjoner"
             ~^~
```
[inst/src/RunProcess.R:67:16:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunProcess.R#L67) *style:* **Use <-, not =, for assignment.**
```r
      Fylkename=f
               ^
```
[inst/src/RunProcess.R:67:16:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunProcess.R#L67) *style:* **Put spaces around all infix operators.**
```r
      Fylkename=f
              ~^~
```
[inst/src/RunProcess.R:68:41:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunProcess.R#L68) *style:* **Commas should always have a space after.**
```r
      data <- CleanDataByFylke(d, fylke,f)
                                        ^
```
[inst/src/RunProcess.R:69:38:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunProcess.R#L69) *style:* **Commas should always have a space after.**
```r
      alle <- tapply(getdataout(data,SYNDROM), data[, c("year","week")], sum)
                                     ^
```
[inst/src/RunProcess.R:69:64:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunProcess.R#L69) *style:* **Commas should always have a space after.**
```r
      alle <- tapply(getdataout(data,SYNDROM), data[, c("year","week")], sum)
                                                               ^
```
[inst/src/RunProcess.R:70:26:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunProcess.R#L70) *style:* **Commas should always have a space after.**
```r
      yrange <- max(alle,na.rm=T)+(roundUpNice(max(alle,na.rm=T))*.20)
                         ^
```
[inst/src/RunProcess.R:70:31:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunProcess.R#L70) *style:* **Put spaces around all infix operators.**
```r
      yrange <- max(alle,na.rm=T)+(roundUpNice(max(alle,na.rm=T))*.20)
                             ~^~
```
[inst/src/RunProcess.R:70:34:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunProcess.R#L70) *style:* **Put spaces around all infix operators.**
```r
      yrange <- max(alle,na.rm=T)+(roundUpNice(max(alle,na.rm=T))*.20)
                                ~^~
```
[inst/src/RunProcess.R:70:35:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunProcess.R#L70) *style:* **Place a space before left parenthesis, except in a function call.**
```r
      yrange <- max(alle,na.rm=T)+(roundUpNice(max(alle,na.rm=T))*.20)
                                  ^
```
[inst/src/RunProcess.R:70:57:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunProcess.R#L70) *style:* **Commas should always have a space after.**
```r
      yrange <- max(alle,na.rm=T)+(roundUpNice(max(alle,na.rm=T))*.20)
                                                        ^
```
[inst/src/RunProcess.R:70:62:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunProcess.R#L70) *style:* **Put spaces around all infix operators.**
```r
      yrange <- max(alle,na.rm=T)+(roundUpNice(max(alle,na.rm=T))*.20)
                                                            ~^~
```
[inst/src/RunProcess.R:70:66:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunProcess.R#L70) *style:* **Put spaces around all infix operators.**
```r
      yrange <- max(alle,na.rm=T)+(roundUpNice(max(alle,na.rm=T))*.20)
                                                                ~^~
```
[inst/src/RunProcess.R:73:8:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunProcess.R#L73) *style:* **Commented code should be removed.**
```r
      #fhi::RenderExternally()
       ^~~~~~~~~~~~~~~~~~~~~~~
```
[inst/src/RunProcess.R:74:65:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunProcess.R#L74) *style:* **Commas should always have a space after.**
```r
      rmarkdown::render(input = fhi::DashboardFolder("data_raw",paste("monthly_report_",SYNDROM,".Rmd",sep="")),
                                                                ^
```
[inst/src/RunProcess.R:74:89:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunProcess.R#L74) *style:* **Commas should always have a space after.**
```r
      rmarkdown::render(input = fhi::DashboardFolder("data_raw",paste("monthly_report_",SYNDROM,".Rmd",sep="")),
                                                                                ^
```
[inst/src/RunProcess.R:74:97:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunProcess.R#L74) *style:* **Commas should always have a space after.**
```r
      rmarkdown::render(input = fhi::DashboardFolder("data_raw",paste("monthly_report_",SYNDROM,".Rmd",sep="")),
                                                                                ^
```
[inst/src/RunProcess.R:74:104:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunProcess.R#L74) *style:* **Commas should always have a space after.**
```r
      rmarkdown::render(input = fhi::DashboardFolder("data_raw",paste("monthly_report_",SYNDROM,".Rmd",sep="")),
                                                                                ^
```
[inst/src/RunProcess.R:74:107:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunProcess.R#L74) *style:* **Put spaces around all infix operators.**
```r
      rmarkdown::render(input = fhi::DashboardFolder("data_raw",paste("monthly_report_",SYNDROM,".Rmd",sep="")),
                                                                                ~^~
```
[inst/src/RunProcess.R:75:76:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunProcess.R#L75) *style:* **Commas should always have a space after.**
```r
                        output_file = paste(gsub(" ", "", f, fixed = TRUE),"_",add,".pdf", sep=""),
                                                                           ^
```
[inst/src/RunProcess.R:75:80:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunProcess.R#L75) *style:* **Commas should always have a space after.**
```r
                        output_file = paste(gsub(" ", "", f, fixed = TRUE),"_",add,".pdf", sep=""),
                                                                               ^
```
[inst/src/RunProcess.R:75:84:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunProcess.R#L75) *style:* **Commas should always have a space after.**
```r
                        output_file = paste(gsub(" ", "", f, fixed = TRUE),"_",add,".pdf", sep=""),
                                                                                ^
```
[inst/src/RunProcess.R:75:95:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunProcess.R#L75) *style:* **Put spaces around all infix operators.**
```r
                        output_file = paste(gsub(" ", "", f, fixed = TRUE),"_",add,".pdf", sep=""),
                                                                                ~^~
```
[inst/src/RunProcess.R:76:69:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunProcess.R#L76) *style:* **Commas should always have a space after.**
```r
                        output_dir = fhi::DashboardFolder("results",paste("PDF",mydate,sep="_")))
                                                                    ^
```
[inst/src/RunProcess.R:76:81:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunProcess.R#L76) *style:* **Commas should always have a space after.**
```r
                        output_dir = fhi::DashboardFolder("results",paste("PDF",mydate,sep="_")))
                                                                                ^
```
[inst/src/RunProcess.R:76:88:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunProcess.R#L76) *style:* **Commas should always have a space after.**
```r
                        output_dir = fhi::DashboardFolder("results",paste("PDF",mydate,sep="_")))
                                                                                ^
```
[inst/src/RunProcess.R:76:91:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunProcess.R#L76) *style:* **Put spaces around all infix operators.**
```r
                        output_dir = fhi::DashboardFolder("results",paste("PDF",mydate,sep="_")))
                                                                                ~^~
```
[inst/src/RunProcess.R:80:68:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunProcess.R#L80) *style:* **Commas should always have a space after.**
```r
    sykdompulspdf_template_remove(fhi::DashboardFolder("data_raw"),SYNDROM)
                                                                   ^
```
[inst/src/RunProcess.R:88:44:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunProcess.R#L88) *style:* **Commas should always have a space after.**
```r
file.create(fhi::DashboardFolder("results","DONE.txt"))
                                           ^
```
[inst/src/RunProcess.R:89:3:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunProcess.R#L89) *style:* **Place a space before left parenthesis, except in a function call.**
```r
if(!fhi::DashboardIsDev()) quit(save="no", status=0)
  ^
```
[inst/src/RunProcess.R:89:37:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunProcess.R#L89) *style:* **Put spaces around all infix operators.**
```r
if(!fhi::DashboardIsDev()) quit(save="no", status=0)
                                   ~^~
```
[inst/src/RunProcess.R:89:50:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunProcess.R#L89) *style:* **Put spaces around all infix operators.**
```r
if(!fhi::DashboardIsDev()) quit(save="no", status=0)
                                                ~^~
```
[inst/src/RunProcess.R:90:1:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunProcess.R#L90) *style:* **Trailing blank lines are superfluous.**
```r

^
```
[inst/src/RunTest.R:1:14:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunTest.R#L1) *warning:* **Do not use absolute paths.**
```r
con <- file("/tmp/computer","r")
             ^~~~
```
[inst/src/RunTest.R:1:29:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunTest.R#L1) *style:* **Commas should always have a space after.**
```r
con <- file("/tmp/computer","r")
                            ^
```
[inst/src/RunTest.R:2:32:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunTest.R#L2) *style:* **Commas should always have a space after.**
```r
COMPUTER_NAME <- readLines(con,n=1)
                               ^
```
[inst/src/RunTest.R:2:33:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunTest.R#L2) *style:* **Put spaces around all infix operators.**
```r
COMPUTER_NAME <- readLines(con,n=1)
                               ~^~
```
[inst/src/RunTest.R:4:20:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunTest.R#L4) *style:* **Put spaces around all infix operators.**
```r
Sys.setenv(COMPUTER=COMPUTER_NAME)
                  ~^~
```
[inst/src/RunTest.R:6:4:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunTest.R#L6) *style:* **Place a space before left parenthesis, except in a function call.**
```r
for(baseFolder in c("/data_clean","/results","/data_app")){
   ^
```
[inst/src/RunTest.R:6:22:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunTest.R#L6) *warning:* **Do not use absolute paths.**
```r
for(baseFolder in c("/data_clean","/results","/data_app")){
                     ^~~~~~~~~~~
```
[inst/src/RunTest.R:6:35:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunTest.R#L6) *style:* **Commas should always have a space after.**
```r
for(baseFolder in c("/data_clean","/results","/data_app")){
                                  ^
```
[inst/src/RunTest.R:6:36:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunTest.R#L6) *warning:* **Do not use absolute paths.**
```r
for(baseFolder in c("/data_clean","/results","/data_app")){
                                   ^~~~~~~~
```
[inst/src/RunTest.R:6:46:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunTest.R#L6) *style:* **Commas should always have a space after.**
```r
for(baseFolder in c("/data_clean","/results","/data_app")){
                                             ^
```
[inst/src/RunTest.R:6:47:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunTest.R#L6) *warning:* **Do not use absolute paths.**
```r
for(baseFolder in c("/data_clean","/results","/data_app")){
                                              ^~~~~~~~~
```
[inst/src/RunTest.R:7:44:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunTest.R#L7) *style:* **Commas should always have a space after.**
```r
  files <- list.files(file.path(baseFolder,"sykdomspuls_pdf"))
                                           ^
```
[inst/src/RunTest.R:8:5:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunTest.R#L8) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(length(files)>0){
    ^
```
[inst/src/RunTest.R:8:19:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunTest.R#L8) *style:* **Put spaces around all infix operators.**
```r
  if(length(files)>0){
                 ~^~
```
[inst/src/RunTest.R:9:8:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunTest.R#L9) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    for(f in files) unlink(file.path(baseFolder,"sykdomspuls_pdf",f))
       ^
```
[inst/src/RunTest.R:9:49:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunTest.R#L9) *style:* **Commas should always have a space after.**
```r
    for(f in files) unlink(file.path(baseFolder,"sykdomspuls_pdf",f))
                                                ^
```
[inst/src/RunTest.R:9:67:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunTest.R#L9) *style:* **Commas should always have a space after.**
```r
    for(f in files) unlink(file.path(baseFolder,"sykdomspuls_pdf",f))
                                                                  ^
```
[inst/src/RunTest.R:13:19:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunTest.R#L13) *warning:* **Do not use absolute paths.**
```r
unlink(file.path("/junit","sykdomspuls_pdf.xml"))
                  ^~~~~~
```
[inst/src/RunTest.R:13:27:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunTest.R#L13) *style:* **Commas should always have a space after.**
```r
unlink(file.path("/junit","sykdomspuls_pdf.xml"))
                          ^
```
[inst/src/RunTest.R:18:26:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunTest.R#L18) *warning:* **Do not use absolute paths.**
```r
a$out <- file(file.path("/junit","sykdomspuls_pdf.xml"), "w+")
                         ^~~~~~
```
[inst/src/RunTest.R:18:34:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunTest.R#L18) *style:* **Commas should always have a space after.**
```r
a$out <- file(file.path("/junit","sykdomspuls_pdf.xml"), "w+")
                                 ^
```
[inst/src/RunTest.R:22:37:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunTest.R#L22) *style:* **Commas should always have a space after.**
```r
  output <- processx::run("Rscript","/r/sykdomspulspdf/src/RunProcess.R", error_on_status=F, echo=T)
                                    ^
```
[inst/src/RunTest.R:22:38:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunTest.R#L22) *warning:* **Do not use absolute paths.**
```r
  output <- processx::run("Rscript","/r/sykdomspulspdf/src/RunProcess.R", error_on_status=F, echo=T)
                                     ^~
```
[inst/src/RunTest.R:22:90:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunTest.R#L22) *style:* **Put spaces around all infix operators.**
```r
  output <- processx::run("Rscript","/r/sykdomspulspdf/src/RunProcess.R", error_on_status=F, echo=T)
                                                                                ~^~
```
[inst/src/RunTest.R:22:98:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunTest.R#L22) *style:* **Put spaces around all infix operators.**
```r
  output <- processx::run("Rscript","/r/sykdomspulspdf/src/RunProcess.R", error_on_status=F, echo=T)
                                                                                ~^~
```
[inst/src/RunTest.R:28:5:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunTest.R#L28) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(output$status==0){
    ^
```
[inst/src/RunTest.R:28:19:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunTest.R#L28) *style:* **Put spaces around all infix operators.**
```r
  if(output$status==0){
                 ~^~~
```
[inst/src/RunTest.R:29:36:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunTest.R#L29) *style:* **Commas should always have a space after.**
```r
    a$add_result("sykdomspuls_pdf","RunAll",testthat::expectation("success","Pass"))
                                   ^
```
[inst/src/RunTest.R:29:45:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunTest.R#L29) *style:* **Commas should always have a space after.**
```r
    a$add_result("sykdomspuls_pdf","RunAll",testthat::expectation("success","Pass"))
                                            ^
```
[inst/src/RunTest.R:29:77:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunTest.R#L29) *style:* **Commas should always have a space after.**
```r
    a$add_result("sykdomspuls_pdf","RunAll",testthat::expectation("success","Pass"))
                                                                            ^
```
[inst/src/RunTest.R:31:36:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunTest.R#L31) *style:* **Commas should always have a space after.**
```r
    a$add_result("sykdomspuls_pdf","RunAll",testthat::expectation("error","Fail"))
                                   ^
```
[inst/src/RunTest.R:31:45:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunTest.R#L31) *style:* **Commas should always have a space after.**
```r
    a$add_result("sykdomspuls_pdf","RunAll",testthat::expectation("error","Fail"))
                                            ^
```
[inst/src/RunTest.R:31:75:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunTest.R#L31) *style:* **Commas should always have a space after.**
```r
    a$add_result("sykdomspuls_pdf","RunAll",testthat::expectation("error","Fail"))
                                                                          ^
```
[inst/src/RunTest.R:34:34:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunTest.R#L34) *style:* **Commas should always have a space after.**
```r
  a$add_result("sykdomspuls_pdf","RunAll",testthat::expectation("success","Pass"))
                                 ^
```
[inst/src/RunTest.R:34:43:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunTest.R#L34) *style:* **Commas should always have a space after.**
```r
  a$add_result("sykdomspuls_pdf","RunAll",testthat::expectation("success","Pass"))
                                          ^
```
[inst/src/RunTest.R:34:75:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunTest.R#L34) *style:* **Commas should always have a space after.**
```r
  a$add_result("sykdomspuls_pdf","RunAll",testthat::expectation("success","Pass"))
                                                                          ^
```
[inst/src/RunTest.R:40:1:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunTest.R#L40) *style:* **Trailing blank lines are superfluous.**
```r

^
```
[inst/src/RunTest.R:41:1:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunTest.R#L41) *style:* **Trailing blank lines are superfluous.**
```r

^
```
[inst/src/RunTest.R:42:1:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/inst/src/RunTest.R#L42) *style:* **Trailing blank lines are superfluous.**
```r

^
```
[R/CreatePlots.R:3:22:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L3) *style:* **Commas should always have a space after.**
```r
Ukenummer <- c(30:52,1:29)
                     ^
```
[R/CreatePlots.R:26:56:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L26) *style:* **Commas should always have a space after.**
```r
CreatePlots1 <- function (d, weeknow, Ukenummer, title,yrange) {
                                                       ^
```
[R/CreatePlots.R:27:12:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L27) *style:* **Put spaces around all infix operators.**
```r
  par(mfrow=c(1,1),mar=c(2.6,2.6,3,.5), oma=c(0,0,0,0))
          ~^~
```
[R/CreatePlots.R:27:17:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L27) *style:* **Commas should always have a space after.**
```r
  par(mfrow=c(1,1),mar=c(2.6,2.6,3,.5), oma=c(0,0,0,0))
                ^
```
[R/CreatePlots.R:27:20:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L27) *style:* **Commas should always have a space after.**
```r
  par(mfrow=c(1,1),mar=c(2.6,2.6,3,.5), oma=c(0,0,0,0))
                   ^
```
[R/CreatePlots.R:27:23:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L27) *style:* **Put spaces around all infix operators.**
```r
  par(mfrow=c(1,1),mar=c(2.6,2.6,3,.5), oma=c(0,0,0,0))
                     ~^~
```
[R/CreatePlots.R:27:30:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L27) *style:* **Commas should always have a space after.**
```r
  par(mfrow=c(1,1),mar=c(2.6,2.6,3,.5), oma=c(0,0,0,0))
                             ^
```
[R/CreatePlots.R:27:34:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L27) *style:* **Commas should always have a space after.**
```r
  par(mfrow=c(1,1),mar=c(2.6,2.6,3,.5), oma=c(0,0,0,0))
                                 ^
```
[R/CreatePlots.R:27:36:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L27) *style:* **Commas should always have a space after.**
```r
  par(mfrow=c(1,1),mar=c(2.6,2.6,3,.5), oma=c(0,0,0,0))
                                   ^
```
[R/CreatePlots.R:27:44:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L27) *style:* **Put spaces around all infix operators.**
```r
  par(mfrow=c(1,1),mar=c(2.6,2.6,3,.5), oma=c(0,0,0,0))
                                          ~^~
```
[R/CreatePlots.R:27:49:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L27) *style:* **Commas should always have a space after.**
```r
  par(mfrow=c(1,1),mar=c(2.6,2.6,3,.5), oma=c(0,0,0,0))
                                                ^
```
[R/CreatePlots.R:27:51:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L27) *style:* **Commas should always have a space after.**
```r
  par(mfrow=c(1,1),mar=c(2.6,2.6,3,.5), oma=c(0,0,0,0))
                                                  ^
```
[R/CreatePlots.R:27:53:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L27) *style:* **Commas should always have a space after.**
```r
  par(mfrow=c(1,1),mar=c(2.6,2.6,3,.5), oma=c(0,0,0,0))
                                                    ^
```
[R/CreatePlots.R:29:14:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L29) *style:* **Commas should always have a space after.**
```r
  plot(c(d[2,30:52], d[2,1:29]), type="l", col="green", xlim=c(1,52), ylim=c(0,yrange),
             ^
```
[R/CreatePlots.R:29:26:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L29) *style:* **Commas should always have a space after.**
```r
  plot(c(d[2,30:52], d[2,1:29]), type="l", col="green", xlim=c(1,52), ylim=c(0,yrange),
                         ^
```
[R/CreatePlots.R:29:38:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L29) *style:* **Put spaces around all infix operators.**
```r
  plot(c(d[2,30:52], d[2,1:29]), type="l", col="green", xlim=c(1,52), ylim=c(0,yrange),
                                    ~^~
```
[R/CreatePlots.R:29:47:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L29) *style:* **Put spaces around all infix operators.**
```r
  plot(c(d[2,30:52], d[2,1:29]), type="l", col="green", xlim=c(1,52), ylim=c(0,yrange),
                                             ~^~
```
[R/CreatePlots.R:29:61:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L29) *style:* **Put spaces around all infix operators.**
```r
  plot(c(d[2,30:52], d[2,1:29]), type="l", col="green", xlim=c(1,52), ylim=c(0,yrange),
                                                           ~^~
```
[R/CreatePlots.R:29:66:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L29) *style:* **Commas should always have a space after.**
```r
  plot(c(d[2,30:52], d[2,1:29]), type="l", col="green", xlim=c(1,52), ylim=c(0,yrange),
                                                                 ^
```
[R/CreatePlots.R:29:75:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L29) *style:* **Put spaces around all infix operators.**
```r
  plot(c(d[2,30:52], d[2,1:29]), type="l", col="green", xlim=c(1,52), ylim=c(0,yrange),
                                                                         ~^~
```
[R/CreatePlots.R:29:80:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L29) *style:* **Commas should always have a space after.**
```r
  plot(c(d[2,30:52], d[2,1:29]), type="l", col="green", xlim=c(1,52), ylim=c(0,yrange),
                                                                               ^
```
[R/CreatePlots.R:30:12:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L30) *style:* **Put spaces around all infix operators.**
```r
       main="", xlab="", ylab="",
          ~^~
```
[R/CreatePlots.R:30:21:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L30) *style:* **Put spaces around all infix operators.**
```r
       main="", xlab="", ylab="",
                   ~^~
```
[R/CreatePlots.R:30:30:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L30) *style:* **Put spaces around all infix operators.**
```r
       main="", xlab="", ylab="",
                            ~^~
```
[R/CreatePlots.R:31:11:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L31) *style:* **Put spaces around all infix operators.**
```r
       lwd=1.5, cex.lab=0.75,cex.main=2,  axes = F)#, dev.new(width=18, height=14))
         ~^~
```
[R/CreatePlots.R:31:24:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L31) *style:* **Put spaces around all infix operators.**
```r
       lwd=1.5, cex.lab=0.75,cex.main=2,  axes = F)#, dev.new(width=18, height=14))
                      ~^~
```
[R/CreatePlots.R:31:30:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L31) *style:* **Commas should always have a space after.**
```r
       lwd=1.5, cex.lab=0.75,cex.main=2,  axes = F)#, dev.new(width=18, height=14))
                             ^
```
[R/CreatePlots.R:31:38:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L31) *style:* **Put spaces around all infix operators.**
```r
       lwd=1.5, cex.lab=0.75,cex.main=2,  axes = F)#, dev.new(width=18, height=14))
                                    ~^~
```
[R/CreatePlots.R:33:15:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L33) *style:* **Commas should always have a space after.**
```r
  lines(c(d[3,30:52], d[3,1:29]), type="l", col="red", lwd=1.5)
              ^
```
[R/CreatePlots.R:33:27:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L33) *style:* **Commas should always have a space after.**
```r
  lines(c(d[3,30:52], d[3,1:29]), type="l", col="red", lwd=1.5)
                          ^
```
[R/CreatePlots.R:33:39:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L33) *style:* **Put spaces around all infix operators.**
```r
  lines(c(d[3,30:52], d[3,1:29]), type="l", col="red", lwd=1.5)
                                     ~^~
```
[R/CreatePlots.R:33:48:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L33) *style:* **Put spaces around all infix operators.**
```r
  lines(c(d[3,30:52], d[3,1:29]), type="l", col="red", lwd=1.5)
                                              ~^~
```
[R/CreatePlots.R:33:59:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L33) *style:* **Put spaces around all infix operators.**
```r
  lines(c(d[3,30:52], d[3,1:29]), type="l", col="red", lwd=1.5)
                                                         ~^~
```
[R/CreatePlots.R:34:15:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L34) *style:* **Commas should always have a space after.**
```r
  lines(c(d[4,30:52], d[4,1:29]), type="l", col="orange", lwd=1.5)
              ^
```
[R/CreatePlots.R:34:27:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L34) *style:* **Commas should always have a space after.**
```r
  lines(c(d[4,30:52], d[4,1:29]), type="l", col="orange", lwd=1.5)
                          ^
```
[R/CreatePlots.R:34:39:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L34) *style:* **Put spaces around all infix operators.**
```r
  lines(c(d[4,30:52], d[4,1:29]), type="l", col="orange", lwd=1.5)
                                     ~^~
```
[R/CreatePlots.R:34:48:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L34) *style:* **Put spaces around all infix operators.**
```r
  lines(c(d[4,30:52], d[4,1:29]), type="l", col="orange", lwd=1.5)
                                              ~^~
```
[R/CreatePlots.R:34:62:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L34) *style:* **Put spaces around all infix operators.**
```r
  lines(c(d[4,30:52], d[4,1:29]), type="l", col="orange", lwd=1.5)
                                                            ~^~
```
[R/CreatePlots.R:35:15:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L35) *style:* **Commas should always have a space after.**
```r
  lines(c(d[5,30:52], d[5,1:29]), type="l", col="purple", lwd=1.5)
              ^
```
[R/CreatePlots.R:35:27:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L35) *style:* **Commas should always have a space after.**
```r
  lines(c(d[5,30:52], d[5,1:29]), type="l", col="purple", lwd=1.5)
                          ^
```
[R/CreatePlots.R:35:39:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L35) *style:* **Put spaces around all infix operators.**
```r
  lines(c(d[5,30:52], d[5,1:29]), type="l", col="purple", lwd=1.5)
                                     ~^~
```
[R/CreatePlots.R:35:48:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L35) *style:* **Put spaces around all infix operators.**
```r
  lines(c(d[5,30:52], d[5,1:29]), type="l", col="purple", lwd=1.5)
                                              ~^~
```
[R/CreatePlots.R:35:62:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L35) *style:* **Put spaces around all infix operators.**
```r
  lines(c(d[5,30:52], d[5,1:29]), type="l", col="purple", lwd=1.5)
                                                            ~^~
```
[R/CreatePlots.R:36:15:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L36) *style:* **Commas should always have a space after.**
```r
  lines(c(d[6,30:52], d[6,1:29]), type="l", col="blue",lwd=1.5)
              ^
```
[R/CreatePlots.R:36:27:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L36) *style:* **Commas should always have a space after.**
```r
  lines(c(d[6,30:52], d[6,1:29]), type="l", col="blue",lwd=1.5)
                          ^
```
[R/CreatePlots.R:36:39:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L36) *style:* **Put spaces around all infix operators.**
```r
  lines(c(d[6,30:52], d[6,1:29]), type="l", col="blue",lwd=1.5)
                                     ~^~
```
[R/CreatePlots.R:36:48:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L36) *style:* **Put spaces around all infix operators.**
```r
  lines(c(d[6,30:52], d[6,1:29]), type="l", col="blue",lwd=1.5)
                                              ~^~
```
[R/CreatePlots.R:36:56:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L36) *style:* **Commas should always have a space after.**
```r
  lines(c(d[6,30:52], d[6,1:29]), type="l", col="blue",lwd=1.5)
                                                       ^
```
[R/CreatePlots.R:36:59:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L36) *style:* **Put spaces around all infix operators.**
```r
  lines(c(d[6,30:52], d[6,1:29]), type="l", col="blue",lwd=1.5)
                                                         ~^~
```
[R/CreatePlots.R:37:13:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L37) *style:* **Commas should always have a space after.**
```r
  lines(d[7,30:weeknow],type="l", col="black", lwd=2)
            ^
```
[R/CreatePlots.R:37:25:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L37) *style:* **Commas should always have a space after.**
```r
  lines(d[7,30:weeknow],type="l", col="black", lwd=2)
                        ^
```
[R/CreatePlots.R:37:29:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L37) *style:* **Put spaces around all infix operators.**
```r
  lines(d[7,30:weeknow],type="l", col="black", lwd=2)
                           ~^~
```
[R/CreatePlots.R:37:38:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L37) *style:* **Put spaces around all infix operators.**
```r
  lines(d[7,30:weeknow],type="l", col="black", lwd=2)
                                    ~^~
```
[R/CreatePlots.R:37:51:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L37) *style:* **Put spaces around all infix operators.**
```r
  lines(d[7,30:weeknow],type="l", col="black", lwd=2)
                                                 ~^~
```
[R/CreatePlots.R:40:4:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L40) *style:* **Put spaces around all infix operators.**
```r
  q<-axis(1, at=1:52, labels=Ukenummer,las=1,cex.axis=0.7)
  ~^~~
```
[R/CreatePlots.R:40:16:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L40) *style:* **Put spaces around all infix operators.**
```r
  q<-axis(1, at=1:52, labels=Ukenummer,las=1,cex.axis=0.7)
              ~^~
```
[R/CreatePlots.R:40:29:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L40) *style:* **Put spaces around all infix operators.**
```r
  q<-axis(1, at=1:52, labels=Ukenummer,las=1,cex.axis=0.7)
                           ~^~
```
[R/CreatePlots.R:40:40:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L40) *style:* **Commas should always have a space after.**
```r
  q<-axis(1, at=1:52, labels=Ukenummer,las=1,cex.axis=0.7)
                                       ^
```
[R/CreatePlots.R:40:43:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L40) *style:* **Put spaces around all infix operators.**
```r
  q<-axis(1, at=1:52, labels=Ukenummer,las=1,cex.axis=0.7)
                                         ~^~
```
[R/CreatePlots.R:40:46:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L40) *style:* **Commas should always have a space after.**
```r
  q<-axis(1, at=1:52, labels=Ukenummer,las=1,cex.axis=0.7)
                                             ^
```
[R/CreatePlots.R:40:54:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L40) *style:* **Put spaces around all infix operators.**
```r
  q<-axis(1, at=1:52, labels=Ukenummer,las=1,cex.axis=0.7)
                                                    ~^~
```
[R/CreatePlots.R:41:10:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L41) *style:* **Commas should always have a space after.**
```r
  axis(2,las=3, cex.axis=0.75)
         ^
```
[R/CreatePlots.R:41:13:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L41) *style:* **Put spaces around all infix operators.**
```r
  axis(2,las=3, cex.axis=0.75)
           ~^~
```
[R/CreatePlots.R:41:25:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L41) *style:* **Put spaces around all infix operators.**
```r
  axis(2,las=3, cex.axis=0.75)
                       ~^~
```
[R/CreatePlots.R:42:10:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L42) *style:* **Put spaces around all infix operators.**
```r
  box(lwd=1)
        ~^~
```
[R/CreatePlots.R:47:13:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L47) *style:* **Commas should always have a space after.**
```r
  text(23.5,0, "Jul/Nytt\u00E5r", col = "black", cex=0.75)
            ^
```
[R/CreatePlots.R:47:53:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L47) *style:* **Put spaces around all infix operators.**
```r
  text(23.5,0, "Jul/Nytt\u00E5r", col = "black", cex=0.75)
                                                   ~^~
```
[R/CreatePlots.R:48:11:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L48) *style:* **Commas should always have a space after.**
```r
  text(37,0, "P\u00E5ske", col = "black", cex=0.75)
          ^
```
[R/CreatePlots.R:48:46:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L48) *style:* **Put spaces around all infix operators.**
```r
  text(37,0, "P\u00E5ske", col = "black", cex=0.75)
                                            ~^~
```
[R/CreatePlots.R:50:1:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L50) *style:* **lines should not be more than 120 characters.**
```r
  q <-legend("topright", inset=.02,roundUpNice(yrange), legend=c("2013 / 2014", "2014 / 2015", "2015 / 2016", "2016 / 2017", "2017 / 2018", "2018 / 2019"),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/CreatePlots.R:50:5:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L50) *style:* **Put spaces around all infix operators.**
```r
  q <-legend("topright", inset=.02,roundUpNice(yrange), legend=c("2013 / 2014", "2014 / 2015", "2015 / 2016", "2016 / 2017", "2017 / 2018", "2018 / 2019"),
    ^~~
```
[R/CreatePlots.R:50:31:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L50) *style:* **Put spaces around all infix operators.**
```r
  q <-legend("topright", inset=.02,roundUpNice(yrange), legend=c("2013 / 2014", "2014 / 2015", "2015 / 2016", "2016 / 2017", "2017 / 2018", "2018 / 2019"),
                             ~^~
```
[R/CreatePlots.R:50:36:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L50) *style:* **Commas should always have a space after.**
```r
  q <-legend("topright", inset=.02,roundUpNice(yrange), legend=c("2013 / 2014", "2014 / 2015", "2015 / 2016", "2016 / 2017", "2017 / 2018", "2018 / 2019"),
                                   ^
```
[R/CreatePlots.R:50:63:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L50) *style:* **Put spaces around all infix operators.**
```r
  q <-legend("topright", inset=.02,roundUpNice(yrange), legend=c("2013 / 2014", "2014 / 2015", "2015 / 2016", "2016 / 2017", "2017 / 2018", "2018 / 2019"),
                                                             ~^~
```
[R/CreatePlots.R:51:17:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L51) *style:* **Put spaces around all infix operators.**
```r
             lty=1, col=c("green","red", "orange", "purple", "blue", "black"),
               ~^~
```
[R/CreatePlots.R:51:24:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L51) *style:* **Put spaces around all infix operators.**
```r
             lty=1, col=c("green","red", "orange", "purple", "blue", "black"),
                      ~^~
```
[R/CreatePlots.R:51:35:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L51) *style:* **Commas should always have a space after.**
```r
             lty=1, col=c("green","red", "orange", "purple", "blue", "black"),
                                  ^
```
[R/CreatePlots.R:52:17:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L52) *style:* **Put spaces around all infix operators.**
```r
             lwd=c(1.5, 1.5, 1.5, 1.5, 1.5, 1.5), cex=0.5,box.lty=1, box.lwd=1,text.font=1,seg.len=2)
               ~^~
```
[R/CreatePlots.R:52:54:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L52) *style:* **Put spaces around all infix operators.**
```r
             lwd=c(1.5, 1.5, 1.5, 1.5, 1.5, 1.5), cex=0.5,box.lty=1, box.lwd=1,text.font=1,seg.len=2)
                                                    ~^~
```
[R/CreatePlots.R:52:59:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L52) *style:* **Commas should always have a space after.**
```r
             lwd=c(1.5, 1.5, 1.5, 1.5, 1.5, 1.5), cex=0.5,box.lty=1, box.lwd=1,text.font=1,seg.len=2)
                                                          ^
```
[R/CreatePlots.R:52:66:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L52) *style:* **Put spaces around all infix operators.**
```r
             lwd=c(1.5, 1.5, 1.5, 1.5, 1.5, 1.5), cex=0.5,box.lty=1, box.lwd=1,text.font=1,seg.len=2)
                                                                ~^~
```
[R/CreatePlots.R:52:77:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L52) *style:* **Put spaces around all infix operators.**
```r
             lwd=c(1.5, 1.5, 1.5, 1.5, 1.5, 1.5), cex=0.5,box.lty=1, box.lwd=1,text.font=1,seg.len=2)
                                                                           ~^~
```
[R/CreatePlots.R:52:80:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L52) *style:* **Commas should always have a space after.**
```r
             lwd=c(1.5, 1.5, 1.5, 1.5, 1.5, 1.5), cex=0.5,box.lty=1, box.lwd=1,text.font=1,seg.len=2)
                                                                               ^
```
[R/CreatePlots.R:52:89:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L52) *style:* **Put spaces around all infix operators.**
```r
             lwd=c(1.5, 1.5, 1.5, 1.5, 1.5, 1.5), cex=0.5,box.lty=1, box.lwd=1,text.font=1,seg.len=2)
                                                                                ~^~
```
[R/CreatePlots.R:52:92:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L52) *style:* **Commas should always have a space after.**
```r
             lwd=c(1.5, 1.5, 1.5, 1.5, 1.5, 1.5), cex=0.5,box.lty=1, box.lwd=1,text.font=1,seg.len=2)
                                                                                ^
```
[R/CreatePlots.R:52:99:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L52) *style:* **Put spaces around all infix operators.**
```r
             lwd=c(1.5, 1.5, 1.5, 1.5, 1.5, 1.5), cex=0.5,box.lty=1, box.lwd=1,text.font=1,seg.len=2)
                                                                                ~^~
```
[R/CreatePlots.R:53:35:](https://github.com/folkehelseinstituttet/dashboards_sykdomspulspdf/blob/d84ad364723b6653d0e84c9a5447b9c2ee1c79e2/R/CreatePlots.R#L53) *style:* **Commas should always have a space after.**
```r
  mtext(title, outer = F, cex = 1,font=2,line = .5)
                                  ^
```


jFYI: Actually there is a saner way to achieve the same: https://github.com/tisba/dotfiles/commit/893519b8ec2116ae47f869739a0ca9f39355cfc7


Let's just call this 0.1.0 for now?


@Esophose Is the randomize option used? I can't seem to find it in the gui.


THATS GOIN BE A YIKES FROM ME
dear god i hope no one sees this cos fk if i know how to delete it ;_;


Closes #1


Ok, thanks for the feedback @SkySkimmer , I will add a note.


Zeile 73: Tage bis... passt ja dann, bis zum ... wäre falsch.
Ist das mit dem Variablen-String: Heute ist Bärbel's 7. Geburtstag?
Passt das jetzt auch noch, wenn man den englischen Originalstring lässt?


Just curious, what are the downsides of the `EConstr`-based setup as done now?


DeepCode analyzed this commit.
There is 1 new info report.

[Click](https://deepcode.ai/app/gh/garethdwyer/testprodo/231a0c3325d0058a837dd406f192e808cb65160f/garethdwyer/testprodo/15c6522bc5b74785a188e82b4280de79967e6bed/_/%2F/code/) to see more details.