[R/network-structure.R:135:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/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/42fec04eb56d981a4eeb468c3f952363d31a0452/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/42fec04eb56d981a4eeb468c3f952363d31a0452/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/42fec04eb56d981a4eeb468c3f952363d31a0452/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/42fec04eb56d981a4eeb468c3f952363d31a0452/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/42fec04eb56d981a4eeb468c3f952363d31a0452/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:315:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/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/42fec04eb56d981a4eeb468c3f952363d31a0452/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/42fec04eb56d981a4eeb468c3f952363d31a0452/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/42fec04eb56d981a4eeb468c3f952363d31a0452/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/42fec04eb56d981a4eeb468c3f952363d31a0452/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/42fec04eb56d981a4eeb468c3f952363d31a0452/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:365:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/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/42fec04eb56d981a4eeb468c3f952363d31a0452/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/42fec04eb56d981a4eeb468c3f952363d31a0452/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/42fec04eb56d981a4eeb468c3f952363d31a0452/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/42fec04eb56d981a4eeb468c3f952363d31a0452/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/42fec04eb56d981a4eeb468c3f952363d31a0452/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/42fec04eb56d981a4eeb468c3f952363d31a0452/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/42fec04eb56d981a4eeb468c3f952363d31a0452/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/42fec04eb56d981a4eeb468c3f952363d31a0452/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/42fec04eb56d981a4eeb468c3f952363d31a0452/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/42fec04eb56d981a4eeb468c3f952363d31a0452/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/outgoing-contact-chain.R:67:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/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/42fec04eb56d981a4eeb468c3f952363d31a0452/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:137:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/outgoing-contact-chain.R#L137) *style:* **Lines should not be more than 80 characters.**
```r
                  stop("Unable to determine OutgoingContactChain for ingoing contacts")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/plot.R:82:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/plot.R#L82) *style:* **Lines should not be more than 80 characters.**
```r
              tree$ingoing$bg <- ifelse(tree$ingoing$level > 0, "white", "black")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/plot.R:95:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/plot.R#L95) *style:* **Lines should not be more than 80 characters.**
```r
              tree$outgoing$bg <- ifelse(tree$outgoing$level > 0, "gray", "black")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/report.R:30:8:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/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/42fec04eb56d981a4eeb468c3f952363d31a0452/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:44:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/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:73:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/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/42fec04eb56d981a4eeb468c3f952363d31a0452/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/42fec04eb56d981a4eeb468c3f952363d31a0452/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/42fec04eb56d981a4eeb468c3f952363d31a0452/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:112:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/report.R#L112) *style:* **Lines should not be more than 80 characters.**
```r
               sprintf("<h3 align='center'>Version: %s</h3>", packageVersion("EpiContactTrace")),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/report.R:117:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/report.R#L117) *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:118:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/report.R#L118) *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:119:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/report.R#L119) *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:120:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/report.R#L120) *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:121:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/report.R#L121) *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:135:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/report.R#L135) *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:143:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/report.R#L143) *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:144:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/report.R#L144) *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:145:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/report.R#L145) *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:146:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/report.R#L146) *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:147:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/report.R#L147) *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:161:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/report.R#L161) *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:237:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/report.R#L237) *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:260:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/report.R#L260) *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:345:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/report.R#L345) *style:* **Lines should not be more than 80 characters.**
```r
              writeLines(html_report(object), con = sprintf("%s.html", object@root))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/report.R:348:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/report.R#L348) *style:* **Lines should not be more than 80 characters.**
```r
                  template <- system.file("Sweave/speak-latex.rnw", package = "EpiContactTrace")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/report.R:351:45:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/report.R#L351) *style:* **Put spaces around all infix operators.**
```r
              utils::Sweave(template, syntax="SweaveSyntaxNoweb")
                                           ~^~
```
[R/report.R:352:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/report.R#L352) *style:* **Lines should not be more than 80 characters.**
```r
              tools::texi2pdf(sub("rnw$", "tex", basename(template)), clean = TRUE)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/report.R:353:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/report.R#L353) *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:400:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/report.R#L400) *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:168:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/shortest-paths.R#L168) *style:* **functions should have cyclomatic complexity of less than 15, this has 41.**
```r
setMethod("ShortestPaths",
^
```
[R/shortest-paths.R:239:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/shortest-paths.R#L239) *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:240:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/shortest-paths.R#L240) *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:254:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/shortest-paths.R#L254) *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:274:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/shortest-paths.R#L274) *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:279:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/shortest-paths.R#L279) *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:282:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/shortest-paths.R#L282) *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:365:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/shortest-paths.R#L365) *style:* **Lines should not be more than 80 characters.**
```r
              stop("root, inBegin, inEnd, outBegin and outEnd must have equal length")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/shortest-paths.R:411:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/shortest-paths.R#L411) *style:* **Lines should not be more than 80 characters.**
```r
                                         destination = x$destination[sp$outRowid],
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/show.R:76:7:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/show.R#L76) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
      {
      ^
```
[R/show.R:88:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/show.R#L88) *style:* **Lines should not be more than 80 characters.**
```r
              cat(sprintf("%sgoing contact chain: %i\n\n", prefix, OutgoingContactChain(object)))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/show.R:91:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/show.R#L91) *style:* **Lines should not be more than 80 characters.**
```r
              cat(sprintf("%sgoing contact chain: %i\n\n", prefix, IngoingContactChain(object)))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/show.R:102:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/show.R#L102) *style:* **Lines should not be more than 80 characters.**
```r
              ## Rename source and destination to lhs and rhs, with respect to direction
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/show.R:111:18:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/show.R#L111) *style:* **Place a space before left parenthesis, except in a function call.**
```r
              for(i in seq_len(nrow(ns))) {
                 ^
```
[R/show.R:113:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/show.R#L113) *style:* **Lines should not be more than 80 characters.**
```r
                              paste(rep(" ", (ns$distance[i] - 1) * (width + 5)), collapse=""),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/show.R:113:91:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/show.R#L113) *style:* **Put spaces around all infix operators.**
```r
                              paste(rep(" ", (ns$distance[i] - 1) * (width + 5)), collapse=""),
                                                                                ~^~
```
[R/show.R:119:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/show.R#L119) *style:* **Lines should not be more than 80 characters.**
```r
              cat(sprintf("No %sgoing contacts during the search period.\n", object@direction))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/trace.R:167:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/trace.R#L167) *style:* **functions should have cyclomatic complexity of less than 15, this has 56.**
```r
Trace <- function(movements,
^
```
[R/trace.R:207:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/trace.R#L207) *style:* **Lines should not be more than 80 characters.**
```r
    if (any(is.factor(movements$destination), is.integer(movements$destination))) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/trace.R:252:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/trace.R#L252) *style:* **Lines should not be more than 80 characters.**
```r
        if (any(is.factor(movements$category), is.integer(movements$category))) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/trace.R:306:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/trace.R#L306) *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/trace.R:307:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/trace.R#L307) *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 Trace")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/trace.R:318:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/trace.R#L318) *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/trace.R:335:31:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/trace.R#L335) *style:* **Put spaces around all infix operators.**
```r
        root <- rep(root, each=n.tEnd*n.days, length.out=n)
                             ~^~
```
[R/trace.R:335:38:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/trace.R#L335) *style:* **Put spaces around all infix operators.**
```r
        root <- rep(root, each=n.tEnd*n.days, length.out=n)
                                    ~^~
```
[R/trace.R:335:57:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/trace.R#L335) *style:* **Put spaces around all infix operators.**
```r
        root <- rep(root, each=n.tEnd*n.days, length.out=n)
                                                       ~^~
```
[R/trace.R:336:32:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/trace.R#L336) *style:* **Put spaces around all infix operators.**
```r
        inEnd <- rep(tEnd, each=n.days, length.out=n)
                              ~^~
```
[R/trace.R:336:51:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/trace.R#L336) *style:* **Put spaces around all infix operators.**
```r
        inEnd <- rep(tEnd, each=n.days, length.out=n)
                                                 ~^~
```
[R/trace.R:337:42:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/trace.R#L337) *style:* **Put spaces around all infix operators.**
```r
        inBegin <- inEnd - rep(days, each=1, length.out=n)
                                        ~^~
```
[R/trace.R:337:56:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/trace.R#L337) *style:* **Put spaces around all infix operators.**
```r
        inBegin <- inEnd - rep(days, each=1, length.out=n)
                                                      ~^~
```
[R/trace.R:340:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/trace.R#L340) *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/trace.R:345:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/trace.R#L345) *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 Trace")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/trace.R:348:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/trace.R#L348) *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 Trace")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/trace.R:458:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/trace.R#L458) *style:* **Lines should not be more than 80 characters.**
```r
                            as.integer(factor(movements$source, levels = levels(nodes))),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/trace.R:459:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/trace.R#L459) *style:* **Lines should not be more than 80 characters.**
```r
                            as.integer(factor(movements$destination, levels = levels(nodes))),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/trace.R:471:16:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/trace.R#L471) *style:* **Put spaces around all infix operators.**
```r
        j <- (i-1) * 4
              ~^~
```
[R/trace.R:481:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/trace.R#L481) *style:* **Lines should not be more than 80 characters.**
```r
        ## Create an index to contacts, so that the result matrix can be reconstructed
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/trace.R:483:12:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/trace.R#L483) *style:* **Commented code should be removed.**
```r
        ## contacts_all <- cbind(contacts[index,], distance)
           ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/trace.R:484:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/trace.R#L484) *style:* **Lines should not be more than 80 characters.**
```r
        index <- match(apply(contacts_all, 1, function(x) paste(x, collapse="\r")),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/trace.R:484:76:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/trace.R#L484) *style:* **Put spaces around all infix operators.**
```r
        index <- match(apply(contacts_all, 1, function(x) paste(x, collapse="\r")),
                                                                          ~^~
```
[R/trace.R:485:72:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/trace.R#L485) *style:* **Put spaces around all infix operators.**
```r
                       apply(contacts, 1, function(x) paste(x, collapse="\r")))
                                                                      ~^~
```
[R/trace.R:509:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/trace.R#L509) *style:* **Lines should not be more than 80 characters.**
```r
        ## Create an index to contacts, so that the result matrix can be reconstructed
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/trace.R:511:12:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/trace.R#L511) *style:* **Commented code should be removed.**
```r
        ## contacts_all <- cbind(contacts[index,], distance)
           ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/trace.R:512:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/trace.R#L512) *style:* **Lines should not be more than 80 characters.**
```r
        index <- match(apply(contacts_all, 1, function(x) paste(x, collapse="\r")),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/trace.R:512:76:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/trace.R#L512) *style:* **Put spaces around all infix operators.**
```r
        index <- match(apply(contacts_all, 1, function(x) paste(x, collapse="\r")),
                                                                          ~^~
```
[R/trace.R:513:72:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/trace.R#L513) *style:* **Put spaces around all infix operators.**
```r
                       apply(contacts, 1, function(x) paste(x, collapse="\r")))
                                                                      ~^~
```
[R/trace.R:535:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/trace.R#L535) *style:* **Lines should not be more than 80 characters.**
```r
    ## Name each list item with ContactTrace objects to the name of the ContactTrace root.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/trace.R:536:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/trace.R#L536) *style:* **Lines should not be more than 80 characters.**
```r
    names(result) <-  sapply(result, function(listItem) listItem@ingoingContacts@root)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/tree.R:38:27:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/tree.R#L38) *style:* **Put spaces around all infix operators.**
```r
    result <- list(ingoing=NULL, outgoing=NULL)
                         ~^~
```
[R/tree.R:38:42:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/tree.R#L38) *style:* **Put spaces around all infix operators.**
```r
    result <- list(ingoing=NULL, outgoing=NULL)
                                        ~^~
```
[R/tree.R:53:12:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/tree.R#L53) *style:* **Place a space before left parenthesis, except in a function call.**
```r
        for(lev in rev(seq_len(max(tree.in$level)))) {
           ^
```
[R/tree.R:54:16:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/tree.R#L54) *style:* **Place a space before left parenthesis, except in a function call.**
```r
            for(src in tree.in$node[tree.in$level == lev]) {
               ^
```
[R/tree.R:64:38:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/tree.R#L64) *style:* **Put spaces around all infix operators.**
```r
                stopifnot(length(dst)>0)
                                    ~^~
```
[R/tree.R:83:12:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/tree.R#L83) *style:* **Place a space before left parenthesis, except in a function call.**
```r
        for(lev in rev(seq_len(max(tree.out$level)))) {
           ^
```
[R/tree.R:84:16:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/tree.R#L84) *style:* **Place a space before left parenthesis, except in a function call.**
```r
            for(dst in tree.out$node[tree.out$level == lev]) {
               ^
```
[R/tree.R:94:38:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/tree.R#L94) *style:* **Put spaces around all infix operators.**
```r
                stopifnot(length(src)>0)
                                    ~^~
```
[R/tree.R:131:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/tree.R#L131) *style:* **Lines should not be more than 80 characters.**
```r
##'   \item John Q. Walker II, A node positioning algorithm for general tress.\cr
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/tree.R:134:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/tree.R#L134) *style:* **functions should have cyclomatic complexity of less than 15, this has 48.**
```r
position_tree <- function(tree,
^
```
[R/tree.R:152:14:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/tree.R#L152) *style:* **Place a space before left parenthesis, except in a function call.**
```r
        while(all(!is.null(left_most),
             ^
```
[R/tree.R:162:16:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/tree.R#L162) *style:* **Place a space before left parenthesis, except in a function call.**
```r
            for(i in seq_len(compare_depth)) {
               ^
```
[R/tree.R:182:22:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/tree.R#L182) *style:* **Place a space before left parenthesis, except in a function call.**
```r
                while(all(!is.null(temp_node),
                     ^
```
[R/tree.R:194:26:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/tree.R#L194) *style:* **Place a space before left parenthesis, except in a function call.**
```r
                    while(!identical(temp_node, ancestor_neighbor)) {
                         ^
```
[R/tree.R:196:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/tree.R#L196) *style:* **Lines should not be more than 80 characters.**
```r
                        set_modifier(temp_node, modifier(temp_node) + move_distance)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/tree.R:226:29:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/tree.R#L226) *style:* **Put spaces around all infix operators.**
```r
        if (length(children)>0) {
                           ~^~
```
[R/tree.R:241:18:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/tree.R#L241) *style:* **Place a space before left parenthesis, except in a function call.**
```r
            while(all(is.null(left_most),
                 ^
```
[R/tree.R:273:30:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/tree.R#L273) *style:* **Put spaces around all infix operators.**
```r
                return(n[i[1]-1])
                            ~^~
```
[R/tree.R:389:26:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/tree.R#L389) *style:* **Put spaces around all infix operators.**
```r
            return(s[i[1]-1])
                        ~^~
```
[R/tree.R:398:26:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/tree.R#L398) *style:* **Put spaces around all infix operators.**
```r
            return(s[i[1]+1])
                        ~^~
```
[R/tree.R:431:18:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/R/tree.R#L431) *style:* **Place a space before left parenthesis, except in a function call.**
```r
            while(has_right_sibling(right_most)) {
                 ^
```
[tests/arguments.R:172:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/tests/arguments.R#L172) *style:* **Lines should not be more than 80 characters.**
```r
## Use either tEnd and days or inBegin, inEnd, outBegin and outEnd in call to Trace
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/arguments.R:224:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/tests/arguments.R#L224) *style:* **Lines should not be more than 80 characters.**
```r
tools::assertError(Trace(movements = data.frame(source = 1L, destination = 2L, t = 1),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/arguments.R:235:44:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/tests/arguments.R#L235) *style:* **Commas should always have a space after.**
```r
                             source = c(1L,NA),
                                           ^
```
[tests/arguments.R:236:49:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/tests/arguments.R#L236) *style:* **Commas should always have a space after.**
```r
                             destination = c(2L,3L),
                                                ^
```
[tests/arguments.R:248:44:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/tests/arguments.R#L248) *style:* **Commas should always have a space after.**
```r
                             source = c(1L,2L),
                                           ^
```
[tests/arguments.R:249:49:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/tests/arguments.R#L249) *style:* **Commas should always have a space after.**
```r
                             destination = c(2L,NA),
                                                ^
```
[tests/arguments.R:261:44:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/tests/arguments.R#L261) *style:* **Commas should always have a space after.**
```r
                             source = c(1L,2L),
                                           ^
```
[tests/arguments.R:262:49:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/tests/arguments.R#L262) *style:* **Commas should always have a space after.**
```r
                             destination = c(2L,3L),
                                                ^
```
[tests/arguments.R:274:44:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/tests/arguments.R#L274) *style:* **Commas should always have a space after.**
```r
                             source = c(1L,2L),
                                           ^
```
[tests/arguments.R:275:49:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/tests/arguments.R#L275) *style:* **Commas should always have a space after.**
```r
                             destination = c(2L,3L),
                                                ^
```
[tests/arguments.R:394:4:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/tests/arguments.R#L394) *style:* **Commented code should be removed.**
```r
## inEnd < inBegin
   ^~~~~~~~~~~~~~~
```
[tests/arguments.R:407:4:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/tests/arguments.R#L407) *style:* **Commented code should be removed.**
```r
## outEnd < outBegin
   ^~~~~~~~~~~~~~~~~
```
[tests/contact-chain.R:51:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/tests/contact-chain.R#L51) *style:* **Put spaces around all infix operators.**
```r
= "Date"), individual = c(NA_character_, NA_character_, NA_character_,
^
```
[tests/contact-chain.R:71:31:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/tests/contact-chain.R#L71) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
c(NA_character_, NA_character_ ), n = c(NA_integer_, NA_integer_)),
                              ^
```
[tests/contact-chain.R:73:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/tests/contact-chain.R#L73) *style:* **Put spaces around all infix operators.**
```r
= c(NA, -2L), class = "data.frame")
^
```
[tests/contact-chain.R:91:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/tests/contact-chain.R#L91) *style:* **Put spaces around all infix operators.**
```r
= c(NA_character_, NA_character_, NA_character_, NA_character_,
^
```
[tests/contact-chain.R:95:28:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/tests/contact-chain.R#L95) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
"n"), row.names = c(NA, -7L ), class = "data.frame")
                           ^
```
[tests/contact-chain.R:112:31:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/tests/contact-chain.R#L112) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
c(NA_character_, NA_character_ ), n = c(NA_integer_, NA_integer_)),
                              ^
```
[tests/contact-chain.R:114:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/tests/contact-chain.R#L114) *style:* **Put spaces around all infix operators.**
```r
= c(NA, -2L), class = "data.frame")
^
```
[tests/contact-chain.R:156:37:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/tests/contact-chain.R#L156) *style:* **Put spaces around all infix operators.**
```r
ns <- NetworkSummary(movements, root=1, tEnd="2010-10-20", days=10)
                                   ~^~
```
[tests/contact-chain.R:156:45:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/tests/contact-chain.R#L156) *style:* **Put spaces around all infix operators.**
```r
ns <- NetworkSummary(movements, root=1, tEnd="2010-10-20", days=10)
                                           ~^~
```
[tests/contact-chain.R:156:64:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/tests/contact-chain.R#L156) *style:* **Put spaces around all infix operators.**
```r
ns <- NetworkSummary(movements, root=1, tEnd="2010-10-20", days=10)
                                                              ~^~
```
[tests/misc.R:66:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/tests/misc.R#L66) *style:* **Lines should not be more than 80 characters.**
```r
                            t = structure(c(14849, 14846, 14847, 14850, 14848, 14851, 14852),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/misc.R:88:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/tests/misc.R#L88) *style:* **Lines should not be more than 80 characters.**
```r
                            individual = c(NA_character_, NA_character_, NA_character_,  NA_character_),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/misc.R:89:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/tests/misc.R#L89) *style:* **Lines should not be more than 80 characters.**
```r
                            n = c(NA_integer_, NA_integer_, NA_integer_, NA_integer_)),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/misc.R:90:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/tests/misc.R#L90) *style:* **Lines should not be more than 80 characters.**
```r
                       .Names = c("source", "destination", "t", "individual", "n"),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/misc.R:110:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/tests/misc.R#L110) *style:* **Lines should not be more than 80 characters.**
```r
                            individual = c(NA_character_, NA_character_, NA_character_),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/misc.R:112:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/tests/misc.R#L112) *style:* **Lines should not be more than 80 characters.**
```r
                       .Names = c("source", "destination", "t", "individual", "n"),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/misc.R:132:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/tests/misc.R#L132) *style:* **Lines should not be more than 80 characters.**
```r
                            individual = c(NA_character_, NA_character_, NA_character_),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/misc.R:134:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/tests/misc.R#L134) *style:* **Lines should not be more than 80 characters.**
```r
                       .Names = c("source", "destination", "t", "individual", "n"),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/misc.R:147:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/tests/misc.R#L147) *style:* **Lines should not be more than 80 characters.**
```r
                            individual = c(NA_character_, NA_character_, NA_character_),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/misc.R:149:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/tests/misc.R#L149) *style:* **Lines should not be more than 80 characters.**
```r
                       .Names = c("source", "destination", "t", "individual", "n"),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/misc.R:324:44:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/tests/misc.R#L324) *style:* **Commas should always have a space after.**
```r
                         ct.1.df$category),]
                                           ^
```
[tests/misc.R:331:44:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/tests/misc.R#L331) *style:* **Commas should always have a space after.**
```r
                         ct.2.df$category),]
                                           ^
```
[tests/network-summary.R:31:10:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/tests/network-summary.R#L31) *style:* **Put spaces around all infix operators.**
```r
load(file=system.file("extdata", "ns.rda", package="EpiContactTrace"))
        ~^~
```
[tests/network-summary.R:31:51:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/tests/network-summary.R#L31) *style:* **Put spaces around all infix operators.**
```r
load(file=system.file("extdata", "ns.rda", package="EpiContactTrace"))
                                                 ~^~
```
[tests/network-summary.R:33:41:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/tests/network-summary.R#L33) *style:* **Put spaces around all infix operators.**
```r
result <- NetworkSummary(transfers, root=root, tEnd="2005-10-31", days=90)
                                       ~^~
```
[tests/network-summary.R:33:52:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/tests/network-summary.R#L33) *style:* **Put spaces around all infix operators.**
```r
result <- NetworkSummary(transfers, root=root, tEnd="2005-10-31", days=90)
                                                  ~^~
```
[tests/network-summary.R:33:71:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/tests/network-summary.R#L33) *style:* **Put spaces around all infix operators.**
```r
result <- NetworkSummary(transfers, root=root, tEnd="2005-10-31", days=90)
                                                                     ~^~
```
[tests/network-summary.R:39:37:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/tests/network-summary.R#L39) *style:* **Put spaces around all infix operators.**
```r
ns <- NetworkSummary(transfers, root=584, tEnd="2005-10-31", days=91)
                                   ~^~
```
[tests/network-summary.R:39:47:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/tests/network-summary.R#L39) *style:* **Put spaces around all infix operators.**
```r
ns <- NetworkSummary(transfers, root=584, tEnd="2005-10-31", days=91)
                                             ~^~
```
[tests/network-summary.R:39:66:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/tests/network-summary.R#L39) *style:* **Put spaces around all infix operators.**
```r
ns <- NetworkSummary(transfers, root=584, tEnd="2005-10-31", days=91)
                                                                ~^~
```
[tests/network-summary.R:41:38:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/tests/network-summary.R#L41) *style:* **Put spaces around all infix operators.**
```r
                                 root=584,
                                    ~^~
```
[tests/network-summary.R:42:38:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/tests/network-summary.R#L42) *style:* **Put spaces around all infix operators.**
```r
                                 tEnd="2005-10-31",
                                    ~^~
```
[tests/network-summary.R:43:38:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/tests/network-summary.R#L43) *style:* **Put spaces around all infix operators.**
```r
                                 days=91))
                                    ~^~
```
[tests/shortest-paths.R:31:38:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/tests/shortest-paths.R#L31) *style:* **Put spaces around all infix operators.**
```r
sp.1 <- ShortestPaths(transfers, root=2645, tEnd="2005-10-31", days=90)
                                    ~^~
```
[tests/shortest-paths.R:31:49:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/tests/shortest-paths.R#L31) *style:* **Put spaces around all infix operators.**
```r
sp.1 <- ShortestPaths(transfers, root=2645, tEnd="2005-10-31", days=90)
                                               ~^~
```
[tests/shortest-paths.R:31:68:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/tests/shortest-paths.R#L31) *style:* **Put spaces around all infix operators.**
```r
sp.1 <- ShortestPaths(transfers, root=2645, tEnd="2005-10-31", days=90)
                                                                  ~^~
```
[tests/shortest-paths.R:32:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/tests/shortest-paths.R#L32) *style:* **Lines should not be more than 80 characters.**
```r
sp.2 <- ShortestPaths(Trace(movements=transfers, root=2645, tEnd="2005-10-31", days=90))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/shortest-paths.R:32:38:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/tests/shortest-paths.R#L32) *style:* **Put spaces around all infix operators.**
```r
sp.2 <- ShortestPaths(Trace(movements=transfers, root=2645, tEnd="2005-10-31", days=90))
                                    ~^~
```
[tests/shortest-paths.R:32:54:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/tests/shortest-paths.R#L32) *style:* **Put spaces around all infix operators.**
```r
sp.2 <- ShortestPaths(Trace(movements=transfers, root=2645, tEnd="2005-10-31", days=90))
                                                    ~^~
```
[tests/shortest-paths.R:32:65:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/tests/shortest-paths.R#L32) *style:* **Put spaces around all infix operators.**
```r
sp.2 <- ShortestPaths(Trace(movements=transfers, root=2645, tEnd="2005-10-31", days=90))
                                                               ~^~
```
[tests/shortest-paths.R:32:84:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/tests/shortest-paths.R#L32) *style:* **Put spaces around all infix operators.**
```r
sp.2 <- ShortestPaths(Trace(movements=transfers, root=2645, tEnd="2005-10-31", days=90))
                                                                                ~^~
```
[tests/shortest-paths.R:35:48:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/tests/shortest-paths.R#L35) *style:* **Commas should always have a space after.**
```r
in.1 <- in.1[order(in.1$source, in.1$distance),]
                                               ^
```
[tests/shortest-paths.R:36:48:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/tests/shortest-paths.R#L36) *style:* **Commas should always have a space after.**
```r
in.2 <- in.2[order(in.2$source, in.2$distance),]
                                               ^
```
[tests/shortest-paths.R:42:57:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/tests/shortest-paths.R#L42) *style:* **Commas should always have a space after.**
```r
out.1 <- out.1[order(out.1$destination, out.1$distance),]
                                                        ^
```
[tests/shortest-paths.R:43:57:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/tests/shortest-paths.R#L43) *style:* **Commas should always have a space after.**
```r
out.2 <- out.2[order(out.2$destination, out.2$distance),]
                                                        ^
```
[tests/shortest-paths.R:57:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/tests/shortest-paths.R#L57) *style:* **Lines should not be more than 80 characters.**
```r
sp.in <- ShortestPaths(Trace(movements=transfers, root=100, tEnd="2005-10-31", days=90))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/shortest-paths.R:57:39:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/tests/shortest-paths.R#L57) *style:* **Put spaces around all infix operators.**
```r
sp.in <- ShortestPaths(Trace(movements=transfers, root=100, tEnd="2005-10-31", days=90))
                                     ~^~
```
[tests/shortest-paths.R:57:55:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/tests/shortest-paths.R#L57) *style:* **Put spaces around all infix operators.**
```r
sp.in <- ShortestPaths(Trace(movements=transfers, root=100, tEnd="2005-10-31", days=90))
                                                     ~^~
```
[tests/shortest-paths.R:57:65:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/tests/shortest-paths.R#L57) *style:* **Put spaces around all infix operators.**
```r
sp.in <- ShortestPaths(Trace(movements=transfers, root=100, tEnd="2005-10-31", days=90))
                                                               ~^~
```
[tests/shortest-paths.R:57:84:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/tests/shortest-paths.R#L57) *style:* **Put spaces around all infix operators.**
```r
sp.in <- ShortestPaths(Trace(movements=transfers, root=100, tEnd="2005-10-31", days=90))
                                                                                ~^~
```
[tests/shortest-paths.R:59:48:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/tests/shortest-paths.R#L59) *style:* **Commas should always have a space after.**
```r
sp.in <- sp.in[order(as.numeric(sp.in$source)),]
                                               ^
```
[tests/shortest-paths.R:71:1:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/tests/shortest-paths.R#L71) *style:* **Lines should not be more than 80 characters.**
```r
sp.out <- ShortestPaths(Trace(movements=transfers, root=100, tEnd="2005-10-31", days=90))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/shortest-paths.R:71:40:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/tests/shortest-paths.R#L71) *style:* **Put spaces around all infix operators.**
```r
sp.out <- ShortestPaths(Trace(movements=transfers, root=100, tEnd="2005-10-31", days=90))
                                      ~^~
```
[tests/shortest-paths.R:71:56:](https://github.com/stewid/EpiContactTrace/blob/42fec04eb56d981a4eeb468c3f952363d31a0452/tests/shortest-paths.R#L71) *style:* **Put spaces around all infix operators.**
```r
sp.out <- ShortestPaths(Trace(movements=transfers, root=100, tEnd="2005-10-31", days=90))
                                                      ~^~
```


good job,
keep it up 👍


It is. The contract is that if no path is found a PathNotFound or TimeOutException is thrown. That's the reason why usually no check on result size is done. We should also explicitly handle probable exceptions of both requests and, if necessary rethrow them.


which


Deployment failed with the following error:

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


如果用StringBuilder的话，它自带reverse方法的。


Here oModel is set and used(readable) afterwords, this means that we should use a **const** instead of var. Don't use **var** at all !


great job, keep it up. 👍


I see the struggle. I am subbed to this repo. Good luck man! XD


Good job 👍


**const** instead of **var**. Please check all files and change accordingly.


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.


Successfully deployed to following URLs:

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


Be consistent and use only one metric. Or **%** or **px** not both.


great Job,
usually when we declare any variable we use var or let
keep it up 🥇


Remove white lines, use formatting on save for Visual Studio Code.


Successfully deployed to following URLs:

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


Deployment failed with the following error:

~~~
If you agree with that, please run again with `--public`.
~~~


Better to do `jsonify(file_data[additive])`.

When calling the api from your phone, this will make things much much easier!


Here oModel is set and used(readable) afterwords, this means that we should use a **const** instead of **var**. Don't use **var** at all !


Successfully deployed to following URLs:

* https://g-blog-3piughkly.now.sh
* https://brandonpittman.dev
* https://blp.is
* https://brandonpittman.net
* https://www.brandonpittman.net
* https://www.brandonpittman.dev
* https://g-blog.brandonpittman1.now.sh
* https://g-blog-git-master.brandonpittman1.now.sh


You can do `file_data = json.load(jsonfile)` directly


Good job 💯


Good job. 👍


Here oRouter is just used for read purpose. We should use **const** instead of **let**.


aindid


Puzzle `20-ab278203` disappeared from [`src/test/kotlin/com/aivinog1/pdd/plugin/TestTaskTest.kt`](https://github.com/aivinog1/0pdd-idea-plugin/blob/master/src/test/kotlin/com/aivinog1/pdd/plugin/TestTaskTest.kt), that's why I closed #35. Please, remember that the puzzle was not necessarily removed in this particular commit. Maybe it happened earlier, but we discovered this fact only now.


Puzzle `26-6daa7be9` disappeared from [`src/main/kotlin/com/aivinog1/pdd/plugin/TestTask.kt`](https://github.com/aivinog1/0pdd-idea-plugin/blob/master/src/main/kotlin/com/aivinog1/pdd/plugin/TestTask.kt), that's why I closed #29. Please, remember that the puzzle was not necessarily removed in this particular commit. Maybe it happened earlier, but we discovered this fact only now.


Hi! This is the friendly automated conda-forge-webservice.

I updated the Github team because of this commit.

- @borntyping was added to conda-forge. Welcome to conda-forge!
  Go to https://github.com/orgs/conda-forge/invitation see your invitation.

You should get push access to this feedstock and CI services.

Feel free to join the community [chat room](https://gitter.im/conda-forge/conda-forge.github.io).

NOTE: Please make sure to not push to the repository directly.
      Use branches in your fork for any changes and send a PR.
      More details [here](https://conda-forge.org/docs/maintainer/updating_pkgs.html#forking-and-pull-requests)


Successfully deployed to following URLs:

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


@JuliaRegistrator register

Release notes:

Add more keyword parameters to AtariEnv.
Add upper bounds of dependencies.


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

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.3 -m "<description of version>" c95deffae1eadda4b0e602ecfdaf330bb3596b66
git push origin v0.1.3
```


well done,
for HW2:
try to use if condition in the bottle HW to check if the number became 1 or 0.

keep it up 👍


This commit should not contain only this change (remove one line), so please do an interactive rebase between this commit and this "fea6725" .


Great job. 💯


```js
class MetamaskStatus extends HTMLElement {
  constructor() {
    super();
    this.connectedCallback = this.connectedCallback.bind(this);
    // attachShadow fills this.shadowRoot automatically
    this.attachShadow({ mode: 'open' });
    this.shadowRoot.innerHTML = `
      <style>
	      #status { margin-left: 5px; text-transform: uppercase; font-family: monospace }
      </style>
      <img src="metamask.svg" width="25">
      <span id="status">no web3</span>
    `;
  }

  connectedCallback() {
    const elstatus = this.shadowRoot.querySelector('#status');

    const toggleLockStatus = (statusEl => isUnlock => {
      const newStatus = isUnlock === true ? 'unlocked' : 'locked';
      console.log(`MetaMask is ${newStatus}`);
      this.setAttribute(newStatus, '')
      statusEl.innerHTML = newStatus;
    })(elstatus);

    const checkEthereumAvailability = (statusEl => () => {
      const isEthereumAvailable = window.ethereum !== undefined;
      console.log(isEthereumAvailable ? 'web3 is enabled' : 'web3 is not found');
      if (!isEthereumAvailable) statusEl.innerHTML = 'no web3';
      return isEthereumAvailable;
    })(elstatus);

    const checkMetaMaskAvailability = () => {
      const isMetaMaskAvailable = window.ethereum.isMetaMask === true;
      const ENABLED_ATTRIBUTE = 'enabled';
      isMetaMaskAvailable
        ? this.setAttribute(ENABLED_ATTRIBUTE, '')
        : this.removeAttribute(ENABLED_ATTRIBUTE, '');
      return isMetaMaskAvailable;
    }

    const unsafeGetLocStatus = ()=> {
      return window.ethereum._metamask.isUnlocked()
    }

    window && window.addEventListener('load', () => {
      checkEthereumAvailability()
      && checkMetaMaskAvailability()
      && unsafeGetLocStatus().then(toggleLockStatus)
    })

  }
}
customElements.define('metamask-status', MetamaskStatus)
```


Successfully deployed to following URLs:

* https://pretty-text-generator-9wgfbpkq5.now.sh
* https://pt.aluc.io
* https://pretty-text-generator.b6pzeusbc54tvhw5jgpyw8pwz2x6gs.now.sh
* https://pretty-text-generator-git-master.b6pzeusbc54tvhw5jgpyw8pwz2x6gs.now.sh


great job 💯


Deployment failed with the following error:

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


Give some introduction to gRPC.
- What is it
- How does it work
- How does it compare to REST
- What are some of the benefits


good job 👍