
library(testthat)

source("user_code.R")
test_that("function returns a factor", {
  categories <- c("Electronics", "Toys", "Clothing", "Toys", "Clothing", "Electronics")
  result <- convert_to_factor(categories)
  expect_true(is.factor(result), info = "Result should be of class 'factor'.")
})

test_that("factor contains same values as input", {
  categories <- c("Books", "Books", "Clothing", "Electronics")
  result <- convert_to_factor(categories)
  expect_equal(as.character(result), categories, info = "Factor values should match input vector values.")
})

test_that("factor levels match unique categories", {
  categories <- c("Electronics", "Toys", "Clothing", "Toys", "Clothing", "Electronics")
  result <- convert_to_factor(categories)
  expected_levels <- sort(unique(categories))
  expect_equal(sort(levels(result)), expected_levels, info = "Factor levels should match unique categories in input.")
})

test_that("factor preserves input order", {
  categories <- c("Books", "Books", "Clothing", "Electronics")
  result <- convert_to_factor(categories)
  expect_equal(as.character(result), categories, info = "Factor should preserve the order of the input vector.")
})

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: Work with Factors and Characters

Solution

Challenge: Work with Factors and Characters

Solution