[R/network-structure.R:135:1:](https://github.com/stewid/EpiContactTrace/blob/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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:74:1:](https://github.com/stewid/EpiContactTrace/blob/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/R/report.R#L74) *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:79:1:](https://github.com/stewid/EpiContactTrace/blob/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/R/report.R#L79) *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:82:1:](https://github.com/stewid/EpiContactTrace/blob/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/R/report.R#L82) *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:142:1:](https://github.com/stewid/EpiContactTrace/blob/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/R/report.R#L142) *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:276:1:](https://github.com/stewid/EpiContactTrace/blob/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/R/report.R#L276) *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:369:38:](https://github.com/stewid/EpiContactTrace/blob/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/R/report.R#L369) *style:* **Put spaces around all infix operators.**
```r
              Sweave(template, syntax="SweaveSyntaxNoweb")
                                    ~^~
```
[R/shortest-paths.R:168:1:](https://github.com/stewid/EpiContactTrace/blob/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/R/shortest-paths.R#L411) *style:* **Lines should not be more than 80 characters.**
```r
                                         destination = x$destination[sp$outRowid],
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/trace.R:167:1:](https://github.com/stewid/EpiContactTrace/blob/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/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/98e57d08f46292d469da5b5537cd7c07fd2c9ab2/R/tree.R#L431) *style:* **Place a space before left parenthesis, except in a function call.**
```r
            while(has_right_sibling(right_most)) {
                 ^
```


`self.textField`


[R/scrm.R:8:70:](https://github.com/scrm/scrm-r/blob/8a4697830adb89340b54cb994d9e91eb0f239b77/R/scrm.R#L8) *style:* **Trailing whitespace is superfluous.**
```r
#' to act as an drop-in replacement for the widely adopted coalescent
                                                                     ^
```
[R/scrm.R:9:24:](https://github.com/scrm/scrm-r/blob/8a4697830adb89340b54cb994d9e91eb0f239b77/R/scrm.R#L9) *style:* **Trailing whitespace is superfluous.**
```r
#' simulator \emph{ms}.
                       ^
```
[R/scrm.R:28:77:](https://github.com/scrm/scrm-r/blob/8a4697830adb89340b54cb994d9e91eb0f239b77/R/scrm.R#L28) *style:* **Trailing whitespace is superfluous.**
```r
#'   \item \code{vignette('scrm-Arguments')} for an overview of command line
                                                                            ^
```
[tests/testthat/test-summary-statistics.R:84:13:](https://github.com/scrm/scrm-r/blob/8a4697830adb89340b54cb994d9e91eb0f239b77/tests/testthat/test-summary-statistics.R#L84) *warning:* **Avoid 1:nrow(...) expressions, use seq_len.**
```r
  for (i in 1:nrow(sum_stats$sfs)) {
            ^
```


Deployment failed with the following error:

~~~
The chosen alias "preloader.now.sh" is already in use by another account.
~~~


you must call `super`


Successfully deployed to following URLs:

* https://41waller-kj4mtorpc.now.sh
* https://41waller.com
* https://*.41waller.com
* https://41waller.ahrjarrett.now.sh
* https://41waller-git-master.ahrjarrett.now.sh


Debería ser category_id, favor de cambiarlo


Successfully deployed to following URLs:

* https://snake-5rutajd1t.now.sh
* https://snake.levtsypanov1.now.sh
* https://snake-git-master.levtsypanov1.now.sh


Associating with #3 with this commit


:white_check_mark: All Rules (3 / 3) Passed

      :crown: Good job! this pull request is aligned with your organization's best practices!

      :point_right: You can review your rules settings at smart policy management :point_left:

:point_right: click here to view a full list of the events :point_left:


Hay varios errores debido a unos queries no cambiados en

main/auth/courses.php y en
main/inc/lib/course_category.lib.php


hassan i have fixed the navigation bar issue and bootstrap errors, also i have changed the slider and added a new one with new pictures, also added the responsiveness. All the errors are removed, please check it out :-)


Successfully deployed to following URLs:

* https://vbb-journey-proxy-k3swinomn.now.sh
* https://sklinkusch-vbbjourney.now.sh
* https://vbb-journey-proxy.sklinkusch.now.sh
* https://vbb-journey-proxy-git-master.sklinkusch.now.sh


I think we still need to protect `handle_cli_req` with `lock_`.  Otherwise, the node may switch to follower while we are appending log entries.

Also, as with your example, for log 2, if T2 is suspended before `pre_commit` is called, `commit` may be called before `pre_commit`, which violates an important guarantee that `pre_commit` is always called before `commit`.


Deployment failed with the following error:

~~~
The domain used as an alias free-fitness.by is not verified yet. Please verify it.
~~~


    Connection conn = DriverManager.getConnection("jdbc:sqlite:petsDatabase.db");
        Statement st = conn.createStatement();
        String createTableSql = "CREATE TABLE IF NOT EXISTS Activities "
                + "(ID INTEGER PRIMARY KEY autoincrement, "
                + "NAME TEXT NOT NULL, "
                + "PHONE TEXT NOT NULL,"
                + "CATEGORY TEXT NOT NULL, "
                + "COLOUR TEXT NOT NULL, "
                + "DATETIME TEXT NOT NULL,"
                + "DESCRIPTION TEXT NOT NULL"
                +");";
        st.execute(createTableSql);

        st.close();
        conn.close();
	System.out.println("成功");


It was working fine even with large icons - but now that I think about it, maybe it was using explorer's icon cache?


删除


Successfully deployed to following URLs:

* https://snake-ordc7zf69.now.sh
* https://snake.levtsypanov1.now.sh
* https://snake-git-master.levtsypanov1.now.sh


refers to https://github.com/abc1763613206/TGBullshitGeneratorBot/commit/b144f5d2e57d4b290b456b7572ff25b6d296c2a3


We could remove all discounts, apply only higher or lower discount, or apply both discounts here


#2 @coursar исправил


Czy to jest konieczne?


just changed the color


Successfully deployed to following URLs:

* https://programminginth-64gallwsx.now.sh
* https://staging.programming.in.th
* https://programminginth.prginth.now.sh
* https://programminginth-git-master.prginth.now.sh


first commit on github

[StringProg.zip](https://github.com/Nandamma/coder-repository/files/3800382/StringProg.
basic string program


Missing EOL.


Deployment failed with the following error:

~~~
The domain used as an alias cbit.ac.in is not verified yet. Please verify it.
~~~


[R/network-structure.R:135:1:](https://github.com/stewid/EpiContactTrace/blob/3d59230354a4a0576f45ca77b33c16cb42a8769b/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/3d59230354a4a0576f45ca77b33c16cb42a8769b/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/3d59230354a4a0576f45ca77b33c16cb42a8769b/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/3d59230354a4a0576f45ca77b33c16cb42a8769b/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/3d59230354a4a0576f45ca77b33c16cb42a8769b/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/3d59230354a4a0576f45ca77b33c16cb42a8769b/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/3d59230354a4a0576f45ca77b33c16cb42a8769b/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/3d59230354a4a0576f45ca77b33c16cb42a8769b/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/3d59230354a4a0576f45ca77b33c16cb42a8769b/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/3d59230354a4a0576f45ca77b33c16cb42a8769b/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/3d59230354a4a0576f45ca77b33c16cb42a8769b/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/3d59230354a4a0576f45ca77b33c16cb42a8769b/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/3d59230354a4a0576f45ca77b33c16cb42a8769b/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/3d59230354a4a0576f45ca77b33c16cb42a8769b/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/3d59230354a4a0576f45ca77b33c16cb42a8769b/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/3d59230354a4a0576f45ca77b33c16cb42a8769b/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/3d59230354a4a0576f45ca77b33c16cb42a8769b/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/3d59230354a4a0576f45ca77b33c16cb42a8769b/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/3d59230354a4a0576f45ca77b33c16cb42a8769b/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/3d59230354a4a0576f45ca77b33c16cb42a8769b/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/3d59230354a4a0576f45ca77b33c16cb42a8769b/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/3d59230354a4a0576f45ca77b33c16cb42a8769b/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/3d59230354a4a0576f45ca77b33c16cb42a8769b/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/3d59230354a4a0576f45ca77b33c16cb42a8769b/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/3d59230354a4a0576f45ca77b33c16cb42a8769b/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/3d59230354a4a0576f45ca77b33c16cb42a8769b/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/3d59230354a4a0576f45ca77b33c16cb42a8769b/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/3d59230354a4a0576f45ca77b33c16cb42a8769b/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:74:1:](https://github.com/stewid/EpiContactTrace/blob/3d59230354a4a0576f45ca77b33c16cb42a8769b/R/report.R#L74) *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:79:1:](https://github.com/stewid/EpiContactTrace/blob/3d59230354a4a0576f45ca77b33c16cb42a8769b/R/report.R#L79) *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:82:1:](https://github.com/stewid/EpiContactTrace/blob/3d59230354a4a0576f45ca77b33c16cb42a8769b/R/report.R#L82) *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:142:1:](https://github.com/stewid/EpiContactTrace/blob/3d59230354a4a0576f45ca77b33c16cb42a8769b/R/report.R#L142) *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:276:1:](https://github.com/stewid/EpiContactTrace/blob/3d59230354a4a0576f45ca77b33c16cb42a8769b/R/report.R#L276) *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:369:38:](https://github.com/stewid/EpiContactTrace/blob/3d59230354a4a0576f45ca77b33c16cb42a8769b/R/report.R#L369) *style:* **Put spaces around all infix operators.**
```r
              Sweave(template, syntax="SweaveSyntaxNoweb")
                                    ~^~
```
[R/shortest-paths.R:168:1:](https://github.com/stewid/EpiContactTrace/blob/3d59230354a4a0576f45ca77b33c16cb42a8769b/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/3d59230354a4a0576f45ca77b33c16cb42a8769b/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/3d59230354a4a0576f45ca77b33c16cb42a8769b/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/3d59230354a4a0576f45ca77b33c16cb42a8769b/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/3d59230354a4a0576f45ca77b33c16cb42a8769b/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/3d59230354a4a0576f45ca77b33c16cb42a8769b/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/3d59230354a4a0576f45ca77b33c16cb42a8769b/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/3d59230354a4a0576f45ca77b33c16cb42a8769b/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/3d59230354a4a0576f45ca77b33c16cb42a8769b/R/shortest-paths.R#L411) *style:* **Lines should not be more than 80 characters.**
```r
                                         destination = x$destination[sp$outRowid],
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/trace.R:167:1:](https://github.com/stewid/EpiContactTrace/blob/3d59230354a4a0576f45ca77b33c16cb42a8769b/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/3d59230354a4a0576f45ca77b33c16cb42a8769b/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/3d59230354a4a0576f45ca77b33c16cb42a8769b/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/3d59230354a4a0576f45ca77b33c16cb42a8769b/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/3d59230354a4a0576f45ca77b33c16cb42a8769b/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/3d59230354a4a0576f45ca77b33c16cb42a8769b/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/3d59230354a4a0576f45ca77b33c16cb42a8769b/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/3d59230354a4a0576f45ca77b33c16cb42a8769b/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/3d59230354a4a0576f45ca77b33c16cb42a8769b/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/3d59230354a4a0576f45ca77b33c16cb42a8769b/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/3d59230354a4a0576f45ca77b33c16cb42a8769b/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/3d59230354a4a0576f45ca77b33c16cb42a8769b/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/3d59230354a4a0576f45ca77b33c16cb42a8769b/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/3d59230354a4a0576f45ca77b33c16cb42a8769b/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/3d59230354a4a0576f45ca77b33c16cb42a8769b/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/3d59230354a4a0576f45ca77b33c16cb42a8769b/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/3d59230354a4a0576f45ca77b33c16cb42a8769b/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/3d59230354a4a0576f45ca77b33c16cb42a8769b/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/3d59230354a4a0576f45ca77b33c16cb42a8769b/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/3d59230354a4a0576f45ca77b33c16cb42a8769b/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/3d59230354a4a0576f45ca77b33c16cb42a8769b/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/3d59230354a4a0576f45ca77b33c16cb42a8769b/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/3d59230354a4a0576f45ca77b33c16cb42a8769b/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/3d59230354a4a0576f45ca77b33c16cb42a8769b/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/3d59230354a4a0576f45ca77b33c16cb42a8769b/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/3d59230354a4a0576f45ca77b33c16cb42a8769b/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/3d59230354a4a0576f45ca77b33c16cb42a8769b/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/3d59230354a4a0576f45ca77b33c16cb42a8769b/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/3d59230354a4a0576f45ca77b33c16cb42a8769b/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/3d59230354a4a0576f45ca77b33c16cb42a8769b/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/3d59230354a4a0576f45ca77b33c16cb42a8769b/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:64:38:](https://github.com/stewid/EpiContactTrace/blob/3d59230354a4a0576f45ca77b33c16cb42a8769b/R/tree.R#L64) *style:* **Put spaces around all infix operators.**
```r
                stopifnot(length(dst)>0)
                                    ~^~
```
[R/tree.R:94:38:](https://github.com/stewid/EpiContactTrace/blob/3d59230354a4a0576f45ca77b33c16cb42a8769b/R/tree.R#L94) *style:* **Put spaces around all infix operators.**
```r
                stopifnot(length(src)>0)
                                    ~^~
```
[R/tree.R:135:1:](https://github.com/stewid/EpiContactTrace/blob/3d59230354a4a0576f45ca77b33c16cb42a8769b/R/tree.R#L135) *style:* **functions should have cyclomatic complexity of less than 15, this has 48.**
```r
position_tree <- function(tree,
^
```


+# ZJL’s brief introduction
### Thank you for reading!
> hobby: sing jump rap basketball (no)
>
 > free time: AM 8:00-PM 22:30
>
> dream: a legend in ujs, china, world
>
> ## don't have girlfriend yet!!


[R/boot_jaatha.R:46:34:](https://github.com/statgenlmu/jaatha/blob/c6bc7f9b927e7a33f4b59d86c2e9e51dac556f9c/R/boot_jaatha.R#L46) *style:* **Variable and function name style should be snake_case.**
```r
boot_jaatha <- function(results, R, cores_per_run = 1, ...) {
                                 ^
```
[R/coala_interface.R:38:1:](https://github.com/statgenlmu/jaatha/blob/c6bc7f9b927e7a33f4b59d86c2e9e51dac556f9c/R/coala_interface.R#L38) *style:* **Variable and function name style should be snake_case.**
```r
create_jaatha_model.coalmodel <- function(x,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/coala_interface.R:72:1:](https://github.com/statgenlmu/jaatha/blob/c6bc7f9b927e7a33f4b59d86c2e9e51dac556f9c/R/coala_interface.R#L72) *style:* **functions should have cyclomatic complexity of less than 15, this has 17.**
```r
convert_coala_sumstats <- function(coala_model, jsfs_summary = "sums",
^
```
[R/coala_interface.R:131:3:](https://github.com/statgenlmu/jaatha/blob/c6bc7f9b927e7a33f4b59d86c2e9e51dac556f9c/R/coala_interface.R#L131) *style:* **Variable and function name style should be snake_case.**
```r
  N <- nrow(p)
  ^
```
[R/coala_interface.R:135:28:](https://github.com/statgenlmu/jaatha/blob/c6bc7f9b927e7a33f4b59d86c2e9e51dac556f9c/R/coala_interface.R#L135) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
      v <- as.vector(outer( (v - 1) * d[n], p[n, 1]:p[n, 2], "+"))
                           ^
```
[R/coala_interface.R:167:1:](https://github.com/statgenlmu/jaatha/blob/c6bc7f9b927e7a33f4b59d86c2e9e51dac556f9c/R/coala_interface.R#L167) *style:* **Lines should not be more than 80 characters.**
```r
#'    combination of part=c(1,3) and part_hi=c(1,3), the classical jaatha summary
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/coala_interface.R:202:13:](https://github.com/statgenlmu/jaatha/blob/c6bc7f9b927e7a33f4b59d86c2e9e51dac556f9c/R/coala_interface.R#L202) *warning:* **Avoid 1:length(...) expressions, use seq_len.**
```r
  for (i in 1:length(z)) {
            ^
```
[R/fit_glm.R:17:3:](https://github.com/statgenlmu/jaatha/blob/c6bc7f9b927e7a33f4b59d86c2e9e51dac556f9c/R/fit_glm.R#L17) *style:* **Variable and function name style should be snake_case.**
```r
  Y <- do.call(rbind, lapply(sim_data, function(data) data[[x$get_name()]]))
  ^
```
[R/fit_glm.R:18:3:](https://github.com/statgenlmu/jaatha/blob/c6bc7f9b927e7a33f4b59d86c2e9e51dac556f9c/R/fit_glm.R#L18) *style:* **Variable and function name style should be snake_case.**
```r
  X <- cbind(1,
  ^
```
[R/jaatha_data.R:1:1:](https://github.com/statgenlmu/jaatha/blob/c6bc7f9b927e7a33f4b59d86c2e9e51dac556f9c/R/jaatha_data.R#L1) *style:* **functions should have cyclomatic complexity of less than 15, this has 22.**
```r
jaatha_data_class <- R6::R6Class("jaatha_data",
^
```
[R/jaatha.R:23:1:](https://github.com/statgenlmu/jaatha/blob/c6bc7f9b927e7a33f4b59d86c2e9e51dac556f9c/R/jaatha.R#L23) *style:* **Lines should not be more than 80 characters.**
```r
#' @param sim_cache_limit The maximal number of simulations results that will be
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/jaatha.R:65:1:](https://github.com/statgenlmu/jaatha/blob/c6bc7f9b927e7a33f4b59d86c2e9e51dac556f9c/R/jaatha.R#L65) *style:* **functions should have cyclomatic complexity of less than 15, this has 19.**
```r
jaatha <- function(model, data,
^
```
[R/jaatha.R:139:13:](https://github.com/statgenlmu/jaatha/blob/c6bc7f9b927e7a33f4b59d86c2e9e51dac556f9c/R/jaatha.R#L139) *warning:* **Avoid 1:nrow(...) expressions, use seq_len.**
```r
  for (i in 1:nrow(best_values)) {
            ^
```
[R/likelihood.R:137:64:](https://github.com/statgenlmu/jaatha/blob/c6bc7f9b927e7a33f4b59d86c2e9e51dac556f9c/R/likelihood.R#L137) *style:* **There should be a space between right parenthesis and an opening curly brace.**
```r
  llh <- sum(vapply(names(model$get_sum_stats()), function(stat){
                                                               ^~
```
[R/par_ranges.R:15:44:](https://github.com/statgenlmu/jaatha/blob/c6bc7f9b927e7a33f4b59d86c2e9e51dac556f9c/R/par_ranges.R#L15) *warning:* **Avoid 1:nrow(...) expressions, use seq_len.**
```r
        rownames(par_range) <- paste0("p", 1:nrow(par_range))
                                           ^
```
[R/stat_basic.R:47:1:](https://github.com/statgenlmu/jaatha/blob/c6bc7f9b927e7a33f4b59d86c2e9e51dac556f9c/R/stat_basic.R#L47) *style:* **Lines should not be more than 80 characters.**
```r
#'   If it is set to \code{FALSE}, the statistic is transformed into an approximately
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/stat_cube.R:24:17:](https://github.com/statgenlmu/jaatha/blob/c6bc7f9b927e7a33f4b59d86c2e9e51dac556f9c/R/stat_cube.R#L24) *warning:* **Avoid 1:ncol(...) expressions, use seq_len.**
```r
      for (i in 1:ncol(stat)) {
                ^
```
[R/stat_cube.R:47:56:](https://github.com/statgenlmu/jaatha/blob/c6bc7f9b927e7a33f4b59d86c2e9e51dac556f9c/R/stat_cube.R#L47) *warning:* **Avoid 1:ncol(...) expressions, use seq_len.**
```r
        private$generate_cube(stat, opts$break_values, 1:ncol(stat))
                                                       ^
```


task5 --- зачтено


[R/scrm.R:7:1:](https://github.com/scrm/scrm-r/blob/aa8d18ef2c67895c6cf335e3c07e0dd2bb61fbbc/R/scrm.R#L7) *style:* **Lines should not be more than 80 characters.**
```r
#' The program \emph{scrm} is an implementation of this model that is designed to
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/scrm.R:27:1:](https://github.com/scrm/scrm-r/blob/aa8d18ef2c67895c6cf335e3c07e0dd2bb61fbbc/R/scrm.R#L27) *style:* **Lines should not be more than 80 characters.**
```r
#'   \item \code{vignette('scrm-Arguments')} for an overview of command line arguments and
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test-summary-statistics.R:84:13:](https://github.com/scrm/scrm-r/blob/aa8d18ef2c67895c6cf335e3c07e0dd2bb61fbbc/tests/testthat/test-summary-statistics.R#L84) *warning:* **Avoid 1:nrow(...) expressions, use seq_len.**
```r
  for (i in 1:nrow(sum_stats$sfs)) {
            ^
```


Here we compare the parameter's type with the type of the display-class field, so these should match.

```csharp
		public static Func<string> Issue1773c((int Integer, string String) data)
		{
			(int Integer, string RenamedString) valueTuple = data;
			return () => valueTuple.RenamedString;
		}
```

I have added more tests in ddba47a and 6709827... csc and mcs behave a bit weird in case of dynamic, though.


Successfully deployed to following URLs:

* https://ne-ploho-moscow-first-dates-pwvxa31mk.now.sh
* https://moscow-first-dates.now.sh
* https://new.map.ne-ploho.com
* https://ne-ploho-moscow-first-dates.alexkuz.now.sh
* https://ne-ploho-moscow-first-dates-git-master.alexkuz.now.sh


Successfully deployed to following URLs:

* https://vbb-journey-proxy-8vgt33gnh.now.sh
* https://sklinkusch-vbbjourney.now.sh
* https://vbb-journey-proxy.sklinkusch.now.sh
* https://vbb-journey-proxy-git-master.sklinkusch.now.sh


master_doc = 'index'
解决readthedocs.org 无法构建成功，报Error: sphinx.errors.SphinxError contents.rst not found