From e2b47f22902f156dc9b6fc3b2ac811c49b6b82d6 Mon Sep 17 00:00:00 2001
From: Stephan Daus <stephus.daus@gmail.com>
Date: Wed, 11 Dec 2024 09:43:03 +0100
Subject: [PATCH] Collapsing of vectors to strings allow more items

---
 R/collapse_chapter_structure_to_chr.R | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/R/collapse_chapter_structure_to_chr.R b/R/collapse_chapter_structure_to_chr.R
index d7a6ee2..adc3662 100644
--- a/R/collapse_chapter_structure_to_chr.R
+++ b/R/collapse_chapter_structure_to_chr.R
@@ -1,11 +1,11 @@
-collapse_chapter_structure_to_chr <- function(data, sep=",", sep2=",", last=",", trunc = 30) {
+collapse_chapter_structure_to_chr <- function(data, sep = ",", sep2 = ",", last = ",", trunc = 35) {
   data |>
     dplyr::distinct(dplyr::pick(tidyselect::everything())) |>
-  lapply(FUN = function(col) {
-    col <- as.character(col)
-    uniques <- unique(col)
-    uniques <- uniques[!is.na(uniques)]
-    cli::ansi_collapse(uniques, sep=sep, sep2 = sep2, last = last, trunc = trunc, width = Inf)
-  }) |>
+    lapply(FUN = function(col) {
+      col <- as.character(col)
+      uniques <- unique(col)
+      uniques <- uniques[!is.na(uniques)]
+      cli::ansi_collapse(uniques, sep = sep, sep2 = sep2, last = last, trunc = trunc, width = Inf)
+    }) |>
     unlist()
 }