H A D | test-parsing-factors.R | 2 x <- parse_factor(c("a", "b"), levels = c("a", "b")) nameattr in c 7 x <- parse_factor(c("a", "b"), levels = c("a", "b"), ordered = TRUE) nameattr in c 24 x <- parse_factor(c("a", "b", "c", "b"), levels = NULL) nameattr 31 x <- parse_factor(c("b", "a", "c", "b"), levels = NULL) nameattr 32 expect_equal(levels(x), c("b", "a", "c")) 37 expect_equal(parse_factor(x), parse_factor(x, levels = NULL)) 76 as.integer(factor(c("a", "a "), levels = c("a"))) nameattr in c 84 as.integer(factor(c("a", "a "), levels = c("a "))) nameattr in c 90 as.integer(factor(c("a", "a "), levels = c("a", "a "))) nameattr in c 95 as.integer(factor(c("a", "a "), levels = c("a ", "a"))) nameattr in c [all …]
|