Update modules' code for reproducibility (#360)

set.seed needs to be linked for hashes verifictation

related to 
insightsengineering/teal.gallery#213

Author: m7pr

R/tm_g_gh_boxplot.R

@@ -63,7 +63,7 @@
 #'     "B: Placebo" = "Placebo",
 #'     "C: Combination" = "Combination"
 #'   )
-#'   set.seed(1)
+#'   set.seed(1) # @linksto ADSL ADLB
 #'   ADSL <- rADSL
 #'   ADLB <- rADLB
 #'   .var_labels <- lapply(ADLB, function(x) attributes(x)$label)

R/tm_g_gh_correlationplot.R

@@ -70,7 +70,7 @@
 #'   # assign LOQ flag symbols: circles for "N" and triangles for "Y", squares for "NA"
 #'   .shape_manual <- c("N" = 1, "Y" = 2, "NA" = 0)
 #'
-#'   set.seed(1)
+#'   set.seed(1) # @linksto ADSL ADLB
 #'   ADSL <- rADSL
 #'   ADLB <- rADLB
 #'   .var_labels <- lapply(ADLB, function(x) attributes(x)$label)

R/tm_g_gh_density_distribution_plot.R

@@ -46,6 +46,7 @@
 #'     "B: Placebo" = "Placebo",
 #'     "C: Combination" = "Combination"
 #'   )
+#'   set.seed(1) # @linksto ADSL ADLB
 #'   ADSL <- rADSL
 #'   ADLB <- rADLB
 #'   .var_labels <- lapply(ADLB, function(x) attributes(x)$label)

R/tm_g_gh_lineplot.R

@@ -66,7 +66,7 @@
 #'     "B: Placebo" = "Placebo",
 #'     "C: Combination" = "Combination"
 #'   )
-#'
+#'   set.seed(1) # @linksto ADSL ADLB
 #'   ADSL <- rADSL
 #'   ADLB <- rADLB
 #'   .var_labels <- lapply(ADLB, function(x) attributes(x)$label)

R/tm_g_gh_spaghettiplot.R

@@ -72,7 +72,7 @@
 #'     "B: Placebo" = "Placebo",
 #'     "C: Combination" = "Combination"
 #'   )
-#'   set.seed(1)
+#'   set.seed(1) # @linksto ADSL ADLB
 #'   ADSL <- rADSL
 #'   ADLB <- rADLB
 #'   .var_labels <- lapply(ADLB, function(x) attributes(x)$label)