[inst/src/plumb/plumb_testing.R:11:4:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb_testing.R#L11) *style:* **Commented code should be removed.**
```r
  #unique(d$locationName)
   ^~~~~~~~~~~~~~~~~~~~~~
```
[inst/src/plumb/plumb_testing.R:15:1:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb_testing.R#L15) *style:* **Trailing blank lines are superfluous.**
```r

^
```
[inst/src/plumb/plumb_testing.R:16:1:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb_testing.R#L16) *style:* **Trailing blank lines are superfluous.**
```r

^
```
[inst/src/plumb/plumb.R:12:1:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L12) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[inst/src/plumb/plumb.R:14:5:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L14) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(is.null(forwarded)) forwarded <- "NOTFORWARDED"
    ^
```
[inst/src/plumb/plumb.R:15:1:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L15) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[inst/src/plumb/plumb.R:17:26:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L17) *style:* **Commas should always have a space after.**
```r
  file <- file.path(DATA,"log",paste0(format.Date(Sys.time(),"%Y-%m-%d"),".txt"))
                         ^
```
[inst/src/plumb/plumb.R:17:32:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L17) *style:* **Commas should always have a space after.**
```r
  file <- file.path(DATA,"log",paste0(format.Date(Sys.time(),"%Y-%m-%d"),".txt"))
                               ^
```
[inst/src/plumb/plumb.R:17:62:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L17) *style:* **Commas should always have a space after.**
```r
  file <- file.path(DATA,"log",paste0(format.Date(Sys.time(),"%Y-%m-%d"),".txt"))
                                                             ^
```
[inst/src/plumb/plumb.R:17:74:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L17) *style:* **Commas should always have a space after.**
```r
  file <- file.path(DATA,"log",paste0(format.Date(Sys.time(),"%Y-%m-%d"),".txt"))
                                                                         ^
```
[inst/src/plumb/plumb.R:19:13:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L19) *style:* **Commas should always have a space after.**
```r
    cat(val,"\n",file=file, append=file.exists(file))
            ^
```
[inst/src/plumb/plumb.R:19:18:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L19) *style:* **Commas should always have a space after.**
```r
    cat(val,"\n",file=file, append=file.exists(file))
                 ^
```
[inst/src/plumb/plumb.R:19:22:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L19) *style:* **Put spaces around all infix operators.**
```r
    cat(val,"\n",file=file, append=file.exists(file))
                    ~^~
```
[inst/src/plumb/plumb.R:19:35:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L19) *style:* **Put spaces around all infix operators.**
```r
    cat(val,"\n",file=file, append=file.exists(file))
                                 ~^~
```
[inst/src/plumb/plumb.R:20:3:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L20) *style:* **Closing curly-braces should always be on their own line, unless it's followed by an else.**
```r
  },TRUE)
  ^
```
[inst/src/plumb/plumb.R:20:5:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L20) *style:* **Commas should always have a space after.**
```r
  },TRUE)
    ^
```
[inst/src/plumb/plumb.R:33:4:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L33) *style:* **Commented code should be removed.**
```r
  #unique(d$locationName)
   ^~~~~~~~~~~~~~~~~~~~~~
```
[inst/src/plumb/plumb.R:40:4:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L40) *style:* **Commented code should be removed.**
```r
  #unique(d$locationName)
   ^~~~~~~~~~~~~~~~~~~~~~
```
[inst/src/plumb/plumb.R:49:30:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L49) *style:* **Commas should always have a space after.**
```r
  names(retval) <- c("value","name")
                             ^
```
[inst/src/plumb/plumb.R:52:4:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L52) *style:* **Commented code should be removed.**
```r
  #unique(d$locationName)
   ^~~~~~~~~~~~~~~~~~~~~~
```
[inst/src/plumb/plumb.R:58:18:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L58) *style:* **Commas should always have a space after.**
```r
  n <- unique(d[,c("location","locationName"),with=F])
                 ^
```
[inst/src/plumb/plumb.R:58:31:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L58) *style:* **Commas should always have a space after.**
```r
  n <- unique(d[,c("location","locationName"),with=F])
                              ^
```
[inst/src/plumb/plumb.R:58:47:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L58) *style:* **Commas should always have a space after.**
```r
  n <- unique(d[,c("location","locationName"),with=F])
                                              ^
```
[inst/src/plumb/plumb.R:58:51:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L58) *style:* **Put spaces around all infix operators.**
```r
  n <- unique(d[,c("location","locationName"),with=F])
                                                 ~^~
```
[inst/src/plumb/plumb.R:60:4:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L60) *style:* **Commented code should be removed.**
```r
  #unique(d$locationName)
   ^~~~~~~~~~~~~~~~~~~~~~
```
[inst/src/plumb/plumb.R:66:18:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L66) *style:* **Commas should always have a space after.**
```r
  n <- unique(d[,c("location","locationName"),with=F])
                 ^
```
[inst/src/plumb/plumb.R:66:31:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L66) *style:* **Commas should always have a space after.**
```r
  n <- unique(d[,c("location","locationName"),with=F])
                              ^
```
[inst/src/plumb/plumb.R:66:47:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L66) *style:* **Commas should always have a space after.**
```r
  n <- unique(d[,c("location","locationName"),with=F])
                                              ^
```
[inst/src/plumb/plumb.R:66:51:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L66) *style:* **Put spaces around all infix operators.**
```r
  n <- unique(d[,c("location","locationName"),with=F])
                                                 ~^~
```
[inst/src/plumb/plumb.R:67:23:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L67) *style:* **Put spaces around all infix operators.**
```r
  retVal <- n[location==xname,]
                     ~^~~
```
[inst/src/plumb/plumb.R:67:31:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L67) *style:* **Commas should always have a space after.**
```r
  retVal <- n[location==xname,]
                              ^
