diff --git a/log/start_log.R b/log/start_log.R
new file mode 100644
index 0000000000000000000000000000000000000000..c9435ba1b734414efc1f11091982974e9b743b91
--- /dev/null
+++ b/log/start_log.R
@@ -0,0 +1,14 @@
+library(shinytest)
+library(shinyloadtest)
+
+# Pour faire un record sur un site web shiny
+shinyloadtest::record_session('https://shiny.mbb.univ-montp2.fr/RPACIB/', output_file = "./log/record.log")
+
+# Pour lan un run avec le recorde que l'on vient de faire
+# shinycannon record.log https://shiny.mbb.univ-montp2.fr/RPACIB/--workers 10 --loaded-duration-minutes 2 --output-dir run1
+
+# Pour récupérer les résultats de notre recorde
+df <- shinyloadtest::load_runs("10 workers" = "./log/run1")
+
+# Pour compiler les résultats dans un html
+shinyloadtest_report(df,"run1.html",self_contained=F)