tests/testthat/test-calc_freqs_knowledge.R

In best-practice-and-impact/CARS2: Coding in Analysis and Research Survey (CARS) Wave 2 Analysis

langs <- c(
  C = "C++ / C#",
  java = "Java / Scala",	
  JS = "javascript / Typescript",
  python = "Python",
  R = "R",
  SAS = "SAS",	
  SPSS = "SPSS",	
  SQL = "SQL",	
  stata = "Stata",	
  VBA = "VBA"
)

dummy_data <-  data.frame(knowledge_R = c("Yes", "Don't Know", 1, "Other"),
                          knowledge_java = c("No", "Yes", 2, NA),
                          other_column = c(1,2,3,4))

calc_freqs_knowledge  <- carsurvey2::calc_freqs_knowledge(dummy_data, langs)
rownames(calc_freqs_knowledge) <- NULL

expected_values <- data.frame("Programming language" = factor(c("Java / Scala","R"), levels = c("Java / Scala","R")),
                              "Yes" = as.integer(c(1, 1)),
                              "Don't know" = as.integer(c(0, 1)),
                              "No" = as.integer(c(1, 0)))
colnames(expected_values) <- c("Programming language", "Yes", "Don't know", "No")

test_that("Output matches expected values", {
  expect_equal(calc_freqs_knowledge, expected_values)
})