simplification

dmurdoch · Feb 15, 2024 · 80dd8fd · 80dd8fd
1 parent f934a95
commit 80dd8fd
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/toTinytable.R b/R/toTinytable.R
@@ -57,8 +57,8 @@ toTinytable <- function(table, ...) {
 
   # entries in the first row of clabels are already colnames in out
   if (nrow(clabels) > 1) {
-    spans <- rev(apply(clabels, 1, get_span)[1:(nrow(clabels) - 1)])
-    for (s in spans) {
+    for (i in (nrow(clabels) - 1):1) {
+      s <- get_span(clabels[i,])
       out <- tinytable::group_tt(out, j = s)
     }
   }