Correct user_id in Posit Connect

phgrosjean · phgrosjean · commit 15309f6a7daa · 2025-09-12T18:44:34.000+02:00
diff --git a/inst/tutorials/A00La_discovery/A00La_discovery.Rmd b/inst/tutorials/A00La_discovery/A00La_discovery.Rmd
@@ -49,6 +49,12 @@ BioDataScience1::learnr_banner()
 ```
 
 ```{r, context="server"}
+if (Sys.info()["user"] == "rstudio-connect") {
+  options(learnr_user_id = session$user)
+  assignInNamespace("default_user_id", function() {
+    getOption("learnr_user_id", unname(Sys.info()["user"]))
+  }, ns = "learnr")
+}
 BioDataScience1::learnr_server(input, output, session)
 ```
 
diff --git a/inst/tutorials/A01La_base/A01La_base.Rmd b/inst/tutorials/A01La_base/A01La_base.Rmd
@@ -49,6 +49,12 @@ BioDataScience1::learnr_banner()
 ```
 
 ```{r, context="server"}
+if (Sys.info()["user"] == "rstudio-connect") {
+  options(learnr_user_id = session$user)
+  assignInNamespace("default_user_id", function() {
+    getOption("learnr_user_id", unname(Sys.info()["user"]))
+  }, ns = "learnr")
+}
 BioDataScience1::learnr_server(input, output, session)
 ```
 
diff --git a/inst/tutorials/A01La_tools/A01La_tools.Rmd.notusedanymore b/inst/tutorials/A01La_tools/A01La_tools.Rmd.notusedanymore
@@ -4,7 +4,7 @@ author: "Guyliann Engels & Philippe Grosjean"
 description: "**SDD I Module 1** Familiarisation avec les logiciels du cours."
 tutorial:
   id: "A01La_tools"
-  version: 2.2.1/4
+  version: 3.0.0/4
 output:
   learnr::tutorial:
     progressive: true
@@ -22,6 +22,12 @@ BioDataScience1::learnr_banner()
 ```
 
 ```{r, context="server"}
+if (Sys.info()["user"] == "rstudio-connect") {
+  options(learnr_user_id = session$user)
+  assignInNamespace("default_user_id", function() {
+    getOption("learnr_user_id", unname(Sys.info()["user"]))
+  }, ns = "learnr")
+}
 BioDataScience1::learnr_server(input, output, session)
 ```
 
diff --git a/inst/tutorials/A01Lb_scatterplot/A01Lb_scatterplot.Rmd b/inst/tutorials/A01Lb_scatterplot/A01Lb_scatterplot.Rmd
@@ -52,6 +52,12 @@ BioDataScience1::learnr_banner()
 ```
 
 ```{r, context="server"}
+if (Sys.info()["user"] == "rstudio-connect") {
+  options(learnr_user_id = session$user)
+  assignInNamespace("default_user_id", function() {
+    getOption("learnr_user_id", unname(Sys.info()["user"]))
+  }, ns = "learnr")
+}
 BioDataScience1::learnr_server(input, output, session)
 ```
 
diff --git a/inst/tutorials/A02La_progression/A02La_progression.Rmd.inactivated b/inst/tutorials/A02La_progression/A02La_progression.Rmd.inactivated
@@ -4,7 +4,7 @@ author : "Guyliann Engels & Philippe Grosjean"
 description: "**SDD I Module 2** Progression dans R via l'étude d'un cas concret."
 tutorial:
   id: "A02La_progression"
-  version: 2.4.0/10
+  version: 3.0.0/10
 output:
   learnr::tutorial:
     progressive: true
@@ -24,6 +24,12 @@ BioDataScience1::learnr_banner()
 ```
 
 ```{r, context="server"}
