Call springf() only once

Merck · May 28, 2024 · a9eb789 · a9eb789
1 parent 42b7a15
commit a9eb789
Showing 1 changed file with 6 additions and 3 deletions.
diff --git a/R/utils.R b/R/utils.R
@@ -54,9 +54,12 @@ update_unicode_latex <- function() {
   )), , drop = FALSE]
 
   rows <- paste(
-    sprintf('"%s"', tbl$unicode),
-    sprintf('"%s"', gsub("\\", "\\\\", tbl$latex, fixed = TRUE)),
-    sprintf("%d", tbl$int),
+    sprintf(
+      '"%s", "%s", %d',
+      tbl$unicode,
+      gsub("\\", "\\\\", tbl$latex, fixed = TRUE),
+      tbl$int
+    ),
     sep = ", "
   )