[inst/src/RunProcess.R:1:59:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L1) *style:* **Put spaces around all infix operators.**
```r
fhi::DashboardInitialiseOpinionated("normomo", PACKAGE_DIR=".")
                                                         ~^~
```
[inst/src/RunProcess.R:6:4:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L6) *style:* **Commented code should be removed.**
```r
  #aggr <- readRDS("test.RDS")
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/src/RunProcess.R:9:31:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L9) *style:* **Commas should always have a space after.**
```r
  aggr <- aggr[order(aggr$wk),]
                              ^
```
[inst/src/RunProcess.R:12:28:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L12) *style:* **Commas should always have a space after.**
```r
  aggr <- aggr[-nrow(aggr),]
                           ^
```
[inst/src/RunProcess.R:15:65:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L15) *style:* **Put spaces around all infix operators.**
```r
  modellingWeeks <- modellingWeeks[modellingWeeks > min(aggr$wk)+MOMO::momoAttr$delayCorr*2]
                                                               ~^~
```
[inst/src/RunProcess.R:15:90:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L15) *style:* **Put spaces around all infix operators.**
```r
  modellingWeeks <- modellingWeeks[modellingWeeks > min(aggr$wk)+MOMO::momoAttr$delayCorr*2]
                                                                                ~^~
```
[inst/src/RunProcess.R:17:28:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L17) *style:* **Put spaces around all infix operators.**
```r
  aggr$sin52 <- sin(aggr$wk*2*pi/52.17857)
                          ~^~
```
[inst/src/RunProcess.R:17:30:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L17) *style:* **Put spaces around all infix operators.**
```r
  aggr$sin52 <- sin(aggr$wk*2*pi/52.17857)
                            ~^~
```
[inst/src/RunProcess.R:17:33:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L17) *style:* **Put spaces around all infix operators.**
```r
  aggr$sin52 <- sin(aggr$wk*2*pi/52.17857)
                               ~^~
```
[inst/src/RunProcess.R:18:28:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L18) *style:* **Put spaces around all infix operators.**
```r
  aggr$cos52 <- cos(aggr$wk*2*pi/52.17857)
                          ~^~
```
[inst/src/RunProcess.R:18:30:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L18) *style:* **Put spaces around all infix operators.**
```r
  aggr$cos52 <- cos(aggr$wk*2*pi/52.17857)
                            ~^~
```
[inst/src/RunProcess.R:18:33:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L18) *style:* **Put spaces around all infix operators.**
```r
  aggr$cos52 <- cos(aggr$wk*2*pi/52.17857)
                               ~^~
```
[inst/src/RunProcess.R:20:28:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L20) *style:* **Put spaces around all infix operators.**
```r
  aggr$sin26 <- sin(aggr$wk*2*pi/26)
                          ~^~
```
[inst/src/RunProcess.R:20:30:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L20) *style:* **Put spaces around all infix operators.**
```r
  aggr$sin26 <- sin(aggr$wk*2*pi/26)
                            ~^~
```
[inst/src/RunProcess.R:20:33:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L20) *style:* **Put spaces around all infix operators.**
```r
  aggr$sin26 <- sin(aggr$wk*2*pi/26)
                               ~^~
```
[inst/src/RunProcess.R:21:28:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L21) *style:* **Put spaces around all infix operators.**
```r
  aggr$cos26 <- cos(aggr$wk*2*pi/26)
                          ~^~
```
[inst/src/RunProcess.R:21:30:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L21) *style:* **Put spaces around all infix operators.**
```r
  aggr$cos26 <- cos(aggr$wk*2*pi/26)
                            ~^~
```
[inst/src/RunProcess.R:21:33:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L21) *style:* **Put spaces around all infix operators.**
```r
  aggr$cos26 <- cos(aggr$wk*2*pi/26)
                               ~^~
```
[inst/src/RunProcess.R:23:9:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L23) *style:* **Commas should always have a space after.**
```r
  aggr[,diff_WR1_minus_WR0:=WR1-WR0]
        ^
```
[inst/src/RunProcess.R:23:27:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L23) *style:* **Put spaces around all infix operators.**
```r
  aggr[,diff_WR1_minus_WR0:=WR1-WR0]
                         ~^~~
```
[inst/src/RunProcess.R:23:32:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L23) *style:* **Put spaces around all infix operators.**
```r
  aggr[,diff_WR1_minus_WR0:=WR1-WR0]
                              ~^~
```
[inst/src/RunProcess.R:28:9:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L28) *style:* **Commas should always have a space after.**
```r
  aggr[,modellingYear:=YoDi]
        ^
```
[inst/src/RunProcess.R:28:22:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L28) *style:* **Put spaces around all infix operators.**
```r
  aggr[,modellingYear:=YoDi]
                    ~^~~
