[inst/src/RunProcess.R:1:59:](https://github.com/folkehelseinstituttet/dashboards_normomo/blob/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/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/e0ac1f0c84c15c4505798adeee7a2660be6633c8/inst/src/RunProcess.R#L111) *style:* **Commas should always have a space after.**
```r
    aggr[,(LCIvar):=as.numeric(NA)]
          ^
```


Placeholder neerzetten


Thank you very much for the update. Just tried it with local discovery and connected to St 14.51 successfully from my phone. I can't upload files as this is stuck on 0% and editing is - intentionally? - not possible when I click on a jpg file to open it through the lite provider.
I'll follow the development of St lite again because of you're great work :-)!


But in P_RemoveThinkerDelayed() the next thinker is set *before* the current thinker is freed. (This is Killough code anyway from PrBoom+, etc.)


You can add "from fen" constructor to ChessBoard (and also `ChessBoard() = default`).
Then you can do `static const ChessBoard kStartBoartPos(ChessBoard::kStartingFen)` inside `EncodePositionForNN` (static initialization is guaranteed to work correctly in multithread environment).

*(I still think though that it's fine just to enable it always and not have any complications)*


But the local variable th is still pointing to the memory that was freed in the function.


хахаха е добре :+1:


[inst/src/RunProcess.R:4:16:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls_log/blob/86ce089abf1e8ac636456ea3dfc99d1682cb4cc1/inst/src/RunProcess.R#L4) *error:* **unexpected symbol**
```r
  PACKAGE_DIR=".")
               ^
```
[inst/src/RunProcess.R:138:1:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls_log/blob/86ce089abf1e8ac636456ea3dfc99d1682cb4cc1/inst/src/RunProcess.R#L138) *style:* **Trailing blank lines are superfluous.**
```r

^
```
[inst/src/RunTest.R:1:14:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls_log/blob/86ce089abf1e8ac636456ea3dfc99d1682cb4cc1/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_sykdomspuls_log/blob/86ce089abf1e8ac636456ea3dfc99d1682cb4cc1/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_sykdomspuls_log/blob/86ce089abf1e8ac636456ea3dfc99d1682cb4cc1/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_sykdomspuls_log/blob/86ce089abf1e8ac636456ea3dfc99d1682cb4cc1/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_sykdomspuls_log/blob/86ce089abf1e8ac636456ea3dfc99d1682cb4cc1/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_sykdomspuls_log/blob/86ce089abf1e8ac636456ea3dfc99d1682cb4cc1/inst/src/RunTest.R#L6) *style:* **Place a space before left parenthesis, except in a function call.**
```r
for(baseFolder in c("/results","/data_app")){
   ^
```
[inst/src/RunTest.R:6:22:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls_log/blob/86ce089abf1e8ac636456ea3dfc99d1682cb4cc1/inst/src/RunTest.R#L6) *warning:* **Do not use absolute paths.**
```r
for(baseFolder in c("/results","/data_app")){
                     ^~~~~~~~
```
[inst/src/RunTest.R:6:32:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls_log/blob/86ce089abf1e8ac636456ea3dfc99d1682cb4cc1/inst/src/RunTest.R#L6) *style:* **Commas should always have a space after.**
```r
for(baseFolder in c("/results","/data_app")){
                               ^
```
[inst/src/RunTest.R:6:33:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls_log/blob/86ce089abf1e8ac636456ea3dfc99d1682cb4cc1/inst/src/RunTest.R#L6) *warning:* **Do not use absolute paths.**
```r
for(baseFolder in c("/results","/data_app")){
                                ^~~~~~~~~
```
[inst/src/RunTest.R:7:44:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls_log/blob/86ce089abf1e8ac636456ea3dfc99d1682cb4cc1/inst/src/RunTest.R#L7) *style:* **Commas should always have a space after.**
```r
  files <- list.files(file.path(baseFolder,"sykdomspuls_log"))
                                           ^
```
[inst/src/RunTest.R:8:5:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls_log/blob/86ce089abf1e8ac636456ea3dfc99d1682cb4cc1/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_sykdomspuls_log/blob/86ce089abf1e8ac636456ea3dfc99d1682cb4cc1/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_sykdomspuls_log/blob/86ce089abf1e8ac636456ea3dfc99d1682cb4cc1/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_log",f))
       ^
```
[inst/src/RunTest.R:9:49:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls_log/blob/86ce089abf1e8ac636456ea3dfc99d1682cb4cc1/inst/src/RunTest.R#L9) *style:* **Commas should always have a space after.**
```r
    for(f in files) unlink(file.path(baseFolder,"sykdomspuls_log",f))
                                                ^
```
[inst/src/RunTest.R:9:67:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls_log/blob/86ce089abf1e8ac636456ea3dfc99d1682cb4cc1/inst/src/RunTest.R#L9) *style:* **Commas should always have a space after.**
```r
    for(f in files) unlink(file.path(baseFolder,"sykdomspuls_log",f))
                                                                  ^
```
[inst/src/RunTest.R:13:19:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls_log/blob/86ce089abf1e8ac636456ea3dfc99d1682cb4cc1/inst/src/RunTest.R#L13) *warning:* **Do not use absolute paths.**
```r
unlink(file.path("/junit","sykdomspuls_log.xml"))
                  ^~~~~~
```
[inst/src/RunTest.R:13:27:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls_log/blob/86ce089abf1e8ac636456ea3dfc99d1682cb4cc1/inst/src/RunTest.R#L13) *style:* **Commas should always have a space after.**
```r
unlink(file.path("/junit","sykdomspuls_log.xml"))
                          ^
```
[inst/src/RunTest.R:18:26:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls_log/blob/86ce089abf1e8ac636456ea3dfc99d1682cb4cc1/inst/src/RunTest.R#L18) *warning:* **Do not use absolute paths.**
```r
a$out <- file(file.path("/junit","sykdomspuls_log.xml"), "w+")
                         ^~~~~~
```
[inst/src/RunTest.R:18:34:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls_log/blob/86ce089abf1e8ac636456ea3dfc99d1682cb4cc1/inst/src/RunTest.R#L18) *style:* **Commas should always have a space after.**
```r
a$out <- file(file.path("/junit","sykdomspuls_log.xml"), "w+")
                                 ^
```
[inst/src/RunTest.R:21:35:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls_log/blob/86ce089abf1e8ac636456ea3dfc99d1682cb4cc1/inst/src/RunTest.R#L21) *style:* **Commas should always have a space after.**
```r
output <- processx::run("Rscript","/r/sykdomspuls_log/src/RunProcess.R", error_on_status=F, echo=T)
                                  ^
```
[inst/src/RunTest.R:21:36:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls_log/blob/86ce089abf1e8ac636456ea3dfc99d1682cb4cc1/inst/src/RunTest.R#L21) *warning:* **Do not use absolute paths.**
```r
output <- processx::run("Rscript","/r/sykdomspuls_log/src/RunProcess.R", error_on_status=F, echo=T)
                                   ^~
```
[inst/src/RunTest.R:21:89:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls_log/blob/86ce089abf1e8ac636456ea3dfc99d1682cb4cc1/inst/src/RunTest.R#L21) *style:* **Put spaces around all infix operators.**
```r
output <- processx::run("Rscript","/r/sykdomspuls_log/src/RunProcess.R", error_on_status=F, echo=T)
                                                                                ~^~
```
[inst/src/RunTest.R:21:97:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls_log/blob/86ce089abf1e8ac636456ea3dfc99d1682cb4cc1/inst/src/RunTest.R#L21) *style:* **Put spaces around all infix operators.**
```r
output <- processx::run("Rscript","/r/sykdomspuls_log/src/RunProcess.R", error_on_status=F, echo=T)
                                                                                ~^~
```
[inst/src/RunTest.R:27:3:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls_log/blob/86ce089abf1e8ac636456ea3dfc99d1682cb4cc1/inst/src/RunTest.R#L27) *style:* **Place a space before left parenthesis, except in a function call.**
```r
if(output$status==0){
  ^
```
[inst/src/RunTest.R:27:17:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls_log/blob/86ce089abf1e8ac636456ea3dfc99d1682cb4cc1/inst/src/RunTest.R#L27) *style:* **Put spaces around all infix operators.**
```r
if(output$status==0){
               ~^~~
```
[inst/src/RunTest.R:28:34:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls_log/blob/86ce089abf1e8ac636456ea3dfc99d1682cb4cc1/inst/src/RunTest.R#L28) *style:* **Commas should always have a space after.**
```r
  a$add_result("sykdomspuls_log","RunAll",testthat::expectation("success","Pass"))
                                 ^
```
[inst/src/RunTest.R:28:43:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls_log/blob/86ce089abf1e8ac636456ea3dfc99d1682cb4cc1/inst/src/RunTest.R#L28) *style:* **Commas should always have a space after.**
```r
  a$add_result("sykdomspuls_log","RunAll",testthat::expectation("success","Pass"))
                                          ^
```
[inst/src/RunTest.R:28:75:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls_log/blob/86ce089abf1e8ac636456ea3dfc99d1682cb4cc1/inst/src/RunTest.R#L28) *style:* **Commas should always have a space after.**
```r
  a$add_result("sykdomspuls_log","RunAll",testthat::expectation("success","Pass"))
                                                                          ^
```
[inst/src/RunTest.R:30:34:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls_log/blob/86ce089abf1e8ac636456ea3dfc99d1682cb4cc1/inst/src/RunTest.R#L30) *style:* **Commas should always have a space after.**
```r
  a$add_result("sykdomspuls_log","RunAll",testthat::expectation("error","Fail"))
                                 ^
```
[inst/src/RunTest.R:30:43:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls_log/blob/86ce089abf1e8ac636456ea3dfc99d1682cb4cc1/inst/src/RunTest.R#L30) *style:* **Commas should always have a space after.**
```r
  a$add_result("sykdomspuls_log","RunAll",testthat::expectation("error","Fail"))
                                          ^
```
[inst/src/RunTest.R:30:73:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls_log/blob/86ce089abf1e8ac636456ea3dfc99d1682cb4cc1/inst/src/RunTest.R#L30) *style:* **Commas should always have a space after.**
```r
  a$add_result("sykdomspuls_log","RunAll",testthat::expectation("error","Fail"))
                                                                        ^
```
[inst/src/RunTest.R:36:1:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls_log/blob/86ce089abf1e8ac636456ea3dfc99d1682cb4cc1/inst/src/RunTest.R#L36) *style:* **Trailing blank lines are superfluous.**
```r

^
```
[inst/src/RunTest.R:37:1:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls_log/blob/86ce089abf1e8ac636456ea3dfc99d1682cb4cc1/inst/src/RunTest.R#L37) *style:* **Trailing blank lines are superfluous.**
```r

^
```
[inst/src/RunTest.R:38:1:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls_log/blob/86ce089abf1e8ac636456ea3dfc99d1682cb4cc1/inst/src/RunTest.R#L38) *style:* **Trailing blank lines are superfluous.**
```r

^
```
[R/onAttach.R:2:25:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls_log/blob/86ce089abf1e8ac636456ea3dfc99d1682cb4cc1/R/onAttach.R#L2) *style:* **Only use double-quotes.**
```r
  packageStartupMessage('PACKAGE: sykdomspuls')
                        ^~~~~~~~~~~~~~~~~~~~~~
```
[R/onAttach.R:3:25:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls_log/blob/86ce089abf1e8ac636456ea3dfc99d1682cb4cc1/R/onAttach.R#L3) *style:* **Only use double-quotes.**
```r
  packageStartupMessage('Version')
                        ^~~~~~~~~
```
[R/onAttach.R:4:25:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls_log/blob/86ce089abf1e8ac636456ea3dfc99d1682cb4cc1/R/onAttach.R#L4) *style:* **Only use double-quotes.**
```r
  packageStartupMessage('Developed by Richard White')
                        ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/onAttach.R:5:25:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls_log/blob/86ce089abf1e8ac636456ea3dfc99d1682cb4cc1/R/onAttach.R#L5) *style:* **Only use double-quotes.**
```r
  packageStartupMessage('Department of Infectious Disease Epidemiology and Modelling')
                        ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/onAttach.R:6:25:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls_log/blob/86ce089abf1e8ac636456ea3dfc99d1682cb4cc1/R/onAttach.R#L6) *style:* **Only use double-quotes.**
```r
  packageStartupMessage('Norwegian Institute of Public Health')
                        ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test_FormatData.R:6:18:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls_log/blob/86ce089abf1e8ac636456ea3dfc99d1682cb4cc1/tests/testthat/test_FormatData.R#L6) *style:* **Commas should always have a space after.**
```r
  expect_equal(3,3)
                 ^
```
[tests/testthat/test_FormatData.R:8:1:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls_log/blob/86ce089abf1e8ac636456ea3dfc99d1682cb4cc1/tests/testthat/test_FormatData.R#L8) *style:* **Trailing blank lines are superfluous.**
```r

^
```


[`6ae5465609f4eb84bbf34d63953aaac466a39a5c`](:hammer: )


The previous markdown was not correctly indented, so this was changed to a wrong list


@m-stein did you miss to add the test or left it out by intention?


I don't think this assertion adds anything useful. The issue isn't with the Manticore cpu. It is with the Unicorn cpu that'll switch back into ARM mode despite executing a Thumb instruction. Maybe a better assertion would be checking the Unicorn cpu's mode?


Yes :)

On Fri, Nov 2, 2018, 10:52 AM Alex A. <notifications@github.com> wrote:

> I don't think this assertion adds anything useful. The issue isn't with
> the Manticore cpu. It is with the Unicorn cpu that'll switch back into ARM
> mode despite executing a Thumb instruction. Maybe a better assertion would
> be checking the Unicorn cpu's mode?
>
> —
> You are receiving this because you are subscribed to this thread.
> Reply to this email directly, view it on GitHub
> <https://github.com/trailofbits/manticore/commit/431d1d301f2efe98b80a26340057af245943a2d2#commitcomment-31147017>,
> or mute the thread
> <https://github.com/notifications/unsubscribe-auth/AJi7Cn0x9zPByfyphxUI5shxFVP4K6EHks5urBXTgaJpZM4YLWOt>
> .
>


```
Create_tailored.license
Include_loophole_params.staylegal
```


> Git let's me commit but not push

what do you mean?


[R/graphs.R:239:1:](https://github.com/folkehelseinstituttet/fhi/blob/987a08f9278d28c0753aac3138d60f0da4a08a69/R/graphs.R#L239) *style:* **lines should not be more than 120 characters.**
```r
    if (!is.null(dataCIL) & !is.null(dataCIU)) q <- q + stat_stepribbon(aes_string(ymin = dataCIL, ymax = dataCIU), fill = "black", direction = "vh", alpha = 0.4)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/graphs.R:245:1:](https://github.com/folkehelseinstituttet/fhi/blob/987a08f9278d28c0753aac3138d60f0da4a08a69/R/graphs.R#L245) *style:* **lines should not be more than 120 characters.**
```r
    if (!is.null(dataCIL) & !is.null(dataCIU)) q <- q + geom_ribbon(aes_string(ymin = dataCIL, ymax = dataCIU), fill = "black", alpha = 0.4)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/graphs.R:252:1:](https://github.com/folkehelseinstituttet/fhi/blob/987a08f9278d28c0753aac3138d60f0da4a08a69/R/graphs.R#L252) *style:* **lines should not be more than 120 characters.**
```r
    if (includeMedium | includeHigh) q <- q + geom_point(aes_string(x = "xShifted", y = dataVal), size = 4, fill = "black", data = pd[pd$status %in% c("Medium", "High"), ])
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/graphs.R:254:1:](https://github.com/folkehelseinstituttet/fhi/blob/987a08f9278d28c0753aac3138d60f0da4a08a69/R/graphs.R#L254) *style:* **lines should not be more than 120 characters.**
```r
  if (includeMedium) q <- q + geom_point(aes_string(x = "xShifted", y = dataVal, colour = shQuote("L2")), size = 2, data = pd[pd$status == "Medium", ])
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/graphs.R:255:1:](https://github.com/folkehelseinstituttet/fhi/blob/987a08f9278d28c0753aac3138d60f0da4a08a69/R/graphs.R#L255) *style:* **lines should not be more than 120 characters.**
```r
  if (includeHigh) q <- q + geom_point(aes_string(x = "xShifted", y = dataVal, colour = shQuote("L1")), size = 2, data = pd[pd$status == "High", ])
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/graphs.R:262:5:](https://github.com/folkehelseinstituttet/fhi/blob/987a08f9278d28c0753aac3138d60f0da4a08a69/R/graphs.R#L262) *style:* **Commented code should be removed.**
```r
  # q <- q + scale_xcontinuous("Dato", breaks = breaksDF$xShifted,  labels = breaksDF$printLabel)
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/graphs.R:317:1:](https://github.com/folkehelseinstituttet/fhi/blob/987a08f9278d28c0753aac3138d60f0da4a08a69/R/graphs.R#L317) *style:* **lines should not be more than 120 characters.**
```r
  if (includeMedium | includeHigh) q <- q + geom_point(aes_string(y = dataVal), size = 4, fill = "black", data = pd[pd$status %in% c("Medium", "High"), ])
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/graphs.R:318:1:](https://github.com/folkehelseinstituttet/fhi/blob/987a08f9278d28c0753aac3138d60f0da4a08a69/R/graphs.R#L318) *style:* **lines should not be more than 120 characters.**
```r
  if (includeMedium) q <- q + geom_point(aes_string(y = dataVal, colour = shQuote("L2")), size = 2, data = pd[pd$status == "Medium", ])
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/graphs.R:319:1:](https://github.com/folkehelseinstituttet/fhi/blob/987a08f9278d28c0753aac3138d60f0da4a08a69/R/graphs.R#L319) *style:* **lines should not be more than 120 characters.**
```r
  if (includeHigh) q <- q + geom_point(aes_string(y = dataVal, colour = shQuote("L1")), size = 2, data = pd[pd$status == "High", ])
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/graphs.R:371:1:](https://github.com/folkehelseinstituttet/fhi/blob/987a08f9278d28c0753aac3138d60f0da4a08a69/R/graphs.R#L371) *style:* **lines should not be more than 120 characters.**
```r
    q <- q + geom_line(aes_string(y = dataVal, colour = comparisonNames), lwd = 2, alpha = 0.8, data = pd[pd[[highlightCondition]], ])
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/graphs.R:375:1:](https://github.com/folkehelseinstituttet/fhi/blob/987a08f9278d28c0753aac3138d60f0da4a08a69/R/graphs.R#L375) *style:* **lines should not be more than 120 characters.**
```r
      q <- q + geom_line(aes_string(y = dataVal, colour = shQuote(newName)), lwd = 2, alpha = 0.8, data = pd[pd[[highlightCondition]] & pd[[comparisonNames]] == i, ])
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/graphs.R:404:1:](https://github.com/folkehelseinstituttet/fhi/blob/987a08f9278d28c0753aac3138d60f0da4a08a69/R/graphs.R#L404) *style:* **lines should not be more than 120 characters.**
```r
MakeLineExcessPlot <- function(pd, x, dataVal, dataZ, dataCIL = NULL, dataCIU = NULL, allPoints = TRUE, title = NULL, pointShift = 0, xShift = 0, weekNumbers = FALSE, step = FALSE, GetCols) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/graphs.R:447:7:](https://github.com/folkehelseinstituttet/fhi/blob/987a08f9278d28c0753aac3138d60f0da4a08a69/R/graphs.R#L447) *style:* **Commented code should be removed.**
```r
    # q <- q + stat_stepribbon(aes_string(ymin = L3, ymax = L4, fill = shQuote("L1")), direction="vh", alpha = 0.4)
      ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/graphs.R:448:7:](https://github.com/folkehelseinstituttet/fhi/blob/987a08f9278d28c0753aac3138d60f0da4a08a69/R/graphs.R#L448) *style:* **Commented code should be removed.**
```r
    # q <- q + stat_stepribbon(aes_string(ymin = L2, ymax = L3, fill = shQuote("L2")), direction="vh", alpha = 0.4)
      ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/graphs.R:449:7:](https://github.com/folkehelseinstituttet/fhi/blob/987a08f9278d28c0753aac3138d60f0da4a08a69/R/graphs.R#L449) *style:* **Commented code should be removed.**
```r
    # q <- q + stat_stepribbon(aes_string(ymin = L1, ymax = L2, fill = shQuote("L3")), direction="vh", alpha = 0.4)
      ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/graphs.R:450:1:](https://github.com/folkehelseinstituttet/fhi/blob/987a08f9278d28c0753aac3138d60f0da4a08a69/R/graphs.R#L450) *style:* **lines should not be more than 120 characters.**
```r
    if (!is.null(dataCIL) & !is.null(dataCIU)) q <- q + stat_stepribbon(aes_string(ymin = dataCIL, ymax = dataCIU), fill = "black", direction = "vh", alpha = 0.4)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/graphs.R:453:7:](https://github.com/folkehelseinstituttet/fhi/blob/987a08f9278d28c0753aac3138d60f0da4a08a69/R/graphs.R#L453) *style:* **Commented code should be removed.**
```r
    # q <- q + geom_ribbon(aes_string(ymin = L3, ymax = L4, fill = shQuote("L1")), alpha = 0.4)
      ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/graphs.R:454:7:](https://github.com/folkehelseinstituttet/fhi/blob/987a08f9278d28c0753aac3138d60f0da4a08a69/R/graphs.R#L454) *style:* **Commented code should be removed.**
```r
    # q <- q + geom_ribbon(aes_string(ymin = L2, ymax = L3, fill = shQuote("L2")), alpha = 0.4)
      ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/graphs.R:455:7:](https://github.com/folkehelseinstituttet/fhi/blob/987a08f9278d28c0753aac3138d60f0da4a08a69/R/graphs.R#L455) *style:* **Commented code should be removed.**
```r
    # q <- q + geom_ribbon(aes_string(ymin = L1, ymax = L2, fill = shQuote("L3")), alpha = 0.4)
      ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/graphs.R:456:1:](https://github.com/folkehelseinstituttet/fhi/blob/987a08f9278d28c0753aac3138d60f0da4a08a69/R/graphs.R#L456) *style:* **lines should not be more than 120 characters.**
```r
    if (!is.null(dataCIL) & !is.null(dataCIU)) q <- q + geom_ribbon(aes_string(ymin = dataCIL, ymax = dataCIU), fill = "black", alpha = 0.4)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/graphs.R:463:1:](https://github.com/folkehelseinstituttet/fhi/blob/987a08f9278d28c0753aac3138d60f0da4a08a69/R/graphs.R#L463) *style:* **lines should not be more than 120 characters.**
```r
    if (includeMedium | includeHigh) q <- q + geom_point(aes_string(x = "xShifted", y = dataVal), size = 4, fill = "black", data = pd[pd$status %in% c("Medium", "High"), ])
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/graphs.R:465:1:](https://github.com/folkehelseinstituttet/fhi/blob/987a08f9278d28c0753aac3138d60f0da4a08a69/R/graphs.R#L465) *style:* **lines should not be more than 120 characters.**
```r
  if (includeMedium) q <- q + geom_point(aes_string(x = "xShifted", y = dataVal, colour = shQuote("L2")), size = 2, data = pd[pd$status == "Medium", ])
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/graphs.R:466:1:](https://github.com/folkehelseinstituttet/fhi/blob/987a08f9278d28c0753aac3138d60f0da4a08a69/R/graphs.R#L466) *style:* **lines should not be more than 120 characters.**
```r
  if (includeHigh) q <- q + geom_point(aes_string(x = "xShifted", y = dataVal, colour = shQuote("L1")), size = 2, data = pd[pd$status == "High", ])
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/RenderExternally.R:48:5:](https://github.com/folkehelseinstituttet/fhi/blob/987a08f9278d28c0753aac3138d60f0da4a08a69/R/RenderExternally.R#L48) *style:* **Commented code should be removed.**
```r
  # file.remove(file.path(tmp_dir,tmp_name))
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test.R:6:5:](https://github.com/folkehelseinstituttet/fhi/blob/987a08f9278d28c0753aac3138d60f0da4a08a69/tests/testthat/test.R#L6) *style:* **Commented code should be removed.**
```r
  # rmarkdown::render(input=f,output_dir = tempdir())
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```


We had to revert to Python 3.6, because of this as it will not work on German (or Swiss German) Windows systems:

activate.bat breaks on German systems as chcp does not return a plain number. Note the dot at the end:

`chcp`
`Aktive Codepage: 850.`

This leads to

`for /F "tokens=2 delims=:" %a in ('"C:\WINDOWS\System32\chcp.com"') do (echo "%a" )`
`(echo " 850." )`
`" 850."`

Fortunately it is easy to extract the number from there

`for /f "tokens=2 delims=:" %%a in ('"%SystemRoot%\System32\chcp.com"') do (`
`  echo "%%a"`
`  for %%F in ("%%a") do set "_OLD_CODEPAGE=%%~nxF"`
`  echo %_OLD_CODEPAGE%`
`)`


why was this changed?