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"
  )
})

Try the rpivotTable package in your browser

Any scripts or data that you put into this service are public.

rpivotTable documentation built on May 1, 2019, 9:11 p.m.