[inst/src/plumb/plumb_testing.R:11:4:](https://github.com/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/inst/src/plumb/plumb_testing.R#L16) *style:* **Trailing blank lines are superfluous.**
```r

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

^~
```
[inst/src/plumb/plumb.R:14:5:](https://github.com/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/inst/src/plumb/plumb.R#L15) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[inst/src/plumb/plumb.R:17:26:](https://github.com/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/inst/src/plumb/plumb.R#L84) *style:* **Trailing whitespace is superfluous.**
```r

^
```
[inst/src/plumb/plumb.R:86:21:](https://github.com/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/inst/src/plumb/plumb.R#L97) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[inst/src/plumb/plumb.R:98:20:](https://github.com/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/inst/src/plumb/plumb.R#L100) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[inst/src/plumb/plumb.R:107:60:](https://github.com/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/inst/src/plumb/plumb.R#L111) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[inst/src/plumb/plumb.R:112:5:](https://github.com/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/inst/src/plumb/plumb.R#L129) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[inst/src/plumb/plumb.R:132:11:](https://github.com/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/inst/src/plumb/plumb.R#L160) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[inst/src/plumb/plumb.R:161:5:](https://github.com/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/inst/src/plumb/plumb.R#L255) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[inst/src/plumb/plumb.R:256:20:](https://github.com/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/inst/src/plumb/plumb.R#L263) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[inst/src/plumb/plumb.R:266:11:](https://github.com/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/inst/src/plumb/plumb.R#L279) *style:* **Trailing blank lines are superfluous.**
```r

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

^
```
[inst/src/RunAPI.R:1:3:](https://github.com/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/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:12:](https://github.com/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/inst/src/RunAPI.R#L2) *warning:* **Do not use absolute paths.**
```r
  HOME <- "/r/sykdomspuls/src"
           ^~
```
[inst/src/RunAPI.R:4:12:](https://github.com/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/inst/src/RunAPI.R#L4) *warning:* **Do not use absolute paths.**
```r
  DATA <- "/data_app/sykdomspuls"
           ^~~~~~~~~
```
[inst/src/RunAPI.R:6:12:](https://github.com/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/inst/src/RunAPI.R#L6) *warning:* **Do not use absolute paths.**
```r
  HOME <- "C:/Sykdomspulsen"
           ^~~~~~~~~~~~~~~~
```
[inst/src/RunAPI.R:7:28:](https://github.com/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/inst/src/RunAPI.R#L7) *style:* **Commas should always have a space after.**
```r
  PLUMB <- file.path("src","R","plumb")
                           ^
```
[inst/src/RunAPI.R:7:32:](https://github.com/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/inst/src/RunAPI.R#L7) *style:* **Commas should always have a space after.**
```r
  PLUMB <- file.path("src","R","plumb")
                               ^
```
[inst/src/RunAPI.R:8:12:](https://github.com/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/inst/src/RunAPI.R#L8) *warning:* **Do not use absolute paths.**
```r
  DATA <- "C:/Sykdomspulsen/data"
           ^~~~~~~~~~~~~~~~~~~~~
```
[inst/src/RunAPI.R:17:21:](https://github.com/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/inst/src/RunAPI.R#L17) *style:* **Put spaces around all infix operators.**
```r
  substr(x, nchar(x)-n+1, nchar(x))
                   ~^~
```
[inst/src/RunAPI.R:17:23:](https://github.com/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/inst/src/RunAPI.R#L17) *style:* **Put spaces around all infix operators.**
```r
  substr(x, nchar(x)-n+1, nchar(x))
                     ~^~
```
[inst/src/RunAPI.R:21:3:](https://github.com/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/inst/src/RunAPI.R#L21) *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:21:32:](https://github.com/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/inst/src/RunAPI.R#L21) *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:21:67:](https://github.com/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/inst/src/RunAPI.R#L21) *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:23:34:](https://github.com/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/inst/src/RunAPI.R#L23) *style:* **Commas should always have a space after.**
```r
CONFIG <- readRDS(file.path(DATA,"config.RDS"))
                                 ^
```
[inst/src/RunAPI.R:28:30:](https://github.com/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/inst/src/RunAPI.R#L28) *style:* **Commas should always have a space after.**
```r
dr <- readRDS(file.path(DATA,"resRecentLine.RDS"))
                             ^
```
[inst/src/RunAPI.R:30:41:](https://github.com/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/inst/src/RunAPI.R#L30) *style:* **Put spaces around all infix operators.**
```r
dateMin <- as.character(as.Date(dateMax)-365)
                                       ~^~
```
[inst/src/RunAPI.R:31:14:](https://github.com/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/inst/src/RunAPI.R#L31) *style:* **Put spaces around all infix operators.**
```r
dr <- dr[date>=dateMin]
            ~^~~
```
[inst/src/RunAPI.R:32:29:](https://github.com/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/inst/src/RunAPI.R#L32) *style:* **Commas should always have a space after.**
```r
d <- readRDS(file.path(DATA,"resYearLine.RDS"))
                            ^
```
[inst/src/RunAPI.R:33:30:](https://github.com/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/inst/src/RunAPI.R#L33) *style:* **Commas should always have a space after.**
```r
dk <- readRDS(file.path(DATA,"resYearLineMunicip.RDS"))
                             ^
```
[inst/src/RunAPI.R:39:2:](https://github.com/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/inst/src/RunAPI.R#L39) *style:* **Commented code should be removed.**
```r
#dr[,age:=gsub("\\+","p",age)]
 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/src/RunAPI.R:40:2:](https://github.com/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/inst/src/RunAPI.R#L40) *style:* **Commented code should be removed.**
```r
#d[,age:=gsub("\\+","p",age)]
 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/src/RunAPI.R:41:2:](https://github.com/raubreywhite/dashboards_sykdomspuls/blob/6e10b164672a22464b9a76cef34b7ab6ebc11523/inst/src/RunAPI.R#L41) *style:* **Commented code should be removed.**
```r
#dk[,age:=gsub("\\+","p",age)]
 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```


![](https://github.trello.services/images/mini-trello-icon.png) [Wire front-end to Back-end](https://trello.com/c/S8b9M6b5/23-wire-front-end-to-back-end)


Капитализировать имя не логично. Капитализация идёт первой буквы предложения, поэтому надо оставить
buf[0] = UPPER(buf[0]);
Оно работает. У Бодрича возможно не работает потому что он компилирует из исходников в cp1251?
Ну если сильно хочется, можно сделать
buf[0] = toupper(buf[0]);