```
[inst/src/RunProcess.R:29:4:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L29) *style:* **Commented code should be removed.**
```r
  #print(xtabs(~aggr$modellingYear))
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/src/RunProcess.R:30:51:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L30) *style:* **Commas should always have a space after.**
```r
  minYear <- min(aggr[aggr$wk %in% modellingWeeks,]$YoDi)
                                                  ^
```
[inst/src/RunProcess.R:31:51:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L31) *style:* **Commas should always have a space after.**
```r
  maxYear <- max(aggr[aggr$wk %in% modellingWeeks,]$YoDi)
                                                  ^
```
[inst/src/RunProcess.R:32:4:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L32) *style:* **Commented code should be removed.**
```r
  #aggr[YoDi<=minYear,modellingYear:=minYear+1]
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/src/RunProcess.R:33:4:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L33) *style:* **Commented code should be removed.**
```r
  #aggr[YoDi>=maxYear,modellingYear:=maxYear-1]
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/src/RunProcess.R:34:9:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L34) *style:* **Commas should always have a space after.**
```r
  aggr[,modellingYear:=modellingYear-2000]
        ^
```
[inst/src/RunProcess.R:34:22:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L34) *style:* **Put spaces around all infix operators.**
```r
  aggr[,modellingYear:=modellingYear-2000]
                    ~^~~
```
[inst/src/RunProcess.R:34:37:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L34) *style:* **Put spaces around all infix operators.**
```r
  aggr[,modellingYear:=modellingYear-2000]
                                   ~^~
```
[inst/src/RunProcess.R:36:9:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L36) *style:* **Commas should always have a space after.**
```r
  aggr[,summer:=WoDi %in% 21:39]
        ^
```
[inst/src/RunProcess.R:36:15:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L36) *style:* **Put spaces around all infix operators.**
```r
  aggr[,summer:=WoDi %in% 21:39]
             ~^~~
```
[inst/src/RunProcess.R:37:12:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L37) *style:* **Put spaces around all infix operators.**
```r
  aggr[YoDi>=maxYear,modellingYear:=maxYear-1]
          ~^~~
```
[inst/src/RunProcess.R:37:22:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L37) *style:* **Commas should always have a space after.**
```r
  aggr[YoDi>=maxYear,modellingYear:=maxYear-1]
                     ^
```
[inst/src/RunProcess.R:37:35:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L37) *style:* **Put spaces around all infix operators.**
```r
  aggr[YoDi>=maxYear,modellingYear:=maxYear-1]
                                 ~^~~
```
[inst/src/RunProcess.R:37:44:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L37) *style:* **Put spaces around all infix operators.**
```r
  aggr[YoDi>=maxYear,modellingYear:=maxYear-1]
                                          ~^~
```
[inst/src/RunProcess.R:39:6:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L39) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  for(r in MOMO::momoAttr$delayCorr:0){
     ^
```
[inst/src/RunProcess.R:40:6:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L40) *style:* **Commented code should be removed.**
```r
    #print(r)
     ^~~~~~~~
```
[inst/src/RunProcess.R:41:11:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L41) *style:* **Commas should always have a space after.**
```r
    aggr[,CCC:=shift(closed,n=r)]
          ^
```
[inst/src/RunProcess.R:41:14:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L41) *style:* **Put spaces around all infix operators.**
```r
    aggr[,CCC:=shift(closed,n=r)]
            ~^~~
```
[inst/src/RunProcess.R:41:29:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L41) *style:* **Commas should always have a space after.**
```r
    aggr[,CCC:=shift(closed,n=r)]
                            ^
```
[inst/src/RunProcess.R:41:30:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L41) *style:* **Put spaces around all infix operators.**
```r
    aggr[,CCC:=shift(closed,n=r)]
                            ~^~
```
[inst/src/RunProcess.R:42:11:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L42) *style:* **Commas should always have a space after.**
```r
    aggr[,a:=get(sprintf("WR%s",r))/nb]
          ^
```
[inst/src/RunProcess.R:42:12:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L42) *style:* **Put spaces around all infix operators.**
```r
    aggr[,a:=get(sprintf("WR%s",r))/nb]
          ~^~~
```
[inst/src/RunProcess.R:42:33:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L42) *style:* **Commas should always have a space after.**
```r
    aggr[,a:=get(sprintf("WR%s",r))/nb]
                                ^
```
[inst/src/RunProcess.R:42:36:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L42) *style:* **Put spaces around all infix operators.**
```r
    aggr[,a:=get(sprintf("WR%s",r))/nb]
                                  ~^~
```
[inst/src/RunProcess.R:43:11:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L43) *style:* **Commas should always have a space after.**
```r
    aggr[,perc:=get(sprintf("WR%s",r))/nbr]
          ^
```
[inst/src/RunProcess.R:43:15:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L43) *style:* **Put spaces around all infix operators.**
```r
    aggr[,perc:=get(sprintf("WR%s",r))/nbr]
             ~^~~
```
[inst/src/RunProcess.R:43:36:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L43) *style:* **Commas should always have a space after.**
```r
    aggr[,perc:=get(sprintf("WR%s",r))/nbr]
                                   ^
```
[inst/src/RunProcess.R:43:39:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L43) *style:* **Put spaces around all infix operators.**
```r
    aggr[,perc:=get(sprintf("WR%s",r))/nbr]
                                     ~^~
```
[inst/src/RunProcess.R:45:7:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L45) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(r< (MOMO::momoAttr$delayCorr)){
      ^
```
[inst/src/RunProcess.R:45:9:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L45) *style:* **Put spaces around all infix operators.**
```r
    if(r< (MOMO::momoAttr$delayCorr)){
       ~^
```
[inst/src/RunProcess.R:46:13:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L46) *style:* **Commas should always have a space after.**
```r
      aggr[,shifted1:=shift(get(sprintf("pred%s",r+1)),n=1)]
            ^
```
[inst/src/RunProcess.R:46:21:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L46) *style:* **Put spaces around all infix operators.**
```r
      aggr[,shifted1:=shift(get(sprintf("pred%s",r+1)),n=1)]
                   ~^~~
```
[inst/src/RunProcess.R:46:50:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L46) *style:* **Commas should always have a space after.**
```r
      aggr[,shifted1:=shift(get(sprintf("pred%s",r+1)),n=1)]
                                                 ^
```
[inst/src/RunProcess.R:46:51:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L46) *style:* **Put spaces around all infix operators.**
```r
      aggr[,shifted1:=shift(get(sprintf("pred%s",r+1)),n=1)]
                                                 ~^~
```
[inst/src/RunProcess.R:46:56:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L46) *style:* **Commas should always have a space after.**
```r
      aggr[,shifted1:=shift(get(sprintf("pred%s",r+1)),n=1)]
                                                       ^
```
[inst/src/RunProcess.R:46:57:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L46) *style:* **Put spaces around all infix operators.**
```r
      aggr[,shifted1:=shift(get(sprintf("pred%s",r+1)),n=1)]
                                                       ~^~
```
[inst/src/RunProcess.R:48:7:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L48) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(r< (MOMO::momoAttr$delayCorr-1)){
      ^
```
[inst/src/RunProcess.R:48:9:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L48) *style:* **Put spaces around all infix operators.**
```r
    if(r< (MOMO::momoAttr$delayCorr-1)){
       ~^
```
[inst/src/RunProcess.R:48:36:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L48) *style:* **Put spaces around all infix operators.**
```r
    if(r< (MOMO::momoAttr$delayCorr-1)){
                                  ~^~
```
[inst/src/RunProcess.R:49:13:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L49) *style:* **Commas should always have a space after.**
```r
      aggr[,shifted2:=shift(get(sprintf("pred%s",r+2)),n=2)]
            ^
```
[inst/src/RunProcess.R:49:21:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L49) *style:* **Put spaces around all infix operators.**
```r
      aggr[,shifted2:=shift(get(sprintf("pred%s",r+2)),n=2)]
                   ~^~~
```
[inst/src/RunProcess.R:49:50:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L49) *style:* **Commas should always have a space after.**
```r
      aggr[,shifted2:=shift(get(sprintf("pred%s",r+2)),n=2)]
                                                 ^
```
[inst/src/RunProcess.R:49:51:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L49) *style:* **Put spaces around all infix operators.**
```r
      aggr[,shifted2:=shift(get(sprintf("pred%s",r+2)),n=2)]
                                                 ~^~
```
[inst/src/RunProcess.R:49:56:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L49) *style:* **Commas should always have a space after.**
```r
      aggr[,shifted2:=shift(get(sprintf("pred%s",r+2)),n=2)]
                                                       ^
```
[inst/src/RunProcess.R:49:57:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L49) *style:* **Put spaces around all infix operators.**
```r
      aggr[,shifted2:=shift(get(sprintf("pred%s",r+2)),n=2)]
                                                       ~^~
```
[inst/src/RunProcess.R:52:7:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L52) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(r==0){
      ^
```
[inst/src/RunProcess.R:52:9:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L52) *style:* **Put spaces around all infix operators.**
```r
    if(r==0){
       ~^~~
```
[inst/src/RunProcess.R:56:40:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L56) *style:* **Put spaces around all infix operators.**
```r
      fit <- glm(as.formula(form), data=aggr[aggr$wk %in% modellingWeeks,], family=poisson)
                                      ~^~
```
[inst/src/RunProcess.R:56:74:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L56) *style:* **Commas should always have a space after.**
```r
      fit <- glm(as.formula(form), data=aggr[aggr$wk %in% modellingWeeks,], family=poisson)
                                                                         ^
```
[inst/src/RunProcess.R:56:83:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L56) *style:* **Put spaces around all infix operators.**
```r
      fit <- glm(as.formula(form), data=aggr[aggr$wk %in% modellingWeeks,], family=poisson)
                                                                                ~^~
```
[inst/src/RunProcess.R:57:19:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L57) *style:* **Commas should always have a space after.**
```r
      od <- max(1,sum(fit$weights * fit$residuals^2)/fit$df.r)
                  ^
```
[inst/src/RunProcess.R:57:50:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L57) *style:* **Put spaces around all infix operators.**
```r
      od <- max(1,sum(fit$weights * fit$residuals^2)/fit$df.r)
                                                ~^~
```
[inst/src/RunProcess.R:57:53:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L57) *style:* **Put spaces around all infix operators.**
```r
      od <- max(1,sum(fit$weights * fit$residuals^2)/fit$df.r)
                                                   ~^~
```
[inst/src/RunProcess.R:58:47:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L58) *style:* **Commas should always have a space after.**
```r
      if (od > 1) fit <- glm(as.formula(form),data=aggr[aggr$wk %in% modellingWeeks,], family=quasipoisson)
                                              ^
```
[inst/src/RunProcess.R:58:51:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L58) *style:* **Put spaces around all infix operators.**
```r
      if (od > 1) fit <- glm(as.formula(form),data=aggr[aggr$wk %in% modellingWeeks,], family=quasipoisson)
                                                 ~^~
```
[inst/src/RunProcess.R:58:85:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L58) *style:* **Commas should always have a space after.**
```r
      if (od > 1) fit <- glm(as.formula(form),data=aggr[aggr$wk %in% modellingWeeks,], family=quasipoisson)
                                                                                ^
```
[inst/src/RunProcess.R:58:94:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L58) *style:* **Put spaces around all infix operators.**
```r
      if (od > 1) fit <- glm(as.formula(form),data=aggr[aggr$wk %in% modellingWeeks,], family=quasipoisson)
                                                                                ~^~
```
[inst/src/RunProcess.R:59:8:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L59) *style:* **Commented code should be removed.**
```r
      #print(summary(fit))
       ^~~~~~~~~~~~~~~~~~~
```
[inst/src/RunProcess.R:60:24:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L60) *style:* **Commas should always have a space after.**
```r
      p <- predict(fit,aggr, type="response")
                       ^
```
[inst/src/RunProcess.R:60:34:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L60) *style:* **Put spaces around all infix operators.**
```r
      p <- predict(fit,aggr, type="response")
                                ~^~
```
[inst/src/RunProcess.R:61:9:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L61) *style:* **Place a space before left parenthesis, except in a function call.**
```r
      if(!fit$converged | max(p,na.rm=T)>(max(aggr$nb,na.rm=T)*1.5) | min(p,na.rm=T)<(min(aggr$nb,na.rm=T)/1.5)){
        ^
```
[inst/src/RunProcess.R:61:33:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L61) *style:* **Commas should always have a space after.**
```r
      if(!fit$converged | max(p,na.rm=T)>(max(aggr$nb,na.rm=T)*1.5) | min(p,na.rm=T)<(min(aggr$nb,na.rm=T)/1.5)){
                                ^
```
[inst/src/RunProcess.R:61:38:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L61) *style:* **Put spaces around all infix operators.**
```r
      if(!fit$converged | max(p,na.rm=T)>(max(aggr$nb,na.rm=T)*1.5) | min(p,na.rm=T)<(min(aggr$nb,na.rm=T)/1.5)){
                                    ~^~
```
[inst/src/RunProcess.R:61:41:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L61) *style:* **Put spaces around all infix operators.**
```r
      if(!fit$converged | max(p,na.rm=T)>(max(aggr$nb,na.rm=T)*1.5) | min(p,na.rm=T)<(min(aggr$nb,na.rm=T)/1.5)){
                                       ~^~
```
[inst/src/RunProcess.R:61:42:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L61) *style:* **Place a space before left parenthesis, except in a function call.**
```r
      if(!fit$converged | max(p,na.rm=T)>(max(aggr$nb,na.rm=T)*1.5) | min(p,na.rm=T)<(min(aggr$nb,na.rm=T)/1.5)){
                                         ^
```
[inst/src/RunProcess.R:61:55:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L61) *style:* **Commas should always have a space after.**
```r
      if(!fit$converged | max(p,na.rm=T)>(max(aggr$nb,na.rm=T)*1.5) | min(p,na.rm=T)<(min(aggr$nb,na.rm=T)/1.5)){
                                                      ^
```
[inst/src/RunProcess.R:61:60:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L61) *style:* **Put spaces around all infix operators.**
```r
      if(!fit$converged | max(p,na.rm=T)>(max(aggr$nb,na.rm=T)*1.5) | min(p,na.rm=T)<(min(aggr$nb,na.rm=T)/1.5)){
                                                          ~^~
```
[inst/src/RunProcess.R:61:63:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L61) *style:* **Put spaces around all infix operators.**
```r
      if(!fit$converged | max(p,na.rm=T)>(max(aggr$nb,na.rm=T)*1.5) | min(p,na.rm=T)<(min(aggr$nb,na.rm=T)/1.5)){
                                                             ~^~
```
[inst/src/RunProcess.R:61:77:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L61) *style:* **Commas should always have a space after.**
```r
      if(!fit$converged | max(p,na.rm=T)>(max(aggr$nb,na.rm=T)*1.5) | min(p,na.rm=T)<(min(aggr$nb,na.rm=T)/1.5)){
                                                                            ^
```
[inst/src/RunProcess.R:61:82:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L61) *style:* **Put spaces around all infix operators.**
```r
      if(!fit$converged | max(p,na.rm=T)>(max(aggr$nb,na.rm=T)*1.5) | min(p,na.rm=T)<(min(aggr$nb,na.rm=T)/1.5)){
                                                                                ~^~
```
[inst/src/RunProcess.R:61:85:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L61) *style:* **Put spaces around all infix operators.**
```r
      if(!fit$converged | max(p,na.rm=T)>(max(aggr$nb,na.rm=T)*1.5) | min(p,na.rm=T)<(min(aggr$nb,na.rm=T)/1.5)){
                                                                                ~^~
```
[inst/src/RunProcess.R:61:86:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L61) *style:* **Place a space before left parenthesis, except in a function call.**
```r
      if(!fit$converged | max(p,na.rm=T)>(max(aggr$nb,na.rm=T)*1.5) | min(p,na.rm=T)<(min(aggr$nb,na.rm=T)/1.5)){
                                                                                ^
```
[inst/src/RunProcess.R:61:99:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L61) *style:* **Commas should always have a space after.**
```r
      if(!fit$converged | max(p,na.rm=T)>(max(aggr$nb,na.rm=T)*1.5) | min(p,na.rm=T)<(min(aggr$nb,na.rm=T)/1.5)){
                                                                                ^
```
[inst/src/RunProcess.R:61:104:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L61) *style:* **Put spaces around all infix operators.**
```r
      if(!fit$converged | max(p,na.rm=T)>(max(aggr$nb,na.rm=T)*1.5) | min(p,na.rm=T)<(min(aggr$nb,na.rm=T)/1.5)){
                                                                                ~^~
```
[inst/src/RunProcess.R:61:107:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L61) *style:* **Put spaces around all infix operators.**
```r
      if(!fit$converged | max(p,na.rm=T)>(max(aggr$nb,na.rm=T)*1.5) | min(p,na.rm=T)<(min(aggr$nb,na.rm=T)/1.5)){
                                                                                ~^~
```
[inst/src/RunProcess.R:63:45:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L63) *style:* **Put spaces around all infix operators.**
```r
        fit <- glm(as.formula(formLow), data=aggr[aggr$wk %in% modellingWeeks,], family=poisson)
                                           ~^~
```
[inst/src/RunProcess.R:63:79:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L63) *style:* **Commas should always have a space after.**
```r
        fit <- glm(as.formula(formLow), data=aggr[aggr$wk %in% modellingWeeks,], family=poisson)
                                                                              ^
```
[inst/src/RunProcess.R:63:88:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L63) *style:* **Put spaces around all infix operators.**
```r
        fit <- glm(as.formula(formLow), data=aggr[aggr$wk %in% modellingWeeks,], family=poisson)
                                                                                ~^~
```
[inst/src/RunProcess.R:65:14:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L65) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    } else if(r==1){
             ^
```
[inst/src/RunProcess.R:65:16:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L65) *style:* **Put spaces around all infix operators.**
```r
    } else if(r==1){
              ~^~~
```
[inst/src/RunProcess.R:69:40:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L69) *style:* **Put spaces around all infix operators.**
```r
      fit <- glm(as.formula(form), data=aggr[aggr$wk %in% modellingWeeks,], family=poisson)
                                      ~^~
```
[inst/src/RunProcess.R:69:74:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L69) *style:* **Commas should always have a space after.**
```r
      fit <- glm(as.formula(form), data=aggr[aggr$wk %in% modellingWeeks,], family=poisson)
                                                                         ^
```
[inst/src/RunProcess.R:69:83:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L69) *style:* **Put spaces around all infix operators.**
```r
      fit <- glm(as.formula(form), data=aggr[aggr$wk %in% modellingWeeks,], family=poisson)
                                                                                ~^~
```
[inst/src/RunProcess.R:70:19:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L70) *style:* **Commas should always have a space after.**
```r
      od <- max(1,sum(fit$weights * fit$residuals^2)/fit$df.r)
                  ^
```
[inst/src/RunProcess.R:70:50:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L70) *style:* **Put spaces around all infix operators.**
```r
      od <- max(1,sum(fit$weights * fit$residuals^2)/fit$df.r)
                                                ~^~
```
[inst/src/RunProcess.R:70:53:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L70) *style:* **Put spaces around all infix operators.**
```r
      od <- max(1,sum(fit$weights * fit$residuals^2)/fit$df.r)
                                                   ~^~
```
[inst/src/RunProcess.R:71:47:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L71) *style:* **Commas should always have a space after.**
```r
      if (od > 1) fit <- glm(as.formula(form),data=aggr[aggr$wk %in% modellingWeeks,], family=quasipoisson)
                                              ^
```
[inst/src/RunProcess.R:71:51:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L71) *style:* **Put spaces around all infix operators.**
```r
      if (od > 1) fit <- glm(as.formula(form),data=aggr[aggr$wk %in% modellingWeeks,], family=quasipoisson)
                                                 ~^~
```
[inst/src/RunProcess.R:71:85:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L71) *style:* **Commas should always have a space after.**
```r
      if (od > 1) fit <- glm(as.formula(form),data=aggr[aggr$wk %in% modellingWeeks,], family=quasipoisson)
                                                                                ^
```
[inst/src/RunProcess.R:71:94:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L71) *style:* **Put spaces around all infix operators.**
```r
      if (od > 1) fit <- glm(as.formula(form),data=aggr[aggr$wk %in% modellingWeeks,], family=quasipoisson)
                                                                                ~^~
```
[inst/src/RunProcess.R:72:8:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L72) *style:* **Commented code should be removed.**
```r
      #print(summary(fit))
       ^~~~~~~~~~~~~~~~~~~
```
[inst/src/RunProcess.R:73:24:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L73) *style:* **Commas should always have a space after.**
```r
      p <- predict(fit,aggr, type="response")
                       ^
```
[inst/src/RunProcess.R:73:34:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L73) *style:* **Put spaces around all infix operators.**
```r
      p <- predict(fit,aggr, type="response")
                                ~^~
```
[inst/src/RunProcess.R:74:9:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L74) *style:* **Place a space before left parenthesis, except in a function call.**
```r
      if(!fit$converged | max(p,na.rm=T)>(max(aggr$nb,na.rm=T)*1.5) | min(p,na.rm=T)<(min(aggr$nb,na.rm=T)/1.5)){
        ^
```
[inst/src/RunProcess.R:74:33:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L74) *style:* **Commas should always have a space after.**
```r
      if(!fit$converged | max(p,na.rm=T)>(max(aggr$nb,na.rm=T)*1.5) | min(p,na.rm=T)<(min(aggr$nb,na.rm=T)/1.5)){
                                ^
```
[inst/src/RunProcess.R:74:38:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L74) *style:* **Put spaces around all infix operators.**
```r
      if(!fit$converged | max(p,na.rm=T)>(max(aggr$nb,na.rm=T)*1.5) | min(p,na.rm=T)<(min(aggr$nb,na.rm=T)/1.5)){
                                    ~^~
```
[inst/src/RunProcess.R:74:41:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L74) *style:* **Put spaces around all infix operators.**
```r
      if(!fit$converged | max(p,na.rm=T)>(max(aggr$nb,na.rm=T)*1.5) | min(p,na.rm=T)<(min(aggr$nb,na.rm=T)/1.5)){
                                       ~^~
```
[inst/src/RunProcess.R:74:42:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L74) *style:* **Place a space before left parenthesis, except in a function call.**
```r
      if(!fit$converged | max(p,na.rm=T)>(max(aggr$nb,na.rm=T)*1.5) | min(p,na.rm=T)<(min(aggr$nb,na.rm=T)/1.5)){
                                         ^
```
[inst/src/RunProcess.R:74:55:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L74) *style:* **Commas should always have a space after.**
```r
      if(!fit$converged | max(p,na.rm=T)>(max(aggr$nb,na.rm=T)*1.5) | min(p,na.rm=T)<(min(aggr$nb,na.rm=T)/1.5)){
                                                      ^
```
[inst/src/RunProcess.R:74:60:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L74) *style:* **Put spaces around all infix operators.**
```r
      if(!fit$converged | max(p,na.rm=T)>(max(aggr$nb,na.rm=T)*1.5) | min(p,na.rm=T)<(min(aggr$nb,na.rm=T)/1.5)){
                                                          ~^~
```
[inst/src/RunProcess.R:74:63:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L74) *style:* **Put spaces around all infix operators.**
```r
      if(!fit$converged | max(p,na.rm=T)>(max(aggr$nb,na.rm=T)*1.5) | min(p,na.rm=T)<(min(aggr$nb,na.rm=T)/1.5)){
                                                             ~^~
```
[inst/src/RunProcess.R:74:77:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L74) *style:* **Commas should always have a space after.**
```r
      if(!fit$converged | max(p,na.rm=T)>(max(aggr$nb,na.rm=T)*1.5) | min(p,na.rm=T)<(min(aggr$nb,na.rm=T)/1.5)){
                                                                            ^
```
[inst/src/RunProcess.R:74:82:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L74) *style:* **Put spaces around all infix operators.**
```r
      if(!fit$converged | max(p,na.rm=T)>(max(aggr$nb,na.rm=T)*1.5) | min(p,na.rm=T)<(min(aggr$nb,na.rm=T)/1.5)){
                                                                                ~^~
```
[inst/src/RunProcess.R:74:85:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L74) *style:* **Put spaces around all infix operators.**
```r
      if(!fit$converged | max(p,na.rm=T)>(max(aggr$nb,na.rm=T)*1.5) | min(p,na.rm=T)<(min(aggr$nb,na.rm=T)/1.5)){
                                                                                ~^~
```
[inst/src/RunProcess.R:74:86:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L74) *style:* **Place a space before left parenthesis, except in a function call.**
```r
      if(!fit$converged | max(p,na.rm=T)>(max(aggr$nb,na.rm=T)*1.5) | min(p,na.rm=T)<(min(aggr$nb,na.rm=T)/1.5)){
                                                                                ^
```
[inst/src/RunProcess.R:74:99:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L74) *style:* **Commas should always have a space after.**
```r
      if(!fit$converged | max(p,na.rm=T)>(max(aggr$nb,na.rm=T)*1.5) | min(p,na.rm=T)<(min(aggr$nb,na.rm=T)/1.5)){
                                                                                ^
```
[inst/src/RunProcess.R:74:104:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L74) *style:* **Put spaces around all infix operators.**
```r
      if(!fit$converged | max(p,na.rm=T)>(max(aggr$nb,na.rm=T)*1.5) | min(p,na.rm=T)<(min(aggr$nb,na.rm=T)/1.5)){
                                                                                ~^~
```
[inst/src/RunProcess.R:74:107:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L74) *style:* **Put spaces around all infix operators.**
```r
      if(!fit$converged | max(p,na.rm=T)>(max(aggr$nb,na.rm=T)*1.5) | min(p,na.rm=T)<(min(aggr$nb,na.rm=T)/1.5)){
                                                                                ~^~
```
[inst/src/RunProcess.R:76:45:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L76) *style:* **Put spaces around all infix operators.**
```r
        fit <- glm(as.formula(formLow), data=aggr[aggr$wk %in% modellingWeeks,], family=poisson)
                                           ~^~
```
[inst/src/RunProcess.R:76:79:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L76) *style:* **Commas should always have a space after.**
```r
        fit <- glm(as.formula(formLow), data=aggr[aggr$wk %in% modellingWeeks,], family=poisson)
                                                                              ^
```
[inst/src/RunProcess.R:76:88:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L76) *style:* **Put spaces around all infix operators.**
```r
        fit <- glm(as.formula(formLow), data=aggr[aggr$wk %in% modellingWeeks,], family=poisson)
                                                                                ~^~
```
[inst/src/RunProcess.R:81:46:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L81) *style:* **Commas should always have a space after.**
```r
      form <- sprintf("nb2 ~ WR%s + Pa + wk",r)
                                             ^
```
[inst/src/RunProcess.R:83:42:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L83) *style:* **Put spaces around all infix operators.**
```r
      fit1 <- glm(as.formula(form1), data=aggr[aggr$wk %in% modellingWeeks,], family=poisson)
                                        ~^~
```
[inst/src/RunProcess.R:83:76:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L83) *style:* **Commas should always have a space after.**
```r
      fit1 <- glm(as.formula(form1), data=aggr[aggr$wk %in% modellingWeeks,], family=poisson)
                                                                           ^
```
[inst/src/RunProcess.R:83:85:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L83) *style:* **Put spaces around all infix operators.**
```r
      fit1 <- glm(as.formula(form1), data=aggr[aggr$wk %in% modellingWeeks,], family=poisson)
                                                                                ~^~
```
[inst/src/RunProcess.R:84:25:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L84) *style:* **Commas should always have a space after.**
```r
      p <- predict(fit1,aggr, type="response")
                        ^
```
[inst/src/RunProcess.R:84:35:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L84) *style:* **Put spaces around all infix operators.**
```r
      p <- predict(fit1,aggr, type="response")
                                 ~^~
```
[inst/src/RunProcess.R:85:13:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L85) *style:* **Commas should always have a space after.**
```r
      aggr[,Pa:=p]
            ^
```
[inst/src/RunProcess.R:85:15:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L85) *style:* **Put spaces around all infix operators.**
```r
      aggr[,Pa:=p]
             ~^~~
```
[inst/src/RunProcess.R:87:40:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L87) *style:* **Put spaces around all infix operators.**
```r
      fit <- glm(as.formula(form), data=aggr[aggr$wk %in% modellingWeeks,], family=poisson)
                                      ~^~
```
[inst/src/RunProcess.R:87:74:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L87) *style:* **Commas should always have a space after.**
```r
      fit <- glm(as.formula(form), data=aggr[aggr$wk %in% modellingWeeks,], family=poisson)
                                                                         ^
```
[inst/src/RunProcess.R:87:83:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L87) *style:* **Put spaces around all infix operators.**
```r
      fit <- glm(as.formula(form), data=aggr[aggr$wk %in% modellingWeeks,], family=poisson)
                                                                                ~^~
```
[inst/src/RunProcess.R:88:19:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L88) *style:* **Commas should always have a space after.**
```r
      od <- max(1,sum(fit$weights * fit$residuals^2)/fit$df.r)
                  ^
```
[inst/src/RunProcess.R:88:50:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L88) *style:* **Put spaces around all infix operators.**
```r
      od <- max(1,sum(fit$weights * fit$residuals^2)/fit$df.r)
                                                ~^~
```
[inst/src/RunProcess.R:88:53:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L88) *style:* **Put spaces around all infix operators.**
```r
      od <- max(1,sum(fit$weights * fit$residuals^2)/fit$df.r)
                                                   ~^~
```
[inst/src/RunProcess.R:89:47:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L89) *style:* **Commas should always have a space after.**
```r
      if (od > 1) fit <- glm(as.formula(form),data=aggr[aggr$wk %in% modellingWeeks,], family=quasipoisson)
                                              ^
```
[inst/src/RunProcess.R:89:51:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L89) *style:* **Put spaces around all infix operators.**
```r
      if (od > 1) fit <- glm(as.formula(form),data=aggr[aggr$wk %in% modellingWeeks,], family=quasipoisson)
                                                 ~^~
```
[inst/src/RunProcess.R:89:85:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L89) *style:* **Commas should always have a space after.**
```r
      if (od > 1) fit <- glm(as.formula(form),data=aggr[aggr$wk %in% modellingWeeks,], family=quasipoisson)
                                                                                ^
```
[inst/src/RunProcess.R:89:94:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L89) *style:* **Put spaces around all infix operators.**
```r
      if (od > 1) fit <- glm(as.formula(form),data=aggr[aggr$wk %in% modellingWeeks,], family=quasipoisson)
                                                                                ~^~
```
[inst/src/RunProcess.R:92:22:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L92) *style:* **Commas should always have a space after.**
```r
    p <- predict(fit,aggr, type="response")
                     ^
```
[inst/src/RunProcess.R:92:32:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L92) *style:* **Put spaces around all infix operators.**
```r
    p <- predict(fit,aggr, type="response")
                              ~^~
```
[inst/src/RunProcess.R:93:11:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L93) *style:* **Commas should always have a space after.**
```r
    aggr[,(sprintf("pred%s",r)):=p]
          ^
```
[inst/src/RunProcess.R:93:11:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L93) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    aggr[,(sprintf("pred%s",r)):=p]
          ^
```
[inst/src/RunProcess.R:93:29:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L93) *style:* **Commas should always have a space after.**
```r
    aggr[,(sprintf("pred%s",r)):=p]
                            ^
```
[inst/src/RunProcess.R:93:32:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L93) *style:* **Put spaces around all infix operators.**
```r
    aggr[,(sprintf("pred%s",r)):=p]
                              ~^~~
```
[inst/src/RunProcess.R:95:22:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L95) *style:* **Commas should always have a space after.**
```r
    p <- predict(fit,aggr,se.fit=TRUE)$se.fit
                     ^
```
[inst/src/RunProcess.R:95:27:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L95) *style:* **Commas should always have a space after.**
```r
    p <- predict(fit,aggr,se.fit=TRUE)$se.fit
                          ^
```
[inst/src/RunProcess.R:95:33:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L95) *style:* **Put spaces around all infix operators.**
```r
    p <- predict(fit,aggr,se.fit=TRUE)$se.fit
                               ~^~
```
[inst/src/RunProcess.R:96:11:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L96) *style:* **Commas should always have a space after.**
```r
    aggr[,(sprintf("stdp%s",r)):=p]
          ^
```
[inst/src/RunProcess.R:96:11:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L96) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    aggr[,(sprintf("stdp%s",r)):=p]
          ^
```
[inst/src/RunProcess.R:96:29:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L96) *style:* **Commas should always have a space after.**
```r
    aggr[,(sprintf("stdp%s",r)):=p]
                            ^
```
[inst/src/RunProcess.R:96:32:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L96) *style:* **Put spaces around all infix operators.**
```r
    aggr[,(sprintf("stdp%s",r)):=p]
                              ~^~~
```
[inst/src/RunProcess.R:99:1:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L99) *style:* **lines should not be more than 120 characters.**
```r
    aggr[,(sprintf("VpWR%s",r)):=pmax(0,get(sprintf("pred%s",r))*od) + (get(sprintf("pred%s",r))*get(sprintf("stdp%s",r)))^2]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/src/RunProcess.R:99:11:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L99) *style:* **Commas should always have a space after.**
```r
    aggr[,(sprintf("VpWR%s",r)):=pmax(0,get(sprintf("pred%s",r))*od) + (get(sprintf("pred%s",r))*get(sprintf("stdp%s",r)))^2]
          ^
```
[inst/src/RunProcess.R:99:11:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L99) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    aggr[,(sprintf("VpWR%s",r)):=pmax(0,get(sprintf("pred%s",r))*od) + (get(sprintf("pred%s",r))*get(sprintf("stdp%s",r)))^2]
          ^
```
[inst/src/RunProcess.R:99:29:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L99) *style:* **Commas should always have a space after.**
```r
    aggr[,(sprintf("VpWR%s",r)):=pmax(0,get(sprintf("pred%s",r))*od) + (get(sprintf("pred%s",r))*get(sprintf("stdp%s",r)))^2]
                            ^
```
[inst/src/RunProcess.R:99:32:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L99) *style:* **Put spaces around all infix operators.**
```r
    aggr[,(sprintf("VpWR%s",r)):=pmax(0,get(sprintf("pred%s",r))*od) + (get(sprintf("pred%s",r))*get(sprintf("stdp%s",r)))^2]
                              ~^~~
```
[inst/src/RunProcess.R:99:41:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L99) *style:* **Commas should always have a space after.**
```r
    aggr[,(sprintf("VpWR%s",r)):=pmax(0,get(sprintf("pred%s",r))*od) + (get(sprintf("pred%s",r))*get(sprintf("stdp%s",r)))^2]
                                        ^
```
[inst/src/RunProcess.R:99:62:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L99) *style:* **Commas should always have a space after.**
```r
    aggr[,(sprintf("VpWR%s",r)):=pmax(0,get(sprintf("pred%s",r))*od) + (get(sprintf("pred%s",r))*get(sprintf("stdp%s",r)))^2]
                                                             ^
```
[inst/src/RunProcess.R:99:65:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L99) *style:* **Put spaces around all infix operators.**
```r
    aggr[,(sprintf("VpWR%s",r)):=pmax(0,get(sprintf("pred%s",r))*od) + (get(sprintf("pred%s",r))*get(sprintf("stdp%s",r)))^2]
                                                               ~^~
```
[inst/src/RunProcess.R:99:94:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L99) *style:* **Commas should always have a space after.**
```r
    aggr[,(sprintf("VpWR%s",r)):=pmax(0,get(sprintf("pred%s",r))*od) + (get(sprintf("pred%s",r))*get(sprintf("stdp%s",r)))^2]
                                                                                ^
```
[inst/src/RunProcess.R:99:97:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L99) *style:* **Put spaces around all infix operators.**
```r
    aggr[,(sprintf("VpWR%s",r)):=pmax(0,get(sprintf("pred%s",r))*od) + (get(sprintf("pred%s",r))*get(sprintf("stdp%s",r)))^2]
                                                                                ~^~
```
[inst/src/RunProcess.R:99:119:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L99) *style:* **Commas should always have a space after.**
```r
    aggr[,(sprintf("VpWR%s",r)):=pmax(0,get(sprintf("pred%s",r))*od) + (get(sprintf("pred%s",r))*get(sprintf("stdp%s",r)))^2]
                                                                                ^
```
[inst/src/RunProcess.R:99:123:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L99) *style:* **Put spaces around all infix operators.**
```r
    aggr[,(sprintf("VpWR%s",r)):=pmax(0,get(sprintf("pred%s",r))*od) + (get(sprintf("pred%s",r))*get(sprintf("stdp%s",r)))^2]
                                                                                ~^~
```
[inst/src/RunProcess.R:101:31:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L101) *style:* **Commas should always have a space after.**
```r
    UPIvar <- sprintf("UPI%s",r)
                              ^
```
[inst/src/RunProcess.R:102:31:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L102) *style:* **Commas should always have a space after.**
```r
    LPIvar <- sprintf("LPI%s",r)
                              ^
```
[inst/src/RunProcess.R:104:31:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L104) *style:* **Commas should always have a space after.**
```r
    UCIvar <- sprintf("UCI%s",r)
                              ^
```
[inst/src/RunProcess.R:105:31:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L105) *style:* **Commas should always have a space after.**
```r
    LCIvar <- sprintf("LCI%s",r)
                              ^
```
[inst/src/RunProcess.R:107:11:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L107) *style:* **Commas should always have a space after.**
```r
    aggr[,(UPIvar):=as.numeric(NA)]
          ^
```
[inst/src/RunProcess.R:107:11:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L107) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    aggr[,(UPIvar):=as.numeric(NA)]
          ^
```
[inst/src/RunProcess.R:107:19:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L107) *style:* **Put spaces around all infix operators.**
```r
    aggr[,(UPIvar):=as.numeric(NA)]
                 ~^~~
```
[inst/src/RunProcess.R:108:11:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L108) *style:* **Commas should always have a space after.**
```r
    aggr[,(LPIvar):=as.numeric(NA)]
          ^
```
[inst/src/RunProcess.R:108:11:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L108) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    aggr[,(LPIvar):=as.numeric(NA)]
          ^
```
[inst/src/RunProcess.R:108:19:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L108) *style:* **Put spaces around all infix operators.**
```r
    aggr[,(LPIvar):=as.numeric(NA)]
                 ~^~~
```
[inst/src/RunProcess.R:110:11:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L110) *style:* **Commas should always have a space after.**
```r
    aggr[,(UCIvar):=as.numeric(NA)]
          ^
```
[inst/src/RunProcess.R:110:11:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L110) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    aggr[,(UCIvar):=as.numeric(NA)]
          ^
```
[inst/src/RunProcess.R:110:19:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L110) *style:* **Put spaces around all infix operators.**
```r
    aggr[,(UCIvar):=as.numeric(NA)]
                 ~^~~
```
[inst/src/RunProcess.R:111:11:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/0ad4dd1cc43d780d9884719e50b6f1bcdfc7ce1b/inst/src/RunProcess.R#L111) *style:* **Commas should always have a space after.**
```r
    aggr[,(LCIvar):=as.numeric(NA)]
          ^
```


Removed `template()` . Using `cradle-system` template function instead.