Fix corner case: output too narrow to show any focus column

r-lib · Jan 28, 2022 · 73c1947 · 73c1947
1 parent 582d5f1
commit 73c1947
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/R/ctl_colonnade.R b/R/ctl_colonnade.R
@@ -239,7 +239,11 @@ do_emit_focus_pillars <- function(x, tier_widths, cb, focus) {
   }
 
   # Emit pillars after focus pillar
-  start <- focus[[length(focus)]] + 1L
+  if (length(focus) > 0) {
+    start <- focus[[length(focus)]] + 1L
+  } else {
+    start <- 1L
+  }
   end <- length(x)
 
   # Emit non-focus pillars that fit: use offset_before