[R/in-degree.R:186:20:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/in-degree.R#L186) *style:* **Remove spaces before the left parenthesis in a function call.**
```r
          function (x) {
                   ^
```
[R/ingoing-contact-chain.R:183:20:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/ingoing-contact-chain.R#L183) *style:* **Remove spaces before the left parenthesis in a function call.**
```r
          function (x) {
                   ^
```
[R/ingoing-contact-chain.R:189:46:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/ingoing-contact-chain.R#L189) *style:* **Commas should always have a space after.**
```r
              return(length(setdiff(x@source,x@root)))
                                             ^
```
[R/ingoing-contact-chain.R:197:20:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/ingoing-contact-chain.R#L197) *style:* **Remove spaces before the left parenthesis in a function call.**
```r
          function (x) {
                   ^
```
[R/network-structure.R:127:39:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/network-structure.R#L127) *style:* **Put spaces around all infix operators.**
```r
                         deparse.level=0)
                                     ~^~
```
[R/network-structure.R:135:1:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/network-structure.R#L135) *style:* **Lines should not be more than 80 characters.**
```r
              i <- tmp[seq_len(length(tmp) - 1)] != tmp[seq_len(length(tmp))[-1]]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/network-summary.R:248:1:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/network-summary.R#L248) *style:* **Lines should not be more than 80 characters.**
```r
                     inDays = as.integer(x@ingoingContacts@tEnd - x@ingoingContacts@tBegin),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/network-summary.R:251:1:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/network-summary.R#L251) *style:* **Lines should not be more than 80 characters.**
```r
                     outDays = as.integer(x@outgoingContacts@tEnd - x@outgoingContacts@tBegin),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/network-summary.R:254:1:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/network-summary.R#L254) *style:* **Lines should not be more than 80 characters.**
```r
                     ingoingContactChain = IngoingContactChain(x@ingoingContacts),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/network-summary.R:255:1:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/network-summary.R#L255) *style:* **Lines should not be more than 80 characters.**
```r
                     outgoingContactChain = OutgoingContactChain(x@outgoingContacts))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/network-summary.R:261:1:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/network-summary.R#L261) *style:* **functions should have cyclomatic complexity of less than 15, this has 38.**
```r
setMethod("NetworkSummary",
^
```
[R/network-summary.R:280:20:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/network-summary.R#L280) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          } else if(!is.character(x$source)) {
                   ^
```
[R/network-summary.R:286:20:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/network-summary.R#L286) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          } else if(!is.character(x$destination)) {
                   ^
```
[R/network-summary.R:315:1:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/network-summary.R#L315) *style:* **Lines should not be more than 80 characters.**
```r
              ## so test that root is a integer the same way as binom.test test x
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/network-summary.R:323:20:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/network-summary.R#L323) *style:* **Only use double-quotes.**
```r
              stop('invalid class of root')
                   ^~~~~~~~~~~~~~~~~~~~~~~
```
[R/network-summary.R:331:1:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/network-summary.R#L331) *style:* **Lines should not be more than 80 characters.**
```r
              if (!all(is.null(inBegin), is.null(inEnd), is.null(outBegin), is.null(outEnd))) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/network-summary.R:332:1:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/network-summary.R#L332) *style:* **Lines should not be more than 80 characters.**
```r
                  stop("Use either tEnd and days or inBegin, inEnd, outBegin and outEnd in call to NetworkSummary")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/network-summary.R:343:1:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/network-summary.R#L343) *style:* **Lines should not be more than 80 characters.**
```r
              ## Test that days is a nonnegative integer the same way as binom.test test x
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/network-summary.R:345:1:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/network-summary.R#L345) *style:* **Lines should not be more than 80 characters.**
```r
              if (any(is.na(days) | (days < 0)) || max(abs(days - daysr)) > 1e-07) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/network-summary.R:360:67:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/network-summary.R#L360) *style:* **Put spaces around all infix operators.**
```r
              root <- rep(root, each = n.tEnd * n.days, length.out=n)
                                                                 ~^~
```
[R/network-summary.R:365:1:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/network-summary.R#L365) *style:* **Lines should not be more than 80 characters.**
```r
          } else if (all(!is.null(inBegin), !is.null(inEnd), !is.null(outBegin), !is.null(outEnd))) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/network-summary.R:370:1:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/network-summary.R#L370) *style:* **Lines should not be more than 80 characters.**
```r
                  stop("Use either tEnd and days or inBegin, inEnd, outBegin and outEnd in call to NetworkSummary")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/network-summary.R:373:1:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/network-summary.R#L373) *style:* **Lines should not be more than 80 characters.**
```r
              stop("Use either tEnd and days or inBegin, inEnd, outBegin and outEnd in call to NetworkSummary")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/network-summary.R:456:1:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/network-summary.R#L456) *style:* **Lines should not be more than 80 characters.**
```r
              stop("root, inBegin, inEnd, outBegin and outEnd must have equal length")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/network-summary.R:468:24:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/network-summary.R#L468) *style:* **Put spaces around all infix operators.**
```r
          contact_chain<- .Call("networkSummary",
                      ~^
```
[R/network-summary.R:469:1:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/network-summary.R#L469) *style:* **Lines should not be more than 80 characters.**
```r
                                as.integer(factor(x$source, levels = levels(nodes))),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/network-summary.R:470:1:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/network-summary.R#L470) *style:* **Lines should not be more than 80 characters.**
```r
                                as.integer(factor(x$destination, levels = levels(nodes))),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/network-summary.R:472:1:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/network-summary.R#L472) *style:* **Lines should not be more than 80 characters.**
```r
                                as.integer(factor(root, levels = levels(nodes))),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/network-summary.R:489:1:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/network-summary.R#L489) *style:* **Lines should not be more than 80 characters.**
```r
                            ingoingContactChain = contact_chain[["ingoingContactChain"]],
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/network-summary.R:490:1:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/network-summary.R#L490) *style:* **Lines should not be more than 80 characters.**
```r
                            outgoingContactChain = contact_chain[["outgoingContactChain"]]))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/out-degree.R:119:1:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/out-degree.R#L119) *style:* **Lines should not be more than 80 characters.**
```r
##'     Get the OutDegree for a data.frame with movements, see details and examples.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/out-degree.R:176:20:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/out-degree.R#L176) *style:* **Remove spaces before the left parenthesis in a function call.**
```r
          function (x)
                   ^
```
[R/out-degree.R:177:7:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/out-degree.R#L177) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
      {
      ^
```
[R/out-degree.R:178:13:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/out-degree.R#L178) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(!identical(x@direction, "out")) {
            ^
```
[R/out-degree.R:182:54:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/out-degree.R#L182) *style:* **Put spaces around all infix operators.**
```r
          return(length(unique(x@destination[x@source==x@root])))
                                                    ~^~~
```
[R/out-degree.R:190:20:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/out-degree.R#L190) *style:* **Remove spaces before the left parenthesis in a function call.**
```r
          function (x)
                   ^
```
[R/out-degree.R:191:7:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/out-degree.R#L191) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
      {
      ^
```
[R/out-degree.R:210:7:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/out-degree.R#L210) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
      {
      ^
```
[R/out-degree.R:211:13:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/out-degree.R#L211) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(missing(root)) {
            ^
```
[R/out-degree.R:215:13:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/out-degree.R#L215) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(all(is.null(tEnd), is.null(days))) {
            ^
```
[R/outgoing-contact-chain.R:67:1:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/outgoing-contact-chain.R#L67) *style:* **Lines should not be more than 80 characters.**
```r
##'     The \code{\link{OutgoingContactChain}} of the root within the time-interval
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/outgoing-contact-chain.R:77:1:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/outgoing-contact-chain.R#L77) *style:* **Lines should not be more than 80 characters.**
```r
##'     Get the OutgoingContactChain for a data.frame with movements, see examples.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/outgoing-contact-chain.R:135:20:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/outgoing-contact-chain.R#L135) *style:* **Remove spaces before the left parenthesis in a function call.**
```r
          function (x)
                   ^
```
[R/outgoing-contact-chain.R:136:7:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/outgoing-contact-chain.R#L136) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
      {
      ^
```
[R/outgoing-contact-chain.R:137:13:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/outgoing-contact-chain.R#L137) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(!identical(x@direction, "out")) {
            ^
```
[R/outgoing-contact-chain.R:138:1:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/outgoing-contact-chain.R#L138) *style:* **Lines should not be more than 80 characters.**
```r
              stop("Unable to determine OutgoingContactChain for ingoing contacts")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/outgoing-contact-chain.R:141:47:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/outgoing-contact-chain.R#L141) *style:* **Commas should always have a space after.**
```r
          return(length(setdiff(x@destination,x@root)))
                                              ^
```
[R/outgoing-contact-chain.R:149:20:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/outgoing-contact-chain.R#L149) *style:* **Remove spaces before the left parenthesis in a function call.**
```r
          function (x)
                   ^
```
[R/outgoing-contact-chain.R:150:7:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/outgoing-contact-chain.R#L150) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
      {
      ^
```
[R/outgoing-contact-chain.R:169:7:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/outgoing-contact-chain.R#L169) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
      {
      ^
```
[R/outgoing-contact-chain.R:170:13:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/outgoing-contact-chain.R#L170) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(missing(root)) {
            ^
```
[R/outgoing-contact-chain.R:174:13:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/outgoing-contact-chain.R#L174) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(all(is.null(tEnd), is.null(days))) {
            ^
```
[R/plot.R:73:7:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/plot.R#L73) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
      {
      ^
```
[R/plot.R:81:13:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/plot.R#L81) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(!is.null(tree$ingoing)) {
            ^
```
[R/plot.R:82:70:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/plot.R#L82) *style:* **Put spaces around all infix operators.**
```r
              tree$ingoing <- position_tree(tree$ingoing, orientation="South")
                                                                    ~^~
```
[R/plot.R:83:1:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/plot.R#L83) *style:* **Lines should not be more than 80 characters.**
```r
              tree$ingoing$bg <- ifelse(tree$ingoing$level > 0, "white", "black")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/plot.R:94:13:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/plot.R#L94) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(!is.null(tree$outgoing)) {
            ^
```
[R/plot.R:96:1:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/plot.R#L96) *style:* **Lines should not be more than 80 characters.**
```r
              tree$outgoing$bg <- ifelse(tree$outgoing$level > 0, "gray", "black")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/plot.R:105:17:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/plot.R#L105) *style:* **Place a space before left parenthesis, except in a function call.**
```r
              if(is.null(vertices)) {
                ^
```
[R/plot.R:108:64:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/plot.R#L108) *style:* **Commas should always have a space after.**
```r
                  vertices <- rbind(vertices, tree$outgoing[-1,])
                                                               ^
```
[R/plot.R:112:13:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/plot.R#L112) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(!is.null(vertices)) {
            ^
```
[R/plot.R:116:17:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/plot.R#L116) *style:* **Place a space before left parenthesis, except in a function call.**
```r
              if(!is.null(edges_in)) {
                ^
```
[R/plot.R:118:32:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/plot.R#L118) *style:* **Put spaces around all infix operators.**
```r
                         length=0)
                              ~^~
```
[R/plot.R:121:17:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/plot.R#L121) *style:* **Place a space before left parenthesis, except in a function call.**
```r
              if(!is.null(edges_out)) {
                ^
```
[R/plot.R:123:32:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/plot.R#L123) *style:* **Put spaces around all infix operators.**
```r
                         length=0)
                              ~^~
```
[R/report.R:22:7:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/report.R#L22) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(identical(direction, "in")) {
      ^
```
[R/report.R:30:8:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/report.R#L30) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    for(i in seq_len(nrow(contacts))) {
       ^
```
[R/report.R:35:1:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/report.R#L35) *style:* **Lines should not be more than 80 characters.**
```r
                   paste(rep("<td> </td>", 2L*(contacts$distance[i]-1L)), collapse = ""),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/report.R:35:51:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/report.R#L35) *style:* **Put spaces around all infix operators.**
```r
                   paste(rep("<td> </td>", 2L*(contacts$distance[i]-1L)), collapse = ""),
                                                 ~^~
```
[R/report.R:35:52:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/report.R#L35) *style:* **Place a space before left parenthesis, except in a function call.**
```r
                   paste(rep("<td> </td>", 2L*(contacts$distance[i]-1L)), collapse = ""),
                                                   ^
```
[R/report.R:35:73:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/report.R#L35) *style:* **Put spaces around all infix operators.**
```r
                   paste(rep("<td> </td>", 2L*(contacts$distance[i]-1L)), collapse = ""),
                                                                       ~^~
```
[R/report.R:44:1:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/report.R#L44) *style:* **Lines should not be more than 80 characters.**
```r
                             2L*(max(contacts$distance-1L) - (contacts$distance[i]-1L))),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/report.R:44:32:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/report.R#L44) *style:* **Put spaces around all infix operators.**
```r
                             2L*(max(contacts$distance-1L) - (contacts$distance[i]-1L))),
                              ~^~
```
[R/report.R:44:33:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/report.R#L44) *style:* **Place a space before left parenthesis, except in a function call.**
```r
                             2L*(max(contacts$distance-1L) - (contacts$distance[i]-1L))),
                                ^
```
[R/report.R:44:55:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/report.R#L44) *style:* **Put spaces around all infix operators.**
```r
                             2L*(max(contacts$distance-1L) - (contacts$distance[i]-1L))),
                                                     ~^~
```
[R/report.R:44:83:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/report.R#L44) *style:* **Put spaces around all infix operators.**
```r
                             2L*(max(contacts$distance-1L) - (contacts$distance[i]-1L))),
                                                                                ~^~
```
[R/report.R:56:7:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/report.R#L56) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(identical(direction, "in")) {
      ^
```
[R/report.R:62:77:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/report.R#L62) *style:* **Commas should always have a space after.**
```r
    contacts <- contacts[order(contacts$t, contacts$id, decreasing = FALSE),]
                                                                            ^
```
[R/report.R:73:1:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/report.R#L73) *style:* **Lines should not be more than 80 characters.**
```r
    as.character(unlist(by(contacts, sprintf("%s - %s", contacts$lhs, contacts$rhs), function(x) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/report.R:78:1:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/report.R#L78) *style:* **Lines should not be more than 80 characters.**
```r
                   sprintf('<h3><a name="%s-%s-%s">%s %s %s</a></h3>', direction,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/report.R:81:1:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/report.R#L81) *style:* **Lines should not be more than 80 characters.**
```r
                   "<tr><th>Date</th><th>Id</th><th>N</th><th>Category</th><th>Source</th><th>Destination</th></tr>")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/report.R:83:12:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/report.R#L83) *style:* **Place a space before left parenthesis, except in a function call.**
```r
        for(i in seq_len(nrow(x))) {
           ^
```
[R/report.R:104:1:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/report.R#L104) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
{
^
```
[R/report.R:113:1:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/report.R#L113) *style:* **Lines should not be more than 80 characters.**
```r
               sprintf("<h3 align='center'>Version: %s</h3>", packageVersion("EpiContactTrace")),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/report.R:118:1:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/report.R#L118) *style:* **Lines should not be more than 80 characters.**
```r
               sprintf("<tr><td>In begin date:</td><td>%s</td></tr>", x@ingoingContacts@tBegin),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/report.R:119:1:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/report.R#L119) *style:* **Lines should not be more than 80 characters.**
```r
               sprintf("<tr><td>In end date:</td><td>%s</td></tr>", x@ingoingContacts@tEnd),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/report.R:120:1:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/report.R#L120) *style:* **Lines should not be more than 80 characters.**
```r
               sprintf("<tr><td>In days:</td><td>%i</td></tr>", x@ingoingContacts@tEnd - x@ingoingContacts@tBegin),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/report.R:121:1:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/report.R#L121) *style:* **Lines should not be more than 80 characters.**
```r
               sprintf("<tr><td>In degree:</td><td>%i</td></tr>", InDegree(x@ingoingContacts)),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/report.R:122:1:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/report.R#L122) *style:* **Lines should not be more than 80 characters.**
```r
               sprintf("<tr><td>Ingoing contact chain:</td><td>%i</td></tr>", IngoingContactChain(x@ingoingContacts)),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/report.R:126:7:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/report.R#L126) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(length(x@ingoingContacts@source) > 0L) {
      ^
```
[R/report.R:136:1:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/report.R#L136) *style:* **Lines should not be more than 80 characters.**
```r
        lines <- c(lines, "<p>No ingoing contacts during the search period.</p>")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/report.R:144:1:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/report.R#L144) *style:* **Lines should not be more than 80 characters.**
```r
               sprintf("<tr><td>Out begin date:</td><td>%s</td></tr>", x@outgoingContacts@tBegin),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/report.R:145:1:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/report.R#L145) *style:* **Lines should not be more than 80 characters.**
```r
               sprintf("<tr><td>Out end date:</td><td>%s</td></tr>", x@outgoingContacts@tEnd),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/report.R:146:1:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/report.R#L146) *style:* **Lines should not be more than 80 characters.**
```r
               sprintf("<tr><td>Out days:</td><td>%i</td></tr>", x@outgoingContacts@tEnd - x@outgoingContacts@tBegin),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/report.R:147:1:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/report.R#L147) *style:* **Lines should not be more than 80 characters.**
```r
               sprintf("<tr><td>Out degree:</td><td>%i</td></tr>", OutDegree(x@outgoingContacts)),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/report.R:148:1:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/report.R#L148) *style:* **Lines should not be more than 80 characters.**
```r
               sprintf("<tr><td>Outgoing contact chain:</td><td>%i</td></tr>", OutgoingContactChain(x@outgoingContacts)),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/report.R:152:7:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/report.R#L152) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(length(x@outgoingContacts@source) > 0L) {
      ^
```
[R/report.R:162:1:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/report.R#L162) *style:* **Lines should not be more than 80 characters.**
```r
        lines <- c(lines, "<p>No outgoing contacts during the search period.</p>")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/report.R:165:7:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/report.R#L165) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(length(x@ingoingContacts@source) > 0L) {
      ^
```
[R/report.R:177:69:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/report.R#L177) *style:* **Commas should always have a space after.**
```r
                   html_detailed_table(df[df$destination == df$root,], "in"))
                                                                    ^
```
[R/report.R:179:44:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/report.R#L179) *style:* **Commas should always have a space after.**
```r
        df <- df[df$destination != df$root,]
                                           ^
```
[R/report.R:180:11:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/report.R#L180) *style:* **Place a space before left parenthesis, except in a function call.**
```r
        if(nrow(df) > 0) {
          ^
```
[R/report.R:188:7:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/report.R#L188) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(length(x@outgoingContacts@source) > 0L) {
      ^
```
[R/report.R:199:53:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/report.R#L199) *style:* **Commas should always have a space after.**
```r
        html_detailed_table(df[df$source == df$root,], "out")
                                                    ^
```
[R/report.R:201:39:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/report.R#L201) *style:* **Commas should always have a space after.**
```r
        df <- df[df$source != df$root,]
                                      ^
```
[R/report.R:202:11:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/report.R#L202) *style:* **Place a space before left parenthesis, except in a function call.**
```r
        if(nrow(df) > 0) {
          ^
```
[R/report.R:238:1:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/report.R#L238) *style:* **Lines should not be more than 80 characters.**
```r
##' available. To generate pdf files a TeX installation must exist to compile the
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/report.R:261:1:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/report.R#L261) *style:* **Lines should not be more than 80 characters.**
```r
##' @param template the Sweave template file to use. If none is provided, the default
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/report.R:333:7:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/report.R#L333) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
      {
      ^
```
[R/report.R:346:13:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/report.R#L346) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(identical(format, "html")) {
            ^
```
[R/report.R:347:1:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/report.R#L347) *style:* **Lines should not be more than 80 characters.**
```r
              writeLines(html_report(object), con = sprintf("%s.html", object@root))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/report.R:349:17:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/report.R#L349) *style:* **Place a space before left parenthesis, except in a function call.**
```r
              if(is.null(template)) {
                ^
```
[R/report.R:350:1:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/report.R#L350) *style:* **Lines should not be more than 80 characters.**
```r
                  template <- system.file("Sweave/speak-latex.rnw", package="EpiContactTrace")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/report.R:350:76:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/report.R#L350) *style:* **Put spaces around all infix operators.**
```r
                  template <- system.file("Sweave/speak-latex.rnw", package="EpiContactTrace")
                                                                          ~^~
```
[R/report.R:353:45:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/report.R#L353) *style:* **Put spaces around all infix operators.**
```r
              utils::Sweave(template, syntax="SweaveSyntaxNoweb")
                                           ~^~
```
[R/report.R:354:1:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/report.R#L354) *style:* **Lines should not be more than 80 characters.**
```r
              tools::texi2pdf(sub("rnw$", "tex", basename(template)), clean=TRUE)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/report.R:354:76:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/report.R#L354) *style:* **Put spaces around all infix operators.**
```r
              tools::texi2pdf(sub("rnw$", "tex", basename(template)), clean=TRUE)
                                                                          ~^~
```
[R/report.R:355:1:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/report.R#L355) *style:* **Lines should not be more than 80 characters.**
```r
              file.rename(sub("rnw$", "pdf", basename(template)), sprintf("%s.pdf", object@root))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/report.R:368:7:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/report.R#L368) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
      {
      ^
```
[R/report.R:371:13:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/report.R#L371) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(!all(sapply(object, function(x) length(x)) == 1)) {
            ^
```
[R/report.R:375:13:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/report.R#L375) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(!all(sapply(object, function(x) class(x)) == "ContactTrace")) {
            ^
```
[R/report.R:380:51:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/report.R#L380) *style:* **Put spaces around all infix operators.**
```r
                                            format=format,
                                                 ~^~
```
[R/report.R:381:53:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/report.R#L381) *style:* **Put spaces around all infix operators.**
```r
                                            template=template))
                                                   ~^~
```
[R/report.R:403:1:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/report.R#L403) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
{
^
```
[R/shortest-paths.R:128:12:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L128) *style:* **Only use double-quotes.**
```r
setGeneric('ShortestPaths',
           ^~~~~~~~~~~~~~~
```
[R/shortest-paths.R:129:24:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L129) *style:* **Only use double-quotes.**
```r
           signature = 'x',
                       ^~~
```
[R/shortest-paths.R:130:45:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L130) *style:* **Only use double-quotes.**
```r
           function(x, ...) standardGeneric('ShortestPaths'))
                                            ^~~~~~~~~~~~~~~
```
[R/shortest-paths.R:134:11:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L134) *style:* **Only use double-quotes.**
```r
setMethod('ShortestPaths',
          ^~~~~~~~~~~~~~~
```
[R/shortest-paths.R:135:25:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L135) *style:* **Only use double-quotes.**
```r
          signature(x = 'ContactTrace'),
                        ^~~~~~~~~~~~~~
```
[R/shortest-paths.R:137:7:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L137) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
      {
      ^
```
[R/shortest-paths.R:139:44:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L139) *style:* **Commas should always have a space after.**
```r
          ns.in <- ns[ns$direction == "in",]
                                           ^
```
[R/shortest-paths.R:140:46:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L140) *style:* **Commas should always have a space after.**
```r
          ns.out <- ns[ns$direction == "out",]
                                             ^
```
[R/shortest-paths.R:143:13:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L143) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(nrow(ns.in)) {
            ^
```
[R/shortest-paths.R:144:66:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L144) *style:* **Commas should always have a space after.**
```r
              ns.in <- ns.in[order(ns.in$distance, ns.in$source),]
                                                                 ^
```
[R/shortest-paths.R:145:56:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L145) *style:* **Commas should always have a space after.**
```r
              ns.in <- ns.in[!duplicated(ns.in$source),]
                                                       ^
```
[R/shortest-paths.R:150:13:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L150) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(nrow(ns.out)) {
            ^
```
[R/shortest-paths.R:151:75:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L151) *style:* **Commas should always have a space after.**
```r
              ns.out <- ns.out[order(ns.out$distance, ns.out$destination),]
                                                                          ^
```
[R/shortest-paths.R:152:64:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L152) *style:* **Commas should always have a space after.**
```r
              ns.out <- ns.out[!duplicated(ns.out$destination),]
                                                               ^
```
[R/shortest-paths.R:157:13:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L157) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(is.null(result)) {
            ^
```
[R/shortest-paths.R:169:1:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L169) *style:* **functions should have cyclomatic complexity of less than 15, this has 41.**
```r
setMethod('ShortestPaths',
^
```
[R/shortest-paths.R:169:11:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L169) *style:* **Only use double-quotes.**
```r
setMethod('ShortestPaths',
          ^~~~~~~~~~~~~~~
```
[R/shortest-paths.R:170:25:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L170) *style:* **Only use double-quotes.**
```r
          signature(x = 'data.frame'),
                        ^~~~~~~~~~~~
```
[R/shortest-paths.R:179:7:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L179) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
      {
      ^
```
[R/shortest-paths.R:183:13:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L183) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(!all(c('source', 'destination', 't') %in% names(x))) {
            ^
```
[R/shortest-paths.R:183:21:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L183) *style:* **Only use double-quotes.**
```r
          if(!all(c('source', 'destination', 't') %in% names(x))) {
                    ^~~~~~~~
```
[R/shortest-paths.R:183:31:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L183) *style:* **Only use double-quotes.**
```r
          if(!all(c('source', 'destination', 't') %in% names(x))) {
                              ^~~~~~~~~~~~~
```
[R/shortest-paths.R:183:46:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L183) *style:* **Only use double-quotes.**
```r
          if(!all(c('source', 'destination', 't') %in% names(x))) {
                                             ^~~
```
[R/shortest-paths.R:184:20:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L184) *style:* **Only use double-quotes.**
```r
              stop('x must contain the columns source, destination and t.')
                   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/shortest-paths.R:187:13:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L187) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(any(is.factor(x$source), is.integer(x$source))) {
            ^
```
[R/shortest-paths.R:189:20:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L189) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          } else if(!is.character(x$source)) {
                   ^
```
[R/shortest-paths.R:190:20:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L190) *style:* **Only use double-quotes.**
```r
              stop('invalid class of column source in x')
                   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/shortest-paths.R:193:13:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L193) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(any(is.factor(x$destination), is.integer(x$destination))) {
            ^
```
[R/shortest-paths.R:195:20:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L195) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          } else if(!is.character(x$destination)) {
                   ^
```
[R/shortest-paths.R:196:20:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L196) *style:* **Only use double-quotes.**
```r
              stop('invalid class of column destination in x')
                   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/shortest-paths.R:199:13:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L199) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(any(is.character(x$t), is.factor(x$t))) {
            ^
```
[R/shortest-paths.R:203:13:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L203) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(!identical(class(x$t), 'Date')) {
            ^
```
[R/shortest-paths.R:203:37:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L203) *style:* **Only use double-quotes.**
```r
          if(!identical(class(x$t), 'Date')) {
                                    ^~~~~~
```
[R/shortest-paths.R:204:20:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L204) *style:* **Only use double-quotes.**
```r
              stop('invalid class of column t in x')
                   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/shortest-paths.R:207:13:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L207) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(any(is.na(x$t))) {
            ^
```
[R/shortest-paths.R:213:29:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L213) *style:* **Only use double-quotes.**
```r
          x <- unique(x[, c('source', 'destination', 't')])
                            ^~~~~~~~
```
[R/shortest-paths.R:213:39:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L213) *style:* **Only use double-quotes.**
```r
          x <- unique(x[, c('source', 'destination', 't')])
                                      ^~~~~~~~~~~~~
```
[R/shortest-paths.R:213:54:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L213) *style:* **Only use double-quotes.**
```r
          x <- unique(x[, c('source', 'destination', 't')])
                                                     ^~~
```
[R/shortest-paths.R:216:13:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L216) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(missing(root)) {
            ^
```
[R/shortest-paths.R:217:20:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L217) *style:* **Only use double-quotes.**
```r
              stop('Missing root in call to ShortestPaths')
                   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/shortest-paths.R:220:13:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L220) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(any(is.factor(root), is.integer(root))) {
            ^
```
[R/shortest-paths.R:222:20:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L222) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          } else if(is.numeric(root)) {
                   ^
```
[R/shortest-paths.R:227:17:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L227) *style:* **Place a space before left parenthesis, except in a function call.**
```r
              if(any(max(abs(root - rootr) > 1e-07))) {
                ^
```
[R/shortest-paths.R:232:20:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L232) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          } else if(!is.character(root)) {
                   ^
```
[R/shortest-paths.R:233:20:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L233) *style:* **Only use double-quotes.**
```r
              stop('invalid class of root')
                   ^~~~~~~~~~~~~~~~~~~~~~~
```
[R/shortest-paths.R:238:13:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L238) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(all(!is.null(tEnd), !is.null(days))) {
            ^
```
[R/shortest-paths.R:241:1:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L241) *style:* **Lines should not be more than 80 characters.**
```r
              if(!all(is.null(inBegin), is.null(inEnd), is.null(outBegin), is.null(outEnd))) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/shortest-paths.R:241:17:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L241) *style:* **Place a space before left parenthesis, except in a function call.**
```r
              if(!all(is.null(inBegin), is.null(inEnd), is.null(outBegin), is.null(outEnd))) {
                ^
```
[R/shortest-paths.R:242:1:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L242) *style:* **Lines should not be more than 80 characters.**
```r
                  stop('Use either tEnd and days or inBegin, inEnd, outBegin and outEnd in call to ShortestPaths')
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/shortest-paths.R:242:24:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L242) *style:* **Only use double-quotes.**
```r
                  stop('Use either tEnd and days or inBegin, inEnd, outBegin and outEnd in call to ShortestPaths')
                       ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/shortest-paths.R:245:17:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L245) *style:* **Place a space before left parenthesis, except in a function call.**
```r
              if(any(is.character(tEnd), is.factor(tEnd))) {
                ^
```
[R/shortest-paths.R:249:17:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L249) *style:* **Place a space before left parenthesis, except in a function call.**
```r
              if(!identical(class(tEnd), 'Date')) {
                ^
```
[R/shortest-paths.R:249:42:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L249) *style:* **Only use double-quotes.**
```r
              if(!identical(class(tEnd), 'Date')) {
                                         ^~~~~~
```
[R/shortest-paths.R:256:1:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L256) *style:* **Lines should not be more than 80 characters.**
```r
              if (any(is.na(days) | (days < 0)) || max(abs(days - daysr)) > 1e-07) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/shortest-paths.R:271:37:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L271) *style:* **Put spaces around all infix operators.**
```r
              root <- rep(root, each=n.tEnd*n.days, length.out=n)
                                   ~^~
```
[R/shortest-paths.R:271:44:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L271) *style:* **Put spaces around all infix operators.**
```r
              root <- rep(root, each=n.tEnd*n.days, length.out=n)
                                          ~^~
```
[R/shortest-paths.R:271:63:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L271) *style:* **Put spaces around all infix operators.**
```r
              root <- rep(root, each=n.tEnd*n.days, length.out=n)
                                                             ~^~
```
[R/shortest-paths.R:272:38:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L272) *style:* **Put spaces around all infix operators.**
```r
              inEnd <- rep(tEnd, each=n.days, length.out=n)
                                    ~^~
```
[R/shortest-paths.R:272:57:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L272) *style:* **Put spaces around all infix operators.**
```r
              inEnd <- rep(tEnd, each=n.days, length.out=n)
                                                       ~^~
```
[R/shortest-paths.R:273:48:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L273) *style:* **Put spaces around all infix operators.**
```r
              inBegin <- inEnd - rep(days, each=1, length.out=n)
                                              ~^~
```
[R/shortest-paths.R:273:62:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L273) *style:* **Put spaces around all infix operators.**
```r
              inBegin <- inEnd - rep(days, each=1, length.out=n)
                                                            ~^~
```
[R/shortest-paths.R:276:1:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L276) *style:* **Lines should not be more than 80 characters.**
```r
          } else if(all(!is.null(inBegin), !is.null(inEnd), !is.null(outBegin), !is.null(outEnd))) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/shortest-paths.R:276:20:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L276) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          } else if(all(!is.null(inBegin), !is.null(inEnd), !is.null(outBegin), !is.null(outEnd))) {
                   ^
```
[R/shortest-paths.R:280:17:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L280) *style:* **Place a space before left parenthesis, except in a function call.**
```r
              if(!all(is.null(tEnd), is.null(days))) {
                ^
```
[R/shortest-paths.R:281:1:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L281) *style:* **Lines should not be more than 80 characters.**
```r
                  stop('Use either tEnd and days or inBegin, inEnd, outBegin and outEnd in call to ShortestPaths')
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/shortest-paths.R:281:24:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L281) *style:* **Only use double-quotes.**
```r
                  stop('Use either tEnd and days or inBegin, inEnd, outBegin and outEnd in call to ShortestPaths')
                       ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/shortest-paths.R:284:1:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L284) *style:* **Lines should not be more than 80 characters.**
```r
              stop('Use either tEnd and days or inBegin, inEnd, outBegin and outEnd in call to ShortestPaths')
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/shortest-paths.R:284:20:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L284) *style:* **Only use double-quotes.**
```r
              stop('Use either tEnd and days or inBegin, inEnd, outBegin and outEnd in call to ShortestPaths')
                   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/shortest-paths.R:290:13:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L290) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(any(is.character(inBegin), is.factor(inBegin))) {
            ^
```
[R/shortest-paths.R:294:13:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L294) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(!identical(class(inBegin), 'Date')) {
            ^
```
[R/shortest-paths.R:294:41:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L294) *style:* **Only use double-quotes.**
```r
          if(!identical(class(inBegin), 'Date')) {
                                        ^~~~~~
```
[R/shortest-paths.R:298:13:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L298) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(any(is.na(inBegin))) {
            ^
```
[R/shortest-paths.R:299:20:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L299) *style:* **Only use double-quotes.**
```r
              stop('inBegin contains NA')
                   ^~~~~~~~~~~~~~~~~~~~~
```
[R/shortest-paths.R:305:13:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L305) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(any(is.character(inEnd), is.factor(inEnd))) {
            ^
```
[R/shortest-paths.R:309:13:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L309) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(!identical(class(inEnd), 'Date')) {
            ^
```
[R/shortest-paths.R:309:39:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L309) *style:* **Only use double-quotes.**
```r
          if(!identical(class(inEnd), 'Date')) {
                                      ^~~~~~
```
[R/shortest-paths.R:313:13:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L313) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(any(is.na(inEnd))) {
            ^
```
[R/shortest-paths.R:314:20:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L314) *style:* **Only use double-quotes.**
```r
              stop('inEnd contains NA')
                   ^~~~~~~~~~~~~~~~~~~
```
[R/shortest-paths.R:320:13:](https://github.com/stewid/EpiContactTrace/blob/2195bf02d0fdda74504cd79d702ec807ac777151/R/shortest-paths.R#L320) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(any(is.character(outBegin), is.factor(outBegin))) {
            ^
```


Can this line go as well then?


Successfully deployed to following URLs:

* https://portfolio-3mrw7db46.now.sh
* https://portfolio.danekkalivoda.now.sh
* https://portfolio-git-master.danekkalivoda.now.sh


Successfully deployed to following URLs:

* https://devrsi0ncom-j4f9zbxz6.now.sh
* https://devrsi0n.com
* https://devrsi0ncom.devrsi0n.now.sh
* https://devrsi0ncom-git-master.devrsi0n.now.sh


测试


I understand, will make commits more relevant from now on


Successfully deployed to following URLs:

* https://portfolio-39zh2cbes.now.sh
* https://portfolio.danekkalivoda.now.sh
* https://portfolio-git-master.danekkalivoda.now.sh


Successfully deployed to following URLs:

* https://linux-news-app-edqme8ujo.now.sh
* https://linux-news-app.rosnovsky.now.sh
* https://linux-news-app-git-master.rosnovsky.now.sh


这里抛出异常会导致非200类 响应无法进入正常处理逻辑,我觉得应该由使用者去处理状态


@RussellDavis87 👍


I still see references to run in this file.


This app's `now.json` file explicitly sets `dotenv` to `.prod.env`.
However, that file could not be found in your repo.

Try commiting the `.prod.env` file.
You might also find [Now Secrets](https://zeit.co/docs/getting-started/secrets) useful.


Successfully deployed to following URLs:

* https://life-after-hate-e7w59tzob.now.sh
* https://life-after-hate.hack4impact1.now.sh
* https://life-after-hate-git-master.hack4impact1.now.sh


@RussellDavis87 `xrange` есть только в Python 2, в Python 3 - это просто range. Ты что Python 2 пользуешься?


@RussellDavis87 xrange есть только в Python 2, в Python 3 - это просто range. Ты что Python 2 пользуешься?


Successfully deployed to following URLs:

* https://portfolio-gebkpbxfx.now.sh
* https://portfolio.danekkalivoda.now.sh
* https://portfolio-git-master.danekkalivoda.now.sh


Indeed. Is there a reason to not trust the implementation? Does it create a proper clone?


fix https://github.com/googlehosts/hosts/issues/411


@RussellDavis87 Я предпологала, что это будут строки (т.е. с новой строки), т.е объединены `\n`, т.е. `"\n".join([x for _ in xrange(0, y)])`


I will revisit this.

Could that be the reason for the out of bounds exception?


Deployment failed with the following error:

~~~
Your `package.json` file is missing a `build` property inside the `script` property.
~~~


В sbcl remove уже используется в стандарте языка, и его нельзя перегрузить. Назовите функцию чуть-чуть по-другому.


Confirmed. Reverted the couple of commits and creating new accounts is now fine.


Aliasing was ignored due to a new commit existing for this branch, which will be aliased instead.


Successfully deployed to following URLs:

* https://blogapi2ucn-1rpvj7bc9.now.sh
* https://ap.api2u.cn
* https://blogapi2ucn.youngje.now.sh
* https://blogapi2ucn-git-master.youngje.now.sh


@RussellDavis87 Последнюю часть проще сделать так в Python:
`('!' if z == 1 else '.')`
Но так тоже можно


Successfully deployed to following URLs:

* https://pansy-grj9hl9wv.now.sh
* https://pansy-practical-prawn.now.sh
* https://pansy.now.sh
* https://pansy.walrus-plus.now.sh
* https://pansy-git-master.walrus-plus.now.sh


@RussellDavis87 Эти 2 задачки ты пока не поправил?


Successfully deployed to following URLs:

* https://portfolio-ntuhczx25.now.sh
* https://portfolio.danekkalivoda.now.sh
* https://portfolio-git-master.danekkalivoda.now.sh


@RussellDavis87 👍


В остальном работает, поправьте небольшой недочет с наименованием функции.


Successfully deployed to following URLs:

* https://labulaka521githubio-lnkam1x63.now.sh
* https://labulaka521githubio.labulakalia.now.sh
* https://labulaka521githubio-git-master.labulakalia.now.sh


Successfully deployed to following URLs:

* https://the-pragmatic-frontend-tester-eny2n1l5e.now.sh
* https://frontend-testing.now.sh
* https://the-pragmatic-frontend-tester.afontcu.now.sh
* https://the-pragmatic-frontend-tester-git-master.afontcu.now.sh


servisler oluşturuldu.


Задание 2 принято.


Now could not deploy this pull request since the `now.json` file does not contain valid JSON.

	Click here to see the contents of `now.json`

{
	"version": 2,
<<<<<<>>>>>> 40bc047ffef309c58379ab43c70bfc610eb01192
		"env": {
			"GITHUB_TOKEN": "@github_token"
		}
	},
	"env": {
		"GITHUB_TOKEN": "@github_token"
	}
}

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


@Igor7086 И что?))) Из внешнего модуля можно методы вызывать и в самих тестах. Ты же уже воздействуешь на систему и должен проверить ответ системы на это воздействие


Successfully deployed to following URLs:

* https://labulaka521githubio-gwamnm1s6.now.sh
* https://labulaka521githubio.labulakalia.now.sh
* https://labulaka521githubio-git-master.labulakalia.now.sh


Dear Poggit user,

This is an automatic message from Poggit-CI. Poggit-CI was triggered by this commit, but failed to create builds due to the following error:

```
Error parsing .poggit.yml: Level 0: yaml_parse(): scanning error
encountered during parsing: could not find expected ':' (line 4, column 1),
context while scanning a simple key (line 3, column 1) in
/poggit/src/poggit/webhook/PushHandler.php#85
```

As a result, no builds could be created from this commit. More details might be available for repo admins at [the webhook delivery response log](https://github.com/davidlouis101/DC-Plugin/settings/hooks) — see the webhook starting with `https://poggit.pmmp.io/webhooks.gh.repo` and look for the delivery with ID `1055f7ea-fd47-11e9-9f4f-353d0a8c2a5f`.

Shall you need any assistance, you may contact us on [on Discord](https://discord.gg/NgHf9jt), or more publicly, [on GitHub](https://github.com/poggit/support/issues). Commenting on this commit directly will **not** notify any Poggit staff.

Regards,
Poggit Bot (@poggit-bot)
The official Poggit automation account


Принято


super.onStop 을 제일 나중에 호출해주세요.


l'm a novice, I'm learning about it, thanks for your share.


Dear Poggit user,

This is an automatic message from Poggit-CI. Poggit-CI was triggered by this commit, but failed to create builds due to the following error:

```
Error parsing .poggit.yml: Level 0: yaml_parse(): scanning error
encountered during parsing: could not find expected ':' (line 4, column 1),
context while scanning a simple key (line 3, column 1) in
/poggit/src/poggit/webhook/PushHandler.php#85
```

As a result, no builds could be created from this commit. More details might be available for repo admins at [the webhook delivery response log](https://github.com/davidlouis101/DC-Plugin/settings/hooks) — see the webhook starting with `https://poggit.pmmp.io/webhooks.gh.repo` and look for the delivery with ID `85ad1168-fd47-11e9-90f5-8c5b78e5fb2f`.

Shall you need any assistance, you may contact us on [on Discord](https://discord.gg/NgHf9jt), or more publicly, [on GitHub](https://github.com/poggit/support/issues). Commenting on this commit directly will **not** notify any Poggit staff.

Regards,
Poggit Bot (@poggit-bot)
The official Poggit automation account


Successfully deployed to following URLs:

* https://blogapi2ucn-3d8obyw0t.now.sh
* https://ap.api2u.cn
* https://blogapi2ucn.youngje.now.sh
* https://blogapi2ucn-git-master.youngje.now.sh


Successfully deployed to following URLs:

* https://linux-news-app-jpad59iau.now.sh
* https://linux-news-app.rosnovsky.now.sh
* https://linux-news-app-git-master.rosnovsky.now.sh


Successfully deployed to following URLs:

* https://jethromaycom-651nol9w7.now.sh
* https://jethromaycom.jethromay.now.sh
* https://jethromaycom-git-master.jethromay.now.sh


Dear Poggit user,

This is an automatic message from Poggit-CI. Poggit-CI was triggered by this commit, but failed to create builds due to the following error:

```
Error parsing .poggit.yml: .poggit.yml does not contain the 'projects'
attribute
```

As a result, no builds could be created from this commit. More details might be available for repo admins at [the webhook delivery response log](https://github.com/davidlouis101/DC-Plugin/settings/hooks) — see the webhook starting with `https://poggit.pmmp.io/webhooks.gh.repo` and look for the delivery with ID `a8e0b1ee-fd47-11e9-8fd7-4a50bba22db8`.

Shall you need any assistance, you may contact us on [on Discord](https://discord.gg/NgHf9jt), or more publicly, [on GitHub](https://github.com/poggit/support/issues). Commenting on this commit directly will **not** notify any Poggit staff.

Regards,
Poggit Bot (@poggit-bot)
The official Poggit automation account


axios : 네트워킹 하는 라이브러리


Dear Poggit user,

This is an automatic message from Poggit-CI. Poggit-CI was triggered by this commit, but failed to create builds due to the following error:

```
Error parsing .poggit.yml: .poggit.yml does not contain the 'projects'
attribute
```

As a result, no builds could be created from this commit. More details might be available for repo admins at [the webhook delivery response log](https://github.com/davidlouis101/DC-Plugin/settings/hooks) — see the webhook starting with `https://poggit.pmmp.io/webhooks.gh.repo` and look for the delivery with ID `b2336dd6-fd47-11e9-97b1-69e0dac93788`.

Shall you need any assistance, you may contact us on [on Discord](https://discord.gg/NgHf9jt), or more publicly, [on GitHub](https://github.com/poggit/support/issues). Commenting on this commit directly will **not** notify any Poggit staff.

Regards,
Poggit Bot (@poggit-bot)
The official Poggit automation account


Немного не тот порядок ожидался (сначала количество, потом значение), но это вообще не страшно.
Жду от вас функцию развертки обратно в исходное состояние.


No, this is still needed for imagewbmp() (only the image2*() functions have been removed).