add speedtest

Author: pachadotdev

Makefile

@@ -5,21 +5,32 @@ test:
 	@echo "Testing R code"
 	@Rscript -e 'devtools::document(); devtools::test(); devtools::install()'
 	@echo "Testing C++ code"
-	@Rscript -e 'devtools::clean_dll("cpp4rtest")'
-	@Rscript -e 'devtools::load_all("cpp4rtest"); devtools::test("cpp4rtest")'
+	@Rscript -e 'devtools::clean_dll("cpp4rtest"); devtools::load_all("cpp4rtest"); devtools::test("cpp4rtest")'
 
-check:
-	@echo "Local"
-	@Rscript -e 'devtools::install()'
-	@Rscript -e 'devtools::check(); devtools::check("cpp4rtest")'
+speedtest:
+	@echo "Testing if the changes reduce the tests' speed"
+	@Rscript -e 'devtools::document(); devtools::test(); devtools::install()'
+	@Rscript -e 'devtools::clean_dll("cpp4rtest"); devtools::load_all("cpp4rtest")'
+	@rm -f dev/timing.txt
+	@for i in `seq 1 10`; do \
+		echo "run $$i"; \
+		Rscript -e 't <- system.time(devtools::test("cpp4rtest"))[["elapsed"]]; cat(format(t, digits=10), "\n", file="dev/timing.txt", append=TRUE)'; \
+	done
+	@echo "Timing complete"
+	@Rscript --vanilla dev/timing.r
+	@echo "Results in dev/timing.txt"
 
+check:
+	@echo "Checking R code"
+	@Rscript -e 'devtools::install(); devtools::check()'
+	@echo "Checking C++ code"
+	@Rscript -e 'devtools::check("cpp4rtest")'
+	
 site:
-	@Rscript -e 'devtools::document()'
-	@Rscript -e 'pkgdown::build_site()'
+	@Rscript -e 'devtools::document(); pkgdown::build_site()'
 
 install:
-	@Rscript -e 'devtools::clean_dll("cpp4rtest")'
-	@Rscript -e 'devtools::install()'
+	@Rscript -e 'devtools::clean_dll("cpp4rtest"); devtools::install()'
 
 clang_format=`which clang-format-18`
 

dev/timing.r

@@ -0,0 +1,3 @@
+d <- suppressMessages(readr::read_csv("dev/timing.txt", col_names = FALSE))
+print(d$X1)
+print(c("median" = median(d$X1)))

dev/timing.txt

@@ -0,0 +1,10 @@
+1.196 
+1.21 
+1.358 
+1.319 
+1.318 
+1.162 
+1.295 
+1.321 
+1.252 
+1.126