tests/testthat/test_cyrillic.R

In gdemin/excel.link: Convenient Data Exchange with Microsoft Excel

context("cyrillic encoding")


options(excel.link.fix_encoding = TRUE)
xl.workbook.close()
xl[a1] = "привет" 

expect_identical(xl[a1], "привет")
xl[a1] = NA

tab  = readRDS("rds/cro_real1.rds")

xlrc[a1] = tab
new_tab = cr[a3]
expect_equal_to_reference(new_tab, "rds/cyrillic_1.rds")

xl.workbook.close()
xlr[a1] = list(tab, tab, tab)
new_tab = cr[a1]

expect_equal_to_reference(new_tab, "rds/cyrillic_2.rds")

xl.workbook.close()
xl.write(tab, xl()$Range("a1"), remove_repeated = FALSE)
new_tab = cr[a3]
expect_equal_to_reference(new_tab, "rds/cyrillic_3.rds")

xl.workbook.close()
xlrc[a1, remove_repeated = FALSE] = tab
new_tab = cr[a3]

expect_equal_to_reference(new_tab, "rds/cyrillic_3.rds")


xl.workbook.close()
xl.write(list(tab, tab, tab), xl()$Range("a1"), remove_repeated = FALSE)
new_tab = cr[a3]

expect_equal_to_reference(new_tab, "rds/cyrillic_4.rds")

xl.workbook.close()
colnames(tab)[1] = "Мое новое имя"
xlrc[a1] = tab
new_tab = cr[a3]

expect_equal_to_reference(new_tab, "rds/cyrillic_5.rds")
xl.workbook.close()
options(excel.link.fix_encoding = FALSE)