tests/testthat/test_df_sprintf.R

In s-fleck/hammr: Assorted Utility Functions

context('df_sprintf')

testdat <- data.frame(
  a = c(1, 2),
  b = c('a', 'b'),
  stringsAsFactors = FALSE
)


test_that("df_affix: prefix/postfix data frame values.", {
  r1 <- data.frame(
    a = c('p1s', 'p2s'),
    b = c('pas', 'pbs'),
    stringsAsFactors = FALSE
  )

  r2 <- data.frame(
    a = c('(1)', '(2)'),
    b = c('(a)', '(b)'),
    stringsAsFactors = FALSE
  )

  expect_identical(df_sprintf(testdat, 'p%ss'), r1)
  expect_identical(df_parenthesis(testdat), r2)
})