fix: Fix tibble tests

r-lib · Dec 14, 2024 · a7cf2ca · a7cf2ca
1 parent f368b08
commit a7cf2ca
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/glimpse.R b/R/glimpse.R
@@ -142,7 +142,7 @@ format_glimpse.default <- function(x, ...) {
 
   if (is.null(dims)) {
     out <- format(x, trim = TRUE, justify = "none")
-    style_na_if(out, is.na(x))
+    style_na_if(out, if (is.atomic(x)) is.na(x) else FALSE)
   } else {
     dims_out <- paste0(dims, collapse = " x ")
     paste0("<", class(x)[[1]], "[", dims_out, "]>")