diff --git a/tests/scheduled_tests/regression.R b/tests/scheduled_tests/regression.R
index 34f7f5461fb2eceec8131f13743c4d2dadad8d7e..88c7b0f6511f99953bb07a56d497735388b53d37 100644
--- a/tests/scheduled_tests/regression.R
+++ b/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",
diff --git a/tests/scheduled_tests/scheduled.R b/tests/scheduled_tests/scheduled.R
index c8f4d7ee8db6177d4a643f6b315e9a10f80f8229..ece2a2576562b87566add4ad697463c88f86eae7 100644
--- a/tests/scheduled_tests/scheduled.R
+++ b/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"])) {