it may be more readable without using a closure from local()

Merck · Aug 13, 2024 · 9c7308a · 9c7308a
1 parent 73370df
commit 9c7308a
Showing 1 changed file with 6 additions and 8 deletions.
diff --git a/R/as_rtf.R b/R/as_rtf.R
@@ -386,14 +386,12 @@ as_rtf.gs_design <- function(
   # Add footnotes ----
   # initialization for footnote
   footnotes <- NULL
-  # footnote markers (a, b, c, ...)
-  marker <- local({
-    i <- 0L
-    function() {
-      i <<- i + 1L
-      letters[i]
-    }
-  })
+  # footnote markers (a, b, c, ... from letters[idx])
+  idx <- 0L
+  marker <- function() {
+    idx <<- idx + 1L
+    letters[idx]
+  }
 
   for (i in seq_along(footnote$content)) {
     att <- footnote$attr[i]