removed dictionary_cast

Author: mllg

NAMESPACE

@@ -26,7 +26,6 @@ export(chunk_vector)
 export(compute_mode)
 export(cross_join)
 export(detect)
-export(dictionary_cast)
 export(dictionary_sugar)
 export(did_you_mean)
 export(discard)

NEWS.md

@@ -4,7 +4,6 @@
 
 * New function `detect()`.
 * New function `dictionary_sugar()`.
-* New function `dictionary_cast()` (moved from `mlr3`).
 * It is now asserted that the return value of Dictionaries is an R6 object.
 * Fix some more assertions in `Dictionary`
 

R/dictionary_sugar.R

@@ -83,55 +83,3 @@ get_constructor_formals = function(x) {
 
   return(character())
 }
-
-
-#' @title Cast Objects Using a Dictionary
-#'
-#' @description
-#' Uses a dictionary to cast objects of a specific type of a [Dictionary].
-#' Intended for package developers.
-#'
-#' @param `x` :: (`character()` | `list()`)\cr
-#'  Object to cast.
-#' @param `type` :: `character(1)`\cr
-#'  Expected type of objects.
-#' @param `dict` :: [Dictionary]\cr
-#'  Expected type of objects.
-#' @param `clone` :: `logical(1)`\cr
-#'  Clone objects, if necessary. Default is `FALSE`.
-#' @param `multiple` :: `logical(1)`\cr
-#'  Cast multiple objects of type `type` or just a single one?
-#'
-#' @return Object of type `type` or list of objects of type `type`.
-#' @keywords internal
-#' @export
-dictionary_cast = function(dict, x, type, clone = FALSE, multiple = TRUE) {
-  if (inherits(x, type)) {
-    if (clone) {
-      x = x$clone(deep = TRUE)
-    }
-    return(list(x))
-  }
-
-  if (!is.character(x) && !is.list(x)) {
-    stopf("Argument %s must be an object of type '%2$s', a list of elements of type '%2$s' or a character vector of keys to lookup in the dictionary",
-      deparse(substitute(x)), type)
-  }
-
-  if (!multiple && length(x) != 1L) {
-    stopf("Argument %s must be an object of type '%2$s', a list with one element of type '%2$s' or a single key to lookup in the dictionary",
-      deparse(substitute(x)), type)
-  }
-
-  map(x, function(xi) {
-    if (inherits(xi, type)) {
-      return(if (clone) xi$clone(deep = TRUE) else xi)
-    }
-    if (is.character(xi) && length(xi) == 1L) {
-      return(dict$get(xi))
-    }
-
-    stopf("Argument %s must be an object of type '%2$s', a list of elements of type '%2$s' or a character vector of keys to lookup in the dictionary",
-      deparse(substitute(x)), type)
-  })
-}

man/dictionary_cast.Rd

@@ -47,18 +47,6 @@ test_that("Dictionary throws exception on unnamed args", {
   expect_error(x$mget("a", "b"), "names")
 })
 
-test_that("dictionary_cast", {
-  Foo = R6::R6Class("Foo", public = list(x = 0), cloneable = TRUE)
-  d = Dictionary$new()
-  d$add("f1", Foo)
-
-  expect_list(dictionary_cast(d, "f1", "Foo"), "Foo", len = 1)
-  expect_list(dictionary_cast(d, Foo$new(), "Foo"), len = 1)
-  expect_list(dictionary_cast(d, c("f1", "f1"), "Foo"), "Foo", len = 2)
-  expect_list(dictionary_cast(d, list("f1", "f1"), "Foo"), "Foo", len = 2)
-  expect_list(dictionary_cast(d, list("f1", Foo$new()), "Foo"), "Foo", len = 2)
-})
-
 test_that("dictionary_sugar", {
   Foo = R6::R6Class("Foo", public = list(x = 0, y = 0, key = 0, initialize = function(y, key = -1) { self$y = y ; self$key = key }), cloneable = TRUE)
   d = Dictionary$new()