diff --git a/tests/scheduled_tests/regression.R b/tests/scheduled_tests/regression.R
index 79fd1a9a42f48e3edbd21ad33bab94b4bdbef684..069b143849db6c4ea9faaabafc694c5e1d3162be 100644
--- a/tests/scheduled_tests/regression.R
+++ b/tests/scheduled_tests/regression.R
@@ -35,7 +35,7 @@ StoreExampleResults <- function(package, path, run.dontrun = FALSE, run.donttest
   rd <- unique(readRDS(system.file("help", "aliases.rds", package = package)))
 
   unlink(path, recursive = TRUE)
-  dir.create(path)
+  dir.create(path, recursive = TRUE)
 
   lapply(
     rd,