change: set_formatter_type() is deprecated

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: flextable
 Type: Package
 Title: Functions for Tabular Reporting
-Version: 0.9.5.002
+Version: 0.9.5.003
 Authors@R: c(
     person("David", "Gohel", role = c("aut", "cre"),
     email = "[email protected]"),

NEWS.md

@@ -5,6 +5,10 @@
 - `summarizor()` don't stop anymore if table only contain discrete columns.
 - `as_flextable.data.frame()` supports 'data.table'
 
+## Changes
+
+- Deprecate `set_formatter_type()`.
+
 # flextable 0.9.4
 
 ## Issues

R/formatters.R

@@ -56,7 +56,8 @@ set_formatter <- function(x, ..., values = NULL, part = "body") {
 #' formatter functions regarding to column types.
 #'
 #' This function will be deprecated in favor of the `colformat_*` functions,
-#' for example [colformat_double()].
+#' for example [colformat_double()]. Note that we want to deprecate the
+#' `set_formatter_type()` function, not the `set_formatter()` function.
 #' @param fmt_double,fmt_integer arguments used by `sprintf` to
 #' format double and integer columns.
 #' @param fmt_date,fmt_datetime arguments used by `format` to
@@ -70,6 +71,8 @@ set_formatter_type <- function(x, fmt_double = "%.03f", fmt_integer = "%.0f",
                                na_str = "") {
   stopifnot(inherits(x, "flextable"))
 
+  .Deprecated(msg = "Use `colformat_*()` instead.")
+
   col_keys <- x[["body"]]$col_keys
   for (varname in col_keys) {
     x <- compose(x = x, j = varname, value = as_paragraph(as_chunk(