inst/tinytest/test_factor.R

In WinVector/cdata: Fluid Data Transformations

test_factor <- function() {

  df <- data.frame(ca = "a",
                   cb = "b",
                   stringsAsFactors = TRUE)
  ds <- data.frame(ca = "a",
                   cb = "b",
                   stringsAsFactors = FALSE)
  layout <- rowrecs_to_blocks_spec(
    wrapr::qchar_frame(
      "group" , "meas" |
        "cola"   ,  ca    |
        "colb"   , cb    ))

  rf <- df %.>% layout

  rs <- ds %.>% layout

  expect_true(wrapr::check_equiv_frames(rf, rs))

  expect <-  wrapr::build_frame(
    "group"  , "meas" |
      "cola" , "a"    |
      "colb" , "b"    )

  expect_true(wrapr::check_equiv_frames(expect, rs))
  expect_true(wrapr::check_equiv_frames(expect, rf))

  invisible(NULL)
}

test_factor()