From e2b291be484cdd5ad731a6faa2cab0fda3159dc2 Mon Sep 17 00:00:00 2001
From: jlopez <jimmy.lopez0023@gmail.com>
Date: Wed, 1 Apr 2020 12:30:30 +0200
Subject: [PATCH] Add start_log

---
 log/start_log.R | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 log/start_log.R

diff --git a/log/start_log.R b/log/start_log.R
new file mode 100644
index 0000000..c9435ba
--- /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)
-- 
GitLab