throw deprecated warning

easystats · May 16, 2024 · 89820a6 · 89820a6
1 parent 849db1e
commit 89820a6
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 1 deletion.
diff --git a/R/export_table.R b/R/export_table.R
@@ -118,7 +118,7 @@ export_table <- function(x,
                          footer = NULL,
                          align = NULL,
                          by = NULL,
-                         group_by = NULL, ## TODO: deprecate later
+                         group_by = NULL,
                          zap_small = FALSE,
                          table_width = NULL,
                          verbose = TRUE,
@@ -135,6 +135,7 @@ export_table <- function(x,
 
   ## TODO: deprecate later
   if (!is.null(group_by)) {
+    format_warning("Argument `group_by` is deprecated and will be removed in a future release. Please use `by` instead.") # nolint
     by <- group_by
   }
 

diff --git a/R/get_datagrid.R b/R/get_datagrid.R
@@ -199,6 +199,7 @@ get_datagrid.data.frame <- function(x,
                                     ...) {
   ## TODO: deprecate later
   if (!is.null(at)) {
+    format_warning("Argument `at` is deprecated and will be removed in a future release. Please use `by` instead.") # nolint
     by <- at
   }
 
@@ -746,6 +747,7 @@ get_datagrid.default <- function(x,
                                  ...) {
   ## TODO: deprecate later
   if (!is.null(at)) {
+    format_warning("Argument `at` is deprecated and will be removed in a future release. Please use `by` instead.") # nolint
     by <- at
   }
 

diff --git a/R/print_parameters.R b/R/print_parameters.R
@@ -114,6 +114,7 @@ print_parameters <- function(x,
                              split_by = NULL) {
   ## TODO: deprecte later
   if (!is.null(split_by)) {
+    format_warning("Argument `split_by` is deprecated and will be removed in a future release. Please use `by` instead.") # nolint
     by <- split_by
   }