+if (Sys.info()["user"] == "rstudio-connect") {
+  options(learnr_user_id = session$user)
+  assignInNamespace("default_user_id", function() {
+    getOption("learnr_user_id", unname(Sys.info()["user"]))
+  }, ns = "learnr")
+}
 BioDataScience1::learnr_server(input, output, session)
 ```
 
diff --git a/inst/tutorials/A02Lb_univariate/A02Lb_univariate.Rmd.inactivated b/inst/tutorials/A02Lb_univariate/A02Lb_univariate.Rmd.inactivated
@@ -4,7 +4,7 @@ author: "Guyliann Engels & Philippe Grosjean"
 description: "**SDD I Module 2** Histogramme, graphiques de densité ou en violon."
 tutorial:
   id: "A02Lb_univariate"
-  version: 2.1.0/8
+  version: 3.0.0/8
 output:
   learnr::tutorial:
     progressive: true
@@ -29,6 +29,12 @@ BioDataScience1::learnr_banner()
 ```
 
 ```{r, context="server"}
+if (Sys.info()["user"] == "rstudio-connect") {
+  options(learnr_user_id = session$user)
+  assignInNamespace("default_user_id", function() {
+    getOption("learnr_user_id", unname(Sys.info()["user"]))
+  }, ns = "learnr")
+}
 BioDataScience1::learnr_server(input, output, session)
 ```
 
diff --git a/inst/tutorials/A02Lc_git/A02Lc_git.Rmd.inactivated b/inst/tutorials/A02Lc_git/A02Lc_git.Rmd.inactivated
@@ -4,7 +4,7 @@ author: "Guyliann Engels & Philippe Grosjean"
 description: "**SDD I Module 2** Vocabulaire lié à la gestion de versions avec git."
 tutorial:
   id: "A02Lc_git"
-  version: 2.0.1/6
+  version: 3.0.0/6
 output:
   learnr::tutorial:
     progressive: true
@@ -22,6 +22,12 @@ BioDataScience1::learnr_banner()
 ```
 
 ```{r, context="server"}
+if (Sys.info()["user"] == "rstudio-connect") {
+  options(learnr_user_id = session$user)
+  assignInNamespace("default_user_id", function() {
+    getOption("learnr_user_id", unname(Sys.info()["user"]))
+  }, ns = "learnr")
+}
 BioDataScience1::learnr_server(input, output, session)
 ```
 
diff --git a/inst/tutorials/A03La_barplot/A03La_barplot.Rmd.inactivated b/inst/tutorials/A03La_barplot/A03La_barplot.Rmd.inactivated
@@ -5,7 +5,7 @@ author: "Guyliann Engels & Philippe Grosjean"
 description: "**SDD I Module 3** Utilisation et comparaison des graphiques en barres et camemberts."
 tutorial:
   id: "A03La_barplot"
-  version: 2.0.0/6
+  version: 3.0.0/6
 output:
   learnr::tutorial:
     progressive: true
@@ -34,6 +34,12 @@ BioDataScience1::learnr_banner()
 ```
 
 ```{r, context="server"}
+if (Sys.info()["user"] == "rstudio-connect") {
+  options(learnr_user_id = session$user)
+  assignInNamespace("default_user_id", function() {
+    getOption("learnr_user_id", unname(Sys.info()["user"]))
+  }, ns = "learnr")
+}
 BioDataScience1::learnr_server(input, output, session)
 ```
 
diff --git a/inst/tutorials/A03Lb_boxplot/A03Lb_boxplot.Rmd.inactivated b/inst/tutorials/A03Lb_boxplot/A03Lb_boxplot.Rmd.inactivated
@@ -5,7 +5,7 @@ author: "Guyliann Engels & Philippe Grosjean"
 description: "**SDD I Module 3** Créer des boites à moustaches (parallèles) dans R."
 tutorial:
   id: "A03Lb_boxplot"
-  version: 2.1.0/7
+  version: 3.0.0/7
 output:
   learnr::tutorial:
     progressive: true
@@ -28,6 +28,12 @@ BioDataScience1::learnr_banner()
 ```
 
 ```{r, context="server"}
