tests/testthat/test.print.R

In mandpd/comments: Add comments to your R data frames as you modify them to document the reasons for your changes

context('print() wrapper Tests')

test_that('commented vectors without notes parameter print correctly', {
  df <- c(1,2,3,4,5,6)
  df <- enotes(df)
  expect_equal(capture_output(print(df)),'[1] 1 2 3 4 5 6')
})

test_that('commented lists without notes parameter print correctly', {
  df <- list(1,2,3,4,'a','b')
  df <- enotes(df)
  expect_equal(capture_output(print(df)),'[[1]]\n[1] \"1\" \"2\" \"3\" \"4\" \"a\" \"b\"\n')
})

test_that('commented data frames without notes parameter print correctly', {
  df <- cars
  df <- enotes(df[1,])
  expect_equal(capture_output(print(df)),'  speed dist\n1     4    2')
})

test_that('commented vectors with notes parameter print correctly', {
  df <- c(1,2,3,4,5,6)
  df <- enotes(df)
  expect_equal(capture_output(print(df, notes = T, showtimestamps = F)),'#    Comments                                                       \n----------------------------------------------------------------------\n1 :  Comments enabled                                                 \n[1] 1 2 3 4 5 6')
})

test_that('commented lists with notes parameter print correctly', {
  df <- list(1,2,3,4,'a','b')
  df <- enotes(df)
  expect_equal(capture_output(print(df, notes = T, showtimestamps = F)),'#    Comments                                                       \n----------------------------------------------------------------------\n1 :  Comments enabled                                                 \n[[1]]\n[1] \"1\" \"2\" \"3\" \"4\" \"a\" \"b\"\n')
})

test_that('commented data frames with notes parameter print correctly', {
  df <- (cars)
  df <- enotes(df[1,])
  expect_equal(capture_output(print(df, notes = T, showtimestamps = F)),'#    Comments                                                       \n----------------------------------------------------------------------\n1 :  Comments enabled                                                 \n  speed dist\n1     4    2')
})

test_that('uncommented objects print correctly', {
  df <- cars[1,]
  expect_equal(capture_output(print(df)),'  speed dist\n1     4    2')
})

test_that('notes and showtimestamps parameters work correctly', {
  df <- enotes(c(1,2,3,4,5,6))
  expect_equal(capture_output_lines(print(df, notes = T, showtimestamps = T))[1],'#    Comments                                                       Time Stamp       ')
  expect_equal(capture_output(print(df, notes = T, showtimestamps = F)),'#    Comments                                                       \n----------------------------------------------------------------------\n1 :  Comments enabled                                                 \n[1] 1 2 3 4 5 6')
  expect_equal(capture_output(print(df, notes = F)),'[1] 1 2 3 4 5 6')
})