fix(task): evaluate deparsed id in the beginning (#73)

.gitignore

@@ -97,3 +97,6 @@ rsconnect/
 
 revdep/
 CRAN-SUBMISSION
+
+# MacOS
+.DS_Store

R/as_task_clust.R

@@ -31,6 +31,8 @@ as_task_clust.TaskClust = function(x, clone = FALSE, ...) { # nolint
 #'   Defaults to the (deparsed and substituted) name of the data argument.
 #' @export
 as_task_clust.data.frame = function(x, id = deparse(substitute(x)), ...) { # nolint
+  force(id)
+
   ii = which(map_lgl(keep(x, is.double), anyInfinite))
   if (length(ii)) {
     warningf("Detected columns with unsupported Inf values in data: %s", str_collapse(names(ii)))
@@ -42,6 +44,8 @@ as_task_clust.data.frame = function(x, id = deparse(substitute(x)), ...) { # nol
 #' @rdname as_task_clust
 #' @export
 as_task_clust.DataBackend = function(x, id = deparse(substitute(x)), ...) { # nolint
+  force(id)
+
   TaskClust$new(id = id, backend = x)
 }
 
@@ -50,6 +54,8 @@ as_task_clust.DataBackend = function(x, id = deparse(substitute(x)), ...) { # no
 #'   Data frame containing all columns specified in formula `x`.
 #' @export
 as_task_clust.formula = function(x, data, id = deparse(substitute(data)), ...) { # nolint
+  force(id)
+
   assert_data_frame(data)
   assert_subset(all.vars(x), c(names(data), "."), .var.name = "formula")
   if (attributes(terms(x, data = data))$response) {