+if (Sys.info()["user"] == "rstudio-connect") {
+  options(learnr_user_id = session$user)
+  assignInNamespace("default_user_id", function() {
+    getOption("learnr_user_id", unname(Sys.info()["user"]))
+  }, ns = "learnr")
+}
 BioDataScience1::learnr_server(input, output, session)
 ```
 
diff --git a/inst/tutorials/A03Lc_comp_fig/A03Lc_comp_fig.Rmd.inactivated b/inst/tutorials/A03Lc_comp_fig/A03Lc_comp_fig.Rmd.inactivated
@@ -5,7 +5,7 @@ author: "Guyliann Engels & Philippe Grosjean"
 description: "**SDD I Module 3** Créer des figures composées en assemblant des graphiques."
 tutorial:
   id: "A03Lc_comp_fig"
-  version: 2.1.0/5
+  version: 3.0.0/5
 output:
   learnr::tutorial:
     progressive: true
@@ -34,6 +34,12 @@ BioDataScience1::learnr_banner()
 ```
 
 ```{r, context="server"}
+if (Sys.info()["user"] == "rstudio-connect") {
+  options(learnr_user_id = session$user)
+  assignInNamespace("default_user_id", function() {
+    getOption("learnr_user_id", unname(Sys.info()["user"]))
+  }, ns = "learnr")
+}
 BioDataScience1::learnr_server(input, output, session)
 ```
 
diff --git a/inst/tutorials/A04La_wrangling/A04La_wrangling.Rmd.inactivated b/inst/tutorials/A04La_wrangling/A04La_wrangling.Rmd.inactivated
@@ -4,7 +4,7 @@ author: "Guyliann Engels & Philippe Grosjean"
 description: "**SDD I Module 4** Remanier des données dans R."
 tutorial:
   id: "A04La_wrangling"
-  version: 2.2.0/5
+  version: 3.0.0/5
 output:
   learnr::tutorial:
     progressive: true
@@ -27,6 +27,12 @@ BioDataScience1::learnr_banner()
 ```
 
 ```{r, context="server"}
+if (Sys.info()["user"] == "rstudio-connect") {
+  options(learnr_user_id = session$user)
+  assignInNamespace("default_user_id", function() {
+    getOption("learnr_user_id", unname(Sys.info()["user"]))
+  }, ns = "learnr")
+}
 BioDataScience1::learnr_server(input, output, session)
 ```
 
diff --git a/inst/tutorials/A05La_recombination/A05La_recombination.Rmd.inactivated b/inst/tutorials/A05La_recombination/A05La_recombination.Rmd.inactivated
@@ -4,7 +4,7 @@ author: "Guyliann Engels & Philippe Grosjean"
 description: "**SDD I Module 5** Recombiner des tableaux de long en large et vice versa."
 tutorial:
   id: "A05La_recombination"
-  version: 2.1.0/5
+  version: 3.0.0/5
 output:
   learnr::tutorial:
     progressive: true
@@ -22,6 +22,12 @@ BioDataScience1::learnr_banner()
 ```
 
 ```{r, context="server"}
+if (Sys.info()["user"] == "rstudio-connect") {
+  options(learnr_user_id = session$user)
+  assignInNamespace("default_user_id", function() {
+    getOption("learnr_user_id", unname(Sys.info()["user"]))
+  }, ns = "learnr")
+}
 BioDataScience1::learnr_server(input, output, session)
 ```
 
diff --git a/inst/tutorials/A05Lb_multi_table/A05Lb_multi_table.Rmd.inactivated b/inst/tutorials/A05Lb_multi_table/A05Lb_multi_table.Rmd.inactivated
@@ -4,7 +4,7 @@ author: "Guyliann Engels & Philippe Grosjean"
 description: "**SDD I Module 5** Gérer les jointures entre deux tableaux de données."
 tutorial:
   id: "A05Lb_multi_table"
-  version: 2.1.0/3
+  version: 3.0.0/3
 output:
   learnr::tutorial:
     progressive: true
@@ -22,6 +22,12 @@ BioDataScience1::learnr_banner()
 ```
 
 ```{r, context="server"}