```
[inst/src/plumb/plumb.R:68:5:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L68) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(xname!="Norge" & xname!="All"){
    ^
```
[inst/src/plumb/plumb.R:68:11:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L68) *style:* **Put spaces around all infix operators.**
```r
  if(xname!="Norge" & xname!="All"){
         ~^~~
```
[inst/src/plumb/plumb.R:68:28:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L68) *style:* **Put spaces around all infix operators.**
```r
  if(xname!="Norge" & xname!="All"){
                          ~^~~
```
[inst/src/plumb/plumb.R:69:27:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L69) *style:* **Put spaces around all infix operators.**
```r
    nk <- unique(dk[county==xname,c("location","locationName"),with=F])
                         ~^~~
```
[inst/src/plumb/plumb.R:69:35:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L69) *style:* **Commas should always have a space after.**
```r
    nk <- unique(dk[county==xname,c("location","locationName"),with=F])
                                  ^
```
[inst/src/plumb/plumb.R:69:48:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L69) *style:* **Commas should always have a space after.**
```r
    nk <- unique(dk[county==xname,c("location","locationName"),with=F])
                                               ^
```
[inst/src/plumb/plumb.R:69:64:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L69) *style:* **Commas should always have a space after.**
```r
    nk <- unique(dk[county==xname,c("location","locationName"),with=F])
                                                               ^
```
[inst/src/plumb/plumb.R:69:68:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L69) *style:* **Put spaces around all infix operators.**
```r
    nk <- unique(dk[county==xname,c("location","locationName"),with=F])
                                                                  ~^~
```
[inst/src/plumb/plumb.R:70:28:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L70) *style:* **Commas should always have a space after.**
```r
    retVal <- rbind(retVal,nk)
                           ^
```
[inst/src/plumb/plumb.R:71:12:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L71) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  } else if(xname=="All"){
           ^
```
[inst/src/plumb/plumb.R:71:18:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L71) *style:* **Put spaces around all infix operators.**
```r
  } else if(xname=="All"){
                ~^~~
```
[inst/src/plumb/plumb.R:72:22:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L72) *style:* **Commas should always have a space after.**
```r
    nk <- unique(dk[,c("location","locationName"),with=F])
                     ^
```
[inst/src/plumb/plumb.R:72:35:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L72) *style:* **Commas should always have a space after.**
```r
    nk <- unique(dk[,c("location","locationName"),with=F])
                                  ^
```
[inst/src/plumb/plumb.R:72:51:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L72) *style:* **Commas should always have a space after.**
```r
    nk <- unique(dk[,c("location","locationName"),with=F])
                                                  ^
```
[inst/src/plumb/plumb.R:72:55:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L72) *style:* **Put spaces around all infix operators.**
```r
    nk <- unique(dk[,c("location","locationName"),with=F])
                                                     ~^~
```
[inst/src/plumb/plumb.R:76:4:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L76) *style:* **Commented code should be removed.**
```r
  #unique(d$locationName)
   ^~~~~~~~~~~~~~~~~~~~~~
```
[inst/src/plumb/plumb.R:82:43:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L82) *style:* **Commas should always have a space after.**
```r
  wkyr <- unique(c(outbreaks[["df"]]$wkyr,outbreaks[["dk"]]$wkyr))
                                          ^
```
[inst/src/plumb/plumb.R:84:1:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L84) *style:* **Trailing whitespace is superfluous.**
```r

^
```
[inst/src/plumb/plumb.R:86:21:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L86) *style:* **Put spaces around all infix operators.**
```r
    data.frame(value=wkyr,name=wkyr)
                   ~^~
```
[inst/src/plumb/plumb.R:86:27:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L86) *style:* **Commas should always have a space after.**
```r
    data.frame(value=wkyr,name=wkyr)
                          ^
```
[inst/src/plumb/plumb.R:86:31:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L86) *style:* **Put spaces around all infix operators.**
```r
    data.frame(value=wkyr,name=wkyr)
                             ~^~
```
[inst/src/plumb/plumb.R:91:46:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L91) *style:* **Commas should always have a space after.**
```r
v1_0_DataWeeklySignal <- function(xwkyr=NULL,xlevel="fylke"){
                                             ^
```
[inst/src/plumb/plumb.R:92:5:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L92) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(xlevel=="fylke"){
    ^
```
[inst/src/plumb/plumb.R:92:12:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L92) *style:* **Put spaces around all infix operators.**
```r
  if(xlevel=="fylke"){
          ~^~~
```
[inst/src/plumb/plumb.R:97:1:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L97) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[inst/src/plumb/plumb.R:98:20:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L98) *style:* **Put spaces around all infix operators.**
```r
  data <- data[wkyr==xwkyr,-c(1:2),with=F]
                  ~^~~
```
[inst/src/plumb/plumb.R:98:28:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L98) *style:* **Commas should always have a space after.**
```r
  data <- data[wkyr==xwkyr,-c(1:2),with=F]
                           ^
```
[inst/src/plumb/plumb.R:98:36:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L98) *style:* **Commas should always have a space after.**
```r
  data <- data[wkyr==xwkyr,-c(1:2),with=F]
                                   ^
```
[inst/src/plumb/plumb.R:98:40:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L98) *style:* **Put spaces around all infix operators.**
```r
  data <- data[wkyr==xwkyr,-c(1:2),with=F]
                                      ~^~
```
[inst/src/plumb/plumb.R:100:1:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L100) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[inst/src/plumb/plumb.R:107:60:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L107) *style:* **Commas should always have a space after.**
```r
v1_0_DataDailyLine <- function(xtype="respiratoryexternal",xage="Totalt",xname="Norge"){
                                                           ^
```
[inst/src/plumb/plumb.R:107:74:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L107) *style:* **Commas should always have a space after.**
```r
v1_0_DataDailyLine <- function(xtype="respiratoryexternal",xage="Totalt",xname="Norge"){
                                                                         ^
```
[inst/src/plumb/plumb.R:109:22:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L109) *style:* **Put spaces around all infix operators.**
```r
  data <- dr[location==xname & age==xage & type==xtype]
                    ~^~~
```
[inst/src/plumb/plumb.R:109:35:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L109) *style:* **Put spaces around all infix operators.**
```r
  data <- dr[location==xname & age==xage & type==xtype]
                                 ~^~~
```
[inst/src/plumb/plumb.R:109:48:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L109) *style:* **Put spaces around all infix operators.**
```r
  data <- dr[location==xname & age==xage & type==xtype]
                                              ~^~~
```
[inst/src/plumb/plumb.R:110:35:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L110) *style:* **Put spaces around all infix operators.**
```r
  prettyType <- names(types)[types==xtype]
                                 ~^~~
```
[inst/src/plumb/plumb.R:111:1:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L111) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[inst/src/plumb/plumb.R:112:5:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L112) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(xage=="Totalt"){
    ^
```
[inst/src/plumb/plumb.R:112:10:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L112) *style:* **Put spaces around all infix operators.**
```r
  if(xage=="Totalt"){
        ~^~~
```
[inst/src/plumb/plumb.R:115:52:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L115) *style:* **Commas should always have a space after.**
```r
    prettyAge <- sprintf("aldersgruppe %s \u00E5r",xage)
                                                   ^
```
[inst/src/plumb/plumb.R:117:41:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L117) *style:* **Commas should always have a space after.**
```r
  titleMain <- sprintf("%s for %s i %s",prettyType,prettyAge,data$locationName[1])
                                        ^
```
[inst/src/plumb/plumb.R:117:52:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L117) *style:* **Commas should always have a space after.**
```r
  titleMain <- sprintf("%s for %s i %s",prettyType,prettyAge,data$locationName[1])
                                                   ^
```
[inst/src/plumb/plumb.R:117:62:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L117) *style:* **Commas should always have a space after.**
```r
  titleMain <- sprintf("%s for %s i %s",prettyType,prettyAge,data$locationName[1])
                                                             ^
```
[inst/src/plumb/plumb.R:118:4:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L118) *style:* **Commented code should be removed.**
```r
  #data$x <- 1:nrow(data)
   ^~~~~~~~~~~~~~~~~~~~~~
```
[inst/src/plumb/plumb.R:119:24:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L119) *style:* **Commas should always have a space after.**
```r
  labs <- unique(data[,c("xRaw",
                       ^
```
[inst/src/plumb/plumb.R:128:35:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L128) *style:* **Commas should always have a space after.**
```r
                         "label"),with=F])
                                  ^
```
[inst/src/plumb/plumb.R:128:39:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L128) *style:* **Put spaces around all infix operators.**
```r
                         "label"),with=F])
                                     ~^~
```
[inst/src/plumb/plumb.R:129:1:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L129) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[inst/src/plumb/plumb.R:132:11:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L132) *style:* **Put spaces around all infix operators.**
```r
      data=data[year >= (as.numeric(max(year))-3),c(
         ~^~
```
[inst/src/plumb/plumb.R:132:47:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L132) *style:* **Put spaces around all infix operators.**
```r
      data=data[year >= (as.numeric(max(year))-3),c(
                                             ~^~
```
[inst/src/plumb/plumb.R:132:51:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L132) *style:* **Commas should always have a space after.**
```r
      data=data[year >= (as.numeric(max(year))-3),c(
                                                  ^
```
[inst/src/plumb/plumb.R:138:9:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L138) *style:* **Commas should always have a space after.**
```r
      ),with=F],
        ^
```
[inst/src/plumb/plumb.R:138:13:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L138) *style:* **Put spaces around all infix operators.**
```r
      ),with=F],
           ~^~
```
[inst/src/plumb/plumb.R:139:11:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L139) *style:* **Put spaces around all infix operators.**
```r
      labs=labs,
         ~^~
```
[inst/src/plumb/plumb.R:140:12:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L140) *style:* **Put spaces around all infix operators.**
```r
      brush=data[,c(
          ~^~
```
[inst/src/plumb/plumb.R:140:19:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L140) *style:* **Commas should always have a space after.**
```r
      brush=data[,c(
                  ^
```
[inst/src/plumb/plumb.R:146:9:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L146) *style:* **Commas should always have a space after.**
```r
      ),with=F],
        ^
```
[inst/src/plumb/plumb.R:146:13:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L146) *style:* **Put spaces around all infix operators.**
```r
      ),with=F],
           ~^~
```
[inst/src/plumb/plumb.R:147:16:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L147) *style:* **Put spaces around all infix operators.**
```r
      titleMain=titleMain
              ~^~
```
[inst/src/plumb/plumb.R:154:61:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L154) *style:* **Commas should always have a space after.**
```r
v1_0_DataWeeklyLine <- function(xtype="respiratoryexternal",xage="Totalt",xname="Norge"){
                                                            ^
```
[inst/src/plumb/plumb.R:154:75:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L154) *style:* **Commas should always have a space after.**
```r
v1_0_DataWeeklyLine <- function(xtype="respiratoryexternal",xage="Totalt",xname="Norge"){
                                                                          ^
```
[inst/src/plumb/plumb.R:155:21:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L155) *style:* **Put spaces around all infix operators.**
```r
  data <- d[location==xname & age==xage & type==xtype,]
                   ~^~~
```
[inst/src/plumb/plumb.R:155:34:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L155) *style:* **Put spaces around all infix operators.**
```r
  data <- d[location==xname & age==xage & type==xtype,]
                                ~^~~
```
[inst/src/plumb/plumb.R:155:47:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L155) *style:* **Put spaces around all infix operators.**
```r
  data <- d[location==xname & age==xage & type==xtype,]
                                             ~^~~
```
[inst/src/plumb/plumb.R:155:55:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L155) *style:* **Commas should always have a space after.**
```r
  data <- d[location==xname & age==xage & type==xtype,]
                                                      ^
```
[inst/src/plumb/plumb.R:156:5:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L156) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(nrow(data)==0){
    ^
```
[inst/src/plumb/plumb.R:156:16:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L156) *style:* **Put spaces around all infix operators.**
```r
  if(nrow(data)==0){
              ~^~~
```
[inst/src/plumb/plumb.R:157:24:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L157) *style:* **Put spaces around all infix operators.**
```r
    data <- dk[location==xname & age==xage & type==xtype,]
                      ~^~~
```
[inst/src/plumb/plumb.R:157:37:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L157) *style:* **Put spaces around all infix operators.**
```r
    data <- dk[location==xname & age==xage & type==xtype,]
                                   ~^~~
```
[inst/src/plumb/plumb.R:157:50:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L157) *style:* **Put spaces around all infix operators.**
```r
    data <- dk[location==xname & age==xage & type==xtype,]
                                                ~^~~
```
[inst/src/plumb/plumb.R:157:58:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L157) *style:* **Commas should always have a space after.**
```r
    data <- dk[location==xname & age==xage & type==xtype,]
                                                         ^
```
[inst/src/plumb/plumb.R:159:35:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L159) *style:* **Put spaces around all infix operators.**
```r
  prettyType <- names(types)[types==xtype]
                                 ~^~~
```
[inst/src/plumb/plumb.R:160:1:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L160) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[inst/src/plumb/plumb.R:161:5:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L161) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(xage=="Totalt"){
    ^
```
[inst/src/plumb/plumb.R:161:10:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L161) *style:* **Put spaces around all infix operators.**
```r
  if(xage=="Totalt"){
        ~^~~
```
[inst/src/plumb/plumb.R:164:52:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L164) *style:* **Commas should always have a space after.**
```r
    prettyAge <- sprintf("aldersgruppe %s \u00E5r",xage)
                                                   ^
```
[inst/src/plumb/plumb.R:166:41:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L166) *style:* **Commas should always have a space after.**
```r
  titleMain <- sprintf("%s for %s i %s",prettyType,prettyAge,data$locationName[1])
                                        ^
```
[inst/src/plumb/plumb.R:166:52:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L166) *style:* **Commas should always have a space after.**
```r
  titleMain <- sprintf("%s for %s i %s",prettyType,prettyAge,data$locationName[1])
                                                   ^
```
[inst/src/plumb/plumb.R:166:62:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L166) *style:* **Commas should always have a space after.**
```r
  titleMain <- sprintf("%s for %s i %s",prettyType,prettyAge,data$locationName[1])
                                                             ^
```
[inst/src/plumb/plumb.R:167:4:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L167) *style:* **Commented code should be removed.**
```r
  #data$x <- 1:nrow(data)
   ^~~~~~~~~~~~~~~~~~~~~~
```
[inst/src/plumb/plumb.R:168:24:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L168) *style:* **Commas should always have a space after.**
```r
  labs <- unique(data[,c("xRaw",
                       ^
```
[inst/src/plumb/plumb.R:177:35:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L177) *style:* **Commas should always have a space after.**
```r
                         "label"),with=F])
                                  ^
```
[inst/src/plumb/plumb.R:177:39:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L177) *style:* **Put spaces around all infix operators.**
```r
                         "label"),with=F])
                                     ~^~
```
[inst/src/plumb/plumb.R:181:9:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L181) *style:* **Put spaces around all infix operators.**
```r
    data=data[,c(
       ~^~
```
[inst/src/plumb/plumb.R:181:16:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L181) *style:* **Commas should always have a space after.**
```r
    data=data[,c(
               ^
```
[inst/src/plumb/plumb.R:187:7:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L187) *style:* **Commas should always have a space after.**
```r
    ),with=F],
      ^
```
[inst/src/plumb/plumb.R:187:11:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L187) *style:* **Put spaces around all infix operators.**
```r
    ),with=F],
         ~^~
```
[inst/src/plumb/plumb.R:188:9:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L188) *style:* **Put spaces around all infix operators.**
```r
    labs=labs,
       ~^~
```
[inst/src/plumb/plumb.R:189:10:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L189) *style:* **Put spaces around all infix operators.**
```r
    brush=data[,c(
        ~^~
```
[inst/src/plumb/plumb.R:189:17:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L189) *style:* **Commas should always have a space after.**
```r
    brush=data[,c(
                ^
```
[inst/src/plumb/plumb.R:195:7:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L195) *style:* **Commas should always have a space after.**
```r
    ),with=F],
      ^
```
[inst/src/plumb/plumb.R:195:11:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L195) *style:* **Put spaces around all infix operators.**
```r
    ),with=F],
         ~^~
```
[inst/src/plumb/plumb.R:202:65:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L202) *style:* **Commas should always have a space after.**
```r
v1_0_DataWeeklyOverview <- function(xtype="respiratoryexternal",xage="Totalt",xname="Norge"){
                                                                ^
```
[inst/src/plumb/plumb.R:202:79:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L202) *style:* **Commas should always have a space after.**
```r
v1_0_DataWeeklyOverview <- function(xtype="respiratoryexternal",xage="Totalt",xname="Norge"){
                                                                              ^
```
[inst/src/plumb/plumb.R:203:49:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L203) *style:* **Put spaces around all infix operators.**
```r
  data <- dk[location %in% unique(dkStack[county==xname,]$location) & age==xage & type==xtype,]
                                               ~^~~
```
[inst/src/plumb/plumb.R:203:57:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L203) *style:* **Commas should always have a space after.**
```r
  data <- dk[location %in% unique(dkStack[county==xname,]$location) & age==xage & type==xtype,]
                                                        ^
```
[inst/src/plumb/plumb.R:203:74:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L203) *style:* **Put spaces around all infix operators.**
```r
  data <- dk[location %in% unique(dkStack[county==xname,]$location) & age==xage & type==xtype,]
                                                                        ~^~~
```
[inst/src/plumb/plumb.R:203:87:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L203) *style:* **Put spaces around all infix operators.**
```r
  data <- dk[location %in% unique(dkStack[county==xname,]$location) & age==xage & type==xtype,]
                                                                                ~^~~
```
[inst/src/plumb/plumb.R:203:95:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L203) *style:* **Commas should always have a space after.**
```r
  data <- dk[location %in% unique(dkStack[county==xname,]$location) & age==xage & type==xtype,]
                                                                                ^
```
[inst/src/plumb/plumb.R:204:22:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L204) *style:* **Put spaces around all infix operators.**
```r
  brush <- d[location==xname & age==xage & type==xtype,]
                    ~^~~
```
[inst/src/plumb/plumb.R:204:35:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L204) *style:* **Put spaces around all infix operators.**
```r
  brush <- d[location==xname & age==xage & type==xtype,]
                                 ~^~~
```
[inst/src/plumb/plumb.R:204:48:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L204) *style:* **Put spaces around all infix operators.**
```r
  brush <- d[location==xname & age==xage & type==xtype,]
                                              ~^~~
```
[inst/src/plumb/plumb.R:204:56:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L204) *style:* **Commas should always have a space after.**
```r
  brush <- d[location==xname & age==xage & type==xtype,]
                                                       ^
```
[inst/src/plumb/plumb.R:205:5:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L205) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(nrow(data)==0){
    ^
```
[inst/src/plumb/plumb.R:205:16:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L205) *style:* **Put spaces around all infix operators.**
```r
  if(nrow(data)==0){
              ~^~~
```
[inst/src/plumb/plumb.R:206:18:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L206) *style:* **Put spaces around all infix operators.**
```r
    data <- d[age==xage & type==xtype,]
                ~^~~
```
[inst/src/plumb/plumb.R:206:31:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L206) *style:* **Put spaces around all infix operators.**
```r
    data <- d[age==xage & type==xtype,]
                             ~^~~
```
[inst/src/plumb/plumb.R:206:39:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L206) *style:* **Commas should always have a space after.**
```r
    data <- d[age==xage & type==xtype,]
                                      ^
```
[inst/src/plumb/plumb.R:207:24:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L207) *style:* **Put spaces around all infix operators.**
```r
    brush <- d[location=="Norge" & age==xage & type==xtype,]
                      ~^~~
```
[inst/src/plumb/plumb.R:207:39:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L207) *style:* **Put spaces around all infix operators.**
```r
    brush <- d[location=="Norge" & age==xage & type==xtype,]
                                     ~^~~
```
[inst/src/plumb/plumb.R:207:52:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L207) *style:* **Put spaces around all infix operators.**
```r
    brush <- d[location=="Norge" & age==xage & type==xtype,]
                                                  ~^~~
```
[inst/src/plumb/plumb.R:207:60:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L207) *style:* **Commas should always have a space after.**
```r
    brush <- d[location=="Norge" & age==xage & type==xtype,]
                                                           ^
```
[inst/src/plumb/plumb.R:209:4:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L209) *style:* **Commented code should be removed.**
```r
  #data$x <- 1:nrow(data)
   ^~~~~~~~~~~~~~~~~~~~~~
```
[inst/src/plumb/plumb.R:210:24:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L210) *style:* **Commas should always have a space after.**
```r
  labs <- unique(data[,c("xRaw",
                       ^
```
[inst/src/plumb/plumb.R:219:35:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L219) *style:* **Commas should always have a space after.**
```r
                         "label"),with=F])
                                  ^
```
[inst/src/plumb/plumb.R:219:39:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L219) *style:* **Put spaces around all infix operators.**
```r
                         "label"),with=F])
                                     ~^~
```
[inst/src/plumb/plumb.R:223:11:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L223) *style:* **Put spaces around all infix operators.**
```r
      data=
         ~^~
```
[inst/src/plumb/plumb.R:224:44:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L224) *style:* **Put spaces around all infix operators.**
```r
        data[year >= (as.numeric(max(year))-3),c(
                                          ~^~
```
[inst/src/plumb/plumb.R:224:48:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L224) *style:* **Commas should always have a space after.**
```r
        data[year >= (as.numeric(max(year))-3),c(
                                               ^
```
[inst/src/plumb/plumb.R:228:11:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L228) *style:* **Commas should always have a space after.**
```r
        ),with=F],
          ^
```
[inst/src/plumb/plumb.R:228:15:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L228) *style:* **Put spaces around all infix operators.**
```r
        ),with=F],
             ~^~
```
[inst/src/plumb/plumb.R:229:11:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L229) *style:* **Put spaces around all infix operators.**
```r
      labs=labs,
         ~^~
```
[inst/src/plumb/plumb.R:230:12:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L230) *style:* **Put spaces around all infix operators.**
```r
      brush=
          ~^~
```
[inst/src/plumb/plumb.R:231:45:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L231) *style:* **Put spaces around all infix operators.**
```r
        brush[year >= (as.numeric(max(year))-3),c(
                                           ~^~
```
[inst/src/plumb/plumb.R:231:49:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L231) *style:* **Commas should always have a space after.**
```r
        brush[year >= (as.numeric(max(year))-3),c(
                                                ^
```
[inst/src/plumb/plumb.R:235:11:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L235) *style:* **Commas should always have a space after.**
```r
        ),with=F]
          ^
```
[inst/src/plumb/plumb.R:235:15:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L235) *style:* **Put spaces around all infix operators.**
```r
        ),with=F]
             ~^~
```
[inst/src/plumb/plumb.R:242:34:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L242) *style:* **Commas should always have a space after.**
```r
  data <- dk[location %in% xname,]
                                 ^
```
[inst/src/plumb/plumb.R:244:4:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L244) *style:* **Commented code should be removed.**
```r
  #data$x <- 1:nrow(data)
   ^~~~~~~~~~~~~~~~~~~~~~
```
[inst/src/plumb/plumb.R:245:24:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L245) *style:* **Commas should always have a space after.**
```r
  labs <- unique(data[,c("xRaw",
                       ^
```
[inst/src/plumb/plumb.R:254:35:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L254) *style:* **Commas should always have a space after.**
```r
                         "label"),with=F])
                                  ^
```
[inst/src/plumb/plumb.R:254:39:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L254) *style:* **Put spaces around all infix operators.**
```r
                         "label"),with=F])
                                     ~^~
```
[inst/src/plumb/plumb.R:255:1:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L255) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[inst/src/plumb/plumb.R:256:20:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L256) *style:* **Put spaces around all infix operators.**
```r
  data <- data[xRaw>max(xRaw-8),]
                  ~^~
```
[inst/src/plumb/plumb.R:256:29:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L256) *style:* **Put spaces around all infix operators.**
```r
  data <- data[xRaw>max(xRaw-8),]
                           ~^~
```
[inst/src/plumb/plumb.R:256:33:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L256) *style:* **Commas should always have a space after.**
```r
  data <- data[xRaw>max(xRaw-8),]
                                ^
```
[inst/src/plumb/plumb.R:257:31:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L257) *style:* **Commas should always have a space after.**
```r
  data$age <- factor(data$age,levels=c("Totalt","0-4","5-14","15-19","20-29","30-64","65+"))
                              ^
```
[inst/src/plumb/plumb.R:257:37:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L257) *style:* **Put spaces around all infix operators.**
```r
  data$age <- factor(data$age,levels=c("Totalt","0-4","5-14","15-19","20-29","30-64","65+"))
                                   ~^~
```
[inst/src/plumb/plumb.R:257:49:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L257) *style:* **Commas should always have a space after.**
```r
  data$age <- factor(data$age,levels=c("Totalt","0-4","5-14","15-19","20-29","30-64","65+"))
                                                ^
```
[inst/src/plumb/plumb.R:257:55:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L257) *style:* **Commas should always have a space after.**
```r
  data$age <- factor(data$age,levels=c("Totalt","0-4","5-14","15-19","20-29","30-64","65+"))
                                                      ^
```
[inst/src/plumb/plumb.R:257:62:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L257) *style:* **Commas should always have a space after.**
```r
  data$age <- factor(data$age,levels=c("Totalt","0-4","5-14","15-19","20-29","30-64","65+"))
                                                             ^
```
[inst/src/plumb/plumb.R:257:70:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L257) *style:* **Commas should always have a space after.**
```r
  data$age <- factor(data$age,levels=c("Totalt","0-4","5-14","15-19","20-29","30-64","65+"))
                                                                     ^
```
[inst/src/plumb/plumb.R:257:78:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L257) *style:* **Commas should always have a space after.**
```r
  data$age <- factor(data$age,levels=c("Totalt","0-4","5-14","15-19","20-29","30-64","65+"))
                                                                             ^
```
[inst/src/plumb/plumb.R:257:86:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L257) *style:* **Commas should always have a space after.**
```r
  data$age <- factor(data$age,levels=c("Totalt","0-4","5-14","15-19","20-29","30-64","65+"))
                                                                                ^
```
[inst/src/plumb/plumb.R:258:33:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L258) *style:* **Commas should always have a space after.**
```r
  data$type <- factor(data$type,levels=typesShort)
                                ^
```
[inst/src/plumb/plumb.R:258:39:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L258) *style:* **Put spaces around all infix operators.**
```r
  data$type <- factor(data$type,levels=typesShort)
                                     ~^~
```
[inst/src/plumb/plumb.R:260:17:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L260) *style:* **Commas should always have a space after.**
```r
  setorder(data,type,age)
                ^
```
[inst/src/plumb/plumb.R:260:22:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L260) *style:* **Commas should always have a space after.**
```r
  setorder(data,type,age)
                     ^
```
[inst/src/plumb/plumb.R:262:41:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L262) *style:* **Commas should always have a space after.**
```r
  data$locationName <- paste0(data$type," - ",data$age)
                                        ^
```
[inst/src/plumb/plumb.R:262:47:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L262) *style:* **Commas should always have a space after.**
```r
  data$locationName <- paste0(data$type," - ",data$age)
                                              ^
```
[inst/src/plumb/plumb.R:263:1:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L263) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[inst/src/plumb/plumb.R:266:11:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L266) *style:* **Put spaces around all infix operators.**
```r
      data=
         ~^~
```
[inst/src/plumb/plumb.R:267:49:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L267) *style:* **Put spaces around all infix operators.**
```r
        data[data$year >= (as.numeric(max(year))-3),c(
                                               ~^~
```
[inst/src/plumb/plumb.R:267:53:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L267) *style:* **Commas should always have a space after.**
```r
        data[data$year >= (as.numeric(max(year))-3),c(
                                                    ^
```
[inst/src/plumb/plumb.R:271:11:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L271) *style:* **Commas should always have a space after.**
```r
        ),with=F],
          ^
```
[inst/src/plumb/plumb.R:271:15:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L271) *style:* **Put spaces around all infix operators.**
```r
        ),with=F],
             ~^~
```
[inst/src/plumb/plumb.R:272:11:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L272) *style:* **Put spaces around all infix operators.**
```r
      labs=labs,
         ~^~
```
[inst/src/plumb/plumb.R:273:16:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L273) *style:* **Put spaces around all infix operators.**
```r
      titleMain=titleMain
              ~^~
```
[inst/src/plumb/plumb.R:279:1:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L279) *style:* **Trailing blank lines are superfluous.**
```r

^
```
[inst/src/plumb/plumb.R:280:1:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/plumb/plumb.R#L280) *style:* **Trailing blank lines are superfluous.**
```r

^
```
[inst/src/RunAPI.R:1:3:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/RunAPI.R#L1) *style:* **Place a space before left parenthesis, except in a function call.**
```r
if(.Platform$OS.type == "unix"){
  ^
```
[inst/src/RunAPI.R:2:5:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/RunAPI.R#L2) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(Sys.getenv("RSTUDIO") == "1"){
    ^
```
[inst/src/RunAPI.R:3:14:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/RunAPI.R#L3) *warning:* **Do not use absolute paths.**
```r
    HOME <- "/git/dashboards/dashboards_sykdomspuls/inst/src"
             ^~~~
```
[inst/src/RunAPI.R:5:14:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/RunAPI.R#L5) *warning:* **Do not use absolute paths.**
```r
    DATA <- "/data_app/sykdomspuls"
             ^~~~~~~~~
```
[inst/src/RunAPI.R:7:14:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/RunAPI.R#L7) *warning:* **Do not use absolute paths.**
```r
    HOME <- "/r/sykdomspuls/src"
             ^~
```
[inst/src/RunAPI.R:9:14:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/RunAPI.R#L9) *warning:* **Do not use absolute paths.**
```r
    DATA <- "/data_app/sykdomspuls"
             ^~~~~~~~~
```
[inst/src/RunAPI.R:12:12:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/RunAPI.R#L12) *warning:* **Do not use absolute paths.**
```r
  HOME <- "C:/Sykdomspulsen"
           ^~~~~~~~~~~~~~~~
```
[inst/src/RunAPI.R:13:28:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/RunAPI.R#L13) *style:* **Commas should always have a space after.**
```r
  PLUMB <- file.path("src","R","plumb")
                           ^
```
[inst/src/RunAPI.R:13:32:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/RunAPI.R#L13) *style:* **Commas should always have a space after.**
```r
  PLUMB <- file.path("src","R","plumb")
                               ^
```
[inst/src/RunAPI.R:14:12:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/RunAPI.R#L14) *warning:* **Do not use absolute paths.**
```r
  DATA <- "C:/Sykdomspulsen/data"
           ^~~~~~~~~~~~~~~~~~~~~
```
[inst/src/RunAPI.R:23:21:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/RunAPI.R#L23) *style:* **Put spaces around all infix operators.**
```r
  substr(x, nchar(x)-n+1, nchar(x))
                   ~^~
```
[inst/src/RunAPI.R:23:23:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/RunAPI.R#L23) *style:* **Put spaces around all infix operators.**
```r
  substr(x, nchar(x)-n+1, nchar(x))
                     ~^~
```
[inst/src/RunAPI.R:27:3:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/RunAPI.R#L27) *style:* **Place a space before left parenthesis, except in a function call.**
```r
if(!file.exists(file.path(DATA,"log"))) dir.create(file.path(DATA,"log"))
  ^
```
[inst/src/RunAPI.R:27:32:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/RunAPI.R#L27) *style:* **Commas should always have a space after.**
```r
if(!file.exists(file.path(DATA,"log"))) dir.create(file.path(DATA,"log"))
                               ^
```
[inst/src/RunAPI.R:27:67:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/RunAPI.R#L27) *style:* **Commas should always have a space after.**
```r
if(!file.exists(file.path(DATA,"log"))) dir.create(file.path(DATA,"log"))
                                                                  ^
```
[inst/src/RunAPI.R:29:34:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/RunAPI.R#L29) *style:* **Commas should always have a space after.**
```r
CONFIG <- readRDS(file.path(DATA,"config.RDS"))
                                 ^
```
[inst/src/RunAPI.R:34:30:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/RunAPI.R#L34) *style:* **Commas should always have a space after.**
```r
dr <- readRDS(file.path(DATA,"resRecentLine.RDS"))
                             ^
```
[inst/src/RunAPI.R:36:41:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/RunAPI.R#L36) *style:* **Put spaces around all infix operators.**
```r
dateMin <- as.character(as.Date(dateMax)-365)
                                       ~^~
```
[inst/src/RunAPI.R:37:14:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/9b09bd39297b08c7b15437b632097b49c7019044/inst/src/RunAPI.R#L37) *style:* **Put spaces around all infix operators.**
```r
dr <- dr[date>=dateMin]
            ~^~~
```


Have a quick look maybe at how oracle documented their classes:
http://developer.classpath.org/doc/java/util/ArrayList-source.html


This patch isn't actually needed. It was easier to customize here than to change all our documentation and external Verilog to use a different default address for memory-mapped I/O. Arguably it belong with the memory size patch as both are just adaptations to suit local memory circumstances.


delete `@return`


постарайся не оставлять пробелы в конце строки и пустые строки с пробелами
для большинства редакторов существуют настройки при которых удаление "trailing white-spaces" происходит автоматически (например при сохранении файла)
поищи такую настройку для своего редактора

у тебя к примеру в  хеше все строки заканчиваются пробелом


Project 2 and its requirements.


Сохрани проверку в переменную с осмысленным названием, затем используй в условии:
```
equilateral_triangle = side_1 == side_2 && side_1 == hypotenuse
if equilateral_triangle
  ...
end
```
Это более читабельно.
Вместо `and` [предпочтительнее](https://github.com/rubocop-hq/ruby-style-guide#no-and-or-or) `&&`


Обрати внимание, что по ТЗ на равнобедренность нужно проверять только прямоугольный треугольник


TeamCity Xbim :: Xbim Essentials :: XbimEssentials [Build 173](http://xbimbuilds.cloudapp.net/viewLog.html?buildId=1968&buildTypeId=XbimEssentials_XbimEssentials) is now running


> hi. why wasn't this in a PR?

since `git-server@0.9.10` didn't introduce breaking API changes and all tests completed successfully i considered it safe to commit.

>  I think the new git-server doesn't work on CircleCI.

all jobs completed successfully except for the `version pre-release` job:
https://circleci.com/gh/adobe/helix-simulator/460

it seems like an intermittent failure, the following job completed successfully:
https://circleci.com/gh/adobe/helix-simulator/461


в многострочных `while` не рекомендуется использовать `do`


Successfully aliased the URL <https://deck-wnjtzfqoaw.now.sh> to the following alias.

* https://deckroyale.now.sh


reverted and use another way to fix #12978 at https://github.com/ant-design/ant-design/commit/664089ecf60d1338974a259ced5d5daea53f0850


This is not true, the addon is working and tbe author support it regularly.
https://github.com/nightflyer73/plugin.video.raitv/issues/40


[Пробелы вокруг операторов](https://github.com/rubocop-hq/ruby-style-guide#spaces-operators)


TeamCity Xbim :: Xbim Essentials :: XbimEssentials [Build 173](http://xbimbuilds.cloudapp.net/viewLog.html?buildId=1968&buildTypeId=XbimEssentials_XbimEssentials) outcome was **FAILURE**
Summary: Exit code 1 Build time: 00:01:10


I added a few extra lines to XMLModule at this point so that the FakeRepInfo that gets passed to it by the UnitTest is accessible. At the stage of this push it kind of looks like it just gets swallowed in the parse() method, but there's a few other things that might be happening...

For instance, you can clone() it - that might mean something...

... or something might be happening around the circular dependency - RepInfo gets created somewhere in JHoveBase, which then passes itself to the XMLModule.

Or maybe it just gets swallowed in the XMLModule, but is used more meaningfully by other modules?

Time may tell - but at least with the additional changes added here we've got a better chance of not only finding out, but recording what we find...


Successfully aliased the URL <https://flippr-74ynb09d0.now.sh> to the following alias.

* https://flippr.now.sh


По ТЗ нужно вывести обращение по имени.
Имя должно быть с заглавной буквы, независимо от ввода


despues de arreglar el problema del blog, segun las instrcciones de 836f0ff, al entrar en el blog me da el error :
**An exception occurred while executing 'SELECT DATE_FORMAT(FROM_UNIXTIME(date), '%Y-%c') as ranges FROM object_ GROUP BY DATE_FORMAT(FROM_UNIXTIME(date), '%b-%Y') ORDER BY ranges ASC':

SQLSTATE[42S02]: Base table or view not found: 1146 Table 'bitnami_pimcore.object_' doesn't exist

Doctrine\DBAL\Exception\
TableNotFoundException
in vendor/doctrine/dbal/lib/Doctrine/DBAL/Driver/AbstractMySQLDriver.php (line 62)**

Gracias por su tiempo


Новая строка в конце файла


Nice!


這行漂亮


可以贴一下配置，host=/home/mysql/log_slow.log是archer数据库的配置错了


> But it seems you want to force people to figure out how to configure their editors to keep all the whitespace errors and malformed constructs in the code. I seriously do not understand this attitude.

I'm not forcing anybody to do anything. I'm just saying "don't change code outside of your additions". If some developers have their editor setup to auto changes certain things it's really not my problem to be honest, but I can't accept the PR. That being said the large majority of PR are just fine so these guidelines are sufficient for now.


```
============================= test session starts ==============================
platform linux -- Python 3.5.2, pytest-3.9.2, py-1.7.0, pluggy-0.8.0
rootdir: /root/tmp/pycharm_project_473, inifile:
plugins: cov-2.6.0
collected 1 item

engine/test_modules.py Formatting '/opt/D9ONSUWW.qcow2', fmt=qcow2 size=10737418240 encryption=off cluster_size=65536 lazy_refcounts=off refcount_bits=16
.

========================== 1 passed in 92.99 seconds ===========================
```


Fully compatible with Laravel 5.7

--------------------
С уважением,
Райский Роман
Email:	rariteth@gmail.com <mailto:rariteth@gmail.com>
  ICQ: 	334-554-044
Phone: 	+7 926 716 4411

> 11 нояб. 2018 г., в 15:30, tpw1314 <notifications@github.com> написал(а):
>
> hey there, just want to ask are you in the progress to upgrade this cart to Laravel 5.7 ?
>
> —
> You are receiving this because you authored the thread.
> Reply to this email directly, view it on GitHub <https://github.com/rariteth/laravel-cart/commit/3b8808df6e3e5e0c71a67cbb8120463bd3ea47b8#commitcomment-31253658>, or mute the thread <https://github.com/notifications/unsubscribe-auth/AAMfF9--0Nz01LXJ6a9OvixwghTY2VkCks5uuBhrgaJpZM4YYdev>.
>


why?


You forgot to add wgCreateWikiDatabase to global.


Did you have OMP problems on pixelproc? Never saw one... :(


@tombentley Why was this blog post reverted? Are there known problems running Strimzi on AKS or ...?


The version in this repo was broken for sure. I think you are using master version from https://github.com/nightflyer73/plugin.video.raitv, but the version here missed the following changes https://github.com/nightflyer73/plugin.video.raitv/compare/ca31ab3...master.
The maintainer can resubmit the addon if it is working.


There are several unrelated issues here. The ability to customise the reset vector is useful to allow the processor to start executing from memory-mapped I/O memory, but also to revert to the standard cached DDR memory for ISA tests.

The number of interrupts required is a platform setting and in my view belongs with the memory address and size customizations.

The JTAG customization is a difficult one. Obviously it would have been better if the RISCV foundation had considered the hardware limitations of choosing their data register numbers and IR lengths of major FPGA vendors before settling the debug spec. On the other hand if you don't mind adding external hardware to the board there is no need to change numbers. But as a hardware engineer I feel adding extra hardware which has no purpose other than to fix up oversights in software is a bad idea.

In order to run this version of JTAG in simulation it would be necessary, as well as changing riscv-tests, to provide a simulation of the fixed portion of the internal Xilinx JTAG operation. However since the changes are minor and emulation is so much more effective I did not bother with this detail. It is sufficient to very ISA operation with the unmodified netlist. Someone who knows Chisel better than me could probably merge the two versions into a parameter or even a top-level multiplexer select pin if needed.

On the other hand if everything worked cleanly out of the box, I would be out of a job!


If I am not mistaken, font-weight should be from 100 to 900 🙄


lol


重新commit


Настрой текстовый редактор, чтобы добавлял автоматически, если пропущена


Ололо. Пыщ пыщ пыщ.


afficher le user


Remove this comment please.


No but I've tested if it helps eliminating interpolation artifacts. After some testig it turned out I did not. So we can put back those pragmas.


Hey there,

I looked back to this project and noticed in the description the pictures had to be stored locally and linked to the code. So I modified the code accordingly and uploaded as per request. Took me a little while to figure out the right way.


Successfully aliased the URL <https://tunnckocorerelease-lgsbdeukar.now.sh> to the following alias.

* https://tunnckocore-release.now.sh


Excellent doc!
just delete `@return`


Successfully aliased the URL <https://docs-api-dnekyzjmsz.now.sh> to the following alias.

* https://docs.api.nuxtjs.org


Build version: __`0.10.0-renovate/node-8.12.590`__ :crossed_fingers: [`renovate/node-8.12`](https://github.com/streamich/ci-scripts/tree/renovate/node-8.12) on [*Travis*](https://travis-ci.org/streamich/ci-scripts/builds/453857599) :tada:


Oh ! Excellente feature ! :D
Merci pour ca


randint is exclusive in highs


If you need it I'll put it back. When I've been removing it, by mistake, I thought it was in dual_iso.c. Well I was wrong but when I realized this it was late, I already pushed commit ;)


Btw I was trying to create a leaf-list by following the libyang xpath howtos here (https://netopeer.liberouter.org/doc/libyang/master/howtoxpath.html) but I was getting a pretty obscure `libyang: Too many predicates` error, it took me a while to realize that your code in `nb_candidate_edit()` was attempting to fix the xpath by appending `value` (in my case 'null') to my already correctly formed xpath. Not sure that we should do this in the northbound, but at the very least we should provide a better error message and/or document it better.


moxi


this validation is already covered by the yang string pattern for `net-address`, I will remove it


Grande Kryohi !!
In bocca al "lupo trentino" per la tesi.


Nice job! 👍


dddddd


why did you remove this option? Caused any problems? I used it heavily.. what alternative do we have to set the window size by default?


voice head file！


# Entwurfsmuster

Arten von Entwurfsmustern:

1. Creational Patterns (Gang of Four)
Singleton
Stellt sicher, dass von einer Klasse genau ein Objekt existiert, dieses ist global verfügbar (= Antipattern)
Prototype
Neue Instanzen werden aufgrund prototypischer Instanzen erzeugt, dabei wird die Vorlage kopiert und an neue Bedürfnisse angepasst
Factory Method
Erzeugt ein Objekt durch Aufruf einer Methode anstatt durch direkten Aufruf eines Konstruktors
Builder
Trennt die Konstruktion komplexer Objekte von deren Repräsentationen
Abstract Factory
Definiert eine Schnittstelle zur Erzeugung einer Familie von Objekten

2. Structural Patterns (Gang of Four)
Decorator
Kann eine Klasse um zusätzliche Funktionalitäten erweitern
Facade
Bietet eine einheitliche und meist vereinfachte Schnittstelle zu einer Menge von Schnittstellen eines Subsystems
Adapter
Dient zur Übersetzung einer Schnittstelle in eine andere, dadurch wird die Kommunikation von Klassen mit zueinander inkompatiblen Schnittstellen ermöglicht
Bridge
Dient zur Trennung der Implementierung von ihrer Abstraktion (Schnittstelle), wodurch beide unabhängig voneinander verändert werden können
Flyweight
Kann bei einer Vielzahl gleicher Objekte durch Auslagerungen Ressoucen einsparen
Composite
Kann Teil-Ganzes-Hierarchien repräsentieren
Proxy
Das Muster ist in der Lage ein anderes Objekt zu steuern

3. Behavioral Patterns (Gang of Four)
Observer
Greift bei bestimmten Ereignis ein
Memento
Lesezeichen setzen oder Undo-Mechanismen
Iterator
Implementierung der Datenstruktur bleibt verborgen
Strategy
Definiert eine Familie austauschbarer Algorithmen
State
Kapselung unterschiedlicher, zustandsabhängiger Verhaltensweisen eines Objektes
Command
Empfänger und Clients sind entkoppelt
Chain Of Responsibility
Wird für Algorithmen verwendet
Visitor
Kapselung von Operationen, es können so unterschiedliche Operationen definiert werden
Interpreter
Ist in der Lage Werte und Zustände zu interpretieren
Template Method
Ist in der Lage einen Algorithmus variabel zu gestalten
Mediator
Vermittelt zwischen verschiedenen Objekten, ohne dass diese Objekte direkt miteinander kommunizieren

4. Weitere Entwurfsmuster
Dependency Injection (DI)
Durch DI ist es möglich Abhängigkeiten zwischen verschiedenen Objekten aufzulösen
Model View Controller (MVC)
Trennt eine Software in drei Einheiten auf, was zu einer einfacheren Wartbarkeit und Erweiterbarkeit führt


fair point, and I will change it, but then is there ever a use for `NB_ERR_NO_CHANGES`?


let's not use `TVM` acronym in docs.
Either write `{@link TransactionViewModel}` or a "transaction object" (anyhows I am plotting to remove TVM from the code for a long time).

"perform some basic validation" -> "perform some basic validation with {@link TransactionValidator#runValidation}" to provide a link to the user so he can farther understand what the code is doing.


Successfully aliased the URL <https://davidspiessensbe-cppzjimzyk.now.sh> to the following alias.

* https://davidspiessens.be


Is removing this check and the one below needed for what you're trying to do? If so, you'll need to also update the tests (see the failures from Travis CI).


[R/graphs.R:239:1:](https://github.com/folkehelseinstituttet/fhi/blob/eea4987f39e5823351c0aad1b108a3fd1e88417b/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/eea4987f39e5823351c0aad1b108a3fd1e88417b/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/eea4987f39e5823351c0aad1b108a3fd1e88417b/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/eea4987f39e5823351c0aad1b108a3fd1e88417b/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/eea4987f39e5823351c0aad1b108a3fd1e88417b/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/eea4987f39e5823351c0aad1b108a3fd1e88417b/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/eea4987f39e5823351c0aad1b108a3fd1e88417b/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/eea4987f39e5823351c0aad1b108a3fd1e88417b/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/eea4987f39e5823351c0aad1b108a3fd1e88417b/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/eea4987f39e5823351c0aad1b108a3fd1e88417b/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/eea4987f39e5823351c0aad1b108a3fd1e88417b/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/eea4987f39e5823351c0aad1b108a3fd1e88417b/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/eea4987f39e5823351c0aad1b108a3fd1e88417b/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/eea4987f39e5823351c0aad1b108a3fd1e88417b/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/eea4987f39e5823351c0aad1b108a3fd1e88417b/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/eea4987f39e5823351c0aad1b108a3fd1e88417b/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/eea4987f39e5823351c0aad1b108a3fd1e88417b/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/eea4987f39e5823351c0aad1b108a3fd1e88417b/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/eea4987f39e5823351c0aad1b108a3fd1e88417b/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/eea4987f39e5823351c0aad1b108a3fd1e88417b/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/eea4987f39e5823351c0aad1b108a3fd1e88417b/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/eea4987f39e5823351c0aad1b108a3fd1e88417b/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/eea4987f39e5823351c0aad1b108a3fd1e88417b/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/eea4987f39e5823351c0aad1b108a3fd1e88417b/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/eea4987f39e5823351c0aad1b108a3fd1e88417b/tests/testthat/test.R#L6) *style:* **Commented code should be removed.**
```r
  # rmarkdown::render(input=f,output_dir = tempdir())
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```


eigenlijk mag je col-md-0 weglaten. als je sm-0 gebruikt worden alle waardes boven sm, totdat je een nieuwe geeft (in dit geval lg) ook 0.


Looks awesome! I hope I can merge it to the main branch this week and you will become the first external contributor!
Thanks Chloe!


TeamCity Xbim :: Xbim Essentials :: XbimEssentials [Build 174](http://xbimbuilds.cloudapp.net/viewLog.html?buildId=1969&buildTypeId=XbimEssentials_XbimEssentials) is now running


please merge this.


TeamCity Xbim :: Xbim Essentials :: XbimEssentials [Build 174](http://xbimbuilds.cloudapp.net/viewLog.html?buildId=1969&buildTypeId=XbimEssentials_XbimEssentials) outcome was **FAILURE**
Summary: Cannot start build runner Build time: 00:00:13


Thanks! I'll fix it.


TeamCity Xbim :: Xbim Essentials :: XbimEssentials [Build 175](http://xbimbuilds.cloudapp.net/viewLog.html?buildId=1970&buildTypeId=XbimEssentials_XbimEssentials) is now running