code style: add space after 'if'

stewid · Nov 2, 2019 · 5f069bd · 5f069bd · lintr-bot · Nov 2, 2019
1 parent 726fb83
commit 5f069bd
Show file tree

Hide file tree

Showing 9 changed files with 152 additions and 152 deletions.
diff --git a/R/network-summary.R b/R/network-summary.R
@@ -277,13 +277,13 @@ setMethod("NetworkSummary",
 
           if (any(is.factor(x$source), is.integer(x$source))) {
               x$source <- as.character(x$source)
-          } else if(!is.character(x$source)) {
+          } else if (!is.character(x$source)) {
               stop("invalid class of column source in x")
           }
 
           if (any(is.factor(x$destination), is.integer(x$destination))) {
               x$destination <- as.character(x$destination)
-          } else if(!is.character(x$destination)) {
+          } else if (!is.character(x$destination)) {
               stop("invalid class of column destination in x")
           }
 

diff --git a/R/out-degree.R b/R/out-degree.R
@@ -175,7 +175,7 @@ setMethod("OutDegree",
           signature(x = "Contacts"),
           function (x)
       {
-          if(!identical(x@direction, "out")) {
+          if (!identical(x@direction, "out")) {
               stop("Unable to determine OutDegree for ingoing contacts")
           }
 
@@ -208,11 +208,11 @@ setMethod("OutDegree",
                    outBegin = NULL,
                    outEnd = NULL)
       {
-          if(missing(root)) {
+          if (missing(root)) {
               stop("Missing parameters in call to OutDegree")
           }
 
-          if(all(is.null(tEnd), is.null(days))) {
+          if (all(is.null(tEnd), is.null(days))) {
               inBegin <- outBegin
               inEnd <- outBegin
           } else {

diff --git a/R/outgoing-contact-chain.R b/R/outgoing-contact-chain.R
@@ -134,7 +134,7 @@ setMethod("OutgoingContactChain",
           signature(x = "Contacts"),
           function (x)
       {
-          if(!identical(x@direction, "out")) {
+          if (!identical(x@direction, "out")) {
               stop("Unable to determine OutgoingContactChain for ingoing contacts")
           }
 
@@ -167,11 +167,11 @@ setMethod("OutgoingContactChain",
                    outBegin = NULL,
                    outEnd = NULL)
       {
-          if(missing(root)) {
+          if (missing(root)) {
               stop("Missing parameters in call to OutgoingContactChain")
           }
 
-          if(all(is.null(tEnd), is.null(days))) {
+          if (all(is.null(tEnd), is.null(days))) {
               inBegin <- outBegin
               inEnd <- outBegin
           } else {

diff --git a/R/plot.R b/R/plot.R
@@ -78,7 +78,7 @@ setMethod("plot",
           edges_in <- NULL
           edges_out <- NULL
 
-          if(!is.null(tree$ingoing)) {
+          if (!is.null(tree$ingoing)) {
               tree$ingoing <- position_tree(tree$ingoing, orientation="South")
               tree$ingoing$bg <- ifelse(tree$ingoing$level > 0, "white", "black")
               tree$ingoing$pch <- 21
@@ -91,7 +91,7 @@ setMethod("plot",
               edges_in$y1 <- tree$ingoing$y[i]
           }
 
-          if(!is.null(tree$outgoing)) {
+          if (!is.null(tree$outgoing)) {
               tree$outgoing <- position_tree(tree$outgoing)
               tree$outgoing$bg <- ifelse(tree$outgoing$level > 0, "gray", "black")
               tree$outgoing$pch <- 21
@@ -102,23 +102,23 @@ setMethod("plot",
               edges_out$x0 <- tree$outgoing$x[i]
               edges_out$y0 <- tree$outgoing$y[i]
 
-              if(is.null(vertices)) {
+              if (is.null(vertices)) {
                   vertices <- tree$outgoing
               } else {
                   vertices <- rbind(vertices, tree$outgoing[-1,])
               }
           }
 
-          if(!is.null(vertices)) {
+          if (!is.null(vertices)) {
               plot(y~x, data = vertices, frame.plot = FALSE, axes = FALSE,
                    ann = FALSE, type = "n")
 
-              if(!is.null(edges_in)) {
+              if (!is.null(edges_in)) {
                   arrows(edges_in$x0, edges_in$y0, edges_in$x1, edges_in$y1,
                          length=0)
               }
 
-              if(!is.null(edges_out)) {
+              if (!is.null(edges_out)) {
                   arrows(edges_out$x0, edges_out$y0, edges_out$x1, edges_out$y1,
                          length=0)
               }

diff --git a/R/report.R b/R/report.R
@@ -19,7 +19,7 @@
 ## permissions and limitations under the Licence.
 
 html_summary_table <- function(contacts, direction) {
-    if(identical(direction, "in")) {
+    if (identical(direction, "in")) {
         arrow <- "&larr;"
     } else {
         arrow <- "&rarr;"
@@ -53,7 +53,7 @@ html_summary_table <- function(contacts, direction) {
 }
 
 html_detailed_table <- function(contacts, direction) {
-    if(identical(direction, "in")) {
+    if (identical(direction, "in")) {
         arrow <- "&larr;"
     } else {
         arrow <- "&rarr;"
@@ -123,7 +123,7 @@ html_report <- function(x)
                "</table>",
                "</p>")
 
-    if(length(x@ingoingContacts@source) > 0L) {
+    if (length(x@ingoingContacts@source) > 0L) {
         ## Get network structure. The distance is used for indentation.
         df <- NetworkStructure(x@ingoingContacts)
 
@@ -149,7 +149,7 @@ html_report <- function(x)
                "</table>",
                "</p>")
 
-    if(length(x@outgoingContacts@source) > 0L) {
+    if (length(x@outgoingContacts@source) > 0L) {
         ## Get network structure. The distance is used for indentation.
         df <- NetworkStructure(x@outgoingContacts)
 
@@ -162,7 +162,7 @@ html_report <- function(x)
         lines <- c(lines, "<p>No outgoing contacts during the search period.</p>")
     }
 
-    if(length(x@ingoingContacts@source) > 0L) {
+    if (length(x@ingoingContacts@source) > 0L) {
         lines <- c(lines,
                    "<hr/>",
                    "<h2>Direct ingoing contacts</h2>")
@@ -177,15 +177,15 @@ html_report <- function(x)
                    html_detailed_table(df[df$destination == df$root,], "in"))
 
         df <- df[df$destination != df$root,]
-        if(nrow(df) > 0) {
+        if (nrow(df) > 0) {
             lines <- c(lines,
                        "<hr/>",
                        "<h2>Indirect ingoing contacts</h2>",
                        html_detailed_table(df, "in"))
         }
     }
 
-    if(length(x@outgoingContacts@source) > 0L) {
+    if (length(x@outgoingContacts@source) > 0L) {
         lines <- c(lines,
                    "<hr/>",
                    "<h2>Direct outgoing contacts</h2>")
@@ -199,7 +199,7 @@ html_report <- function(x)
         html_detailed_table(df[df$source == df$root,], "out")
 
         df <- df[df$source != df$root,]
-        if(nrow(df) > 0) {
+        if (nrow(df) > 0) {
             lines <- c(lines,
                        "<hr/>",
                        "<h2>Indirect outgoing contacts</h2>",
@@ -343,10 +343,10 @@ setMethod("Report",
           ## Add the ContactTrace object to the .ct_env environment
           .ct_env$ct <- object
 
-          if(identical(format, "html")) {
+          if (identical(format, "html")) {
               writeLines(html_report(object), con = sprintf("%s.html", object@root))
           } else {
-              if(is.null(template)) {
+              if (is.null(template)) {
                   template <- system.file("Sweave/speak-latex.rnw", package="EpiContactTrace")
               }
 
@@ -368,11 +368,11 @@ setMethod("Report",
       {
           format <- match.arg(format)
 
-          if(!all(sapply(object, function(x) length(x)) == 1)) {
+          if (!all(sapply(object, function(x) length(x)) == 1)) {
               stop("Unexpected length of list")
           }
 
-          if(!all(sapply(object, function(x) class(x)) == "ContactTrace")) {
+          if (!all(sapply(object, function(x) class(x)) == "ContactTrace")) {
               stop("Unexpected object in list")
           }