Display sample weights in html

fmicompbio · Apr 15, 2023 · 90aaf40 · 90aaf40
1 parent 51707e2
commit 90aaf40
Show file tree

Hide file tree

Showing 4 changed files with 40 additions and 0 deletions.
diff --git a/inst/extdata/process_FragPipe_template.Rmd b/inst/extdata/process_FragPipe_template.Rmd
@@ -645,8 +645,13 @@ if ("design" %in% names(testres$design)) {
     print(testres$design$design)
     cat("\n````\n")
     cat("\n````\n")
+    cat("Contrast(s): \n")
     print(testres$design$contrasts)
     cat("\n````\n")
+    cat("\n````\n")
+    cat("Sample weights: \n")
+    print(testres$design$sampleWeights)
+    cat("\n````\n")
     cat("\n</details>\n\n")
 
 } else {
@@ -664,8 +669,13 @@ if ("design" %in% names(testres$design)) {
         print(testres$design[[nm]]$design)
         cat("\n````\n")
         cat("\n````\n")
+        cat("Contrast: \n")
         print(testres$design[[nm]]$contrast)
         cat("\n````\n")
+        cat("\n````\n")
+        cat("Sample weights: \n")
+        print(testres$design[[nm]]$sampleWeights)
+        cat("\n````\n")
         cat("\n</details>\n\n")
     }
 }

diff --git a/inst/extdata/process_MaxQuant_template.Rmd b/inst/extdata/process_MaxQuant_template.Rmd
@@ -649,8 +649,13 @@ if ("design" %in% names(testres$design)) {
     print(testres$design$design)
     cat("\n````\n")
     cat("\n````\n")
+    cat("Contrast(s): \n")
     print(testres$design$contrasts)
     cat("\n````\n")
+    cat("\n````\n")
+    cat("Sample weights: \n")
+    print(testres$design$sampleWeights)
+    cat("\n````\n")
     cat("\n</details>\n\n")
 
 } else {
@@ -668,8 +673,13 @@ if ("design" %in% names(testres$design)) {
         print(testres$design[[nm]]$design)
         cat("\n````\n")
         cat("\n````\n")
+        cat("Contrast: \n")
         print(testres$design[[nm]]$contrast)
         cat("\n````\n")
+        cat("\n````\n")
+        cat("Sample weights: \n")
+        print(testres$design[[nm]]$sampleWeights)
+        cat("\n````\n")
         cat("\n</details>\n\n")
     }
 }

diff --git a/inst/extdata/process_PD_TMT_PTM_template.Rmd b/inst/extdata/process_PD_TMT_PTM_template.Rmd
@@ -322,8 +322,13 @@ if ("design" %in% names(testres$design)) {
     print(testres$design$design)
     cat("\n````\n")
     cat("\n````\n")
+    cat("Contrast(s): \n")
     print(testres$design$contrasts)
     cat("\n````\n")
+    # cat("\n````\n")
+    # cat("Sample weights: \n")
+    # print(testres$design$sampleWeights)
+    # cat("\n````\n")
     cat("\n</details>\n\n")
 } else {
     for (nm in names(testres$design)) {
@@ -343,8 +348,13 @@ if ("design" %in% names(testres$design)) {
         print(testres$design[[nm]]$design)
         cat("\n````\n")
         cat("\n````\n")
+        cat("Contrast: \n")
         print(testres$design[[nm]]$contrast)
         cat("\n````\n")
+        # cat("\n````\n")
+        # cat("Sample weights: \n")
+        # print(testres$design[[nm]]$sampleWeights)
+        # cat("\n````\n")
         cat("\n</details>\n\n")
     }
 }

diff --git a/inst/extdata/process_PD_TMT_template.Rmd b/inst/extdata/process_PD_TMT_template.Rmd
@@ -663,8 +663,13 @@ if ("design" %in% names(testres$design)) {
     print(testres$design$design)
     cat("\n````\n")
     cat("\n````\n")
+    cat("Contrast(s): \n")
     print(testres$design$contrasts)
     cat("\n````\n")
+    cat("\n````\n")
+    cat("Sample weights: \n")
+    print(testres$design$sampleWeights)
+    cat("\n````\n")
     cat("\n</details>\n\n")
 } else {
     for (nm in names(testres$design)) {
@@ -681,8 +686,13 @@ if ("design" %in% names(testres$design)) {
         print(testres$design[[nm]]$design)
         cat("\n````\n")
         cat("\n````\n")
+        cat("Contrast: \n")
         print(testres$design[[nm]]$contrast)
         cat("\n````\n")
+        cat("\n````\n")
+        cat("Sample weights: \n")
+        print(testres$design[[nm]]$sampleWeights)
+        cat("\n````\n")
         cat("\n</details>\n\n")
     }
 }