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

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

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

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

^
```


What happens if `msg.value` is an odd number?


# Specs execution successful
:scroll: [View logs](http://bamboo.comnull)
### Plans updated

Bamboo specs have been successfully imported and the following plans have been updated.

Project | Plan | Build
---|---|---
[Test](http://bamboo.com/browse/TEST) | [Comment test](http://bamboo.com/browse/TEST-CTEST)  | :white_check_mark: [\#1](http://bamboo.com/browse/TEST-CTEST-1)
[New project](http://bamboo.com/browse/NEW) | [Disabled plan](http://bamboo.com/browse/NEW-DISABLED) **disabled** | :white_check_mark: [\#1](http://bamboo.com/browse/NEW-DISABLED-1)

### Deployments updated

Bamboo specs have been successfully imported and the following deployment projects have been updated.

|Deployment project |
----|
[Deployment test](http://bamboo.com/deploy/viewDeploymentProjectVersions.action?id=2162689)|


It looks like this field is never used.


It is wrong to hardcode simple things like the owner. You should instead pass it as a parameter to the constructor.


OKi


Because this looked nasty as compared to the new version.


[inst/src/plumb/plumb_testing.R:11:4:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/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/3210139e71b1855081c79890defaa335f8d6edd7/inst/src/RunAPI.R#L37) *style:* **Put spaces around all infix operators.**
```r
dr <- dr[date>=dateMin]
            ~^~~
```


Можно не вводить _expressionBConverted_, а сразу _expressionB_ закастить


I'm getting compile failures now:

`
../src/propgrid/propgrid.cpp:147:11: error: missing 'typename' prior to dependent type name
      'std::vector<T>::const_iterator'
    for ( wxVector<T>::const_iterator it = vector.begin(); it != vector.end(); ++it )
          ^~~~~~~~~~~~~~~~~~~~~~~~~~~
          typename
../include/wx/vector.h:22:18: note: expanded from macro 'wxVector'
#define wxVector std::vector
                 ^
clang++ -mmacosx-version-min=10.10 -stdlib=libc++ -c -o propgriddll_propgridpagestate.o  -D__WXOSX_COCOA__      -DWXBUILDING -I/Users/dkulp/working/wxWidgets/build/src/tiff/libtiff -I../src/tiff/libtiff -I../src/jpeg -I../src/png  -I../src/regex -I../src/expat/expat/lib -DWXUSINGDLL -DWXMAKINGDLL_PROPGRID -dynamic -fPIC -DPIC -Wall -Wundef -Wunused-parameter -Wno-ctor-dtor-privacy -Woverloaded-virtual -Wno-deprecated-declarations -D_FILE_OFFSET_BITS=64 -I/Users/dkulp/working/wxWidgets/build/lib/wx/include/osx_cocoa-unicode-3.1 -I../include -stdlib=libc++ -g -O0 -arch x86_64 -stdlib=libc++ -std=gnu++14 -g -fno-common -fvisibility=hidden -fvisibility-inlines-hidden ../src/propgrid/propgridpagestate.cpp
1 error generated.
make: *** [propgriddll_propgrid.o] Error 1
make: *** Waiting for unfinished jobs....
../src/propgrid/propgridpagestate.cpp:57:10: error: missing 'typename' prior to dependent type name
      'std::vector<T>::iterator'
    for (wxVector<T>::iterator it = vector.begin(); it != vector.end(); ++it)
         ^~~~~~~~~~~~~~~~~~~~~
         typename
../include/wx/vector.h:22:18: note: expanded from macro 'wxVector'
#define wxVector std::vector
                 ^
../src/propgrid/propgridpagestate.cpp:75:10: error: missing 'typename' prior to dependent type name
      'std::vector<T>::const_iterator'
    for (wxVector<T>::const_iterator it = vector.begin(); it != vector.end(); ++it)
         ^~~~~~~~~~~~~~~~~~~~~~~~~~~
         typename
../include/wx/vector.h:22:18: note: expanded from macro 'wxVector'
#define wxVector std::vector
                 ^
2 errors generated.
`


These are here to override the existing admin files.


> When release 1.7.5?

Hi @PeterStudioWeb, due to several unexpected events, 1.7.5 release date has been postponed to November 26, you can see it on the milestone: https://github.com/PrestaShop/PrestaShop/milestone/41

However please note that this is a target date: we are about to open a beta phase for 1.7.5 to allow people from the PrestaShop community to download an try 1.7.5, and if they find bugs they can report the bugs to us on github.

Once these bugs are fixed we will release PrestaShop 1.7.5. We will not release PrestaShop 1.7.5 on November 26th if there are still critical known bugs: what we value first is the quality of the software you use every day.

Also, please do not use github comments on github to ask these questions 😅 this is not their primary goal. The best place to ask these questions is our gitter channel : https://gitter.im/PrestaShop/General