/usr/share/doc/r-cran-dplyr/tests/testthat/utf-8.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 | # UTF-8 tests that can't be run on Windows CRAN
df <- data.frame(中文1 = 1:10, 中文2 = 1:10, eng = 1:10)
df2 <- df %>% mutate(中文1 = 中文1 + 1)
gdf2 <- df %>% group_by(eng) %>% mutate(中文1 = 中文1 + 1)
expect_equal(strings_addresses(names(df)), strings_addresses(names(df2)))
expect_equal(strings_addresses(names(df)), strings_addresses(names(gdf2)))
df3 <- filter(df2, eng > 5)
gdf3 <- filter(gdf2, eng > 5)
expect_equal(strings_addresses(names(df)), strings_addresses(names(df3)))
expect_equal(strings_addresses(names(df)), strings_addresses(names(gdf3)))
df4 <- filter(df2, 中文1 > 5)
gdf4 <- filter(gdf2, 中文1 > 5)
expect_equal(strings_addresses(names(df)), strings_addresses(names(df4)))
expect_equal(strings_addresses(names(df)), strings_addresses(names(gdf4)))
|