tests/testthat/test_locale.R

context("locale")

test_that("locale changed as expected",{
  # locale changed in x
  expect_match(
    change_locale(rpivotTable(data.frame()),"pt")$x$locale
    ,"pt"
  )
})
smartinsightsfromdata/rpivotTable documentation built on May 30, 2019, 3:07 a.m.