+if (Sys.info()["user"] == "rstudio-connect") {
+  options(learnr_user_id = session$user)
+  assignInNamespace("default_user_id", function() {
+    getOption("learnr_user_id", unname(Sys.info()["user"]))
+  }, ns = "learnr")
+}
 BioDataScience1::learnr_server(input, output, session)
 ```
 
diff --git a/inst/tutorials/A06La_proba/A06La_proba.Rmd.inactivated b/inst/tutorials/A06La_proba/A06La_proba.Rmd.inactivated
@@ -4,7 +4,7 @@ author: "Guyliann Engels & Philippe Grosjean"
 description: "**SDD I Module 6** Calculer des probabilités dans R."
 tutorial:
   id: "A06La_proba"
-  version: 2.1.0/10
+  version: 3.0.0/10
 output:
   learnr::tutorial:
     progressive: true
@@ -22,6 +22,12 @@ BioDataScience1::learnr_banner()
 ```
 
 ```{r, context="server"}
+if (Sys.info()["user"] == "rstudio-connect") {
+  options(learnr_user_id = session$user)
+  assignInNamespace("default_user_id", function() {
+    getOption("learnr_user_id", unname(Sys.info()["user"]))
+  }, ns = "learnr")
+}
 BioDataScience1::learnr_server(input, output, session)
 ```
 
diff --git a/inst/tutorials/A06Lb_distri/A06Lb_distri.Rmd.inactivated b/inst/tutorials/A06Lb_distri/A06Lb_distri.Rmd.inactivated
@@ -4,7 +4,7 @@ author: "Guyliann Engels & Philippe Grosjean"
 description: "**SDD I Module 6** Calculs avec une distributions normale."
 tutorial:
   id: "A07La_distri"
-  version: 2.1.0/5
+  version: 3.0.0/5
 output:
   learnr::tutorial:
     progressive: true
@@ -23,6 +23,12 @@ BioDataScience1::learnr_banner()
 ```
 
 ```{r, context="server"}
+if (Sys.info()["user"] == "rstudio-connect") {
+  options(learnr_user_id = session$user)
+  assignInNamespace("default_user_id", function() {
+    getOption("learnr_user_id", unname(Sys.info()["user"]))
+  }, ns = "learnr")
+}
 BioDataScience1::learnr_server(input, output, session)
 ```
 
diff --git a/inst/tutorials/A06Lc_correlation/A06Lc_correlation.Rmd.inactivated b/inst/tutorials/A06Lc_correlation/A06Lc_correlation.Rmd.inactivated
@@ -6,7 +6,7 @@ output:
   learnr::tutorial
 tutorial:
   id: "A06Lc_correlation"
-  version: 2.0.2/5
+  version: 3.0.0/5
 runtime: shiny_prerendered
 ---
 
@@ -20,6 +20,12 @@ BioDataScience1::learnr_banner()
 ```
 
 ```{r, context="server"}
+if (Sys.info()["user"] == "rstudio-connect") {
+  options(learnr_user_id = session$user)
+  assignInNamespace("default_user_id", function() {
+    getOption("learnr_user_id", unname(Sys.info()["user"]))
+  }, ns = "learnr")
+}
 BioDataScience1::learnr_server(input, output, session)
 ```
 
diff --git a/inst/tutorials/A07La_distri2/A07La_distri2.Rmd.inactivated b/inst/tutorials/A07La_distri2/A07La_distri2.Rmd.inactivated
@@ -4,7 +4,7 @@ author: "Guyliann Engels & Philippe Grosjean"
 description: "**SDD I Module 7** Distributions binomiale de Poisson, log-normale et graphique quantile-quantile."
 tutorial:
   id: "A07La_distri2"
-  version: 2.2.0/11
+  version: 3.0.0/11
 output:
   learnr::tutorial:
     progressive: true
@@ -23,6 +23,12 @@ BioDataScience1::learnr_banner()
 ```
 
 ```{r, context="server"}
