[inst/src/plumb/plumb_testing.R:11:4:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/932c7538f986432f6ddad192a02b1dd40287210d/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/folkehelseinstituttet/dashboards_sykdomspuls/blob/932c7538f986432f6ddad192a02b1dd40287210d/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/folkehelseinstituttet/dashboards_sykdomspuls/blob/932c7538f986432f6ddad192a02b1dd40287210d/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/folkehelseinstituttet/dashboards_sykdomspuls/blob/932c7538f986432f6ddad192a02b1dd40287210d/inst/src/RunAPI.R#L6) *warning:* **Do not use absolute paths.**
```r
  HOME <- "C:/Sykdomspulsen"
           ^~~~~~~~~~~~~~~~
```
[inst/src/RunAPI.R:7:28:](https://github.com/folkehelseinstituttet/dashboards_sykdomspuls/blob/932c7538f986432f6ddad192a02b1dd40287210d/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/folkehelseinstituttet/dashboards_sykdomspuls/blob/932c7538f986432f6ddad192a02b1dd40287210d/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/folkehelseinstituttet/dashboards_sykdomspuls/blob/932c7538f986432f6ddad192a02b1dd40287210d/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/folkehelseinstituttet/dashboards_sykdomspuls/blob/932c7538f986432f6ddad192a02b1dd40287210d/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/folkehelseinstituttet/dashboards_sykdomspuls/blob/932c7538f986432f6ddad192a02b1dd40287210d/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/folkehelseinstituttet/dashboards_sykdomspuls/blob/932c7538f986432f6ddad192a02b1dd40287210d/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/folkehelseinstituttet/dashboards_sykdomspuls/blob/932c7538f986432f6ddad192a02b1dd40287210d/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/folkehelseinstituttet/dashboards_sykdomspuls/blob/932c7538f986432f6ddad192a02b1dd40287210d/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/folkehelseinstituttet/dashboards_sykdomspuls/blob/932c7538f986432f6ddad192a02b1dd40287210d/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/folkehelseinstituttet/dashboards_sykdomspuls/blob/932c7538f986432f6ddad192a02b1dd40287210d/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/folkehelseinstituttet/dashboards_sykdomspuls/blob/932c7538f986432f6ddad192a02b1dd40287210d/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/folkehelseinstituttet/dashboards_sykdomspuls/blob/932c7538f986432f6ddad192a02b1dd40287210d/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/folkehelseinstituttet/dashboards_sykdomspuls/blob/932c7538f986432f6ddad192a02b1dd40287210d/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/folkehelseinstituttet/dashboards_sykdomspuls/blob/932c7538f986432f6ddad192a02b1dd40287210d/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/folkehelseinstituttet/dashboards_sykdomspuls/blob/932c7538f986432f6ddad192a02b1dd40287210d/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/folkehelseinstituttet/dashboards_sykdomspuls/blob/932c7538f986432f6ddad192a02b1dd40287210d/inst/src/RunAPI.R#L40) *style:* **Commented code should be removed.**
```r
#d[,age:=gsub("\\+","p",age)]
 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
```


javac -d 中的-d是为了不生成.class文件，隐式执行吧大概，不然就会出现无法加载主类的尴尬问题


Now could not deploy this pull request as it was unable to determine the deployment type.
The repo contains both a Dockerfile and a package.json.

To fix this, set the type field in now.json.

For more information on now.json visit https://zeit.co/docs/features/configuration#now.json.


Like


cpp -> nullptr
c -> NULL
In order to to improve the code base, it'd be better to start using more c++ features.


Change
 onMouseDown: () => {
          console.log("on click", item);
},

To,

 onMouseDown: () => {
    console.log("on click", item);
   this.setState({clickedItem: item})
    },


sure, I'm gone wait with a PR upstream until we have finished all modules. Since we gone change a lot of files I would like to happen this in one PR in upstream.

OK, I'm gone wait for the next PR from you. I would suggest package for package. It is the way I would rebase commits for the PR to upstream. One package (femsolver, etc) in one commit. You can rebase my commit above inside your commits to get just one commit for femsolver package. All this is mainly your work.

bernd


Oh and that test didn't make sense (approving to expect a 307)


This broke `popmotion` since there was no release of `popcorn@0.1.1`.


needs to be removed


二维数组是有序的，从右上角来看，向左数字递减，向下数字递增。
因此从右上角开始查找，

当要查找数字比右上角数字大时，下移；
当要查找数字比右上角数字小时，左移；
如果出了边界，则说明二维数组中不存在该整数。


Thx for fixing a lot of issues regarding python3 and especially supporting python3.7 (which now works and which didn't work when it came out so I had to stick to 3.6 ) it failed before running the application more specifically at `app = web.application(urls, globals())` part but it does seem to work now 👍
Thx again!


Multiplicação de matrizes:

Mat *multMat(Mat *M1, Mat *M2)
{

	int x, y, z, l, c, Mmult[M1->l][M1->c], Maux;

	printf("\nMultiplicacao das matrizes %s + %s : \n", M1->nome, M2->nome);

	for( x=0; x<M1->l; x++)
		 {
		    printf("| ");

			  for( y=0; y<M1->c; y++)
			  {
			  	Maux=0;
					for( z=0; z<M1->l; z++)
			 		{
				  		Maux+=M1->M[x][z]*M2->M[z][y];
			  	}
					Mmult[x][y]=Maux;
					printf("%d ", Mmult[x][y]);
			  }
		    printf("|\n");
		 }
}


remove


jkblobn


@Kapim Neměl jsem vše rozběhnuté, abych opravdu mohl ověřit že to jede, ale zkompilovat to jde. V CMakeLists.txt je cesta k grpc natvrdo - tam by asi bylo dobrý to přidat jako submodul vtapi a pak tam dát relativní cestu...


whitespace added for slack integration.


Why is this deprecated, and what should developers use instead?


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

* https://cjhaviland.tech


This seems like a very special-purpose predicate. Can you elaborate a bit on why we need it to only rely on the local value?


hello


Successfully aliased the URL <https://magento-venia-ljbatzkhyv.now.sh> to the following alias.

* https://magento-venia.now.sh


hello red


The funny thing is, I literally only noticed this message because I was testing the new client...

It was crazy digging up this change. A lot of past changes were so much older than I thought. Apparently `client-topbar.js` was split off from `client.js` nearly three years ago; it feels more recent than that.


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

* https://packagephobia.now.sh


Yes please, we should keep the CPU and GPU versions consistent. I like the isotropic defaults as well.


Version 1.5 050


Now could not deploy this pull request as it was unable to determine the deployment type.
The repo contains both a Dockerfile and a package.json.

To fix this, set the type field in now.json.

For more information on now.json visit https://zeit.co/docs/features/configuration#now.json.


kjnw wv kw j wvwkkvwj w wvkw vwv wvwv wwkjvvkwv wvwkv wv w v wv wv wv wvwkv wvkjw vwkv wv wkv wv kvwkv wk


vkjwkwv ew vwkv kv wkvjwvekwjvewe kwekwvewkv eewkjvewv ewvewjvewkewjkev v wvwejkvwejkvwejkvev ewkjjv wkv wejvwevewjkvevewewj


Yes but even in preview mode all main block headers are loaded... strange.


@alexandergol


[R/parDist.R:23:1:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/R/parDist.R#L23) *style:* **Variable or function name should be snake_case.**
```r
parDist <- parallelDist <- function(x, method = "euclidean", diag = FALSE, upper = FALSE, threads = NULL, ...) {
^~~~~~~
```
[R/parDist.R:23:12:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/R/parDist.R#L23) *style:* **Variable or function name should be snake_case.**
```r
parDist <- parallelDist <- function(x, method = "euclidean", diag = FALSE, upper = FALSE, threads = NULL, ...) {
           ^~~~~~~~~~~~
```
[R/parDist.R:24:3:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/R/parDist.R#L24) *style:* **Variable or function name should be snake_case.**
```r
  METHODS <- c("bhjattacharyya", "bray", "canberra", "chord", "divergence",
  ^~~~~~~
```
[R/parDist.R:32:3:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/R/parDist.R#L32) *style:* **Variable or function name should be snake_case.**
```r
  methodIdx <- pmatch(method, METHODS)
  ^~~~~~~~~
```
[R/parDist.R:39:3:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/R/parDist.R#L39) *style:* **Variable or function name should be snake_case.**
```r
  step.pattern.name <- getStepPatternName(arguments)
  ^~~~~~~~~~~~~~~~~
```
[R/parDist.R:46:5:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/R/parDist.R#L46) *style:* **Variable or function name should be snake_case.**
```r
    funcPtr <- arguments[["func"]]
    ^~~~~~~
```
[R/parDist.R:58:3:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/R/parDist.R#L58) *style:* **Variable or function name should be snake_case.**
```r
  N <- ifelse(is.list(x), length(x), nrow(x))
  ^
```
[R/parDist.R:64:5:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/R/parDist.R#L64) *style:* **Variable or function name should be snake_case.**
```r
    methods.first.row.only <- c("chord", "geodesic", "podani")
    ^~~~~~~~~~~~~~~~~~~~~~
```
[R/parDist.R:80:1:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/R/parDist.R#L80) *style:* **Variable or function name should be snake_case.**
```r
getType <- function(code) {
^~~~~~~
```
[R/parDist.R:87:1:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/R/parDist.R#L87) *style:* **Variable or function name should be snake_case.**
```r
getStepPatternName <- function(arguments) {
^~~~~~~~~~~~~~~~~~
```
[R/parDist.R:88:3:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/R/parDist.R#L88) *style:* **Variable or function name should be snake_case.**
```r
  step.pattern.name <- NA
  ^~~~~~~~~~~~~~~~~
```
[R/parDist.R:89:3:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/R/parDist.R#L89) *style:* **Variable or function name should be snake_case.**
```r
  supported.patterns.names <- c("asymmetric", "asymmetricP0", "asymmetricP05", "asymmetricP1", "asymmetricP2",
  ^~~~~~~~~~~~~~~~~~~~~~~~
```
[R/parDist.R:91:3:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/R/parDist.R#L91) *style:* **Variable or function name should be snake_case.**
```r
  sp.candidate <- arguments[["step.pattern"]]
  ^~~~~~~~~~~~
```
[R/parDist.R:95:7:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/R/parDist.R#L95) *style:* **Variable or function name should be snake_case.**
```r
      supported.patterns <- list(
      ^~~~~~~~~~~~~~~~~~
```
[R/parDist.R:100:7:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/R/parDist.R#L100) *style:* **Variable or function name should be snake_case.**
```r
      sp.found <- sapply(supported.patterns, FUN = function(x){
      ^~~~~~~~
```
[R/parDist.R:110:9:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/R/parDist.R#L110) *style:* **Variable or function name should be snake_case.**
```r
        sp.found <- supported.patterns.names == sp.candidate
        ^~~~~~~~
```
[R/parDist.R:114:7:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/R/parDist.R#L114) *style:* **Variable or function name should be snake_case.**
```r
      step.pattern.name <- supported.patterns.names[which(sp.found)]
      ^~~~~~~~~~~~~~~~~
```
[R/parDist.R:122:1:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/R/parDist.R#L122) *style:* **Variable or function name should be snake_case.**
```r
checkPtr <- function(ptr) {
^~~~~~~~
```
[R/parDist.R:125:3:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/R/parDist.R#L125) *style:* **Variable or function name should be snake_case.**
```r
  actualReturnType <- attr(ptr, "type")
  ^~~~~~~~~~~~~~~~
```
[R/parDist.R:126:3:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/R/parDist.R#L126) *style:* **Variable or function name should be snake_case.**
```r
  expectedReturnType <- "double"
  ^~~~~~~~~~~~~~~~~~
```
[R/parDist.R:128:3:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/R/parDist.R#L128) *style:* **Variable or function name should be snake_case.**
```r
  actualArgTypes <- sapply(attr(ptr, "args"), getType, USE.NAMES = FALSE)
  ^~~~~~~~~~~~~~
```
[R/parDist.R:129:3:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/R/parDist.R#L129) *style:* **Variable or function name should be snake_case.**
```r
  expectedArgTypes <- rep("const arma::mat&", 2)
  ^~~~~~~~~~~~~~~~
```
[R/RcppExports.R:4:1:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/R/RcppExports.R#L4) *style:* **Variable or function name should be snake_case.**
```r
cpp_parallelDistVec <- function(dataList, attrs, arguments) {
^~~~~~~~~~~~~~~~~~~
```
[R/RcppExports.R:4:33:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/R/RcppExports.R#L4) *style:* **Variable or function name should be snake_case.**
```r
cpp_parallelDistVec <- function(dataList, attrs, arguments) {
                                ^~~~~~~~
```
[R/RcppExports.R:8:1:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/R/RcppExports.R#L8) *style:* **Variable or function name should be snake_case.**
```r
cpp_parallelDistMatrixVec <- function(dataMatrix, attrs, arguments) {
^~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/RcppExports.R:8:39:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/R/RcppExports.R#L8) *style:* **Variable or function name should be snake_case.**
```r
cpp_parallelDistMatrixVec <- function(dataMatrix, attrs, arguments) {
                                      ^~~~~~~~~~
```
[tests/testthat.R:23:1:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/tests/testthat.R#L23) *style:* **Variable or function name should be snake_case.**
```r
isCran <- function() {
^~~~~~
```
[tests/testthat/testMatrixCustomDistances.R:22:1:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/tests/testthat/testMatrixCustomDistances.R#L22) *style:* **Variable or function name should be snake_case.**
```r
mat.sample1 <- matrix(c(0, 1, 0, 1, 0, 0, 1, 0), nrow = 2)
^~~~~~~~~~~
```
[tests/testthat/testMatrixCustomDistances.R:23:1:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/tests/testthat/testMatrixCustomDistances.R#L23) *style:* **Variable or function name should be snake_case.**
```r
mat.sample2 <- matrix(c(0, 1, 0, 1, 0, 0, 1, 0, 1, 1), nrow = 2)
^~~~~~~~~~~
```
[tests/testthat/testMatrixCustomDistances.R:24:1:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/tests/testthat/testMatrixCustomDistances.R#L24) *style:* **Variable or function name should be snake_case.**
```r
mat.sample3 <- matrix(c(1:500), ncol = 5)
^~~~~~~~~~~
```
[tests/testthat/testMatrixCustomDistances.R:25:1:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/tests/testthat/testMatrixCustomDistances.R#L25) *style:* **Variable or function name should be snake_case.**
```r
mat.sample4 <- matrix(rep(0, 100), ncol = 5)
^~~~~~~~~~~
```
[tests/testthat/testMatrixCustomDistances.R:26:1:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/tests/testthat/testMatrixCustomDistances.R#L26) *style:* **Variable or function name should be snake_case.**
```r
mat.sample5 <- matrix(c(-500:499), ncol = 5)
^~~~~~~~~~~
```
[tests/testthat/testMatrixCustomDistances.R:27:1:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/tests/testthat/testMatrixCustomDistances.R#L27) *style:* **Variable or function name should be snake_case.**
```r
mat.sample6 <- matrix(c(1:2), ncol = 1)
^~~~~~~~~~~
```
[tests/testthat/testMatrixCustomDistances.R:28:1:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/tests/testthat/testMatrixCustomDistances.R#L28) *style:* **Variable or function name should be snake_case.**
```r
mat.sample7 <- matrix(c(0.5, 1, 0, 1, 0, 0, 1, 0.3, 1, 1), nrow = 2)
^~~~~~~~~~~
```
[tests/testthat/testMatrixCustomDistances.R:30:1:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/tests/testthat/testMatrixCustomDistances.R#L30) *style:* **Variable or function name should be snake_case.**
```r
mat.list <- list(mat.sample1, mat.sample2, mat.sample3, mat.sample4, mat.sample5, mat.sample6, mat.sample7)
^~~~~~~~
```
[tests/testthat/testMatrixCustomDistances.R:33:3:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/tests/testthat/testMatrixCustomDistances.R#L33) *style:* **Variable or function name should be snake_case.**
```r
  mat.list <- mat.list[1:4]
  ^~~~~~~~
```
[tests/testthat/testMatrixCustomDistances.R:36:1:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/tests/testthat/testMatrixCustomDistances.R#L36) *style:* **Variable or function name should be snake_case.**
```r
testMatrixEquality <- function(matrix, comparisonMethod, func, ...) {
^~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixCustomDistances.R:36:40:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/tests/testthat/testMatrixCustomDistances.R#L36) *style:* **Variable or function name should be snake_case.**
```r
testMatrixEquality <- function(matrix, comparisonMethod, func, ...) {
                                       ^~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixCustomDistances.R:41:1:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/tests/testthat/testMatrixCustomDistances.R#L41) *style:* **Variable or function name should be snake_case.**
```r
testMatrixListEquality <- function(matlist, comparisonMethod, func, ...) {
^~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixCustomDistances.R:41:45:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/tests/testthat/testMatrixCustomDistances.R#L41) *style:* **Variable or function name should be snake_case.**
```r
testMatrixListEquality <- function(matlist, comparisonMethod, func, ...) {
                                            ^~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixDistances.R:22:1:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/tests/testthat/testMatrixDistances.R#L22) *style:* **Variable or function name should be snake_case.**
```r
mat.sample1 <- matrix(c(0, 1, 0, 1, 0, 0, 1, 0), nrow = 2)
^~~~~~~~~~~
```
[tests/testthat/testMatrixDistances.R:23:1:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/tests/testthat/testMatrixDistances.R#L23) *style:* **Variable or function name should be snake_case.**
```r
mat.sample2 <- matrix(c(0, 1, 0, 1, 0, 0, 1, 0, 1, 1), nrow = 2)
^~~~~~~~~~~
```
[tests/testthat/testMatrixDistances.R:24:1:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/tests/testthat/testMatrixDistances.R#L24) *style:* **Variable or function name should be snake_case.**
```r
mat.sample3 <- matrix(c(1:500), ncol = 5)
^~~~~~~~~~~
```
[tests/testthat/testMatrixDistances.R:25:1:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/tests/testthat/testMatrixDistances.R#L25) *style:* **Variable or function name should be snake_case.**
```r
mat.sample4 <- matrix(rep(0, 100), ncol = 5)
^~~~~~~~~~~
```
[tests/testthat/testMatrixDistances.R:26:1:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/tests/testthat/testMatrixDistances.R#L26) *style:* **Variable or function name should be snake_case.**
```r
mat.sample5 <- matrix(c(-500:499), ncol = 5)
^~~~~~~~~~~
```
[tests/testthat/testMatrixDistances.R:27:1:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/tests/testthat/testMatrixDistances.R#L27) *style:* **Variable or function name should be snake_case.**
```r
mat.sample6 <- matrix(c(1:2), ncol = 1)
^~~~~~~~~~~
```
[tests/testthat/testMatrixDistances.R:28:1:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/tests/testthat/testMatrixDistances.R#L28) *style:* **Variable or function name should be snake_case.**
```r
mat.sample7 <- matrix(c(0.5, 1, 0, 1, 0, 0, 1, 0.3, 1, 1), nrow = 2)
^~~~~~~~~~~
```
[tests/testthat/testMatrixDistances.R:30:1:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/tests/testthat/testMatrixDistances.R#L30) *style:* **Variable or function name should be snake_case.**
```r
mat.list <- list(mat.sample1, mat.sample2, mat.sample3, mat.sample4, mat.sample5, mat.sample6, mat.sample7)
^~~~~~~~
```
[tests/testthat/testMatrixDistances.R:33:3:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/tests/testthat/testMatrixDistances.R#L33) *style:* **Variable or function name should be snake_case.**
```r
  mat.list <- mat.list[1:4]
  ^~~~~~~~
```
[tests/testthat/testMatrixDistances.R:36:1:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/tests/testthat/testMatrixDistances.R#L36) *style:* **Variable or function name should be snake_case.**
```r
testMatrixEquality <- function(matrix, method, ...) {
^~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixDistances.R:41:1:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/tests/testthat/testMatrixDistances.R#L41) *style:* **Variable or function name should be snake_case.**
```r
testMatrixListEquality <- function(matlist, method, ...) {
^~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixDistances.R:97:3:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/tests/testthat/testMatrixDistances.R#L97) *style:* **Variable or function name should be snake_case.**
```r
  mat.mahalanobis <- cbind(1:6, 1:3)
  ^~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixDistances.R:104:3:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/tests/testthat/testMatrixDistances.R#L104) *style:* **Variable or function name should be snake_case.**
```r
  mat.mahalanobis <- cbind(1:6, 1:3)
  ^~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixDistances.R:105:3:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/tests/testthat/testMatrixDistances.R#L105) *style:* **Variable or function name should be snake_case.**
```r
  mat.list <- list(mat.mahalanobis, mat.mahalanobis)
  ^~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:22:1:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/tests/testthat/testMatrixDTWDistances.R#L22) *style:* **Variable or function name should be snake_case.**
```r
mat.sample1 <- matrix(c(0, 1, 0, 1, 0, 0, 1, 0), nrow = 2)
^~~~~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:23:1:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/tests/testthat/testMatrixDTWDistances.R#L23) *style:* **Variable or function name should be snake_case.**
```r
mat.sample2 <- matrix(c(0, 1, 0, 1, 0, 0, 1, 0, 1, 1), nrow = 2)
^~~~~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:24:1:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/tests/testthat/testMatrixDTWDistances.R#L24) *style:* **Variable or function name should be snake_case.**
```r
mat.sample3 <- matrix(c(0, 1, 0, 1, 0, 0, 1, 0, 1, 1, 0, 1), nrow = 3)
^~~~~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:25:1:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/tests/testthat/testMatrixDTWDistances.R#L25) *style:* **Variable or function name should be snake_case.**
```r
mat.sample4 <- matrix(c(1:100), ncol = 5)
^~~~~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:26:1:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/tests/testthat/testMatrixDTWDistances.R#L26) *style:* **Variable or function name should be snake_case.**
```r
mat.sample5 <- matrix(rep(0, 100), ncol = 5)
^~~~~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:27:1:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/tests/testthat/testMatrixDTWDistances.R#L27) *style:* **Variable or function name should be snake_case.**
```r
mat.sample6 <- matrix(c(-50:49), ncol = 5)
^~~~~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:28:1:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/tests/testthat/testMatrixDTWDistances.R#L28) *style:* **Variable or function name should be snake_case.**
```r
mat.sample7 <- matrix(c(1:8), ncol = 2)
^~~~~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:29:1:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/tests/testthat/testMatrixDTWDistances.R#L29) *style:* **Variable or function name should be snake_case.**
```r
mat.sample8 <- matrix(c(1:15), ncol = 5)
^~~~~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:30:1:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/tests/testthat/testMatrixDTWDistances.R#L30) *style:* **Variable or function name should be snake_case.**
```r
mat.sample9 <- matrix(c(1, 88, 55, 72, 3, 33, 44, 11, 3, 42, 52,
^~~~~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:34:1:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/tests/testthat/testMatrixDTWDistances.R#L34) *style:* **Variable or function name should be snake_case.**
```r
mat.list <- list(mat.sample1, mat.sample2, mat.sample3, mat.sample4,
^~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:38:3:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/tests/testthat/testMatrixDTWDistances.R#L38) *style:* **Variable or function name should be snake_case.**
```r
  mat.list <- mat.list[1:5]
  ^~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:42:1:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/tests/testthat/testMatrixDTWDistances.R#L42) *style:* **Variable or function name should be snake_case.**
```r
testMatrixEquality <- function(matrix, method, ...) {
^~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:46:1:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/tests/testthat/testMatrixDTWDistances.R#L46) *style:* **Variable or function name should be snake_case.**
```r
testMatrixEqualityForMatList <- function(matlist, method, ...) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixListDistances.R:22:1:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/tests/testthat/testMatrixListDistances.R#L22) *style:* **Variable or function name should be snake_case.**
```r
matToList <- function(matrix, vert=TRUE) {
^~~~~~~~~
```
[tests/testthat/testMatrixListDistances.R:36:1:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/tests/testthat/testMatrixListDistances.R#L36) *style:* **Variable or function name should be snake_case.**
```r
mat.sample1 <- matrix(c(0, 1, 0, 1, 0, 0, 1, 0), nrow = 2)
^~~~~~~~~~~
```
[tests/testthat/testMatrixListDistances.R:37:1:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/tests/testthat/testMatrixListDistances.R#L37) *style:* **Variable or function name should be snake_case.**
```r
mat.sample2 <- matrix(c(0, 1, 0, 1, 0, 0, 1, 0, 1, 1), nrow = 2)
^~~~~~~~~~~
```
[tests/testthat/testMatrixListDistances.R:38:1:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/tests/testthat/testMatrixListDistances.R#L38) *style:* **Variable or function name should be snake_case.**
```r
mat.sample3 <- matrix(c(1:500), ncol = 5)
^~~~~~~~~~~
```
[tests/testthat/testMatrixListDistances.R:39:1:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/tests/testthat/testMatrixListDistances.R#L39) *style:* **Variable or function name should be snake_case.**
```r
mat.sample4 <- matrix(rep(0, 100), ncol = 5)
^~~~~~~~~~~
```
[tests/testthat/testMatrixListDistances.R:40:1:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/tests/testthat/testMatrixListDistances.R#L40) *style:* **Variable or function name should be snake_case.**
```r
mat.sample5 <- matrix(c(-500:499), ncol = 5)
^~~~~~~~~~~
```
[tests/testthat/testMatrixListDistances.R:41:1:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/tests/testthat/testMatrixListDistances.R#L41) *style:* **Variable or function name should be snake_case.**
```r
mat.sample6 <- matrix(c(1:2), ncol = 1)
^~~~~~~~~~~
```
[tests/testthat/testMatrixListDistances.R:42:1:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/tests/testthat/testMatrixListDistances.R#L42) *style:* **Variable or function name should be snake_case.**
```r
mat.sample7 <- matrix(c(0.5, 1, 0, 1, 0, 0, 1, 0.3, 1, 1), nrow = 2)
^~~~~~~~~~~
```
[tests/testthat/testMatrixListDistances.R:44:1:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/tests/testthat/testMatrixListDistances.R#L44) *style:* **Variable or function name should be snake_case.**
```r
mat.list <- list(mat.sample1, mat.sample2, mat.sample3, mat.sample4, mat.sample5, mat.sample6, mat.sample7)
^~~~~~~~
```
[tests/testthat/testMatrixListDistances.R:45:1:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/tests/testthat/testMatrixListDistances.R#L45) *style:* **Variable or function name should be snake_case.**
```r
matlist.list.h <- lapply(mat.list, function(x) matToList(x, vert = FALSE))
^~~~~~~~~~~~~~
```
[tests/testthat/testMatrixListDistances.R:48:3:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/tests/testthat/testMatrixListDistances.R#L48) *style:* **Variable or function name should be snake_case.**
```r
  mat.list <- mat.list[1:4]
  ^~~~~~~~
```
[tests/testthat/testMatrixListDistances.R:49:3:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/tests/testthat/testMatrixListDistances.R#L49) *style:* **Variable or function name should be snake_case.**
```r
  matlist.list.h <- lapply(mat.list, function(x) matToList(x, vert = FALSE))
  ^~~~~~~~~~~~~~
```
[tests/testthat/testMatrixListDistances.R:52:1:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/tests/testthat/testMatrixListDistances.R#L52) *style:* **Variable or function name should be snake_case.**
```r
testMatrixListMatrixEquality <- function(matList, matrix, method, ...) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixListDistances.R:52:42:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/tests/testthat/testMatrixListDistances.R#L52) *style:* **Variable or function name should be snake_case.**
```r
testMatrixListMatrixEquality <- function(matList, matrix, method, ...) {
                                         ^~~~~~~
```
[tests/testthat/testMatrixListDistances.R:56:1:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/tests/testthat/testMatrixListDistances.R#L56) *style:* **Variable or function name should be snake_case.**
```r
testMatrixListEquality <- function(matListList, matList, method, ...) {
^~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixListDistances.R:56:36:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/tests/testthat/testMatrixListDistances.R#L56) *style:* **Variable or function name should be snake_case.**
```r
testMatrixListEquality <- function(matListList, matList, method, ...) {
                                   ^~~~~~~~~~~
```
[tests/testthat/testMatrixListDistances.R:56:49:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/tests/testthat/testMatrixListDistances.R#L56) *style:* **Variable or function name should be snake_case.**
```r
testMatrixListEquality <- function(matListList, matList, method, ...) {
                                                ^~~~~~~
```
[tests/testthat/testMatrixListDistances.R:57:19:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/tests/testthat/testMatrixListDistances.R#L57) *style:* **Variable or function name should be snake_case.**
```r
  mapply(function(X, Y) {
                  ^
```
[tests/testthat/testMatrixListDistances.R:57:22:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/tests/testthat/testMatrixListDistances.R#L57) *style:* **Variable or function name should be snake_case.**
```r
  mapply(function(X, Y) {
                     ^
```
[tests/testthat/testMatrixListDTWDistances.R:24:1:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/tests/testthat/testMatrixListDTWDistances.R#L24) *style:* **Variable or function name should be snake_case.**
```r
matList.sample1 <- list(structure(c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
^~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixListDTWDistances.R:32:1:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/tests/testthat/testMatrixListDTWDistances.R#L32) *style:* **Variable or function name should be snake_case.**
```r
matList.sample2 <- list(structure(c(0, 0.666221290024121, 0.992138579223845, 0.837675741488087,
^~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixListDTWDistances.R:68:1:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/tests/testthat/testMatrixListDTWDistances.R#L68) *style:* **Variable or function name should be snake_case.**
```r
matListList <- list(matList.sample1, matList.sample2)
^~~~~~~~~~~
```
[tests/testthat/testMatrixListDTWDistances.R:73:1:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/tests/testthat/testMatrixListDTWDistances.R#L73) *style:* **Variable or function name should be snake_case.**
```r
calcDTWDistMatForMatList <- function(matrixList, step.pattern) {
^~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixListDTWDistances.R:73:38:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/tests/testthat/testMatrixListDTWDistances.R#L73) *style:* **Variable or function name should be snake_case.**
```r
calcDTWDistMatForMatList <- function(matrixList, step.pattern) {
                                     ^~~~~~~~~~
```
[tests/testthat/testMatrixListDTWDistances.R:73:50:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/tests/testthat/testMatrixListDTWDistances.R#L73) *style:* **Variable or function name should be snake_case.**
```r
calcDTWDistMatForMatList <- function(matrixList, step.pattern) {
                                                 ^~~~~~~~~~~~
```
[tests/testthat/testMatrixListDTWDistances.R:74:3:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/tests/testthat/testMatrixListDTWDistances.R#L74) *style:* **Variable or function name should be snake_case.**
```r
  matrixListLength <- length(matrixList)
  ^~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixListDTWDistances.R:91:1:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/tests/testthat/testMatrixListDTWDistances.R#L91) *style:* **Variable or function name should be snake_case.**
```r
testDtwMatrixListEquality <- function(matList, threads = 2, ...) {
^~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixListDTWDistances.R:91:39:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/tests/testthat/testMatrixListDTWDistances.R#L91) *style:* **Variable or function name should be snake_case.**
```r
testDtwMatrixListEquality <- function(matList, threads = 2, ...) {
                                      ^~~~~~~
```
[tests/testthat/testMatrixListDTWDistances.R:99:3:](https://github.com/alexeckert/parallelDist/blob/218cf8369b4912364f89e33512b7002b6c16e48f/tests/testthat/testMatrixListDTWDistances.R#L99) *style:* **Variable or function name should be snake_case.**
```r
  threadsForTest <- 2
  ^~~~~~~~~~~~~~
```


fasset > asset


很棒


no comment


add into dev