fixing #106

insightsengineering · Apr 11, 2023 · 91f4510 · 91f4510
1 parent a1ad07b
commit 91f4510
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/paginate_listing.R b/R/paginate_listing.R
@@ -58,7 +58,7 @@ paginate_listing <- function(lsting,
                              verbose = FALSE) {
   checkmate::assert_class(lsting, "listing_df")
   checkmate::assert_numeric(colwidths, lower = 0, len = length(listing_dispcols(lsting)), null.ok = TRUE)
-  checkmate::assert_set_equal(names(colwidths), listing_dispcols(lsting))
+  checkmate::assert_set_equal(length(colwidths), length(listing_dispcols(lsting)))
   checkmate::assert_flag(tf_wrap)
   checkmate::assert_count(max_width, null.ok = TRUE)
   checkmate::assert_flag(verbose)
@@ -161,7 +161,7 @@ pag_listing_indices <- function(lsting,
                                 verbose = FALSE) {
   checkmate::assert_class(lsting, "listing_df")
   checkmate::assert_numeric(colwidths, lower = 0, len = length(listing_dispcols(lsting)), null.ok = TRUE)
-  checkmate::assert_set_equal(names(colwidths), listing_dispcols(lsting))
+  checkmate::assert_set_equal(length(colwidths), length(listing_dispcols(lsting)))
   checkmate::assert_count(max_width, null.ok = TRUE)
   checkmate::assert_flag(verbose)