+if (Sys.info()["user"] == "rstudio-connect") {
+  options(learnr_user_id = session$user)
+  assignInNamespace("default_user_id", function() {
+    getOption("learnr_user_id", unname(Sys.info()["user"]))
+  }, ns = "learnr")
+}
 BioDataScience1::learnr_server(input, output, session)
 ```
 
diff --git a/inst/tutorials/A07Lb_chi2/A07Lb_chi2.Rmd.inactivated b/inst/tutorials/A07Lb_chi2/A07Lb_chi2.Rmd.inactivated
@@ -4,7 +4,7 @@ author: "Guyliann Engels & Philippe Grosjean"
 description: "**SDD I Module 7** Distribution du chi2, et test chi2 univarié."
 tutorial:
   id: "A07Lb_chi2"
-  version: 2.1.1/9
+  version: 3.0.0/9
 output:
   learnr::tutorial:
     progressive: true
@@ -22,6 +22,12 @@ BioDataScience1::learnr_banner()
 ```
 
 ```{r, context="server"}
+if (Sys.info()["user"] == "rstudio-connect") {
+  options(learnr_user_id = session$user)
+  assignInNamespace("default_user_id", function() {
+    getOption("learnr_user_id", unname(Sys.info()["user"]))
+  }, ns = "learnr")
+}
 BioDataScience1::learnr_server(input, output, session)
 ```
 
diff --git a/inst/tutorials/A07Lc_chi2b/A07Lc_chi2b.Rmd.inactivated b/inst/tutorials/A07Lc_chi2b/A07Lc_chi2b.Rmd.inactivated
@@ -4,7 +4,7 @@ author: "Guyliann Engels & Philippe Grosjean"
 description: "**SDD I Module 7** Test chi2 d'indépendance."
 tutorial:
   id: "A07Lc_chi2b"
-  version: 2.1.0/10
+  version: 3.0.0/10
 output:
   learnr::tutorial:
     progressive: true
@@ -22,6 +22,12 @@ BioDataScience1::learnr_banner()
 ```
 
 ```{r, context="server"}
+if (Sys.info()["user"] == "rstudio-connect") {
+  options(learnr_user_id = session$user)
+  assignInNamespace("default_user_id", function() {
+    getOption("learnr_user_id", unname(Sys.info()["user"]))
+  }, ns = "learnr")
+}
 BioDataScience1::learnr_server(input, output, session)
 ```
 
diff --git a/inst/tutorials/A08La_ttest/A08La_ttest.Rmd.inactivated b/inst/tutorials/A08La_ttest/A08La_ttest.Rmd.inactivated
diff --git a/inst/tutorials/A08Lb_ttest_wmw/A08Lb_ttest_wmw.Rmd.inactivated b/inst/tutorials/A08Lb_ttest_wmw/A08Lb_ttest_wmw.Rmd.inactivated
diff --git a/inst/tutorials/A09La_anova/A09La_anova.Rmd.inactivated b/inst/tutorials/A09La_anova/A09La_anova.Rmd.inactivated
diff --git a/inst/tutorials/A09Lb_kruskal/A09Lb_kruskal.Rmd.inactivated b/inst/tutorials/A09Lb_kruskal/A09Lb_kruskal.Rmd.inactivated
diff --git a/inst/tutorials/A10La_anova2/A10La_anova2.Rmd.inactivated b/inst/tutorials/A10La_anova2/A10La_anova2.Rmd.inactivated
diff --git a/inst/tutorials/A10Lb_anova2mixte/A10Lb_anova2mixte.Rmd.inactivated b/inst/tutorials/A10Lb_anova2mixte/A10Lb_anova2mixte.Rmd.inactivated
diff --git a/inst/tutorials/A10Lc_syntaxr/A10Lc_syntaxr.Rmd.inactivated b/inst/tutorials/A10Lc_syntaxr/A10Lc_syntaxr.Rmd.inactivated
diff --git a/inst/tutorials/A99La_feedback/A99La_feedback.Rmd b/inst/tutorials/A99La_feedback/A99La_feedback.Rmd
