fix: added patchwork and yardstick as deps

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: Dmisc
 Title: Daniel miscellaneous functions
-Version: 0.3.4
+Version: 0.3.5
 Authors@R: 
     person(given = "Daniel E.",
            family = "de la Rosa",
@@ -22,13 +22,15 @@ Imports:
     glue,
     lifecycle,
     magrittr,
+    patchwork,
     rlang,
     stringr,
-    tidyr
+    tidyr,
+    yardstick
 Suggests: 
-    cli, 
+    cli,
     DBI,
-    DT, 
+    DT,
     flextable,
     forecast,
     ggcorrplot,
@@ -37,10 +39,9 @@ Suggests:
     janitor,
     keyring,
     knitr,
-    lmtest ,
+    lmtest,
     lubridate,
-    patchwork,
-    pins ,
+    pins,
     purrr,
     renv,
     RPostgres,
@@ -55,5 +56,5 @@ Suggests:
     tseries,
     vars,
     withr,
-    xts ,
+    xts,
     zoo

R/pins.R

@@ -40,7 +40,7 @@ pin_get_or_create <- function(.data, .board, .name, type = 'csv', ...) {
     }
   }
   if (is.null(.version)) {
-    pins::pin_write(.board, .data, .name, type, ...)
+    pins::pin_write(.board, .data, .name, type = type, ...)
     .versions <- pins::pin_versions(.board, .name)
     .version <- .versions %>%
       dplyr::arrange(created) %>%

R/unpack_assign.R

@@ -21,18 +21,22 @@
 #' }
 `%<...%` <- function(names, values) {
   # Collect additional arguments
+  .envir <- .GlobalEnv
   tryCatch({
     .envir <- names[['.envir']]
     names[['.envir']] <- NULL
   }, error = function(x){
-    .envir <- .GlobalEnv
+    #cli::cli_warn("The '.envir' argument must be a valid environment. ",
+    #             "The global environment will be used by default.")
   })
 
+  .warn <- TRUE
   tryCatch({
     .warn <- names[['.warn']]
     .warn <- NULL
   }, error = function(x){
-    .warn <- TRUE
+    #cli::cli_warn("The '.warn' argument must be a logical value. ",
+    #             "A warning will be issued by default.")
   })
 
   # Issue a warning if '.warn' is TRUE