fix empty list formatting

mschubert · Nov 13, 2024 · 381b41a · 381b41a
1 parent fbce8df
commit 381b41a
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/util.r b/R/util.r
@@ -33,7 +33,8 @@ fill_template = function(template, values, required=c()) {
 
     upd = keys %in% names(values)
     is_num = sapply(values, is.numeric)
-    values[is_num] = format(values[is_num], scientific=FALSE, trim=TRUE)
+    if (length(is_num) > 0)
+        values[is_num] = format(values[is_num], scientific=FALSE, trim=TRUE)
     vals[upd] = unlist(values)[keys[upd]]
     if (any(is.na(vals)))
         stop("Template values required but not provided: ",