Unable to get R_DecisionTreeTitanic.qvf to work

[rvaheldendaten]

I have installed R Server 4.2.0.

Unfortunately I'm no longer able to get the example https://github.com/qlik-oss/sse-r-plugin/blob/master/sense_apps/R_DecisionTree/R_DecisionTreeTitanic.qvf to work.

I get the error below. It seems something has changed in the d3r library. Any idea how to fix this?

Error in d3_party():
! Can't subset .data outside of a data mask context.
Run rlang::last_error() to see where the error occurred.
30: stop(fallback)
29: signal_abort(cnd, .file)
28: abort(sprintf("Can't subset %s outside of a data mask context.",
format_arg(".data")), call = mask_top(call, inherit = TRUE))
27: stop_fake_data_subset(call)
26: $.rlang_fake_data_pronoun(rlang::.data, response)
25: rlang::.data$response
24: eval_tidy(expr, context_mask)
23: eval_context(expr, context_mask)
22: walk_data_tree(new, data_mask, context_mask)
21: reduce_sels(node, data_mask, context_mask, init = init)
20: eval_c(expr, data_mask, context_mask)
19: walk_data_tree(expr, data_mask, context_mask, error_call)
18: vars_select_eval(vars, expr, strict = strict, data = x, name_spec = name_spec,
uniquely_named = uniquely_named, allow_rename = allow_rename,
type = type, error_call = error_call)
17: withCallingHandlers(expr, simpleError = function(cnd) {
{
.handler_frame. <- TRUE
.setup_frame. <- frame
}
out <- handlers[1L]
if (!inherits(out, "rlang_zap"))
throw(out)
})
16: try_fetch(expr, simpleError = function(cnd) {
abort(conditionMessage(cnd), call = conditionCall(cnd))
})
15: with_entraced_errors(expr)
14: doTryCatch(return(expr), name, parentenv, handler)
13: tryCatchOne(expr, names, parentenv, handlers[[1L]])
12: tryCatchList(expr, classes, parentenv, handlers)
11: tryCatch(with_entraced_errors(expr), vctrs_error_subscript = function(cnd) {
cnd$subscript_action <- subscript_action(type)
cnd$subscript_elt <- "column"
cnd_signal(cnd)
})
10: with_subscript_errors(vars_select_eval(vars, expr, strict = strict,
data = x, name_spec = name_spec, uniquely_named = uniquely_named,
allow_rename = allow_rename, type = type, error_call = error_call),
type = type)
9: eval_select_impl(data, names(data), as_quosure(expr, env), include = include,
exclude = exclude, strict = strict, name_spec = name_spec,
allow_rename = allow_rename, error_call = error_call, )
8: tidyselect::eval_select(.x, .data)
7: .f(.x[[i]], ...)
6: map(cols, ~tidyselect::eval_select(.x, .data))
5: pack(.data, !!!cols, .names_sep = .names_sep)
4: nest.tbl_df(.data, ..., .names_sep = .names_sep, .key = .key)
3: nest.data.frame(counts, data = c(rlang::.data$response, rlang::.data$freq))
2: tidyr::nest(counts, data = c(rlang::.data$response, rlang::.data$freq))
1: d3_party(rpart(survived ~ ., data = q, method = "class"))