H A D | test-eval-c.R | 3 expect_identical(select_loc(mtcars, c(mpg:disp, -(mpg:cyl))), c(disp = 3L)) 5 expect_identical(select_loc(mtcars, c(mpg, -mpg)), set_names(int(), chr())) 6 expect_identical(select_loc(mtcars, c(mpg, -mpg, mpg)), c(mpg = 1L)) nameattr 7 expect_identical(select_loc(mtcars, c(mpg, -mpg, mpg, -mpg)), set_names(int(), chr())) 9 expect_identical(select_loc(mtcars, c(mpg, cyl, -mpg)), c(cyl = 2L)) 10 expect_identical(select_loc(mtcars, c(mpg, cyl, -mpg, -cyl)), set_names(int(), chr())) 11 expect_identical(select_loc(mtcars, c(mpg, cyl, -mpg, mpg, -cyl)), c(mpg = 1L)) nameattr 17 expect_identical(fn(mpg), c(mpg = 1L)) nameattr 18 expect_identical(fn(mpg, cyl), c(mpg = 1L, cyl = 2L)) nameattr 19 expect_identical(fn(mpg, cyl, disp), c(mpg = 1L, cyl = 2L, disp = 3L)) nameattr [all …]
|