/usr/share/doc/r-cran-dplyr/tests/testthat/test-distinct.R is in r-cran-dplyr 0.7.4-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 | context("Distinct")
test_that("distinct equivalent to local unique when keep_all is TRUE", {
df <- tibble(
x = c(1, 1, 1, 1),
y = c(1, 1, 2, 2),
z = c(1, 2, 1, 2)
)
expect_equal(distinct(df), unique(df))
})
test_that("distinct for single column works as expected (#1937)", {
df <- tibble(
x = c(1, 1, 1, 1),
y = c(1, 1, 2, 2),
z = c(1, 2, 1, 2)
)
expect_equal(distinct(df, x, .keep_all = FALSE), unique(df["x"]))
expect_equal(distinct(df, y, .keep_all = FALSE), unique(df["y"]))
})
test_that("distinct works for 0-sized columns (#1437)", {
df <- data_frame(x = 1:10) %>% select(-x)
ddf <- distinct(df)
expect_equal(ncol(ddf), 0L)
})
test_that("if no variables specified, uses all", {
df <- data_frame(x = c(1, 1), y = c(2, 2))
expect_equal(distinct(df), data_frame(x = 1, y = 2))
})
test_that("distinct keeps only specified cols", {
df <- data_frame(x = c(1, 1, 1), y = c(1, 1, 1))
expect_equal(df %>% distinct(x), data_frame(x = 1))
})
test_that("unless .keep_all = TRUE", {
df <- data_frame(x = c(1, 1, 1), y = 3:1)
expect_equal(df %>% distinct(x), data_frame(x = 1))
expect_equal(df %>% distinct(x, .keep_all = TRUE), data_frame(x = 1, y = 3L))
})
test_that("distinct doesn't duplicate columns", {
df <- tibble(a = 1:3, b = 4:6)
expect_named(df %>% distinct(a, a), "a")
expect_named(df %>% group_by(a) %>% distinct(a), "a")
})
test_that("grouped distinct always includes group cols", {
df <- tibble(g = c(1, 2), x = c(1, 2))
out <- df %>% group_by(g) %>% distinct(x)
expect_equal(df, out)
})
test_that("empty grouped distinct equivalent to empty ungrouped", {
df <- tibble(g = c(1, 2), x = c(1, 2))
df1 <- df %>% distinct() %>% group_by(g)
df2 <- df %>% group_by(g) %>% distinct()
expect_equal(df1, df2)
})
test_that("distinct on a new, mutated variable is equivalent to mutate followed by distinct", {
df <- tibble(g = c(1, 2), x = c(1, 2))
df1 <- df %>% distinct(aa = g * 2)
df2 <- df %>% mutate(aa = g * 2) %>% distinct(aa)
expect_equal(df1, df2)
})
|