Fix error in info_to_text(), do not use sprintf()

KWB-R · Aug 11, 2023 · 4689c2d · 4689c2d
1 parent 42c1ea6
commit 4689c2d
Showing 1 changed file with 12 additions and 8 deletions.
diff --git a/R/type_info.R b/R/type_info.R
@@ -38,13 +38,17 @@ info_to_text <- function(info)
       kwb.utils::commaCollapsed()
   }
 
-  sprintf(
-    paste0(#"type|mode|class|length|is: ", 
-      "%s|%s|%s|%d|%s"), 
-    collapse("type"),
-    collapse("mode"),
-    collapse("class"), 
-    collapse("length"),
-    collapse("is")
+  #prefix <- "type|mode|class|length|is: "
+  prefix <- NULL
+
+  paste0(
+    prefix, 
+    paste(collapse = "|", c(
+      collapse("type"),
+      collapse("mode"),
+      collapse("class"), 
+      collapse("length"),
+      collapse("is")
+    )) 
   )
 }