# Deprecated
test_an_object <- function(name,
undefined_msg = NULL,
eq_condition = "equivalent") {
fail_if_v2_only()
# Get needed elements from tw
student_env <- ex()$get("student_env")
solution_env <- ex()$get("solution_env")
if (is.null(undefined_msg)) {
# Avoid returning this message, always set undefined_msg
undefined_msg <- "There is some object missing in your code."
}
check_defined(name, solution_env)
solution <- get(name, envir = solution_env, inherits = FALSE)
valid_values <- list()
length(valid_values) <- length(ls(student_env))
counter <- 1
for (student_var in ls(student_env)) {
student_value <- get(student_var, envir = student_env, inherits = FALSE)
if (identical(class(student_value), class(solution))) {
valid_values[[counter]] <- student_value
counter <- counter + 1
}
}
if (counter > 1) {
correct <- vapply(valid_values[1:counter-1], function(x) { is_equal(x, solution, eq_condition) }, logical(1))
} else {
correct <- FALSE
}
check_that(is_true(any(correct)), feedback = undefined_msg)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.