GHA summary: try to keep Unicode in output

gaborcsardi · gaborcsardi · commit 86479d8df199 · 2022-06-01T14:44:12.000+02:00
diff --git a/R/gha-summary.R b/R/gha-summary.R
@@ -8,6 +8,9 @@ create_gha_summary <- function(results) {
     return()
   }
 
+  out <- file(out, open = "wba", encoding = "UTF-8")
+  on.exit(close(out), add = TRUE)
+
   p <- function(...) cat(..., file = out, append = TRUE)
   fmt_time <- function(x) sprintf("%.3fs", x)
 

Original file line number	Diff line number	Diff line change
`@@ -8,6 +8,9 @@ create_gha_summary <- function(results) {`
`8`	`8`	`return()`
`9`	`9`	`}`
`10`	`10`
	`11`	`+ out <- file(out, open = "wba", encoding = "UTF-8")`
	`12`	`+ on.exit(close(out), add = TRUE)`
	`13`	`+`
`11`	`14`	`p <- function(...) cat(..., file = out, append = TRUE)`
`12`	`15`	`fmt_time <- function(x) sprintf("%.3fs", x)`
`13`	`16`