
library(testthat)

source("user_code.R")
test_that("create_tibble_with_list_column returns correct tibble structure and data", {
  tb <- create_tibble_with_list_column()
  expect_true("tbl_df" %in% class(tb), "Returned object is not a tibble.")
  expect_true(all(c("id", "numbers") %in% names(tb)), "Tibble does not have required columns.")
  expect_equal(tb$id, c(1,2,3), info = "id column does not match expected values.")
  expect_true(is.list(tb$numbers), "numbers column is not a list-column.")
  expect_equal(tb$numbers[[1]], c(1,2,3), info = "First list element in numbers is incorrect.")
  expect_equal(tb$numbers[[2]], c(4,5), info = "Second list element in numbers is incorrect.")
  expect_equal(tb$numbers[[3]], c(6), info = "Third list element in numbers is incorrect.")
})

test_that("extract_first_element returns correct vector", {
  tb <- create_tibble_with_list_column()
  first_elements <- extract_first_element(tb)
  expect_equal(first_elements, c(1,4,6), info = "extract_first_element did not return correct first elements.")
})

test_that("unnest_list_column returns unnested tibble correctly", {
  tb <- create_tibble_with_list_column()
  unnested <- unnest_list_column(tb)
  expect_true("tbl_df" %in% class(unnested), "Unnested object is not a tibble.")
  expect_true(all(c("id", "numbers") %in% names(unnested)), "Unnested tibble does not have required columns.")
  expect_equal(unnested$id, c(1,1,1,2,2,3), info = "Unnested id column is incorrect.")
  expect_equal(unnested$numbers, c(1,2,3,4,5,6), info = "Unnested numbers column is incorrect.")
})

test_main.R

Master the essential R data structures used in exploratory data analysis (EDA), focusing on practical applications and hands-on challenges. This course is designed for learners already familiar with R syntax, core data structures, and data cleaning/wrangling techniques.

Explore the essential R data structures that power effective exploratory data analysis, with a focus on practical usage and hands-on challenges.

Challenge: List-Columns

Ratkaisu