preserve the := operator

Author: yihui

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: formatR
 Type: Package
 Title: Format R Code Automatically
-Version: 1.13
+Version: 1.13.1
 Authors@R: c(
     person("Yihui", "Xie", role = c("aut", "cre"), email = "xie@yihui.name", comment = c(ORCID = "0000-0003-0645-5666")),
     person("Ed", "Lee", role = "ctb"),

NEWS.md

@@ -1,3 +1,7 @@
+# CHANGES IN formatR VERSION 1.14
+
+- `tidy_source()` supports the `:=` operator now (which is widely used in **data.table**).
+
 # CHANGES IN formatR VERSION 1.13
 
 - `tidy_source()` supports anonymous functions of the form `\(args) expr` for R >= 4.1.0 now (thanks, @notPlancha, #98).

R/utils.R

@@ -65,6 +65,8 @@ mask_comments = function(x, comment, blank.line, wrap, arrow, pipe, args.newline
   d.text[d.text == '|>'] = paste0('%', '\b|>', spaces, '%')
   # preserve the assignment operator ->
   d.text[d.text == '->'] = '%\b->%'
+  # preserve := for data.table
+  d.text[d.text == ':='] = '%\b:=%'
   # R 4.1.0 anonymous functions
   if (length(i <- which(d.token == "'\\\\'"))) {
     d.text[i] = '`\\\\`'