feat: unpack assign

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: Dmisc
 Title: Daniel miscellaneous functions
-Version: 0.3.1
+Version: 0.3.2
 Authors@R: 
     person(given = "Daniel E.",
            family = "de la Rosa",

R/describe.R

@@ -20,7 +20,7 @@
 #'
 #' # Using describe
 #' describe(cars)
-#' describe(cars, flextable = TRUE, ft_args = list(cwidth = 1))
+#' describe(cars, flextable = TRUE)
 describe <- function(data, digits = 4, t = TRUE, flextable = FALSE, ft_args = list(), ...) {
   data <- as.data.frame(data)
   res <- list()

R/unpack_assign.R

@@ -1,36 +1,39 @@
 
-# Unpack and assign values to specified names in an environment
-# `r lifecycle::badge("experimental")`
-#
-# @param names A character vector specifying the names of variables to be assigned.
-# @param values A list or vector containing the values to be assigned to the names.
-# @param ... Additional arguments, including
-#   \itemize{
-#     \item{.envir}{The environment where the variables will be assigned. Defaults to the global environment.}
-#     \item{.warn}{Logical flag indicating whether to show a warning message. Defaults to TRUE.}
-#   }
-#
-# @return NULL. The function performs assignments in the specified environment.
-#
-#
-# @rdname unpkg-assign
-#
-# @examples
-# \dontrun{
-# c("x", "y") %<...% list(1, 2)
-# }
-`%<...%` <- function(names, values, ...) {
+#' Unpack and assign values to specified names in an environment
+#' `r lifecycle::badge("experimental")`
+#'
+#' @param names A list or character vector specifying the names of variables to be assigned.
+#' @seealso Additional arguments that can be passed to names include
+#'   \itemize{
+#'     \item{.envir}{The environment where the variables will be assigned. Defaults to the global environment.}
+#'     \item{.warn}{Logical flag indicating whether to show a warning message. Defaults to TRUE.}
+#'   }
+#' @param values A list or vector containing the values to be assigned to the names.
+#'
+#' @return NULL. The function performs assignments in the specified environment.
+#'
+#'
+#' @rdname unpkg-assign
+#'
+#' @examples
+#' \dontrun{
+#' c("x", "y") %<...% list(1, 2)
+#' }
+`%<...%` <- function(names, values) {
   # Collect additional arguments
-  args <- list(...)
-
-  # Set default values if not provided
-  if (is.null(args[['.envir']])){
+  tryCatch({
+    .envir <- names[['.envir']]
+    names[['.envir']] <- NULL
+  }, error = function(x){
     .envir <- .GlobalEnv
-  }
+  })
 
-  if (is.null(args[['.warn']])){
+  tryCatch({
+    .warn <- names[['.warn']]
+    .warn <- NULL
+  }, error = function(x){
     .warn <- TRUE
-  }
+  })
 
   # Issue a warning if '.warn' is TRUE
   if (.warn) {
@@ -68,6 +71,6 @@
 
 # @rdname unpkg-assign
 # @order 2
-`%...>%` <- function(values, names, ...) {
-  `%<...%`(names, values, ...)
+`%...>%` <- function(values, names) {
+  `%<...%`(names, values)
 }