user_id correct in Posit Connect

Author: phgrosjean

inst/tutorials/C00La_refresh/C00La_refresh.Rmd

@@ -60,6 +60,12 @@ BioDataScience3::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")
+}
 BioDataScience3::learnr_server(input, output, session)
 ```
 

inst/tutorials/C01La_confusion/C01La_confusion.Rmd

@@ -49,6 +49,12 @@ BioDataScience3::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")
+}
 BioDataScience3::learnr_server(input, output, session)
 ```
 

inst/tutorials/C01Lb_ml1/C01Lb_ml1.Rmd

@@ -74,6 +74,12 @@ BioDataScience3::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")
+}
 BioDataScience3::learnr_server(input, output, session)
 ```
 

inst/tutorials/C02La_cv/C02La_cv.Rmd.inactivated

@@ -4,7 +4,7 @@ author: "Guyliann Engels & Philippe Grosjean"
 description: "**SDD III Module 2** Utilisation de la validation croisée sur une ADL."
 tutorial:
   id: "C02La_cv"
-  version: 2.1.0/8
+  version: 3.0.0/8
 output:
   learnr::tutorial:
     progressive: true
@@ -38,6 +38,12 @@ BioDataScience3::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")
+}
 BioDataScience3::learnr_server(input, output, session)
 ```
 

inst/tutorials/C02Lb_ml2/C02Lb_ml2.Rmd.inactivated

@@ -4,7 +4,7 @@ author: "Guyliann Engels & Philippe Grosjean"
 description: "**SDD III Module 2** K plus proches voisins, méthodes par arbres, forêt aléatoire."
 tutorial:
   id: "C02Lb_ml2"
-version: 2.0.0/5
+version: 3.0.0/5
 output:
   learnr::tutorial:
   progressive: true
@@ -51,6 +51,12 @@ BioDataScience3::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")
+}
 BioDataScience3::learnr_server(input, output, session)
 ```
 

inst/tutorials/C03La_roc/C03La_roc.Rmd.inactivated

@@ -4,7 +4,7 @@ author: "Guyliann Engels & Philippe Grosjean"
 description: "**SDD III Module 3** Effet des proportions sur les métriques et courbes ROC."
 tutorial:
   id: "C03La_roc"
-version: 2.0.0/9
+version: 3.0.0/9
 output:
   learnr::tutorial:
   progressive: true
@@ -74,6 +74,12 @@ BioDataScience3::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")
+}
 BioDataScience3::learnr_server(input, output, session)
 ```
 

inst/tutorials/C03Lb_ml3/C03Lb_ml3.Rmd.inactivated

@@ -4,7 +4,7 @@ author: "Guyliann Engels & Philippe Grosjean"
 description: "**SDD III Module 3** Machines à vecteurs supports et réseaux de neurones."
 tutorial:
   id: "C03Lb_ml3"
-version: 2.1.1/5
+version: 3.0.0/5
 output:
   learnr::tutorial:
   progressive: true
@@ -47,6 +47,12 @@ BioDataScience3::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")
+}
 BioDataScience3::learnr_server(input, output, session)
 ```
 

inst/tutorials/C04La_ts_intro/C04La_ts_intro.Rmd.inactivated

@@ -4,7 +4,7 @@ author: "Guyliann Engels & Philippe Grosjean"
 description: "**SDD III Module 4** Statistiques glissantes, création et manipulation d'objets ts."
 tutorial:
   id: "C04La_ts_intro"
-  version: 2.0.1/9
+  version: 3.0.0/9
 output:
   learnr::tutorial:
     progressive: true
@@ -27,6 +27,12 @@ BioDataScience3::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")
+}
 BioDataScience3::learnr_server(input, output, session)
 ```
 

inst/tutorials/C04Lb_ts_analysis/C04Lb_ts_analysis.Rmd.towrite

@@ -4,7 +4,7 @@ author: "Guyliann Engels & Philippe Grosjean"
 description: "**SDD III Module 4** Autocorrélation, analyse spectrale et tendance."
 tutorial:
   id: "C04Lb_ts_analysis"
-version: 2.0.0/0
+version: 3.0.0/0
 output:
   learnr::tutorial:
   progressive: true
@@ -24,6 +24,12 @@ BioDataScience3::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")
+}
 BioDataScience3::learnr_server(input, output, session)
 ```
 

inst/tutorials/C05La_ts_filter/C05La_ts_filter.Rmd.inactivated

@@ -4,7 +4,7 @@ author: "Guyliann Engels & Philippe Grosjean"
 description: "**SDD III Module 5** Filtrage de séries spatio-termporelles."
 tutorial:
   id: "C05La_ts_filter"
-version: 2.0.0/6
+version: 3.0.0/6
 output:
   learnr::tutorial:
   progressive: true
@@ -29,6 +29,12 @@ BioDataScience3::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")
+}
 BioDataScience3::learnr_server(input, output, session)
 ```