context("parameters")
test_that("parameters handled correctly",{
expect_match(
rpivotTable(data.frame(),rows = c("arow"))$x$params$rows[[1]]
,"arow"
)
# one row or column should be made list so will be boxed for JSON
expect_is(
rpivotTable(data.frame(),rows = c("arow"))$x$params$rows
,"list"
)
expect_match(
rpivotTable(data.frame(),rows = c("arow"))$x$params$rows[[1]]
,"arow"
)
expect_identical(
rpivotTable(data.frame(),rows = c("arow","anotherRow"))$x$params$rows
,c("arow","anotherRow")
)
expect_is(
rpivotTable(data.frame(),cols = c("acol"))$x$params$cols
,"list"
)
expect_match(
rpivotTable(data.frame(),cols = c("acol"))$x$params$cols[[1]]
,"acol"
)
expect_identical(
rpivotTable(data.frame(),cols = c("acol","anothercol"))$x$params$cols
,c("acol","anothercol")
)
expect_match(
rpivotTable(data.frame(),aggregatorName="Sum")$x$params$aggregatorName[[1]]
,"Sum"
)
expect_is(
rpivotTable(data.frame(),vals="aval")$x$params$vals
,"list"
)
expect_match(
rpivotTable(data.frame(),vals="aval")$x$params$vals[[1]]
,"aval"
)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.