user_id correct in Posit Connect

Author: phgrosjean

inst/tutorials/B00La_refresh/B00La_refresh.Rmd

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

inst/tutorials/B01La_reg_lin/B01La_reg_lin.Rmd

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

inst/tutorials/B01Lb_residuals/B01Lb_residuals.Rmd

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

inst/tutorials/B02La_reg_multi/B02La_reg_multi.Rmd.inactivated

@@ -4,7 +4,7 @@ author: "Guyliann Engels & Philippe Grosjean"
 description: "**SDD II Module 2** Résumé de lm et régression linéaire multiple."
 tutorial:
   id: "B02La_reg_multi"
-  version: 2.4.0/11
+  version: 3.0.0/11
 output:
   learnr::tutorial:
     progressive: true
@@ -51,6 +51,12 @@ BioDataScience2::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")
+}
 BioDataScience2::learnr_server(input, output, session)
 ```
 

inst/tutorials/B02Lb_reg_poly/B02Lb_reg_poly.Rmd.inactivated

@@ -4,7 +4,7 @@ author: "Guyliann Engels & Philippe Grosjean"
 description: "**SDD II Module 2** Maîtriser la régression linéaire polynomiale."
 tutorial:
   id: "B02Lb_reg_poly"
-  version: 2.2.0/5
+  version: 3.0.0/5
 output:
   learnr::tutorial:
     progressive: true
@@ -35,6 +35,12 @@ BioDataScience2::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")
+}
 BioDataScience2::learnr_server(input, output, session)
 ```
 

inst/tutorials/B03La_mod_lin/B03La_mod_lin.Rmd.inactivated

@@ -4,7 +4,7 @@ author: "Guyliann Engels & Philippe Grosjean"
 description: "**SDD II Module 3** Modèle linéaire."
 tutorial:
   id: "B03La_mod_lin"
-  version: 2.1.1/8
+  version: 3.0.0/8
 output:
   learnr::tutorial:
     progressive: true
@@ -21,6 +21,12 @@ BioDataScience2::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")
+}
 BioDataScience2::learnr_server(input, output, session)
 ```
 

inst/tutorials/B04La_glm/B04La_glm.Rmd.inactivated

@@ -4,7 +4,7 @@ author: "Guyliann Engels & Philippe Grosjean"
 description: "**SDD II Module 4** Modèle linéaire généralisé."
 tutorial:
   id: "B04La_glm"
-version: 2.0.0/11
+version: 3.0.0/11
 output:
   learnr::tutorial:
   progressive: true
@@ -62,6 +62,12 @@ BioDataScience2::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")
+}
 BioDataScience2::learnr_server(input, output, session)
 ```
 

inst/tutorials/B05La_nls/B05La_nls.Rmd.inactivated

@@ -4,7 +4,7 @@ author: "Guyliann Engels & Philippe Grosjean"
 description: "**SDD II Module 5** Régression non linéaire."
 tutorial:
   id: "B05La_nls"
-  version: 2.0.1/5
+  version: 3.0.0/5
 output:
   learnr::tutorial:
     progressive: true
@@ -28,6 +28,12 @@ BioDataScience2::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")
+}
 BioDataScience2::learnr_server(input, output, session)
 ```
 

inst/tutorials/B06La_ahc/B06La_ahc.Rmd.inactivated

@@ -4,7 +4,7 @@ author: "Guyliann Engels & Philippe Grosjean"
 description: "**SDD II Module 6** Classification hiérarchique ascendante et interprétation du dendrogramme."
 tutorial:
   id: "B06La_ahc"
-  version: 2.0.1/10
+  version: 3.0.0/10
 output:
   learnr::tutorial:
     progressive: true
@@ -33,6 +33,12 @@ BioDataScience2::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")
+}
 BioDataScience2::learnr_server(input, output, session)
 ```
 

inst/tutorials/B06Lb_kmeans/B06Lb_kmeans.Rmd.inactivated

@@ -4,7 +4,7 @@ author: "Guyliann Engels & Philippe Grosjean"
 description: "**SDD II Module 6** Regroupement des données par les k-moyennes et indices de diversité."
 tutorial:
   id: "B06Lb_kmeans"
-  version: 2.2.0/8
+  version: 3.0.0/8
 output:
   learnr::tutorial:
     progressive: true
@@ -26,6 +26,12 @@ BioDataScience2::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")
+}
 BioDataScience2::learnr_server(input, output, session)
 ```