From 342579c36f362e02c4e6cf7a376324f70abc94cc Mon Sep 17 00:00:00 2001
From: Andreas Gammelgaard Damsbo <andreas@gdamsbo.dk>
Date: Thu, 12 Mar 2026 12:40:04 +0100
Subject: [PATCH] handle ordered factors

---
 R/data-summary.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/data-summary.R b/R/data-summary.R
index ccb749bc..62f5e0bf 100644
--- a/R/data-summary.R
+++ b/R/data-summary.R
@@ -75,7 +75,7 @@ add_sparkline <- function(grid, column = "vals", color.main = "#2a8484", color.s
         type <- "line"
         ds <- data.frame(x = NA, y = NA)
         horizontal <- FALSE
-      } else if (identical(data_cl, "factor")) {
+      } else if ("factor" %in% data_cl) {
         type <- "column"
         s <- summary(data)
         ds <- data.frame(x = names(s), y = s)