feat: make handle_arg_x_nm redact long x_nm

FinnishCancerRegistry · Jan 22, 2024 · c9d08a2 · c9d08a2
1 parent ff821c2
commit c9d08a2
Show file tree

Hide file tree

Showing 3 changed files with 21 additions and 0 deletions.
diff --git a/NEWS.md b/NEWS.md
@@ -55,6 +55,11 @@ New exported function `dbc::generate_script_from_expressions`.
 This function is used to produce all generated expression-based functions
 in `dbc`.
 
+### dbc::handle_arg_x_nm
+
+`dbc::handle_arg_x_nm` now redacts `x_nm` if it is longer than 50
+characters.
+
 ### dbc::handle_args_inplace
 
 New exported function `dbc::handle_args_inplace`.

diff --git a/R/utils.R b/R/utils.R
@@ -202,6 +202,16 @@ handle_arg_x_nm <- function(x_nm, env = NULL, arg_nm = "x") {
       collapse = ""
     )
   }
+  # @codedoc_comment_block news("dbc::handle_arg_x_nm", "2024-01-22", "0.5.0")
+  # `dbc::handle_arg_x_nm` now redacts `x_nm` if it is longer than 50
+  # characters.
+  # @codedoc_comment_block news("dbc::handle_arg_x_nm", "2024-01-22", "0.5.0")
+  nc <- nchar(x_nm)
+  if (nc > 50) {
+    head <- substr(x_nm, 1, 22)
+    tail <- substr(x_nm, nc - 22, nc)
+    x_nm <- paste0(head, "[...]", tail)
+  }
   x_nm
 }
 

diff --git a/man/dbc-package.Rd b/man/dbc-package.Rd