Lazy

r-lib · Nov 22, 2024 · 689ec6b · 689ec6b
1 parent b4dbd7e
commit 689ec6b
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 6 deletions.
diff --git a/R/tbl-format-setup.R b/R/tbl-format-setup.R
@@ -114,8 +114,9 @@ tbl_format_setup.tbl <- function(x, width, ...,
   # Number of rows
   rows <- nrow(x)
 
-  if (is.na(rows)) {
-    df <- df_head(x, n + 1)
+  lazy <- is.na(rows)
+  if (lazy) {
+    df <- as.data.frame(head(x, n + 1))
     if (nrow(df) <= n) {
       rows <- nrow(df)
     } else {
@@ -147,7 +148,7 @@ tbl_format_setup.tbl <- function(x, width, ...,
 
   colonnade <- ctl_colonnade(
     df,
-    has_row_id = if (.row_names_info(x) > 0) "*" else TRUE,
+    has_row_id = if (!lazy && .row_names_info(x) > 0) "*" else TRUE,
     width = width,
     controller = x,
     focus = focus

diff --git a/tests/testthat/_snaps/tbl-format-setup.md b/tests/testthat/_snaps/tbl-format-setup.md
@@ -1420,7 +1420,7 @@
       # A data frame: ?? x 3
       <tbl_format_body(setup)>
         Girth Height Volume
-      * <dbl>  <dbl>  <dbl>
+        <dbl>  <dbl>  <dbl>
       1   8.3     70   10.3
       2   8.6     65   10.3
       3   8.8     63   10.2
@@ -1439,7 +1439,7 @@
       # A data frame: ?? x 3
       <tbl_format_body(setup)>
          Girth Height Volume
-       * <dbl>  <dbl>  <dbl>
+         <dbl>  <dbl>  <dbl>
        1   8.3     70   10.3
        2   8.6     65   10.3
        3   8.8     63   10.2
@@ -1459,7 +1459,7 @@
       # A data frame: ?? x 3
       <tbl_format_body(setup)>
          Girth Height Volume
-       * <dbl>  <dbl>  <dbl>
+         <dbl>  <dbl>  <dbl>
        1   8.3     70   10.3
        2   8.6     65   10.3
        3   8.8     63   10.2