
library(testthat)

source("user_code.R")
library(testthat)

source("user_code.R")
test_that("function returns a list with correct element names", {
  profile <- create_student_profile("Alex", 20, c(88, 92, 79), TRUE)
  expect_true(is.list(profile))
  expect_setequal(names(profile), c("name", "age", "grades", "passed"))
})

test_that("grades element is a numeric vector and matches input", {
  grades_input <- c(88, 92, 79)
  profile <- create_student_profile("Alex", 20, grades_input, TRUE)
  expect_true(is.numeric(profile$grades))
  expect_equal(profile$grades, grades_input)
})

test_that("passed element is logical and matches input", {
  profile <- create_student_profile("Alex", 20, c(88, 92, 79), TRUE)
  expect_true(is.logical(profile$passed))
  expect_equal(profile$passed, TRUE)
})

test_that("printing grades and passed outputs correct values", {
  out <- capture.output(main())
  expect_true(any(grepl("88 92 79", out)))
  expect_true(any(grepl("TRUE", out)))
})

test_main.R

Focus on practical skills for cleaning and transforming tabular data in R using data frames. Learn to create, modify, filter, and sort data for analysis, with hands-on challenges to reinforce each concept.

Challenge: Create and Access Lists

Lösung

Challenge: Create and Access Lists

Lösung