[R/Contacts.r:131:16:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/Contacts.r#L131) *style:* **Place a space before left parenthesis, except in a function call.**
```r
             if(!identical(length(l), 1L)) {
               ^
```
[R/Contacts.r:136:16:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/Contacts.r#L136) *style:* **Place a space before left parenthesis, except in a function call.**
```r
             if(is.null(retval)) {
               ^
```
[R/Contacts.r:147:3:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/Contacts.r#L147) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
  {
  ^
```
[R/Contacts.r:148:9:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/Contacts.r#L148) *style:* **Place a space before left parenthesis, except in a function call.**
```r
      if(length(from@source) > 0L) {
        ^
```
[R/Contacts.r:157:13:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/Contacts.r#L157) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(identical(from@direction, "in")) {
            ^
```
[R/ContactTrace.r:73:3:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/ContactTrace.r#L73) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
  {
  ^
```
[R/in-degree.r:174:7:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/in-degree.r#L174) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
      {
      ^
```
[R/in-degree.r:175:13:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/in-degree.r#L175) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(!identical(x@direction, "in")) {
            ^
```
[R/in-degree.r:187:20:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/in-degree.r#L187) *style:* **Remove spaces before the left parenthesis in a function call.**
```r
          function (x)
                   ^
```
[R/in-degree.r:188:7:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/in-degree.r#L188) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
      {
      ^
```
[R/in-degree.r:207:7:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/in-degree.r#L207) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
      {
      ^
```
[R/in-degree.r:208:13:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/in-degree.r#L208) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(missing(root)) {
            ^
```
[R/in-degree.r:212:13:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/in-degree.r#L212) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(all(is.null(tEnd), is.null(days))) {
            ^
```
[R/ingoing-contact-chain.r:183:20:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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:184:7:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/ingoing-contact-chain.r#L184) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
      {
      ^
```
[R/ingoing-contact-chain.r:185:13:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/ingoing-contact-chain.r#L185) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(!identical(x@direction, "in")) {
            ^
```
[R/ingoing-contact-chain.r:190:42:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/ingoing-contact-chain.r#L190) *style:* **Commas should always have a space after.**
```r
          return(length(setdiff(x@source,x@root)))
                                         ^
```
[R/ingoing-contact-chain.r:198:20:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/ingoing-contact-chain.r#L198) *style:* **Remove spaces before the left parenthesis in a function call.**
```r
          function (x)
                   ^
```
[R/ingoing-contact-chain.r:199:7:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/ingoing-contact-chain.r#L199) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
      {
      ^
```
[R/ingoing-contact-chain.r:218:7:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/ingoing-contact-chain.r#L218) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
      {
      ^
```
[R/ingoing-contact-chain.r:219:13:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/ingoing-contact-chain.r#L219) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(missing(root)) {
            ^
```
[R/ingoing-contact-chain.r:223:13:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/ingoing-contact-chain.r#L223) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(all(is.null(tEnd), is.null(days))) {
            ^
```
[R/network-structure.r:122:7:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/network-structure.r#L122) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
      {
      ^
```
[R/network-structure.r:123:13:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/network-structure.r#L123) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(length(object@source) > 0L) {
            ^
```
[R/network-structure.r:128:39:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/network-structure.r#L128) *style:* **Put spaces around all infix operators.**
```r
                         deparse.level=0)
                                     ~^~
```
[R/network-structure.r:136:1:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/network-structure.r#L136) *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-structure.r:146:17:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/network-structure.r#L146) *style:* **Place a space before left parenthesis, except in a function call.**
```r
              if(identical(object@direction, "in")) {
                ^
```
[R/network-structure.r:186:7:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/network-structure.r#L186) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
      {
      ^
```
[R/network-summary.r:245:7:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/network-summary.r#L245) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
      {
      ^
```
[R/network-summary.r:249:1:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/network-summary.r#L249) *style:* **Lines should not be more than 80 characters.**
```r
                     inDays = as.integer(x@ingoingContacts@tEnd - x@ingoingContacts@tBegin),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/network-summary.r:252:1:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/network-summary.r#L252) *style:* **Lines should not be more than 80 characters.**
```r
                     outDays = as.integer(x@outgoingContacts@tEnd - x@outgoingContacts@tBegin),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/network-summary.r:255:1:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/network-summary.r#L255) *style:* **Lines should not be more than 80 characters.**
```r
                     ingoingContactChain = IngoingContactChain(x@ingoingContacts),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/network-summary.r:256:1:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/network-summary.r#L256) *style:* **Lines should not be more than 80 characters.**
```r
                     outgoingContactChain = OutgoingContactChain(x@outgoingContacts))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/network-summary.r:262:1:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/network-summary.r#L262) *style:* **functions should have cyclomatic complexity of less than 15, this has 38.**
```r
setMethod("NetworkSummary",
^
```
[R/network-summary.r:272:7:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/network-summary.r#L272) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
      {
      ^
```
[R/network-summary.r:276:13:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/network-summary.r#L276) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(!all(c("source", "destination", "t") %in% names(x))) {
            ^
```
[R/network-summary.r:280:13:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/network-summary.r#L280) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(any(is.factor(x$source), is.integer(x$source))) {
            ^
```
[R/network-summary.r:282:20:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/network-summary.r#L282) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          } else if(!is.character(x$source)) {
                   ^
```
[R/network-summary.r:286:13:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/network-summary.r#L286) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(any(is.factor(x$destination), is.integer(x$destination))) {
            ^
```
[R/network-summary.r:288:20:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/network-summary.r#L288) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          } else if(!is.character(x$destination)) {
                   ^
```
[R/network-summary.r:292:13:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/network-summary.r#L292) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(any(is.character(x$t), is.factor(x$t))) {
            ^
```
[R/network-summary.r:296:13:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/network-summary.r#L296) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(!identical(class(x$t), "Date")) {
            ^
```
[R/network-summary.r:300:13:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/network-summary.r#L300) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(any(is.na(x$t))) {
            ^
```
[R/network-summary.r:309:13:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/network-summary.r#L309) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(missing(root)) {
            ^
```
[R/network-summary.r:313:13:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/network-summary.r#L313) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(any(is.factor(root), is.integer(root))) {
            ^
```
[R/network-summary.r:315:20:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/network-summary.r#L315) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          } else if(is.numeric(root)) {
                   ^
```
[R/network-summary.r:317:1:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/network-summary.r#L317) *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:319:17:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/network-summary.r#L319) *style:* **Place a space before left parenthesis, except in a function call.**
```r
              if(any(max(abs(root - rootr) > 1e-07))) {
                ^
```
[R/network-summary.r:324:20:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/network-summary.r#L324) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          } else if(!is.character(root)) {
                   ^
```
[R/network-summary.r:325:20:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/network-summary.r#L325) *style:* **Only use double-quotes.**
```r
              stop('invalid class of root')
                   ^~~~~~~~~~~~~~~~~~~~~~~
```
[R/network-summary.r:330:13:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/network-summary.r#L330) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(all(!is.null(tEnd), !is.null(days))) {
            ^
```
[R/network-summary.r:333:1:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/network-summary.r#L333) *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:333:17:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/network-summary.r#L333) *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/network-summary.r:334:1:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/network-summary.r#L334) *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:337:17:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/network-summary.r#L337) *style:* **Place a space before left parenthesis, except in a function call.**
```r
              if(any(is.character(tEnd), is.factor(tEnd))) {
                ^
```
[R/network-summary.r:341:17:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/network-summary.r#L341) *style:* **Place a space before left parenthesis, except in a function call.**
```r
              if(!identical(class(tEnd), "Date")) {
                ^
```
[R/network-summary.r:345:1:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/network-summary.r#L345) *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:347:1:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/network-summary.r#L347) *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:362:67:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/network-summary.r#L362) *style:* **Put spaces around all infix operators.**
```r
              root <- rep(root, each = n.tEnd * n.days, length.out=n)
                                                                 ~^~
```
[R/network-summary.r:367:1:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/network-summary.r#L367) *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:367:20:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/network-summary.r#L367) *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/network-summary.r:371:17:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/network-summary.r#L371) *style:* **Place a space before left parenthesis, except in a function call.**
```r
              if(!all(is.null(tEnd), is.null(days))) {
                ^
```
[R/network-summary.r:372:1:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/network-summary.r#L372) *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:375:1:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/network-summary.r#L375) *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:381:13:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/network-summary.r#L381) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(any(is.character(inBegin), is.factor(inBegin))) {
            ^
```
[R/network-summary.r:385:13:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/network-summary.r#L385) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(!identical(class(inBegin), "Date")) {
            ^
```
[R/network-summary.r:389:13:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/network-summary.r#L389) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(any(is.na(inBegin))) {
            ^
```
[R/network-summary.r:396:13:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/network-summary.r#L396) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(any(is.character(inEnd), is.factor(inEnd))) {
            ^
```
[R/network-summary.r:400:13:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/network-summary.r#L400) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(!identical(class(inEnd), "Date")) {
            ^
```
[R/network-summary.r:404:13:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/network-summary.r#L404) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(any(is.na(inEnd))) {
            ^
```
[R/network-summary.r:411:13:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/network-summary.r#L411) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(any(is.character(outBegin), is.factor(outBegin))) {
            ^
```
[R/network-summary.r:415:13:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/network-summary.r#L415) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(!identical(class(outBegin), "Date")) {
            ^
```
[R/network-summary.r:419:13:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/network-summary.r#L419) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(any(is.na(outBegin))) {
            ^
```
[R/network-summary.r:426:13:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/network-summary.r#L426) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(any(is.character(outEnd), is.factor(outEnd))) {
            ^
```
[R/network-summary.r:430:13:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/network-summary.r#L430) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(!identical(class(outEnd), "Date")) {
            ^
```
[R/network-summary.r:434:13:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/network-summary.r#L434) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(any(is.na(outEnd))) {
            ^
```
[R/network-summary.r:441:13:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/network-summary.r#L441) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(any(inEnd < inBegin)) {
            ^
```
[R/network-summary.r:445:13:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/network-summary.r#L445) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(any(outEnd < outBegin)) {
            ^
```
[R/network-summary.r:452:13:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/network-summary.r#L452) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(!identical(length(unique(c(length(root),
            ^
```
[R/network-summary.r:458:1:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/network-summary.r#L458) *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:470:24:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/network-summary.r#L470) *style:* **Put spaces around all infix operators.**
```r
          contact_chain<- .Call("networkSummary",
                      ~^
```
[R/network-summary.r:471:1:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/network-summary.r#L471) *style:* **Lines should not be more than 80 characters.**
```r
                                as.integer(factor(x$source, levels = levels(nodes))),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/network-summary.r:472:1:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/network-summary.r#L472) *style:* **Lines should not be more than 80 characters.**
```r
                                as.integer(factor(x$destination, levels = levels(nodes))),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/network-summary.r:474:1:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/network-summary.r#L474) *style:* **Lines should not be more than 80 characters.**
```r
                                as.integer(factor(root, levels = levels(nodes))),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/network-summary.r:491:1:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/network-summary.r#L491) *style:* **Lines should not be more than 80 characters.**
```r
                            ingoingContactChain = contact_chain[["ingoingContactChain"]],
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/network-summary.r:492:1:](https://github.com/stewid/EpiContactTrace/blob/173dd85c88ae470b7bbd91006dd3e8d016b9926b/R/network-summary.r#L492) *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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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/173dd85c88ae470b7bbd91006dd3e8d016b9926b/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))) {
            ^
```


Registration pull request updated: [JuliaRegistries/General/4859](https://github.com/JuliaRegistries/General/pull/4859)

After the above pull request is merged, it is recommended that a tag is created on this repository for the registered package version.

This will be done automatically if [Julia TagBot](https://github.com/apps/julia-tagbot) is installed, or can be done manually through the github interface, or via:
```
git tag -a v0.1.0 -m "<description of version>" 8b732efed8729d1000b70513cee09bb923177aaf
git push origin v0.1.0
```


嗡嗡嗡嗡嗡嗡


Deployment failed with the following error:

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


In file included from Marlin/src/HAL/HAL_LPC1768/HAL.cpp:26:
Marlin/src/HAL/HAL_LPC1768/../shared/Delay.h: In function 'void enableCycleCounter()':
Marlin/src/HAL/HAL_LPC1768/../shared/Delay.h:49:7: error: 'DWT' was not declared in this scope
       DWT->CYCCNT = 0;


Shouldn't there be an else here? @rserwin1 @wdlkmpx

The entire block is ignored otherwise.


Successfully deployed to following URLs:

* https://unity-assistant-app-mmkuiiw2k.now.sh
* https://unity-assistant-app.kevindamianta.now.sh
* https://unity-assistant-app-git-master.kevindamianta.now.sh


Поправьте, пожалуйста, вызов метода :) В остальном приму второе задание, когда поправите данный недочет.


This is very nice.


Successfully deployed to following URLs:

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


got me confused as a beginner for a sec, but apparently the executable is not 'binmxmlc', but rather the executable 'mxmlc' is under js/bin folder. so small typo here I beleive, Should be '<path to SDK folder>/js/bin/mxmlc src/HelloWorld.mxml', right? :)


Kindly let me know if you guys have any idea on parsing string to int in a 2d array using JS