VERY IMPORTANT FIX

insightsengineering · Oct 16, 2023 · 76bfada · 76bfada
1 parent ca83046
commit 76bfada
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/R/tostring.R b/R/tostring.R
@@ -754,8 +754,12 @@ wrap_string <- function(str, width, collapse = NULL, smart = TRUE) {
           paste0(ret[we_interval], collapse = " "),
           width
         )
+        # Taking out repetitions if there are more than one
+        if (length(we_interval) > 1) {
+          ret <- ret[-we_interval[-1]]
+        }
         # Paste together and rerun
-        ret <- paste0(unique(ret), collapse = " ")
+        ret <- paste0(ret, collapse = " ")
         return(wrap_string(str = ret, width = width, collapse = collapse, smart = smart))
       }
     } else {