Put whole GHA summary into a <details>

Author: gaborcsardi

R/gha-summary.R

@@ -11,6 +11,7 @@ create_gha_summary <- function(results) {
   p <- function(...) cat(..., file = out, append = TRUE)
 
   # header
+  p("<details>\n")
   p("# Test results\n\n")
   p("| FAIL | WARN | SKIP | PASS | Context | Test | Time |\n")
   p("|-----:|-----:|-----:|-----:|:--------|:-----|:-----|\n")
@@ -31,6 +32,8 @@ create_gha_summary <- function(results) {
     "|\n"
   ))
 
+  p("</details>\n")
+
   invisible(results)
 }