powered by
test_function_result(name = NULL, index = 1, eq_condition = "equivalent", not_called_msg = NULL, error_msg = NULL, incorrect_msg = NULL) "check_result"(state, error_msg = NULL, append = TRUE, ...) "check_result"(state, error_msg = NULL, append = TRUE, ...) "check_equal"(state, eq_condition = "equivalent", incorrect_msg = NULL, append = TRUE, ...) "check_equal"(state, eq_condition = "equivalent", incorrect_msg = NULL, append = TRUE, ...)
check_
## Not run: # # Example 1 # mean(1:3) # # # SCT option 1 # test_function_result("mean") # # # SCT option 2 # ex() %>% check_function("mean") %>% check_result() %>% check_equal() # ## End(Not run)
Run the code above in your browser using DataLab