From 91f4510e5514bf571d56272494388cba6b444225 Mon Sep 17 00:00:00 2001 From: Melkiades Date: Tue, 11 Apr 2023 18:48:13 +0200 Subject: [PATCH] fixing #106 --- R/paginate_listing.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/R/paginate_listing.R b/R/paginate_listing.R index d9a39005..9805dc85 100644 --- 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)