make sure to close sink() before closing the text connection

yihui · May 6, 2024 · 0e26623 · 0e26623
1 parent 0787062
commit 0e26623
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: xfun
 Type: Package
 Title: Supporting Functions for Packages Maintained by 'Yihui Xie'
-Version: 0.43.13
+Version: 0.43.14
 Authors@R: c(
   person("Yihui", "Xie", role = c("aut", "cre", "cph"), email = "xie@yihui.name", comment = c(ORCID = "0000-0003-0645-5666")),
   person("Wush", "Wu", role = "ctb"),

diff --git a/R/record.R b/R/record.R
@@ -198,7 +198,7 @@ record = function(
     out = NULL
     con = textConnection('out', 'w', local = TRUE)
     on.exit(close(con))
-    sink(con); on.exit(sink(), add = TRUE)
+    sink(con); on.exit(sink(), add = TRUE, after = FALSE)
     expr  # lazy evaluation
     on.exit()  # if no error occurred, clear up previous on-exit calls
     sink()