style(test): add missing whitespaces

Refs #120

tests/scheduled_tests/regression.R

@@ -79,7 +79,7 @@ StoreTopicResults <- function(topic, package, path, run.dontrun = TRUE, run.dont
 CompareStableDev <- function() {
   res <- testthat::test_file("tests/testthat/regression.R")
   dRes <- as.data.frame(res)
-  if(any(dRes[, "failed"] > 0) | any(dRes[, "error"])) {
+  if (any(dRes[, "failed"] > 0) | any(dRes[, "error"])) {
     quit(status = 1)
   }
 }
@@ -97,7 +97,7 @@ lActions <- list(
   compare = CompareStableDev
 )
 
-if(length(Args) == 1 && Args %in% names(lActions)) {
+if (length(Args) == 1 && Args %in% names(lActions)) {
   lActions[[Args]]()
 } else {
   stop("This script should be run with one argument in the command line:\n",

tests/scheduled_tests/scheduled.R

@@ -31,14 +31,13 @@ quit2 <- function(status = 1, ...) {
 library(testthat)
 library(airGR)
 
-scheduled_tests <-
-list.files(
+scheduled_tests <- list.files(
   path = "tests/testthat",
   pattern = "^scheduled-.*\\.R$",
   full.names = TRUE
 )
 
-lRes = lapply(scheduled_tests, test_file)
+lRes <- lapply(scheduled_tests, test_file)
 for (res in lRes) {
   dRes <- as.data.frame(res)
   if (any(dRes[, "failed"] > 0) | any(dRes[, "error"])) {